单选题以下关于单选按钮和复选框的叙述中，正确的是
单选题在窗体上用复制、粘贴的方法建立了一个命令按钮数组，数组名为ComTestl。设窗体Form1标题为“MyForm1”，双击控件数组中的第3个按钮，打开代码编辑器，编写如下代码： Privae Sub ComTestl_Click(IndexAs Integer) Form1．Caption="MyForm2" End Sub 运行时，单击按钮数组中的第1个按钮，则窗体标题显示为( )。
单选题表达式12／2＼4的值是( )。
单选题文本框的ScrollBars属性设置为非零值，却没有效果，原因是( )。 A) 文本框中没有内容 B) 文本框的MultiLine属性值为False C) 文本框的MultiLine属性值为True D) 文本框的Locked属性值为True
单选题窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Optlon Base 1 Prlvete Sub Command1_Click() Dim s As Variant a=Array(1, 2, 3, 4, 5) Sum=0 For i=1 To 5 Sum=Sum_a(i) Next i X=Sum/5 For i=1 To 5 If a(i)＞x Then Print a(i); Next i End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是______。
单选题要强制显示声明变量，可在窗体模块或标准模块的声明段中加入语句( )。 A) Opion Base 0 B) Option Explicit C) Option Base 1 D) Option Compare
单选题为了对多个控件执行操作，必须选择这些控件。下列不能选择多个控件的操作是 A) 按住Alt键，不要松开，然后单击每个要选择的控件 B) 按住Shift键，不要松开，然后单击每个要选择的控件 C) 按住Ctrl键，不要松开，然后单击每个要选择的控件 D) 拖动鼠标画出一个虚线矩形，使所选择的控件位于这个矩形内
单选题有如下事件过程：
Private Sub Commaild1_Click( )
Dim i As Integer
For i =1 To 2
DC
Next i
End Sub
Sub DC( )
Dim x As Integer，m As String
Static y，n
x=x + 1
y=y + 1
m=m&"*"：n=n &"#"
Print x，y，m，n
End Sub
程序运行后，输出的结果是( )。
单选题在窗体中添加一个命令按钮，编写如下程序： Private Sub Sub1(p,m,n) p=p+1:m=m+1:n=n+1 Print "sub1:";p;m;n End Sub Private Sub Command1_Click() a1=1:b1=2:c1=3 Call Sub1(a),b1+3,c1) Print "Main:";a1;b1;c1 End Sub 程序运行后，输出结果为( )。 A) Sub: 2 6 4 Main:2 6 4 B) Sub: 2 6 4 Main: 2 6 4 C) Sub: 2 6 4 Main: 1 2 4 D) Sub: 2 6 4 Main: 2 2 4
单选题改变控件的位置不能通过下列( )方法来直接实现。
单选题要使目录列表框(名称为Dir1)中的目录随着驱动器列表框(名称为Drive1)中所选择的当前驱动器的不同而同时发生变化，则应：
单选题编写如下通用过程： Sub Proc(x As Single， y As Single) t = x x = t / y y = t Mod y End Sub 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) Dim a As Single Dim b As Single a = 5 b = 4 Proc a， b Print a， b End Sub 程序运行后，如果单击命令按钮，则输出结果为________。
单选题在窗体上画一个文本框(名称为Text1)和一个标签(名称为Label1)，程序运行后，在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数。以下可以实现上述操作的事件过程是( )。
单选题下列程序段的执行结果为 a=3 b=1 For I=1 To 3 f=a+b a=b b=f Print f Next I
单选题设窗体上有一个通用对话框控件CD1，希望在执行下面程序时，打开如图所示的文件对话框PrivateSubCommandqClick()CD1．DialogTitle=“打开文件”CD1．InitDit="C：＼"CDl．Filter=”所有文件|*.*|Word文档|*．doc|文本文件|*txt”CD1．Action=1IfCD1．FileName="'ThenPrint”未打开文件”ElsePrint”要打开文件”&CD1．FileNameEndIfEndSub但实际显示的对话框中列出了C：＼下的所有文件个文件夹，“文件类型”一栏中显示的是“所有文件”。下面的修改方案中正确的是
单选题下面的数组声明语句中正确的是( )。 A) Dim gg[1,5] As String B) LabellBackStyle=1 C) Dim gg(1 To 5)As String D) Dimgg[1:5,1:5] AsString
单选题在窗体上画一个命令按钮和一个文本框，其名称分别为Commandl和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程：
Private Sub Commandl_Click() a=InputBox("Enter an
integer") b=Text1.Text
Text1.Text=b+a End Sub
程序运行后，在文本框中输入456，然后单击命令按钮，在输入对话框中输入123，则文本框中显示的内容是______。
A.579
B.123
C.456123
D.456
单选题设窗体上有一个名为Text1的文本框，并编写如下程序： Private Sub Form_Load() Show Text1.Text=" " Text1.SetFocus End Sub Private Sub Form_MouseUp(Button As Integer， Shift As Integer，X As Single，Y As Single) Print“程序设计” End Sub Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer) Print "Visual Basic"； End Sub 程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗本上显示的内容是
单选题在C盘当前文件夹下建立一个名为SDat.txt的顺序文件。要求用InputBox函数输入5名学生的学号(StuNo)、姓名(StuName)和英语成绩(StuEng)。则在下列横线处合适的语句是( )。 Private Sub Form_Click() Open"C:/SDat.txt"For Output As 1 For i=1 To 5 StuNo=InputBox("请输入学号") StuName=InputBox("请输入姓名") StuEndg=Val(InputBox("请输入英语成绩")) Next i Close#1 End Sub
单选题执行如下语句： a = InputBox( "Today", "Tomorrow", "Yesterday",,, "Day before yesterday", 5) 将显示一个输入对话框时，在对话框的输入区中显示的信息是 ______。