![](https://lstatic.shangxueba.com/jiandati/h5/images/m_q_title.png)
A、A
B、B
C、C
D、D
A、Function sum(ByVal n%) Dim c% c = c + n sum = c End Function
B、Function sum(ByVal n%) Static c% c = c + n sum = c End Function
C、Public c% Function sum(ByVal n%) c = c + n sum = c End Function
D、Dim c% Function sum(ByVal n%) c = c + n sum = c End Function
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.出错
为了保护您的账号安全,请在“简答题”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!