+ -
当前位置:首页 → 问答吧 → 各位大神,新人求助啊,一个很小的问题

各位大神,新人求助啊,一个很小的问题

时间:2011-08-18

来源:互联网

Private Sub Command1_Click()
  Dim doWhile As Integer, doUntil As Integer
  doWhile = 1
  doUntil = 1
   
  Do While (doWhile < 10)
  doWhile = doWhile + 1
  Loop
  MsgBox.Show (doWhile)
   
  Do Until (doUntil < 10)
  doUntil = doUntil + 1
  boop
  megbox.Show (doUntil)
   
End Sub

一个新建exe, 就这点代码,想看Do While 和 Do Until 的区别,但老是报错

作者: Stubborn_Cow   发布时间: 2011-08-18

MsgBox.Show (doWhile) -> msgbox doWhile
megbox.Show (doUntil) -> msgbox doUntil

作者: Leftie   发布时间: 2011-08-18

VB code
Private Sub Command1_Click()
    Dim doWhile As Integer, doUntil As Integer
    doWhile = 1
    doUntil = 1
      
    Do While (doWhile < 10)
    doWhile = doWhile + 1
    Loop
    MsgBox (doWhile)
      
    Do Until (doUntil < 10)
    doUntil = doUntil + 1
    Loop
    MsgBox (doUntil)
End Sub

作者: zdingyun   发布时间: 2011-08-18

写代码认真点,vb内存语句函数如果你写的对都会自动格式化成大写开头的样式,如果你写错则它不会自动格式化,这样就很简单的能判断你的语句或函数是否写对了。

另外建议你找本vb的书看看或看看msdn,不要自己闷头瞎琢磨。

作者: chinaboyzyq   发布时间: 2011-08-18

热门下载

更多