更多"在窗体中添加一个名称为Cmd1的命令按钮,然后编写如下事件代码: "的相关试题:
[单项选择]在窗体中添加一个名称为Cmd1的命令按钮,然后编写如下事件代码: Private Sub Cmd1_Click( ) a=125 If a>60 Then k=1 ElseIf a>70 Then k=2 ElseIf a>80 Then k=3 ElseIf a>90 Then k=4 EndIf MsgBox k End Sub 窗体打开运行后,单击命令按钮,则消息框的输出结果是( )。
A. 1
B. 2
C. 3
D. 4
[单项选择]在窗体中添加一个名为Command1的命令按钮,然后编写如下事件代码: Private Sub Command1_Click( ) a=75 If a>60 Then k=1 ElseIf a>70 Then k=2 ElseIf a>80 Then k=3 ElseIf a>90 Then k=4 EndIf MsgBOx k End Sub 窗体打开运行后,单击命令按钮,则消息框的输出结果是______。
A. 1
B. 2
C. 3
D. 4
[填空题]在窗体中添加一个名为Command1的命令按钮,然后编写如下程序:
Private Sub s(By Val p As Integer)
p=p*2
End Sub
Prirate Sub Command1_Click( )
Dim i As Integer
i=3
Call s(i)
If i>4 Then i=i^2
MsgBox i
End Sub
窗体打开运行后,单击命令按钮,则消息框的输出结果为______。
[填空题]在窗体中添加一个名为Command1的命令按钮,然后编写如下程序:
Private Sub s(By Val p As Integer)
p=p*2
End Sub
Prirate Sub Command1_Click( )
Dim i As Integer
i=3
Call s(i)
If i>4 Then i=i^2
MsgBox i
End Sub
窗体打开运行后,单击命令按钮,则消息框的输出结果为______。
[填空题]在窗体上添加一个命令按钮Command1,然后编写如下代码:
Private Sub Command1_Click( )
sum=0
For i=3 To 7
sum=i+2
Next i
MsgBox sum+i
End Sub
打开窗体后,单击命令按钮,消息框的输出结果是______。
[填空题]设计一个窗体,窗体上画一个名为Command1的命令按钮、一个名为CommonDialogl的通用对话框控件、一个名为Text1的文本框,利用“颜色”对话框将文本框中的字体颜色设置成用户所选择的颜色,为此编写以下程序代码,井按要求将程序补充完整。
Private Sub Command1_Click( )
CommonDialogl.Flags=cdlCCRGBInit
CommonDialogl.Color=Text1.ForeColor
【9】
Text1.ForeColor=CommonDialog1.Color
End Sub
[填空题]在窗体上添加一个命令按钮Command1,然后编写如下事件过程。
Private Sub Command1_Click( )
Dim b,k
For k=1 To 6
b=23+k
Next k
MsgBox k+b
End Sub
打开窗体后,单击命令按钮,消息框数据的结果是______。
[填空题]在窗体中添加一个命令按钮,然后编写如下代码:
Private Sub Command1_Click( )
a=InputBox("请输入一个整数")
b=InputBox("请输入一个整数")
Print Val(a)+Val(b)
End Sub
程序运行后,单击命令按钮,在输入对话框中分别输入21和45,输出结果为 【10】 。
[单项选择]在窗体中添加一个命令按钮,然后编写如下代码: Private Sub Command1_Click( ) For i=l To 4 x=4 For j=1 To 3 x=3 For k=l To 3 x=x+6 Next k Next j Next i Print x End Sub 程序运行后,单击命令按钮,输出结果是
A. 7
B. 15
C. 21
D. 538
[单项选择]在窗体上添加如下命令按纽,然后编写如下事件过程: Private Sub Command1_Click( ) Dim a(10)As Integer Dim p(3)As Integer 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该过程的运行结果为______。
A. 35
B. 33
C. 31
D. 29
[填空题]在窗体中添加一个命令按钮,名称为Command1,然后编写如下程序:
Private Sub Command1_Click( )
Dim s,i
For i=1 To 10
S=S+i
Next i
MsgBox s
End Sub
窗体打开运行后,单击命令按钮,则消息框的输出结果为______。
[填空题]在窗体上添加一个命令按钮,然后编写如下事件过程:
Private Sub Command1_Click( )
sum=0
For i=3 To 7
sum=i+2
Next i
MsgBox sum+i
End Sub
打开窗体后,单击命令按钮,消息框的输出结果是______。
[填空题]在窗体上添加一个命令按钮,然后编写如下事件过程:
Private Sub Command1_Click( )
Sum =0
For i=3 T0 7
Sum =i+2
Next i
MsgBox sum+i
End Sub
打开窗体后,单击命令按钮,消息框的输出结果是______。
[填空题]在窗体中添加一个命令按钮(名为Command1) ,然后编写如下代码:
Private Sub Command1_Click( )
Dim b,k
For k=1 to 6
b=15+k
Next k
MsgBox b+k
End Sub
窗体打开运行后,单击命令按钮,消息框的输出结果是______。
[单项选择]在窗体中添加一个命令按钮(名称为Command1) ,然后编写如下代码:
Private Sub Command1_Click( )
A=95
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