首页 > 计算机 > 计算机二级 正文

在窗体中添加一个命令按钮Command1,并有以下程序:Functionretnum()nl=Chr(13)+Chr(10)msg$

时间:2021-05-04 05:32:28 解答: 87 次

在窗体中添加一个命令按钮Command1,并有以下程序:

Functionretnum()

nl=Chr(13)+Chr(10)

msg$="1.运行VB应用程序"+nl+"2.计算器"

msg$=msg$+nl+"请输入数字选择"

retnum=InputBox(msg$,Title,Default)

EndFunction

PrivateSubCommand1_Click()

r=retnum

Ifr=1Then

x=Shell("c:\vbp\vbexam.exe",1)

ElseIfr=2Then

z=Shell("calc.exe",1)

Else

MsgBox"请输入1-2的数"

EndIf

EndSub

程序运行后,单击命令按钮,在输入对话框内输入2,窗体将显示( )

A.请输入1-2的数

B.Windows的计算器

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

D.出错

正确答案:

B

请充值VIP继续使用(未注册用户支付后会自动注册登录)

×

95元 29元

VIP截止日期:2025-01-02 00:16:41

←请使用支付宝扫码支付

95元 29元

VIP截止日期:2025-01-02 00:16:41

←请使用微信扫码支付