用vb编写一个小程序程序

Question

就一个文本框和一个按钮，用for…next语句编写，题目：按下按钮1在文本框里面显示1到100之内所有能被5整除且不能被3整除的数。不知道为什么我做的答案始终只能显示3和4……

Answer 1

新建一个文本框Text1,Text属性为空，MultiLine属性为True，ScrollBars属性为2。
新建一个命令按钮Command1,添加以下代码：
Private Sub Command1_Click()
Dim i As Integer
For i = 1 To 100
If (i Mod 5 = 0) And (i Mod 3 <> 0) Then Text1.Text = Text1.Text & vbCrLf & i
Next
End Sub

Answer 2

Option Explicit

Private Sub Command1_Click()
Dim x As Long
Dim txt As String
For x = 1 To 100
If x Mod 5 = 0 And x Mod 3 <> 0 Then txt = txt & x & "--"
Next x

Text1.Text = txt
End Sub

Answer 3

for i = 1 to 100
if i mod 5 = 0 and i mod 3 <> 0 then print i
next i