vb救急啊！！！！这个程序怎么不行啊？？

z3765295 2008-03-02 02:54:41

假如做一个应用程序的话，能在里面加进一些dos命令吗？？就是，直接按键的话就会执行那个命令，比如msconfig这个命令，可以么？？
应该是可以的吧。而且，我自己编的控制台应用程序，生成後打近东西後，就马上会关掉，这又是怎么回事啊？？

这个程序的代码在下面了，
Dim r As Double
Dim l As Double
Console.WriteLine("-----计算园的周长--------")
Console.Write("输入半径(按回车结束):")
r = Val(Console.ReadLine())
l = 2 * 3.14 * l
Console.WriteLine("园半径={0},周长={1}", r, l)

就是生成後已运行就会马上关掉，但是在vb理用Ctrl=F5的时候就不会这样子。请问是怎么回事啊？？？谢谢各位了

...全文

64 点赞收藏 7

写回复

7 条回复

切换为时间正序

当前发帖距今超过3年，不再开放新的回复

发表回复

sparrow_liu 2008-03-03

程序运行结束了就自动关闭了啊，在程序末尾加 Console.ReadLine（）就行了，这样你点回车才会关闭

回复赞

tdcq123 2008-03-02

测试下,论坛的空格问题是否解决了.

Private Sub Command1_Click()
Dim r#, l#
r = InputBox("输入半径(按回车结束):", "-----计算园的周长--------")
l = r * 2 * 3.1416 '周长=半径 * 2 * 3.1416

Open "c:\test1.bat" For Output As #1
Print #1, "@echo off"
Print #1, "echo " & "园半径= " & CStr(r) & ",周长= " & CStr(l)
Print #1, "pause"
Close #1
Call Shell("cmd /c " & "c:\test1.bat", vbNormalFocus)
End Sub

回复赞

cbm6666 2008-03-02

Call Shell("cmd /c " & "c:\test1.bat", vbNormalFocus)

改为

Call Shell("cmd /c c:\test1.bat", vbNormalFocus)

马上会关掉,是因为你没加 Pause, 而有多行命令你就得用批次档 .bat

回复赞

cbm6666 2008-03-02

Private Sub Command1_Click()
Dim r#, l#
r = InputBox("输入半径(按回车结束):", "-----计算园的周长--------")
l = r * 2 * 3.1416 '周长=半径 * 2 * 3.1416

Open "c:\test1.bat" For Output As #1
Print #1, "@echo off"
Print #1, "echo " & "园半径= " & CStr(r) & ",周长= " & CStr(l)
Print #1, "pause"
Close #1
Call Shell("cmd /c " & "c:\test1.bat", vbNormalFocus)
End Sub

回复赞

z3765295 2008-03-02

你看，就像是一个多功能的程序。只要一点击那个按键，就会出来dos的执行窗口，应该是可以的啊。
我知道，应该是系统的学习，但是，时间紧迫，先用一下，谢谢啊！呵呵

回复赞

cbm6666 2008-03-02

你是要在VB窗口里面得到计算结果吗？还是在DOS窗口得到计算的结果 ?

"生成後打近东西後，就马上会关掉" 这代表你的代码有问题.

回复赞

幻影时空 2008-03-02

VB 中不支持 Console. 的呀!

不知你是要在窗体上输出还是要输出到哪里?

如果要输出到窗体上, 请把

Dim r As Double
Dim l As Double
r = InputBox("输入半径(按回车结束):", "-----计算园的周长--------")
l = 2 * 3.14 * 1
MsgBox "园半径=" & r & ",周长=" & l

如果你是要在VB中执行 CMD 命令,可以直接用shell 加上命令!

回复赞