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 加上命令!
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7518

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2008-03-02 02:54
社区公告
暂无公告