请输入或粘贴题目内容
搜题
拍照、语音搜题，请扫码下载APP
题目内容
（请给出正确答案）
窗体中有一个命令按钮Command 1。其Click事件过程如下。
Private Sub Command1_Click()
A=75
IF A＞60 Then i=1
IF A＞70 Then i=2
IF A＞80 Then i=3
IF A＞90 Then i=4
MsgBox i
End Sub
窗体运行后，单击命令按钮，消息框输出的结果是( )。
A．1 B．2 C．3 D．4
答案
更多“窗体中有一个命令按钮Command 1。其Click事件过程如下。 Private Sub Command1_Click（) A=75 IF A＞60 Th”相关的问题
第1题
窗体中有一个命令按钮Command1，其Click事件过程如下。
PriVate Sub Coranland1_Click()
For i=1 To 4
x=3
For j=2 To 3
x=3
For k=1 To 2
x=x+2
Next k
Next j
Next i
MsgBox x
End Sub
窗体运行后，单击命令按钮，消息框输出的结果是______。
第2题
窗体中有一个命令按钮Command1和一个文本框Text1。其中Command1的Click事件过程如下。
Private Sub Command1_Click()
Dim i As Integer,s As String
s="首都经济贸易大学"
For i=1 To b Step 2
Text1=Text1&Mid(s,i,1)
Next i
End Sub
窗体运行后，单击命令按钮Command1，Text1中显示的是______。
第3题
窗体中有一个命令按钮(Command1。其Click事件过程如下。
Private Sub Command1_Click()
Dim a(10,10)
For m=1 To 4
For n=3 To 5
a(m,n)=m*n
Next n
Next m
MsgB0x a(1, 3)+a(2, 4) +a(3, 5)
End Sub
窗体运行后，单击命令按钮，消息框输出的结果是______。
第4题
窗体中有一个命令按钮Command1。其Click事件过程如下。
Sub P(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
For i=1 to 4
a(i)=i+4
Nexti
P a()
For i=1 to 4
MsgB0x a(i)
Next i
End Suk)
窗体运行后，单击命令按钮，消息框4次输出的结果分别是( )。
A．2 4 6 8 B．5 6 7 8 C．10 12 14 16 D．出错
第5题
在Visual Basic工程prjl中包含有两个窗体，窗体form1(主窗体)上有两个命令按钮command1和 command2，一个文本控件text1；窗体dialog是一个对话窗体，窗体包含两个命令按钮OK和Cancel，一个文本控件text1和一个标签控件labe11。 编写程序要求实现的功能为：窗体form. 1上command1的caption属性值为name，程序运行后，当单击 eommand1时，弹出对话窗体dialog，其labe11控件中的提示信息为“please input your name：”，要求用户输入自己的姓名。如果单击OK按钮，保存当前输入的内容并返回form1界面，command1的caption属性值为email。若再次单击command1命令按钮，仍然出现dialog对话窗体，此时dialog的labe11提示用户输入自己的email，当用户输入email后，单击“确定”按钮，保存当前输入的内容并返回form1界面；如果单击Cancel按钮，则输入内容无效并返回form1。 Private Sub Command1_Click() Dialog. Text1. Text = "" Dialog. Show End Sub Private Sub Command2_Click() Text1. Text = "email: "+ Dialog. email +" name: "+ Dialog. fname End Sub Private Sub Form_ Load() Command1. Caption = "name" 【 】. Caption = "please input your name: Dialog. i = 0 End Sub Option Explicit Public i As Integer Public email As String Public fname As String Private Sub CancelButton_Click() i=0 email = "" fname = "" Forml. Command1. Capt ion = "name" Dialog. Hide Form1. Show End Sub Private Sub OKButton_ Click() 【 】 Select Case i Case 1: email = Text1. Text Labe11. Caption = "please input your email:" 【 】. Caption = "email" Case 2: fname = Text1. Text 【 】. Caption = "name" i=0 End Select Dialog. Hide Form1. Show End Sub
第6题
A.-5
B.25
C.1
D.-1
第7题
Private Sub Command1_Click（）
Dim a As Integer, s As Integer
a = 8
s = 1
Do
s = s + a
a = a－1
Loop While a ＜＝ 0
Print s; a
End Sub
程序运行后，单击命令按钮，则窗体上显示的内容是（）。
A.7 9
B.34 0
C.9 7
D.死循环
第8题
在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a(1 To 10) Dim p(1 To 3) k=5 For i=1 To 10 a(i)=i Next i For i=1 To 3 p(i)=a(i*i) Next i For i=1 To 3 k=k+p(i)*2 Next i Print k End Sub 程序运行后，单击命令按钮，输出结果是【 】。
第9题
A.4321
B.34
C.1234
D.12
第10题
在窗体上画一个名称为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 请填空。
第11题
A.4321
B.34
C.1234
D.12
