有如下程序： Option Base 1 Private Sub For...

单项选择题

假定在工程文件中有一个标准模块，其中定义了如下记录类型：
Type Books
Name As String10
TelNum As String20
End Type
要求当执行事件过程Command1_Click时，在顺序文件Person. txt中写入一条记录。下列能够完成该操作的事件过程是______。

A．Private Sub Command1_Click()
Dim B As Books
Open"c:\Person. txt" For Output As #1
B. Name=InputBox("输入姓名")
B. TelNum=InputBox("输入电话号码")
Write #1, B. Name, B. TelNum
Close #1
End Sub
B．Private Sub Command1_Click()
Dim B As Books
Open"c:\Person txt" For Output As #1
B. Name=InputBox("输入姓名")
B. TelNum=InputBox("输入电话导码")
Print #1, B. Name, B. TelNum
Close #1
End Sub
C．Private Sub Command1_Click()
Dim B As Books
Open"c:\Person. txt" For Output As #1
Name=InputBox("输入姓名")
TelNum=InputBox("输入电话号码")
Print #1, B
Close #1
End Sub
D．Private Sub Command1_Click()
Dim B As Books
Open "c:\Person txt" For Output As #1
Name=InputBox("输入姓名")
TelNum=InputBox("输入电话号码")
Print #1, B Name, B. TelNum
Close #1
End Sub

单项选择题

在长度为n的线性表中用二分法查找一个表中不存在的元素，需要的比较次数为______。

A．log₂n
B．nlog₂n
C．n/2
D．n

单项选择题

数据字典是软件需求分析阶段的最重要的工具之一，其最基苯的功能是______。

A．数据库设计
B．数据通信
C．数据定义
D．数据维护

单项选择题

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
option Base 1
Private Sub Command1_Click()
Dim a
a=Array(1, 2, 3, 4, 5)
For i=1 To UBound(

A．
&n

单项选择题

当型循环和直到型循环的区别是______。

A．当型循环效率高
B．直到型循环效率高
C．当型循环至少执行一次运算
D．直到型循环至少执行一次运算

单项选择题

数据库设计的根本目标是要解决______。

A．数据共享问题
B．数据安全问题
C．大量数据储存问题
D．简化数据维护

单项选择题

下列关于栈的描述中错误的是______。

A．栈是先进后出的线性表
B．栈只能顺序存储
C．栈具有记忆作用
D．对栈的插入与删除操作中，不需要改变栈底指针

单项选择题

执行以下程序段：
a $="abbaedduba"
For i=6 To 2 Step-2
X=Mid(a, i, i)
Y=Left(a, i)
z=Right(a, i)
z=UCase(X&Y&z)
Next i
Print z
输出结果为______。

A．ABA
B．BBABBA
C．ABBABA
D．AABAAB

单项选择题

以下语句的输出结果是______。
Print Format $(5874.567, "0.00E-00")

A．5874.57
B．5.87458E03
C．5874.567
D．5.87E03

单项选择题

下列关于数据库系统叙述正确的是______。

A．数据库中只存在数据项之间的联系
B．数据库的数据项之间和记录之间都存在联系
C．数据库的数据项之间无联系，记录之间存在联系
D．数据库的数据项之间和记录之间都不存在联系

单项选择题

开发软件时对提高开发人员的工作效率至关重要的是______。

A．计算机的并行处理能力
B．领导的关心
C．程序人员的数量
D．软件开发环境

单项选择题

以下关于作用范围的描述正确的是______。

A．所有变量(Public/Global/Static/Private)都可以放到窗体的通用部分定义
B．所有变量(Public/Global/Static/Private)都可以放到标准模块中定义
C．Public/Global类的变量只能放在标准模块中定义
D．只有Global变量是必须放在标准模块中定义

单项选择题

在窗体上有若干控件，其中有一个名称为Text1的文本框。影响Text1的Tab顺序的属性是______。

A．TabStop
B．Enabled
C．Visible
D．TabIndex

单项选择题

在软件设计中，不属于过程设计工具的是______。

A．PDL(过程设计语言)
B．PAD图
C．N-S图
D．DFD图

单项选择题

在窗体上画一个名称为Filel的文件列表框，并编写如下程序：
Private Sub Filel_DblClick()
x=Shell(Filel. FileName, 1)
End Sub
以下关于该程序的叙述中，错误的是______。

A．x没有实际作用，因此可以将该语句写为：Call Shell(Filel. FileName, 1)
B．双击文件列表框中的文件，将触发该事件过程
C．要执行的文件的名字通过Filel. FileName指定
D．Filel中显示的是当前驱动器、当前目录下的文件

单项选择题

在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Option Base 1
Private Sub Command1_Click()
Dim c As Integer, d As Integer
d=0
c=6
x=Array(2, 4, 6, 8, 10, 12)
For i=1 To 6
If x(i)＞c Then
d=d+x(i)
c=x(i)
Else
d=d-c
End If
Next i
Print d
End Sub
程序运行后，如果单击命令按钮，则在窗体上输出的内容为______。

A．10
B．16
C．12
D．20

单项选择题

把窗体的KeyPreview属性设置为True，然后编写如下事件过程：
Private Sub Form_KeyPress(KeyAscii As Integer)
Dim Ch As String
Ch=Chr(KeyAscii)
KeyAscii=Asc(UCase(Ch))
Print Chr(KeyAscii+2)
End Sub
程序运行后，按键盘上的A键，则在窗体上显示的内容是______。

A．A
B．B
C．C
D．D

单项选择题

阅读程序：
Option Base 1
Private Sub Form_Click()
Dim arr, Sum
Sum=0
art=Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19)
For i=1 To 10
If arr(i)/3=arr(i)\3 Then
Sum=Sum+arr(i)
End If
Next i
Print Sum
End Sub
程序运行后，单击窗体，输出结果为______。

A．13
B．14
C．27
D．15

单项选择题

在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程：
Private Sub Command1_Click()
n=Val(Text1. Text)
If n\2=n/2 Then
f=f1(n)
Else
f=f2(n)
End If
Print f; n
End Sub
Public Function f1(ByRef x)
x=xx
f1=x+x
End Function
Public Function f2(Byval x)
x=xx
f1=x+x+x
End Function
程序运行后，在文本框中输入6，然后单击命令按钮，窗体上显示的是______。

A．72 36
B．108 36
C．72 6
D．108 6

单项选择题

在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timer1，在属性窗口中把计时器的Interval属性设置为1000，Enabled属性设置为False。程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序：
Private Sub Command1_Click()
Timer1. ______
End Sub
Private Sub Timer1_Timer()
Text1. Text=Time
End Sub
在填空处应填入的内容是______。

A．Enabled=True
B．Enabled=False
C．Visible=True
D．Visible=False

单项选择题

设有如下程序：
Private Sub Command1_Click()
Dim C As Integer, d As Integer
c=4
d=InputBox("请输入一个整数")
Do While d＞0
If d＞c Then
c=c+1
End If
d=InputBox("请输入一个整数")
Loop
Print c+d
End Sub
程序运行后，单击命令按钮，如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、0，则输出结果是______。

A．12
B．11
C．10
D．9

单项选择题

在窗体上画一个名为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim arrayl(10, 10)As Integer
Dim i As Integer, j As Integer
For i=1 To 3
For j=2 To 4
arrayl(i, j)=i+j
Next j
Next i
Text1. Text=arrayl(2, 3)+arrayl(3, 4)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是______。

A．12
B．13
C．14
D．15

单项选择题

在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim a(5)As String
For i=1 T0 5
a(i)=Chr(Asc("A")+(i-1))
Next i
For Each b In a
Print b;
Next
End Sub
程序运行后，单击命令按钮，输出结果是______。

A．ABCDE
B．1 2 3 4 5
C．abode
D．出错信息

单项选择题

在窗体上画一个名称为CommonDialogl的通用对话框，一个名称为Command1的命令按钮。然后编写如下事件过程：
Prirate Sub Command1_Click()
CommonDialogl. FileName=""
CommonDialogl. Filter="All file|. |(. Doc)|. Doc|(. Txt)|. Txt"
CommonDialogl. Filterlndex=2
CommonDialogl. DialogTitle="VBTest"
CommonDialogl. Action=1
End Sub
对于这个程序，以下叙述中错误的是______。

A．该对话框被设置为“打开”对话框
B．在该对话框中指定的默认文件名为空
C．该对话框的标题为VBTest
D．在该对话框中指定的默认文件类型为文本文件(*. Txt)

单项选择题

设一个工程由两个窗体组成，其名称分别为Form1和Form2，在Form1上有一个名称为Command1的命令按钮。窗体Form1的程序代码如下：
Private Sub Command1_Click()
Dim a ks Integer
a=10
Call g(Form2, )
End Sub
private Sub g(f As Form, x As Integer)
Y=Iif(x＞10, 100, -100)
f. Show
f. Caption=Y
End Sub
运行以上程序，正确的结果是______。

A．Form1的Caption属性值为100
B．Form2的Caption属性值为-100
C．Form1的Caption属性值为-100
D．Form2的Caption属性值为100

单项选择题

有如下程序：
Option Base 1
Private Sub Form_Click()
Dim arr, Sum
Sum=0
arr=Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19)
For i=1 To 10
If arE(i)/3=arr(i)\3 Then
Sum=Sum+arr(i)
End If
Next i
Print Sum
End Sub
程序运行后，单击窗体，输出结果为______。

A．25
B．26
C．27
D．28

单项选择题

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Comandl_Click()
Dim arrayl(10, 10)As Integer
Dim i As Integer, j As Integer
For i=1 To 3
For j=2 To 4
arrayl(i, j)=i+j
Next j
Next i
Text1. Text=arrayl(2, 3)+arrayl(3, 4)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是______。

A．15
B．14
C．13
D．12

单项选择题

在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序：
Private Sub Form Load()
Show
Text1. Text=""
Text2. Text=""
Text1. SetFocus
End Sub
Private Sub Text1_Change()
Text2. Text=Mid(Text1. Text, 8)
End Sub
程序运行后，如果在文本框Text1中输入BeijingChina，则在文本框Text2中显示的内容是______。

A．Beijing
B．China
C．Beijing
D．BeijingC

单项选择题

在窗体上画一个列表框和一个命令按钮，其名称分别为List1和Command1，然后编写如下事件过程：
Private Sub Form_Load()
List1. AddItem"Item1"
List1．AddItem"Item2"
List1. AddItem"Item3"
End Sub
Private Sub Command1_Click()
List1. List(List1. ListCount)="AAAA"
End Sub
程序运行后，单击命令按钮，其结果为______。

A．把字符串“AAAA”添加到列表框中，但位置不能确定
B．把字符串“AAAA”添到列表框的最后(即“Item3”的后面)
C．把列表框之中原有的最后一项改为“AAAA”
D．把字符串“AAAA”插入到列表框的最前面(即“Iteml”的前面)

单项选择题

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
x=0
n=InputBox("")
For i=1 To n
For j=1 To i
x=x+1
Next j
Next i
Print x
End Sub
程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是______。

A．3
B．4
C．5
D．6

单项选择题

在窗体上画一个名称为Coramandl的命令按钮，然后编写如下程序；
Dim SW As Boolean
Function func(X As Integer)As Integer
If X＜20 Then
Y=X
Else
Y=20+X
End If
func=Y
End Function
Private Sub Form_MouseDown(Button As Integer,
Shift As Integer, X As Single, Y As Single)
Dim a As Boolean
SW=False
End Sub
Private Sub Form_MouseUp(Button As Integer,
Shift As Integer, X As Single, Y As Single)
SW=True
End Sub
Private Sub Command1_Click()
Dim intNum As Integer
intNum=InputBox("")
If SW Then
Print flmc(intNum)
End If
End Sub
程序运行后，单击命令按钮，将显示一个输入对话框，如果在对话框中输入25，则程序的执行结果为

A．输出0
B．输出2
C．输出45
D．无任何输出

单项选择题

设有如下程序：
Dption Base 1
Private Sub Command1_Click()
Dim a(10)As Integer
Dim n As Integer
n=InputBox("输入数据")
If n＜10 Then
Call GetArray(a, n)
End If
End Sub
Private Sub GetArray(h()As Integer, n As Integer)
Dim c(10)As Integer
j=0
For i=1 To n
b(i)=CInt(Rnd()*100)
If b(i)/2=b(i)\2 Then
j=j+1
c(j)=b(i)
End If
Next
print j
Knd Sub
以下叙述中错误的是______。

A．数组b中的偶数被保存在数组c中
B．程序运行结束时，在窗体上显示的是c数组中元素的个数
C．GetArray过程的参数n是按值传送的
D．如果输入的数据大于10，则窗体上不显示任何信息

有如下程序： Option Base 1 Private Sub Form_Click() Dim arr, Sum Sum=0 arr=Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19) For i=1 To 10 If arE(i)/3=arr(i)\3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为______。

你可能感兴趣的试题

面向对象的程序设计主要考虑提高程序的______。

表达式5 Mod 3+3\5*2的值是______。

在软件生命周期法中，用户的参与主要在______。

假定在工程文件中有一个标准模块，其中定义了如下记录类型： Type Books Name As String*10 TelNum As String*20 End Type 要求当执行事件过程Command1_Click时，在顺序文件Person. txt中写入一条记录。下列能够完成该操作的事件过程是______。

在长度为n的线性表中用二分法查找一个表中不存在的元素，需要的比较次数为______。

数据字典是软件需求分析阶段的最重要的工具之一，其最基苯的功能是______。

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： option Base 1 Private Sub Command1_Click() Dim a a=Array(1, 2, 3, 4, 5) For i=1 To UBound(

当型循环和直到型循环的区别是______。

数据库设计的根本目标是要解决______。

下列关于栈的描述中错误的是______。

执行以下程序段： a $="abbaedduba" For i=6 To 2 Step-2 X=Mid(a, i, i) Y=Left(a, i) z=Right(a, i) z=UCase(X&Y&z) Next i Print z 输出结果为______。

以下语句的输出结果是______。 Print Format $(5874.567, "0.00E-00")

下列关于数据库系统叙述正确的是______。

开发软件时对提高开发人员的工作效率至关重要的是______。

以下关于作用范围的描述正确的是______。

在窗体上有若干控件，其中有一个名称为Text1的文本框。影响Text1的Tab顺序的属性是______。

在软件设计中，不属于过程设计工具的是______。

在窗体上画一个名称为Filel的文件列表框，并编写如下程序： Private Sub Filel_DblClick() x=Shell(Filel. FileName, 1) End Sub 以下关于该程序的叙述中，错误的是______。

把窗体的KeyPreview属性设置为True，然后编写如下事件过程： Private Sub Form_KeyPress(KeyAscii As Integer) Dim Ch As String Ch=Chr(KeyAscii) KeyAscii=Asc(UCase(Ch)) Print Chr(KeyAscii+2) End Sub 程序运行后，按键盘上的A键，则在窗体上显示的内容是______。

阅读程序： Option Base 1 Private Sub Form_Click() Dim arr, Sum Sum=0 art=Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19) For i=1 To 10 If arr(i)/3=arr(i)\3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为______。

在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a(5)As String For i=1 T0 5 a(i)=Chr(Asc("A")+(i-1)) Next i For Each b In a Print b; Next End Sub 程序运行后，单击命令按钮，输出结果是______。

有如下程序： Option Base 1 Private Sub Form_Click() Dim arr, Sum Sum=0 arr=Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19) For i=1 To 10 If arE(i)/3=arr(i)\3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为______。

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=0 n=InputBox("") For i=1 To n For j=1 To i x=x+1 Next j Next i Print x End Sub 程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是______。

有如下程序：
Option Base 1
Private Sub Form_Click()
Dim arr, Sum
Sum=0
arr=Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19)
For i=1 To 10
If arE(i)/3=arr(i)\3 Then
Sum=Sum+arr(i)
End If
Next i
Print Sum
End Sub
程序运行后，单击窗体，输出结果为______。

假定在工程文件中有一个标准模块，其中定义了如下记录类型：
Type Books
Name As String10
TelNum As String20
End Type
要求当执行事件过程Command1_Click时，在顺序文件Person. txt中写入一条记录。下列能够完成该操作的事件过程是______。

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
option Base 1
Private Sub Command1_Click()
Dim a
a=Array(1, 2, 3, 4, 5)
For i=1 To UBound(

执行以下程序段：
a $="abbaedduba"
For i=6 To 2 Step-2
X=Mid(a, i, i)
Y=Left(a, i)
z=Right(a, i)
z=UCase(X&Y&z)
Next i
Print z
输出结果为______。

以下语句的输出结果是______。
Print Format $(5874.567, "0.00E-00")

在窗体上画一个名称为Filel的文件列表框，并编写如下程序：
Private Sub Filel_DblClick()
x=Shell(Filel. FileName, 1)
End Sub
以下关于该程序的叙述中，错误的是______。

把窗体的KeyPreview属性设置为True，然后编写如下事件过程：
Private Sub Form_KeyPress(KeyAscii As Integer)
Dim Ch As String
Ch=Chr(KeyAscii)
KeyAscii=Asc(UCase(Ch))
Print Chr(KeyAscii+2)
End Sub
程序运行后，按键盘上的A键，则在窗体上显示的内容是______。

阅读程序：
Option Base 1
Private Sub Form_Click()
Dim arr, Sum
Sum=0
art=Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19)
For i=1 To 10
If arr(i)/3=arr(i)\3 Then
Sum=Sum+arr(i)
End If
Next i
Print Sum
End Sub
程序运行后，单击窗体，输出结果为______。

在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim a(5)As String
For i=1 T0 5
a(i)=Chr(Asc("A")+(i-1))
Next i
For Each b In a
Print b;
Next
End Sub
程序运行后，单击命令按钮，输出结果是______。

有如下程序：
Option Base 1
Private Sub Form_Click()
Dim arr, Sum
Sum=0
arr=Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19)
For i=1 To 10
If arE(i)/3=arr(i)\3 Then
Sum=Sum+arr(i)
End If
Next i
Print Sum
End Sub
程序运行后，单击窗体，输出结果为______。

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
x=0
n=InputBox("")
For i=1 To n
For j=1 To i
x=x+1
Next j
Next i
Print x
End Sub
程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是______。