UC知道VB编程题 高手进
来源：百度知道 编辑：UC知道 时间：2024/05/29 02:22:13
输出100—200之间不能被3整除的自然数
我的代码是这样的：
Private Sub Form_Click()
Print "100-200之间不能被3整除的自然数："
Dim i As Integer
For i = 100 To 200 Step 1
If i Mod 3 <> 0 Then
Print i
Else
End If
Next i
End Sub
执行出来结果不能在一个窗口里面全部显示，所以请高手们修改下！
一楼的编译错误 缺少数组啊
我的代码是这样的：
Private Sub Form_Click()
Print "100-200之间不能被3整除的自然数："
Dim i As Integer
For i = 100 To 200 Step 1
If i Mod 3 <> 0 Then
Print i
Else
End If
Next i
End Sub
执行出来结果不能在一个窗口里面全部显示，所以请高手们修改下！
一楼的编译错误 缺少数组啊
Private Sub Form_Click()
Print "100-200之间不能被3整除的自然数："
Dim i As Integer, x As Integer
For i = 100 To 200 Step 1
If i Mod 3 <> 0 Then
Print i;
x = x + 1
If x Mod 10 = 0 Then Print
Else
End If
Next i
End Sub
Private Sub Form_Click()
Print "100-200之间不能被3整除的自然数："
Dim i As Integer
dim str as string
For i = 100 To 200 Step 1
If i Mod 3 <> 0 Then
str=str+""+str$(i) ‘中间的“”是加个空格
Else
End If
Next i
print str
End Sub