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的时候就不会这样子。请问是怎么回事啊???谢谢各位了
...全文
96 7 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
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 加上命令!

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧