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

Question

    假如做一个应用程序的话，能在里面加进一些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的时候就不会这样子。请问是怎么回事啊？？？谢谢各位了

Answer 1

VB 中不支持 Console.  的呀!不知你是要 在窗体上输出还是要输出到哪里?
如果要输出到窗体上, 请把
 Dim r As Double
 Dim l As Double
 r = InputBox("输入半径(按回车结束):", "-----计算园的周长--------")
 l = 2 * 3.14 * 1
 MsgBox "园半径=" & r & ",周长=" & l如果你是要在VB中执行 CMD 命令,可以直接用shell 加上命令!

Answer 2

你是要在VB窗口里面得到计算结果吗？ 还是在DOS窗口得到计算的结果 ? "生成後打近东西後，就马上会关掉" 这代表你的代码有问题.

Answer 3

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

Answer 4

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

Answer 5

Call Shell("cmd /c " & "c:\test1.bat", vbNormalFocus) 改为Call Shell("cmd /c c:\test1.bat", vbNormalFocus)马上会关掉,是因为你没加 Pause, 而有多行命令你就得用批次档 .bat

Answer 6

测试下,论坛的空格问题是否解决了.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 

Answer 7

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