Question

VB编写一程序用来计算1~1000之间所有能被3整除但不能被5整除数,将这些数在窗体上

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励30（财富值+成长值）

Answer 1

Private Sub Form_Click() '单击窗体
Dim i As Integer, j As Integer
For i = 1 To 1000
If i Mod 3 = 0 And i Mod 5 <> 0 Then
If i Mod 10 > 0 Then
Print i;
j = j + 1
If j Mod 10 = 0 Then Print
End If
End If
Next i
End Sub