单选题在窗体上画两个名称分别为Hscroll1、Hscroll2的滚动条控件；6个名称分别为Label1、Label2、Label3、Label4、Label5、Label6的标签，其中，Label4～Label6分别显示“A”、“B”、“A木B”等文字信息，标签Label1、Label2分别显示其右侧的滚动条Value属性值，Label3显示A*B的计算结果，如图1所示。当移动滚动框时，在相应的标签中显示滚动条的值。当单击命令按钮“计算"时，对标签Label1、Label2中显示的两个值求积，并将结果显示在Label3中。以下不能实现求积功能的事件过程是( )。
单选题在窗体上画一个名称为Command1的命令按钮，然后编写如下代码：
Option Base 1
Function Fun(a()As Integer)
Sum=0
For i=1 To 3
For J=1 To 3
Sum=Sum+a(i,j)
Next j
Next j
Fun=Sum
End Function
Private Sub Command1_Click()
Dim arr(3,3)As Integer
For i=1 To 3
For j=1 To 3
If i=j Then
arr(i,j)=1
End If
If i＜＞j Then
arr(i,j)=j
End If
Next j
Next i
x=Fun(arr())
Print x
End Sub
程序运行后，单击命令按钮，输出结果为
单选题以下程序段的执行结果是 ______。
Dim a As Integer，b As Integer
For a=4 To 1 Step-1
b=b+a
Next a
Print b， a
单选题当一个工程含有多个窗体时，其中启动窗体是( )。
单选题下列程序的功能是调用字体对话框来设置文本框中的字体，单击Command1按钮弹出对话框，进行相应的字体、字号等的设置，然后单击“确定”按钮退出对话框，则文本框中将发生哪些变化( )。 Private Sub Command1_click() CommonDialog1.CancelError＝True CommonDialog1.Flags＝3 OnError Resume Next CommonDialog1.ShowFont Text1.Font.Name＝CornmonDialog1.FontName Text1.Font.Size＝CommonDialog1.FontSize Text1.Font.Bold＝CommonDialog1.FontBold Text1.Font.Italic＝CommonDialog1.Fontltalic Text1.Font.Underlin＝ommonDialog1.FontUnderline Text1.FontStrikethrn＝ommonDialog1.FontStrikethrn Text1.ForeColor＝CommonDialog1.Color End Sub
单选题设a＝"Visual Basic"，下面使b＝"Basic"的语句是 ______。
单选题关于水平滚动条，如下叙述中错误的是( )。
单选题在E-R图中，用来表示属性的图形是______。
A.矩形
B.椭圆形
C.菱形
D.三角形
单选题设x为一整型变量，且情况语句的开始为：Select Case x，则不符合语法规则的Case子句是______。
单选题在窗体上画一个文本框Text1、一个标签Label1和一个命令按钮Command1，然后编写如下两个事件过程： Private Sub Command1_Click( ) a = InputBox("请输入一个字符串") Text1.Text = a End Sub Private Sub Text1_Change( ) Label1.Caption = UCase(Mid(Text1.Text， 8)) End Sub 程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串"Visual Basic"，则在标签中显示的内容是________。
单选题下列程序的功能是：将数据1，2，…，8写入顺序文件Num.txt中，请选择正确的程序段。 Private Sub Form Click() Dim i As Integer Open"Num.txt" For Output As#1 For i=1 To 8 ______ Next i Close#1 End Sub
单选题在窗体上画一个名称为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 程序运行后，单击命令按钮，在文本框中显示的值是
单选题当一个复选框被选中时，它的Value属性的值是( )。
单选题窗体上有一个名为Command1的命令按钮，并有如下程序： Private Sub Command1_Click() Dim a(10), x% For k=1 To 10 a(k)=Int(Rnd*90+10) x=x+a(k)Mod 2 Next k Print x End Sub 程序运行后，单击命令按钮，输出结果是( )。
单选题某人创建了1个工程，其中的窗体名称为Form1；之后有添加了1个名为Form2的窗体，并希望程序执行时先显示Form2窗体，那么，他需要做的工作是
单选题以下说法中正确的是
单选题假定程序中有如下语句：
answer＝MsgBox("第一个字符串",vbAbortRetryIgnore_
Or vbCritieal_
Or
vbDefaultButton3,_
"第二个字符串") 执行该语句后，将显示一个信息框，此时如果按回车键，则answer的值为
A. “第二个字符串”
B. 5
C. 3
D. 7
单选题设窗体上有一个文体框Text1和一个命令按钮Command1，并有以下事件过程： Private Sub Command1_Click() Dim S As String，ch As String S=" " For k=1 To Len(Text1) ch=Mid(Text1,k,1) S=ch+S Next k Text1.Text=S End Sub 程序执行时，在文本框中输入“Basic”，然后单击命令按钮，则Text1中显示的是( ) A．Basic B．cisaB C．BASIC D．CISAB
单选题窗体上有一个命令按钮Command1和一个列表框List1。先选择列表框中的某一个项目，然后单击命令按钮，将该项目从列表框删除。程序如下： Private Sub Command1_Cliek() Dim In As Integer In=______ List. Remove Ind End Sub 则在程序的空白行的语句是( )。
单选题用InputBox函数设计的对话框，其功能是( )。 A．能接收用户输入的数据，但不会返回任何信息 B．能接收用户输入的数据，并能返回用户输入的信息 C. 既能用于接收用户输入的信息，又能用于输出信息 D．专门用于输出信息