单选题以下程序段中Do...Loop循环执行的次数为______。 n=5 Do if n mod 2=0 then n=n/2 else n=n*3+1 end if Loop until n=1 A) 4 B) 3 C) 5 D) 2
单选题如果改变驱动器列表框的Drive属性，则将触发的事件是
单选题有下列程序段，其输出结果是( )。 a=0:b=0 For i=-1 To -2 Step -1 For j=1 To 2 b=b+1 Next j a=a+1 Next i Print a;b
单选题设a=5，b=4，c=3，d=2，下列表达式的值是( )。 3＞2*b Or a=c And b＜＞c Or c＞d
单选题实现字符转换为数值的函数是（ ）
单选题编写如下程序：
Private Sub Command1_Click()
Dim str1 As String， str2 As String
str1＝InputBox("输入一个字符串")
subf str1， str2
Print str2
End Sub
Sub subf(s1 As String， s2 As String)
Dim temp As String
Static i As Integer
i＝i＋1
temp＝Mid(s1， i， 1)
If temp<>"" Then subf s1， s2
s2＝s2 & temp
End Sub
程序运行后，单击命令按钮Command1，且输入"abcdef"，则输出结果为( )。
单选题为了使模块尽可能独立，要求( ) A．模块的内聚程度要尽量高，且各模块间的耦合程度要尽量强 B．模块的内聚程度要尽量高，且各模块间的耦合程度要尽量弱 C．模块的内聚程度要尽量低，且各模块间的耦合程度要尽量弱 D．模块的内聚程度要尽量低，且各模块间的耦合程度要尽量强
单选题当窗体大小改变时，要使其中的控件也按比例发生变化，应使用窗体的( )。
单选题在窗体上画一个命令按钮，然后编写如下事件过程； Private Sub Command1_Click() MsgBox Str(123+321) End Sub 程序运行后，单击命令按钮，则在信息框中显示的提示信息为( )。 A) 字符串“123+321” B) 字符串“444” C) 数值“444” D) 空白
单选题以下合法的VB变量名是
单选题下面叙述中错误的是( )。
单选题下列数据结构中，能用二分法进行查找的是( )。
单选题设有如下的用户定义类型：
Type Student
number As String
name As Suing
age As Integer
End Type
则以下正确引用该类型成员的代码是【 】
单选题在窗体上添加一命令按钮，其名为Command1，然后编写代码如下： private Sub Command1_Click() Dim arr(5)As Integer，arr1(5)AS Integer n=3 For i=1 To 5 arr(i)=i arr1(n)=2*n+i Next Print arr1(n)；art(n) End Sub 程序的运行结果为
单选题以下( )操作不能触发滚动条Change事件。
单选题在窗体上画一个名为Command1的命令按钮，然后编写以下程序：
Private Sub Command1_Click()
Dim M(10) As Integer
For k=1 To 10
M(k)=12-k
Next k
x=8
Print M(2+M(x))
End Sub
运行程序，单击命令按钮，在窗体上显示的是
单选题窗体上有1个名称为Command1的命令按钮，事件过程如下：
Private Sub Command1_Click()
Dim x%, y%, z%
x=InputBox("请输入第1个整数")
y=InputBox("请输入第2个整数")
Do Until x=y
If x＞y Then x=x-y Else y=y-x
Loop
Print x
End Sub
运行程序，单击命令按钮，并输入2个整数169和39，则在窗体上显示的内容为______。
单选题下列关于过程的叙述中不正确的是______。
单选题执行以下程序后，在窗体上输出的是______。
Private Sub Command1_Click()
Dim a(20)
For i=1 To 20 Step 2
a(j)=j
Next j
Print a(1)+a(2)+a(3)
End Sub
单选题在窗体上画一个文本框和一个列表框，然后编写如下两个事件过程： Private Sub Form_Load() List1.AddItem "357" List1.AddItem "246" List1.AddItem "123" List1.AddItem "456" Text1.Text="" End Sub Private Sub List1_Db1Click() m=List1.Text Print m+Text1.Text End Sub 程序运行后，在文本框中输入“123”，然后双击列表框中的“456”，输出结果为( )。