幼儿小班打击乐教案:大虾们 帮忙啊 简单的~~~~

来源:百度文库 编辑:查人人中国名人网 时间:2024/05/08 13:10:37
编一段VB程序:输出1~100之间所有既不能被8整除又不能被3整除的整数

建立一个listbox,叫list1
建立一个按钮,在单击事件中加入如下代码:
Private Sub Command1_Click()
Dim i As Integer
i = 1
While i <= 100
If (i Mod 3 <> 0) And (i Mod 8 <> 0) Then
List1.AddItem (CStr(i))
End If
i = i + 1
Wend
End Sub

VB6.0测试通过。
要求旗子~下次欢迎给点分哦~