Dim strOut As String
strOut = ""
For i = 100 To 200
If (i Mod 3 = 0) And (i Mod 5 = 0) Then
strOut = strOut & i & ","
End If
Next
Picture1.print "100-200之间能被3或5整除的数有:"
Picture1.print strOut '显示不下来的话换行输出自己解决下.
VB 问题 100到200能被3或被5整除的数,每行输出10个数 代码要怎么写啊...
Private Sub Form_Click()Dim i As Integer, n As Integer Cls n = 0 For i = 100 To 200 If i Mod 3 = 0 Or i Mod 5 = 0 Then Print i;n = n + 1 If n Mod 10 = 0 Then Print End If Next End Sub
找出100~200之间能同时被3和5整除的数,要求:用FOr next循环语句找出满 ...
for i= 100 to 200 if i mod 3=0 and i mod 5=0 then picture1.print i '以多行显示 'picture1.print i ; '以单行形式显示 end if next i 先在窗体上画一个图片框
编写VB程序将1到100自然数中同时被3和5整除的数打印出来,并统计其个数...
For i = 1 to 100 If i\/2 i\\2 Then msg =msg & i & "是奇数"Else msg =msg & i & "是偶数"Next i Print msg 能被3和5同时整除:For i = 1 to 100 If i\/3 = i\\3 And i\/5 = i\\5 Then msg =msg & i & "能被3和5同时整除"Else msg =msg & i & "不能被3和5...
编写VB程序将1到100自然数中同时被3和5整除的数打印出来,并统计其个数...
新建一个工程，添加一个command1,添加一个list1 private sub command1_click()dim sum as long sum = 0 for i = 1 to 1000 if i mod 5 = 0 and i mod 7 = 0 then list1.additem i:sum = sum +1 next msgbox "1-1000中能被5和7同时整除的数有"& sum & "个"end sub ...
VB编程求1到1000中能被3整除的数的个数
dim num3,num7 as integer for i=1 to 1000 if i mod 3=0 then num3=num3+1 end if if i mod 7=0 then num7=num7+1 end if next 最后num3就是能被3整除的数的个数。num7是能被7整除的个数。
VB 输出前10个能被3或5整除的正整数
Private Sub Command1_Click()Dim x&, i&Do x = x + 1 If (x Mod 3 = 0) Or (x Mod 5) = 0 Then Print x i = i + 1 End If If i >= 10 Then Exit DoLoopEnd Sub
VB 代码计算能被3或者5整除数三位数之和
Dim i As Integer, x As Long For i = 100 To 999 If i Mod 3 = 0 Or i Mod 5 = 0 Then x = x + i End If Next i Label1.Caption = x 请留意“能被3或者5整除”中的“或者”两字，应该用Or。如果是“能被3和5整除”才用And。另外x设为Integer有可能会溢出，应设为Long ...
输出100到200之间不能被3整除的数
这们是不对的，例如：这样的程序100也会输出，因为100\/15的余数是在于0的。但是100不能被3整除，可能被5整除。这样才是对的：for i = 100 to 200 if i mod 3 > 0 and i mod 5 > 0 then print i next
急!!!统计输出100至999内能被3整除且至少有一位是5的整数的个数 要VB...
Private Sub Command1_Click()Dim i As Integer m = 0 i = 100 Do While i <= 999 If i Mod 3 = 0 Then a = i Mod 10 b = (i - a) \\ 10 Mod 10 c = i \\ 100 If a = 5 Or b = 5 Or c = 5 Then m = m + 1 End If i = i + 1 Loop Print m End Sub ...
...Basic程序: 输入一个整数,判断它能否被3或5整除,如能整除就输出该...
dim i as long dim lM3 as long dim lM5 as long i = clng(val(text1.text))lM3= i mod 3 lM5= i mod 5 if lM3 = 0 or lM5 =0 then msgbox i else msgbox "No"end if
