剑三三段加速是多少:大虾们 帮忙啊 简单的~~~~

来源：百度文库 编辑：中科新闻网 时间：2024/05/10 22:34:24
编一段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测试通过。
要求旗子~下次欢迎给点分哦~

大虾们 帮忙啊 简单的~~~~ 跪求~~~大虾帮忙~~~~简单的问题帮帮我啊！！！ 大虾们``````帮忙啊````````````` 大虾们帮忙啊 大虾们帮忙啊 大虾们帮忙啊～～～～～ 问大虾们很简单的问题 大虾们，回答个简单的问题 又要求助大虾们啊～问题可能很简单～我用迅雷下载～为什么单击右键没看见使用迅雷下载的选项啊～谢谢帮忙 各位大虾们帮忙啊！