单选题已知“a=10,r=6,x=7,b=True”，表达式“a＞=2*3.14159*r And x＜＞5 Or Not b”的值为______。
单选题现有如下一段程序：Private Sub
Command1_Click() x=UCase(InputBox("输入:")) Select Case x Case
"A" To "C" Print "考核通过!" Case "D" Print
"考核不通过!" Case Else Print "输入数据不合法!" End SelectEnd
Sub执行程序，在输入框中输入字母"B"，则以下叙述中正确的是______。
A.程序运行错
B.在窗体上显示"考核通过!"
C.在窗体上显示"考核不通过!"
D.在窗体上显示"输入数据不合法!"
单选题如果x是一个正的实数，将千分位四舍五入，保留两位小数的表达式是( )。 A．0.01*Int(X+0.05) B．0.01*Int((X+0.005)*100) C．0.01*Int(100*(X+0.05)) D．0.01*Int(X+0.005)
单选题求1!+2!+…+10!的程序如下：
Private Function s(x As Integer)
f=1
For i=1 To x
f=f*i
Next
s=f
End Function
Private Sub Command1_Click()
Dim i As Integer
Dim y As Long
For i=1 To 10
______
Next
Print y
End Sub
为实现功能要求，程序的括号中应该填入的内容是______。
单选题在面向对象的程序设计中，可被对象识别的动作称为
单选题请阅读程序：
Sub subP（b（）As Integer）
For i=1 To 4
b（i）=2＊i
Next i
End Sub
Private Sub Command 1_Click（）
Dim a（l To 4）As Integer
A（l）=5：a（2）=6：a（3）=7：a（4）=8
subP a（）
For i=1 To 4
Print a（i）
Next i
End Sub
运行上面的程序，单击命令按钮，则输出结果是
单选题以下叙述中错误的是
单选题假定有如下的程序段：Dim intVarAs Integer intvar=True Print intVar则输出结果是
单选题有如下程序： Private Sub Commandl_Click() Dim a As Integer a=2 For i=1 To 3 Print Gad (
单选题以下不能设置Picture属性的控件是( )。
单选题窗体上有一个名称为Command1的命令按钮。要求编写程序，把文件f1．txt的内容写到文件f2．txt中，然后将f1．txt删除。命令按钮的单击事件过程如下： Private Sub Command1_Click() Open"c：＼f1．txt"For Input As #1 Open"c：＼f2．txt"For OutputAs #2 Do While Not EOF(2) Line Input #1，str1 Print #2，str1 Loop Close Kill"c：＼f1．txt" End Sub 该程序运行时发生错误，应该进行的修改是
单选题窗体上有一个名称为CommonDialog1的通用对话框，一个名称为Command1的命令按钮，并有如下事件过程：
Private Sub Command1_Click()
CommandDialog1.DefaultExt=”doc”
CommandDialog1.FileName=”VB.txt”
CommandDialog1.FileName=”All(*.*)|*.*|Word|*.Doc|”
CommandDialog1.FileName=1
CommandDialog1.ShowSave
End Sub
运行上述程序，如下叙述正确的是（ ）。
单选题阅读程序：
Private Sub Form Click()
a=0
For j=1 To 15
a=a+j Mod 3
Next j
Print a
End Sub
程序运行后，单击窗体，输出结果是( )。
单选题窗体上有一个名称为CD1的通用对话框，一个名称为Command1的命令按钮，相应的事件过程如下： Private Sub Command1_Click() CD1．Filter="All File |*．*|Text File|*．txt|PPT|*．ppt" CD1．FilterIndex=2 CD1．InitDir="C：＼" CD1．FileNarne="default" CD1．ShowSave End Sub 关于上述过程，以下叙述中正确的是( )。
单选题在窗体上画一个名称为text1的文本框和一个名称为label1的标签，要求如下程序运行时，在文本框中输入的内容立即在标签中显示，在下划线上填入的内容是( )。 Private Sub Text1______ Label 1.Caption=Text1.Text End Sub
单选题窗体上有一个用菜单编辑器设计的菜单。运行程序，并在窗体上单击鼠标右键，则弹出一个快捷菜单，如图所示。以下叙述中错误的是______。A)在设计该弹出菜单的主菜单项时，在菜单编辑器窗口去掉了"可见"前面的"√"B)在设计"选中"菜单项时，在菜单编辑器窗口中设置了"复选"属性(有"√")C)在设计"粘贴"菜单项时，在菜单编辑器窗口中设置了"有效"属性(有"√")D)菜单中的横线是在该菜单项的标题输入框中输入了一个"-"(减号)字符
单选题设有如下通用过程：Public Function Fun(xStr As String)As String Dim tStr As String， strL As Integer tStr＝"" strL＝Len(xStr) i＝strL / 2 Do While i＜＝strL tStr＝tStr & Mid(xStr， i＋1， 1) i＝i＋1 Loop Fun＝tStr & tStrEnd Function在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程：Private Sub Command1_Click() Dim S1 As String S1＝"ABCDEF" Text1.Text＝LCase(Fun(S1))End Sub程序运行后，单击命令按钮，文本框中显示的是( )。
单选题设有声明语句： Dim b(—1 To 10，2 To 9，20)As Integer 则数组b中全部元素的个数为( )。
单选题对窗体编写如下事件过程： Private Sub Form_MouseDown(Button As Integer，Shift As Integer,X As Single， Y As Single) If Button=2 Then Print "AAAAA" End If End Sub Private Sub Form_MouseUp(Button As Integer，Shift As Integer，X As Single， Y As Single) Print "BBBBB" End Sub 程序运行后，如果单击鼠标右键，则输出结果为 ______ 。 A) AAAAA BBBBB B) BBBBB C) AAAAA D) BBBBB AAAAA
单选题窗体上的三个命令按钮构成名称为Command1的控件数组。如图所示。程序如下：PrivateSubCommand1_Click(IndexAsInteger)IfIndex=1ThenPrint"计算机等级考试"EndIfIfIndex=2ThenPrintCommand1(2).CaptionEndIfEndSub运行程序，单击“命令按钮2”，则如下叙述中正确的是()。A)Printcommand1(2).Caption语句有错B)在窗体上显示“命令按钮2”C)在窗体上显示“命令按钮3”D)在窗体上显示“计算机等级考试”