vb 简单的问题

来源：百度知道 编辑：UC知道 时间：2024/05/02 16:40:01
Private Sub Form_Click()
Dim a, b, c
a = 0
Do While True
For b = 0 To 20
c = b + 1
Print c
a = a + 1

If a > 5 Then Exit Do

Next
Loop

End Sub
-------------------------
以上程序运行结果为：
1
2
3
4
5
6
------------------------
问题：如何这么显示？
1，2
3，4
5，6
-----------------------
代码需要怎么写.

sub SpecialContent()
dim i
i=1
do while not rsSpecial.eof
response.Write （"& rsSpecial(1) &" <br>）
rsSpecial.movenext
i=i+1
if i>=MaxPerPage then exit do
loop
end sub
------------------
也就是让 & rsSpecial(1) & 显示2次换行

Private Sub Form_Click()
Dim a, b, c
a = 0
Do While True
For b = 0 To 20
c = b + 1
Print c;'加一分号
if c mod 2=0 then print'加一判断
a = a + 1
If a > 5 Then Exit Do

Next
Loop

End Sub

sub SpecialContent()
dim i
i=1
do while not rsSpecial.eof
response.Write （"& rsSpecial(1) & chr(13) & chr(10) &" <br>）'加上回车换行
rsSpecial.movenext
i=i+1
if i>=MaxPerPage then exit do
loop
end sub

Private Sub Form_Click()
Dim a, b, c
a = 0
Do While True
For b = 0 To 20
c = b + 1
If c Mod 2 = 1 Then Print c & ",";
If c Mod 2 = 0 Then Print c
a = a + 1
If a > 5 Then Exit Do
Next
Loop
End Sub

第二道看不明白。

好罗嗦的语句，其实用很简单的语句就能实现啊

全是高手呀