红楼梦的推荐语:VB中输出100-200之间不能被3整除的数

来源：百度文库 编辑：高考问答 时间：2024/04/25 00:35:49

Private Sub Command1_Click()
Dim x As Integer
Dim a As String
For x = 100 To 200
If Int(x / 3) < x / 3 Then
a = a & "," & x
End If
Next
MsgBox "100-200之间不能被3整除的数是" & a
End Sub

补充一下楼上的.

for x=100 to 200
if int(x/3)<x/3 then
msgbox(str(x))
end if
next

dim i as integer
for i=100 to 200
if i mod 3 <>0 then
textbox1.text=textbox1.text & i & " "
end if
next

代码是vb.net,需要一个文本框textbox1

楼上的方法不可取,找到多少个符合条件数字跳出多少个msgbox,你就慢慢按确定吧

我试过了，楼上写的很好啊

我觉得上面几位都给出了结果，但是优劣确实很明显的了！但是我觉得2楼的大哥应该直接在窗体上打印不就行了，如果在Text中输出，还得记得清楚里面原来的初值text
dim i as integer
for i=100 to 200
if i mod 3 <>0 then
print i & " "
end if
next

VB中输出100-200之间不能被3整除的数 将100——200之间不能被3整除也不能被7整除的数输出，写出QB形式 输出起始值，输出100个不能被3整除的数 在1至100的自然数中，不能被2整除，又不能被3整除，也不能被5整除的数，有几个？ 在1至100中,既不能被2整除,又不能被3整除的数有几个? 编写程序生成20个200 到300之间的随机整数存放到数组中，输出其中能被5整除的数并求出它们的和 VB 中反序 输出？ 统计在210到15870之间有多少能被19整除而不能被21整除 vfp编程1-100的平方和，300-500之间能被3整除的偶数 C语言编程中,打印出不能被7整除,也不能被3整除的数;和打印出不不能被21整除的数有区别吗?