题目内容
（请给出正确答案）
A.32
B.33
C.34
D.35
如果结果不匹配，请 联系老师 获取答案
更多“设有如下程序： Private Sub Form. Clic…”相关的问题
设有程序： Option Base 1 Private Sub Command1_Click() Dim arrl, Max As Integer arrl=Array(12, 435, 76, 24, 78, 54, 866, 43) 【 】=arrl(1) For i=1 To 8 If arrl(i)＞Max Then【 】 Next i Print "最大值是:" ; Max End Sub 以上程序的功能是，用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空。
阅读如下程序； Private Sub Form. Click() msg1$=“继续吗？” msg2$=“操作对话框” r=MsgBox(msg1$，vbYesNo OrvbDefaultButton2，msg2$) End Sub 程序运行后，单击窗体，将产生一个信息框。此时如果直接按回车键，则相当于用鼠标单击信息框中的【 】按钮。
有如下的程序片段，该程序片段的执行完后，共执行循环______次。 Private Sub command1_ Click() total =0 Counter = 1 do Print Counter total = total + Counter Print total, "111" Counter = Counter + 1 if total ＞= 10 then exit do End if Loop while Counter ＜= 10 End Sub
Label2的标签，然后编写如下程序代码：
Private x As Integer
Private Sub Command1_Click()
a = 6: b = 4
Call sub1(a, b)
Label1.Caption = a
Label2.Caption = b
End Sub
Private Sub sub1(ByVal x As Integer, ByVal y As Integer)
a = x * x
b = y * y
End Sub
程序运行后单击命令按钮，则两个标签中显示的内容分别是_______。
A.36和4
B.6和4
C.36和8
D.6和8
在窗体上画一个命令按钮Command1，然后编写如下程序： Private Sub Command1_Click() Dim arr()As Integer ReDim arr(3) For i=0 To 3 arr(i)=i Next i x=InputBox("请输入一个数字：") If Val(x)＞4 Then ReDim art(4) air(4)=x End If Me.Print(arr(4)-art(3)) End Sub 程序运行后，单击命令按钮，在输入对话框中输入12，输出结果为【 】。
在窗体上画1个命令按钮和1个文本框，其名称分别为Command1和Text1，然后编写如下代码：
Dim SaveAll As String
Private Sub Command1_Click（）
Text1.Text=Left（UCase（SaveAll），4）
End Sub
Private Sub Text1_KeyPress（KeyAscii As Integer）
SaveAll=SaveAll+Chr（KeyAscii）
End Sub
程序运行后，在文本框中输入abcdefg，单击命令按钮，则文本框中显示的内容是______。
在窗体上画一个名称为Command1的命令按钮。编写如下事件过程： Private Sub Command1_Click() Dim a As String A=【 】 For i=1 To 5 Print Space(6-i); Mid$(a, 6-i, 2*i-1) Next i End Sub 程序运行后，单击命令按钮，要求窗体上显示的输出结果为： 5 456 34567 2345678 123456789 请填空。
在窗体上画—个命令按钮，其名称为Command1，然后编写如下程序： Function M(x As Integer,y As Integer) M=IIf(x＞y,x，y) End FUNction Private Sub Command1 Click() Dim a As Integer,b As Integer a=100 b=200 Print M(a,B0 End Sub 程序运行后，单击命令按钮，输出结果为【 】。
