Dim c As Integer, d As Integer x=Aray(2,46,8,10,12) If x(i>c Then Else d=d- End If Next i Print d End Sub 程序运行后,单击命令按钮,则在窗体上输出的内容为()。 B)16 C)12 D)20 (32)设有下列程序: Private Sub Commandl Click() Dim c As Integer, d As Integer d= nput Box("请输入一个整数") Do While d>o c=c+1 End If d= InputBox("请输入一个整数") Print c+d End Sub 程序运行后,单击命令按钮,如果在输入对话框中依次输入1、2、3、4、5、6、7、 8、9、0,则输出结果是() A)12 B)11 (33)在窗体上画一个名称为 Command l的命令按钮和一个名称为 TextI的文本框,在文本 框中输入字符串“ Microsoft Visual Basic Programming 后编写下列事件过程: Private Sub Commandl Click() Open"d: temploutf txt" For Output As## For i=l To Len(TextI Text) If c>=A"And c<=Z"Then Print 1, Case(c) End lf 二级Ⅴ isual basic语言程序设计试卷第7页(共10页)二级 Visual Basic 语言程序设计试卷 第 7 页（共 10 页） Dim c As Integer, d As Integer d=0 c=6 x=Array(2,4,6,8,10,12) For i = 1 To 6 If x(i)>c Then d=d+x(i) c=x(i) Else d=d-c End If Next i Print d End Sub 程序运行后，单击命令按钮，则在窗体上输出的内容为（ ）。 A）10 B）16 C）12 D）20 （32）设有下列程序： Private Sub Command1_Click( ) Dim c As Integer, d As Integer c=4 d=InputBox("请输入一个整数") Do While d>0 If d>c Then c=c+1 End If d=InputBox("请输入一个整数") Loop Print c+d End Sub 程序运行后，单击命令按钮，如果在输入对话框中依次输入 1、2、3、4、5、6、7、 8、9、0，则输出结果是（ ）。 A）12 B）11 C）10 D）9 （33）在窗体上画一个名称为 Command1 的命令按钮和一个名称为 Text1 的文本框，在文本 框中输入字符串“Microsoft Visual Basic Programming”，然后编写下列事件过程： Private Sub Command1_Click( ) Open "d:\temp\outf.txt" For Output As#1 For i=1 To Len(Text1.Text) c=Mid(Text1.Text,i,1) If c>="A"And c<="Z"Then Print # 1,LCase(c) End If Next i