这VB的程序？

For i =1 to 100 step 2

print i；

每输出10个换一行。

上面是条件和要求，谁会完整的代码吗？

我研究过貌似很复杂，还是不太会。

Dim I As Integer, N As Integer

For I = 1 To 100 Step 2
N = N + 1
Print I;
If N Mod 10 = 0 Then Print

Next

Private Sub Command1_Click() Text1.Text = "" Dim n As Integer

n=1

For i = 1 To 100 Step 2 Text1.Text = Text1.Text & i & " " If n Mod 10 = 0 Then Text1.Text = Text1.Text & Chr(13) & Chr(10) End If n = n + 1 Next i

End Sub

For i =1 to 100 step 2

print i;

if i mod 10 =0 then print

next

太简单了！！！

Dim j AS Integer;

j = 1;

For i =1 to 100 step 2

print i；

if j mod 10 = 0 then

print char(13)+char(10); '回车换行

end if

j = j +1;

next i

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息