题目内容（请给出正确答案）

[单选题]

在窗体中添加一个命令按钮Command1，并有以下程序：Functionretnum()nl=Chr(13)+Chr(10)msg$="1.运行VB应用程序"+nl+"2.计算器"msg$=msg$+nl+"请输入数字选择"retnum=InputBox(msg$,Title,Default)EndFunctionPrivateSubCommand1_Click()r=retnumIfr=1Thenx=Shell("c:\vbp\vbexam.exe",1)ElseIfr=2Thenz=Shell("calc.exe",1)ElseMsgBox"请输入1-2的数"EndIfEndSub程序运行后，单击命令按钮，在输入对话框内输入2，窗体将显示()

A.请输入1-2的数

B.Windows的计算器

C.调用C:\vbp\vbexam.exe程序并运行

D.出错

提问人：网友zhengyytt 发布时间：2022-01-06

参考答案

查看官方参考答案

如搜索结果不匹配，请联系老师获取答案

网友答案

查看全部（）

· 有6位网友选择 A，占比60%
· 有3位网友选择 C，占比30%
· 有1位网友选择 B，占比10%

ABCD

提交我的答案

登录提交答案，可赢取奖励机会。

您可能会需要：

重置密码查看订单联系客服

安装简答题APP，拍照搜题省时又省心！

更多“在窗体中添加一个命令按钮Command1，并有以下程序：Fu…”相关的问题

第1题

在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：

点击查看答案

第2题

在窗体中添加一个命令按钮（名称为Command1)，然后编写如下代码：Private Sub Command1_Click（) a=0

在窗体中添加一个命令按钮(名称为Command1)，然后编写如下代码： Private Sub Command1_Click() a=0:b=5:c=6 MsgBox a=b＋c End Sub 窗体打开运行后，如果单击命令按钮，则消息框的输出结果为______。

A．11

B．a=11

C．0

D．False

点击查看答案

第3题

在窗体上添加一个命令按钮（名为Command1)和一个文本框（名为Text1)，并在命令按钮中编写如下事件代

在窗体上添加一个命令按钮(名为Command1)和一个文本框(名为Text1)，并在命令按钮中编写如下事件代码： Private Sub Command1_Click() m=2.17 n=Len(Str$(m)＋Space(5)) Me!Text1=n End Sub 打开窗体运行后，单击命令按钮，在文本框中显示______。

A．5

B．8

C．9

D．10

点击查看答案

第4题

在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序： PrivateSubCommand1_Click

在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序：

Private Sub Command1_Click（）

Dim s，i

For i=1 To 10

s=s+i

Next i

MsgBox s

End Sub

窗体打开运行后，单击命令按钮，则消息框的输出结果为。

点击查看答案

第5题

在窗体中添加一个命令按钮（名为Command1) 和一个文本框（名为Text1) ，并在命令按钮中编写如下事例

在窗体中添加一个命令按钮(名为Command1) 和一个文本框(名为Text1) ，并在命令按钮中编写如下事例代码： Private Sub Command1_Click() Str1="981765" Str2="65" n=InStr(Str1,Str2) Me.Text1=n End Sub 窗体打开运行后，单击命令按钮，在文本框中显示______。

A．4

B．5

C．6

D．7

点击查看答案

第6题

在窗体上添加一个命令按钮（名为Command1)和一个文本框（名为Text1)，并在命令按钮中编写如下事件代

在窗体上添加一个命令按钮(名为Command1)和一个文本框(名为Text1)，并在命令按钮中编写如下事件代码： Private Sub Command1_Click() m=2.17 n=Len(Str$(m)+Space(5)) Mc! Text1=n End Sub 打开窗体运行后，单击命令按钮，在文本框中显示()。

A．5

B．8

C．9

D．10

点击查看答案

第7题

在窗体中添加一个命令按钮（名称为Command1)，然后编写如下代码：Private Sub Command1_Click（)a=3:

在窗体中添加一个命令按钮(名称为Command1)，然后编写如下代码： Private Sub Command1_Click() a=3:b=4:c=5 MsgBox a=b+c End Sub 窗体打开运行后，如果单击命令按钮，则消息框的输出结果为()。

A．0

B．9

C．a=9

D．假

点击查看答案

第8题

在窗体中添加一个命令按钮，名称为Command1；添加一个文本框，名称为Text1，然后编写如下程序：Privat

在窗体中添加一个命令按钮，名称为Command1；添加一个文本框，名称为Text1，然后编写如下程序： Private Sub Commandl Click() Dim a(5)， b(5) For j = 1 To 4 a(j) = 3 (j b(j) = a(j) (3 Next j Text1.Text = b(j\2) End Sub 程序运行后，单击命令按钮，在文本框中显示

A．25

B．18

C．36

D．35

点击查看答案

第9题

在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序：Private Sub Command1_Click（)Dim a

在窗体中添加一个命令按钮，名称为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．0

B．5

C．6

D．7

点击查看答案

第10题

在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序： Private Sub f（ByVal x As Intege

在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：

Private Sub f(ByVal x As Integer)

x=x+4

End Sub

Private Sub Command1_Click()

i=3

Call f(i)

If i＞4 Then i=i*2

End Sub

窗体打开运行后，单击命令按钮，则消息框的输出结果为()。

点击查看答案

警告：系统检测到您的账号存在安全风险

为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！

微信搜一搜

简答题

点击打开微信

警告：系统检测到您的账号存在安全风险

抱歉，您的账号因涉嫌违反简答题购买须知被冻结。您可在“简答题”微信公众号中的“官网服务”-“账号解封申请”申请解封，或联系客服。

微信搜一搜

简答题

点击打开微信