编写程序，用Shell函数调用应用程序

来源：百度知道 编辑：UC知道 时间：2024/06/01 09:01:51
编写程序，用Shell函数调用应用程序
Function retnum()
NL = Chr(13) + Chr(10)
msg$ = "1.运行DOS命令" + NL + "2.运行VB应用程序"
msg$ = msg$ + NL + "3.计算器"
msg$ = msg$ + NL + NL + "请输入数字选择"
retnum = InputBox(msg$)
End Function
Private Sub Command1_Click()
r = retnum()
If r = 1 Then
x = Shell("command.com", 1)
ElseIf r = 2 Then
y = Shell("c:\vbp\vbexam.exe", 1)
ElseIf r = 3 Then
y = Shell("calc.exe", 1)
Else
MsgBox "请输入1—3的数"
End If
End Sub
Private Sub Command2_Click()
End
End Sub
其中msg$ = msg$ + NL + "3.计算器"
msg$ = msg$ + NL + NL + "请输入数字选择"
为什么要加NL和msg$啊？而且还加了两遍？

NL = Chr(13) + Chr(10) '回车换行符赋值给变量NL
msg$ = "1.运行DOS命令" + NL + "2.运行VB应用程序" '字符串"1.." 连接 "换行" 连接 "字符串2"
msg$ = msg$ + NL + "3.计算器" '在MSG变量原来基础上 多加一个换行 连接 "字符串3"
msg$ = msg$ + NL + NL + "请输入数字选择" '同上 换行 多一个空行 再连接 字符串"请输入"
retnum = InputBox(msg$)

Chr(13) + Chr(10)就是回车换行，你发布的图中也可以看出“1运行DOS命令”后换行显示“2运行VB应用程序”,你如果想学VB，可以来信交流heyuangood@sina.com