单选题在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim arr(10,10)As Integer,i,j As Integer For i=1 To 3 For j=2 To 4 arr(i,j)=i+j Next Next Text1.Text=arr(2,3)+arr(3,4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是( )。 A) 12 B) 13 C) 14 D) 15
单选题在窗体上画一个名称为File的文件列表框，并编写如下程序： Private Sub
File1_DblClick( )
x=Shell(File1．FileName，1) End
Sub以下关于该程序的叙述中，错误的是
A.x没有实际作用，因此可以将该语句写为：Call Shell(File．FileName，1)
B.双击文件列表框中的文件，将触发该事件过程
C.要执行的文件的名字通过File1．FileName指定
D.File1中显示的是当前驱动器、当前目录下的文件
单选题设a=10，b=4，c=5，d=7，表达式a>b And Not c
单选题如果改变驱动器列表框的Drive属性，则将触发的事件是
单选题请阅读程序： Sub subP(b()As Integer) For i=1 To 4 b(i)=2*i Next i End Sub Private Sub Command1_Click() Dim a(1 To 4)As Integer a(1)=5:a(2)=6:a(3)=7:a(4)=8 subP a() For i=1 To 4 Print a(i) Next i End Sub 运行上面的程序，单击命令按钮，则输出结果是( ) A．2 4 6 8 B．5 6 7 8 C．10 12 14 16 D．出错
单选题软件调试的目的是( )。
单选题在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Commaadl_Click() Dim arrayl(10, 10)As
Integer Dim i, 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 程序运行后，单击命令按钮，在文本框中显示的值是______。
A. 12
B. 13
C. 14
D. 15
单选题在表达式2＋3*4^5－Sin(x＋1)／2中，首先进行的运算是( )。
单选题执行命令STORE CTOD(′03/09/00′)TO A后，变量A的类型为( )
单选题在窗体上画一个通用对话框，其名称为CommonDialogl，然后画一个命令按钮，并编写如下事件过程：
Private Sub Commandl_click()
CommonDialogl.Friter="AllFiles(*.*)|*.*|Text Files"&_
"(*.txt)|*.txt|Executable Files(*.exe)|*.exe"
CommonDialog1.FilterIndex=3 CommonDialog1.Show
Open MsgBOX CommonDialog1.FileName End
Sub 程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是{{U}}
{{/U}}。
A.AllFries(*.*)
B.TextFiles(*.txt)
C.Executable Fries(*.exe)
D.不确定
单选题为了在运行时能显示窗体左上角的控制框(系统菜单)，必须 ______。
单选题设在一个工程的窗体中有如下代码： Public x As Integer Private Sub Form_Load() Dim y As Integer End Sub 在该工程的标准模块的声明部分有代码：Public a As Integer：Private b As Integer 关于上述代码，以下叙述中错误的是
单选题以下关于命令按钮的叙述中正确的是
单选题向文本框中输入字符时，下面能够被触发的事件是( )。
单选题窗体上有一个名称为Text1的文本框，一个名称为Command1的命令按钮。命令按钮的单击事件过程如下： Private Sub Command1_Click() Dim x1 As Integer，x2 As Integer，x3 As Integer s=Trim(Text1．Text) strLen=Len(s) For i=1 To strLen c=Mid(s，i，1) Select Case c Case"0"To"9" xl=x1+1 Case"A"To"Z" x2=x2+1 Case"a"To"z" x3=3+1 Case Else x4=x4+1 End Select Next Print"x1"；x1，"x2"；x2，"x3"；x3，"x4"；x4 End Sub 以下关于上述程序的叙述中，正确的是
单选题设在一个工程的窗体中有如下代码：Public x As IntegerPrivate Sub Form_Load()Dim y As IntegerEnd Sub在该工程的标准模块的声明部分有如下代码：Public a As IntegerPrivate b As Integer关于上述代码，以下叙述中错误的是
单选题在窗体上画一个名称为Drivel的驱动器列表框，一个名称为Dirl的目录列表框。当改变当前驱动器时，目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中，这个事件过程是
单选题在窗体上添加一个命令按钮，名为 command1，一文本框，名为text1，则执行如下事件过程后，文本框中的输出为______。
For i = 1 To 3
For j = 1 To 3
For k = 1 To 2
x=x+ 3
Next k
Next j
Next i
Text1. Text =str (x)
单选题下面程序执行时，输出的结果是( )。 Private Sub Form_Click() Dim i As Integer,j As Integer i＝10 Do i＝i＋j For j＝10 To i Step－3 i＝i＋j Next j Loop While i＜50 Print i；j End Sub
单选题在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click() Dim i As Integer Dim num As Integer Dim n As Integer n = 0 Randomize For i = 1 To 10 num = Int(Rnd * 10) + 1 Select Case num Mod 2 Case 1 Exit For Case 0 Print num n = n + 1 End Select Next i Print "n="; nEnd Sub下面有关描述中正确的是( )。