VB编程例题,100-200之间不能被3整除的数

发布网友发布时间：2022-12-31 22:33

共2个回答

热心网友时间：2023-10-14 15:17

Private Sub Command1_Click() '点击开始按钮
Dim i As Integer
For i = 100 To 200
If i Mod 3 <> 0 Then
List1.AddItem i
End If
Next i
End Sub

Private Sub Command2_Click() '点击清除按钮
List1.Clear
End Sub

Private Sub Form_Load()
Command1.Caption = "开始"
Command2.Caption = "清除"
End Sub

热心网友时间：2023-10-14 15:17

for i=100 to 200
if i mod 3 =0 then
......
else
增加到。。。。
end if
next

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com