尝试此代码

try this code

Dim index As Integer = 0
Do
    Debug.Write(index.ToString & " ")
    index += 1
Loop Until index > 10

dim i as integer =0
Do while i<10
i=i+1
loop

Dim x as integer
do while x<5
Print  "hello"
X=x+1
Loop

萨法拉兹