獨立用Do While......Loop和Do......Loop Untile完成兩個事件程序程式，在表單上實作四次“認真學習VB”，每一次后面加上出現的次數。
uj5u.com熱心網友回復：
代碼：Dim a As Integer = 0 '設定一個變數
Do While a <> 4 '回圈直到變數為4
Console.WriteLine("認真學習VB" & a) '輸出認真學習vb + 變數a
a = a + 1
Loop
運行結果
這個是vb.net的代碼，沒裝vb6.0，應該是通用的吧？
uj5u.com熱心網友回復：
我也寫了一個,用的是VB6:
Option Explicit
Private Sub Command1_Click()
Dim i As Integer
i = 1
Do While i <= 4
Print "認真學習VB " & i
i = i + 1
Loop
End Sub
Private Sub Command2_Click()
Dim i As Integer
i = 0
Do
i = i + 1
Print "認真學習VB " & i
Loop Until i = 4
End Sub
下載地址:
鏈接：https://pan.baidu.com/s/1sAQP8WX918wQOIDBxHi9XQ
提取碼：6eyh
運行示例:
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/11916.html
標籤：VB基礎類
上一篇：多級快取的分層架構