单选题窗体上有一个名称为Command1的命令按钮，一个名称为Text1的文本框。编写如下程序：
Private Sub Command1_Click()
Dim x As Integer
x=Val(InputBox("输入数据"))
Text1=Str(x+fun(x)+fun(x))
End Sub
Private Function fun(ByRef n As Integer)
If n Mod 3=0 Then
n=n+n
Else
n=n*n
End If
fun=n
End Function
对于上述程序，以下叙述中错误的是______。
单选题设有如下程序
Option Base 1
Private Sub Command1_Click( )
Dim a(10)As Integer
Dim n As Integer
n=lnput Box(“输入数据”)
If n＜10 Then
Call GetArray(a，n)
End If
End Sub
Private Sub GetArray(b( )As Integer，n As Integer)
Dim c(10)AsInteger
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 lf
Next
Print j
End Sub
以下叙述中错误的是
A．数组b中的偶数被保存在数组c中
D．程序运行结束时，在窗体上显示的是c数组中元素的个数
C．GetArray过程的参数n是按值传送的
D．如果输入的数据大于10，则窗体上不显示任何信息
单选题下列各种形式的循环中，输出“*”的个数最少的循环是 Ａ) a=5:b=8 Ｂ) a=5:b=8 Do Do Print "*" Print "*" a=a+1 a=a+1 Loop While a＜b Loop Until a＜b Ｃ) a=5:b=8 Ｄ) a=5:b=8 Do Until a-b Do Until a＞b Print "*" Print "*" b=b+1 a=a+1 Loop Loop
单选题设菜单编辑器中的各菜单项的属性设置如下表所示：
序号
标题
名称
复选
有效
可见
内缩符号
1
File
File
√
√
无
2
Open
OpenFile
√
√
1
3
Save
SaveFik
√
1
4
Exit
EndOfAll
√
1
5
Help
ShowHelp
√
√
1
针对上述属性设置，以下叙述中错误的是______。
单选题执行下列语句：
strInput=InputBox("请输入字符串"，"字符串对话框"，"字符串")
将显示输入对话框。此时如果直接单击“确定”按钮，则变量strlnput的内容是______。
A."请输入字符串"
B."字符串对话框"
C."字符串"
D.空字符串
单选题一个工程中含有窗体Form1、Form2和标准模块Model1，如果在Form1中有语句Public X AsInteger,在Model1中有语句Public Y As Integer，则以下叙述中正确的是( )。 A) 变量X、Y的作用域相同 B) Y的作用域是Model1 C) 在Form1中可以直接使用X D) 在Form2中可以直接使用X和Y
单选题在窗体上画一个命令按钮，然后编写如下程序：
Option Base 1
Private Sub Command1_Click()
Dim Arr(10)As Integer
For i=1 To 10
Arr(i)=11-i
Next i
x=InputBox("输入一个整数(3～10)")
Print Arr(2+Arr(x))
End Sub
程序运行后，单击命令按钮，在输入对话框中输入17，则输出结果为
单选题若要在图片框中绘制一个椭圆，使用的方法是______。
单选题在正确安装Visual Basic 6．0后，可以通过多种方式启动Visual Basic 6．0。以下方式中，不能启动Visual Basic 6．0的是( )。
单选题列表框中的项目保存在一个数组中，这个数组的名字是
单选题以下叙述中，错误的是( )。
单选题下列程序执行后，其输出结果为
____
。
Dim a(5)
For i=0 To 4
a(i)=i+1
m=i+1
If m=3 Then a(m-1)=a(i-2)Else a(m)=a(i)
If i=2 Then a(i-1)=a(m-3)
a(4)=i
Print a(i);
Next i
单选题在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click
____
Dimarray1(10，10)As Integer
Dim i，j As Integer
For i=1 To 3
For j=2 T0 4
Array1(i，j)=i+j
Next j
Next i
Text1.Text=array1(2，3)+array1(3，4)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是
单选题在VB中，函数过程与子程序过程的区别之一是( )。
单选题下面关于在软件开发过程中的问题的叙述，说法正确的是( )。
单选题窗体上画一个文本框(其名称为Text1)和一个标签(其名称为Labell)。要求程序运行后，如果在文本框中输入字符，则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是
______。
A. Private Sub Text1_Change()
Labell.Caption=Text1.Text End Sub
B. Private Sub Text1_Click()
Labell.Caption=Text1.Text End Sub
C. Private Sub Labell_Change()
Labell.Caption=Text1.Text End Sub
D. Private Sub Labell_Click()
Labell.Caption=Text1.Text End Sub
单选题为了暂时关闭计时器，应把该计时器控件的哪个属性设置为False?
单选题假定在窗体上建立了一个通用对话框，其名称为CommonDialog1，用下面的语句可以建立一个对话框：CommonDialog1.Action=2
与该语句等价的语句是______。
单选题在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a$="VisualBasic" Print String(3，a$) End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是
单选题在窗体上画两个名称分别为Text1、Text2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1 Click()
Dim x As Integer， n As Integer x =
1 n = 0 Do While x
＜ 20 x = x * 3
n = n + 1 Loop
Text1．Text = Str(x) Text2．Text = Str(n)
End Sub 程序运行后，单击命令按钮，在两个文本框中显示的值分别是
A. 15和1
B. 27和3
C. 195和3
D. 600和4