31.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click() 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) Else d=d-c End If Next i Print d End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为____。 A、10 B、16 C、12 D、20
A B C D
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
A B C D
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 Close End Sub 程序运行后，单击命令按钮，文件outf.txt中的内容是____。 A、MVBP B、mvbp C、M V B P D、m v b p
A B C D
34.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序： Dim SW As Boolean
Function func(X As Integer)As Integer If X<20 Then Y=X Else Y=20+X End If func=Y End Function
Private Sub Form_MouseDown(Button As Integer,_ Shift As Integer,X As Single,Y As Single) SW=False End Sub
Private Sub Form_MouseUp(Button As Integer,_ Shift As Integer,X As Single,Y As Single) SW=True End Sub
Private Sub Command1_Click() Dim intNum As Integer intNum=InputBox("") If SW Then Print func(intNum) End If End Sub 程序运行后，单击命令按钮，将显示一个输入对话框，如果在对话框中输入
25，则程序的执行结果为____。 A、输出 0 B、输出 25 C、输出 45 D、无任何输出
A B C D
35.设有如下通用过程： Public Sub Fun(a() As Integer,x As Integer) For i=1 To 5 x=x+a(i) Next End Sub 窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮。然后编写如下的事件过程： Private Sub Command1_Click() Dim arr(5) As Integer,n As Integer For i=1 To 5 arr(i)=i+i Next Fun arr,n Text1.Text=Str(n) End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是____。 A、30 B、25 C、20 D、15
收藏本文到QQ书签
搜藏本文到百度搜藏
收藏
推荐
评论(0条)