F．unctionretnum()
nl=Chr(13)+Chr(10)
msg$="1.运行VB应用程序"+nl+"2.计算器"
msg$=msg$+nl+"请输入数字选择"
retnum=InputBox(msg$,Title,Default)
E．ndFunction
PrivateSubCommand1_Click()
r=retnum
Ifr=1Then
x=Shell("c:/vbp/vbexam.exe",1)
E．lseIfr=2Then
z=Shell("calc.exe",1)
E．lse
MsgBox"请输入1-2的数"
E．ndIf
E．ndSub
程序运行后，单击命令按钮，在输入对话框内输入2，窗体将显示( )
A．请输入1-2的数
B．Windows的计算器
C．调用C:/vbp/vbexam.exe程序并运行
D．出错
[试题]在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序：Private Sub Command1_Click（）D．im s，iF．or i=1 To 10s=s+iNext iMsgBox sE．nd Sub窗体打开运行后，单击命令按钮，则消息框的输出结果为 。
[试题]在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：
[单选题]在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序： Private Sub Command1_Click() Dim a As Integer, b As String, c As Integer a=1234: b=Str(a)c=Len(b)Print c End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是______。A．0B．5C．6D．7
[试题]在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：Private Sub f(ByVal x As Integer)x=x+4E．nd SubPrivate Sub Command1_Click()i=3C．all f(i)If i＞4 Then i=i*2E．nd Sub窗体打开运行后，单击命令按钮，则消息框的输出结果为( )。
[单选题]在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序： Public x As Integer Private Sub Command1_Click() x=10 Call s1 Call s2 MSgBox x End Sub Private Sub s1() x=x＋20 End Sub Private Sub s2() Dim x As Integer x=X＋20 End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果为______。A．10B．30C．40D．5
[单选题]在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序： Public x As Integer Private Sub Command1_Click() x=10 Call s1 Call s2 MsgBox x End Sub Private Sub sl() x=x+20 End Sub Private Sub s2() Dim x As Integer x=x+20 End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果为( )。A．10B．30C．40D．50
[单选题]（ 30 ）在窗体中添加一个命令按钮（名称为 Command1 ），然后编写如下代码：Private Sub Command1_Click( )a=0 : b=5 : c=6MsgBox a=b+cE．nd Sub窗体打开运行后，如果单击命令按钮，则消息框的输出结果为A． ） l1B． ） a=11C． ） 0D． ） False
[试题]（ 11 ）在窗体中添加一个命令按钮（名称为 Command1 ），然后编写如下代码：Private Sub Command1_Click( )Static b As Integerb=b+1E．nd Sub窗体打开运行后，三次单击命令按钮后，变量 b 的值是 ( 11 ) 。
[单选题]（ 32 ） 在窗体上添加一个命令按钮 （ 名为 Command1 ） 和一个文本框 （ 名为 Text1 ） ， 并在命令按钮中编写如下事件代码：Private Sub Command1_Click( )m=2.17n=Len(Str$(m)+Space(5))Me!Text1 =nE．nd Sub打开窗体运行后，单击命令按钮，在文本框中显示A． ） 5B． ） 8C． ） 9D． ） 10
[试题]在窗体上添加一个名称为Command1的命令按钮，然后编写如下程序：Private Sub f(ByVa1 x As Integer)x=x+4E．nd SubPrivate Sub Command1_Click()i=3C．all f(1)If i＞4 Then i=i*2MsgBox iE．nd Sub打开窗体运行后，单击命令按钮，则消息框的输出结果为______。