编写程序实现输出从0至100种只能被3整除的数？？
急．．！！
另外有追分。。
參考答案:Private Sub Command1_Click()
Dim I As Integer, K As String
For I = 0 To 100
If I Mod 3 = O Then K = K & CStr(I) & ";"
Next I
Text1.Text = K
End Sub
请先放一个命令按钮，一个文本框，并将其multiline属性设置为true,
即可输出结果
编写程序实现输出从0至100种只能被3整除的数？？
急．．！！
另外有追分。。
參考答案:Private Sub Command1_Click()
Dim I As Integer, K As String
For I = 0 To 100
If I Mod 3 = O Then K = K & CStr(I) & ";"
Next I
Text1.Text = K
End Sub
请先放一个命令按钮，一个文本框，并将其multiline属性设置为true,
即可输出结果