单选题InputBox函数返回值的类型为 ______。
单选题假设没有使用Option Base语句，用下面语句定义的数组元素个数是( )。 Dim Arr3(6，5)As Integer
单选题在运行程序时，在文本框中输入新的内容，或在程序代码中改变Text的属性值，相应会触发到什么事件?
单选题下面的数写成普通十进制数是( )。 2．65358979335278D－6
单选题可以在窗休模块的通用声明段中声明_________。
A. 全局变量
B. 全局常量
C. 全局数组
D. 全局用户自定义类型
单选题在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub
Command1_Crick() 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，则在窗体上显示的内容是{{U}} {{/U}}。
A.3
B.4
C.5
D.6
单选题下列事件过程运行后输出结果是( )。 Private Sub Command1_Click() Print Format $(123.456，“###．##%”) End Sub A) 123.46% B) 123.45% C) 123.456% D) 12345.6%
单选题窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp事件过程如下： Private Sub Text1—KeyUp(KeyCode As Integer，Shift As Integer) Dim c As String c=UCase(Chr(KeyCode)) Text2．Text=Chr(Asc?+2) End Sub当向文本框Text1中输入小写字母a时，文本框Text2中显示的是( )。
单选题在窗体上画一个名称为Label1的标签，然后画一个名称为HScroll1的水平滚动条，其Min和Max属性分别设置为0和255。程序运行后，如果用鼠标移动滚动框，则在标签Label1中显示滚动条的当前值，以下能实现上述操作的程序段是
单选题以下打开Visual Basic菜单编辑器的操作中，错误的是
单选题设有如下变量声明，
Dim a, b As Integer
则以下叙述中正确的是
单选题假定通用对话框的名称为CD1，命令按钮的名称为Command1，则单击命令按钮后，能使打开对话框的标题为“通用对话框”的事件过程是( )。
单选题Move方法的一般形式是[对象名.]Move A[，B[，C[，D]]].其中B指的是______。
单选题窗体上有一个如右图所示的图形控件，控件中显示了如图所示的文字，可以判断这个图形控件( )。
单选题在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序：Private Sub Form_Load() Show Text1.Text＝"" Text2.Text＝"" Text1.SetFocusEnd SubPrivate Sub Text1_Change() Text2.Text＝Mid(Text1.Text， 6)End Sub程序运行后，如果在文本框Text1中输入ChinaBeijing，则在文本框Text2中显示的内容是( )。
单选题在窗体上添加“控件”的正确的操作方式是
单选题有如下语句序列：Dim a，b As Integer Print a Print b执行以上语句序列，下列叙述中错误的是
单选题有如下程序：
Private Sub Form_Click()
Dim i As Integer, sum As Integer
sum=0
For i=2 To 10
If i Mod 2＜＞0 And i Mod 3=0 Then
sum=sum+i
End If
Next i
Print sum
End Sub
程序运行后，单击窗体，输出结果为______。
单选题窗体上有Command1、Command2两个命令按钮。现编写以下程序： Option Base 0 Dim a()As Integer，m As Integer Private Sub Command1_Click() m=InputBox("请输入一个正整数") ReDim a(m) End Sub Private Sub Command2 Click() m=InputBox("请输入一个正整数") ReDim a(m)End Sub 运行程序时，单击Command1后输入整数10，再单击Command2后输入整数5，则数组a中元素的个数是
单选题设有如下程序： Private Sub Inv(ByVal xStr As String，yStr As String) Dim tStr As String Dim L As Integer L=Len(xStr) Do While L>=1 tStr=tStr+Mid(xStr,L，1)：L=L-1 Loop yStr=tStr End Sub Private Sub Form_Click() Dim S1 As String，S2 As String S1=”abcdeP’Inv S1．S2 Print S2 End Sub 运行程序，单击窗体，输出结果为