dim a as integer ‘定义一个整形变量a
a=0 'a是用来分行的，这里是用来打印的，如果不分行，显示结果会很难看，所以加了个a，楼主也可以去掉
for i= 1 to 100 ’执行100次循环，也就是历数从1到100这几个数
if i mod 3=0 then '判断历数的数是否能被3整除，如果可以被整除的话
a=a+1 '数出这是第几个数
print i & "、" ; '打印出这个被3整除的数，后面的;是连续不分行打印符号，“、”是为了页面打印美观
if a mod 5 =0 then '当一行满5个数时，自动换行
end if
end if
next i
结束，这个是用for 语句写的，当然也可以用do loop和while wend语句写可能更简单，下面举个例子，这次为了让楼主读懂就是纯打印，不考虑打印的美化，楼主可参上面的例子自己美化
while wend例子：
dim i as integer
i=1
while i<=100
if i mod 3=0 then
print i
end if
i=i+1
wend
do……loop例子
dim i as integer
i=1
do while i<=100 ’这里如果用until就是 do until i>100
if i mod 3=0 then
print i
end if
i=i+1 ‘这里的i变量就要自己加咯
loop
总结下，思路就是定义个循环，历数1-100之间的所有数（for,do……loop,while)，然后用选择判断这个数字是否能被3整除（if i mod 3=0 then),可以就打印。不过楼主注意的是，第一个例子中的a变量是控制每行数量的，可以在看懂后面和基础的去掉a变量的语句后，再去研究a变量
运行条件:form1上有一个文本框,名称text1,一个按钮,名称command1
运行结果显示在text1里面
Private Sub Command1_Click()
Dim i As Integer
Me.Text1.Text = ""
For i = 1 To 100
If i Mod 3 = 0 Then
Me.Text1.Text = Me.Text1.Text & i & " "
End If
Next
End Sub本回答被提问者采纳
vb 程序:计算1-100之间所有能被3整除的数之和
include <stdio.h>int main(){int i, sum_3 = 0, sum_5 = 0;for (i = 1; i <= 100; ++i){if (i % 3 == 0){sum_3 += i;}if (i % 5 == 0){sum_5 += i;}}printf("1-100之间能被3整除的所有数字之和:%d\\n", sum_3);printf("1-100之间能被5整除的所有数字...
用VB如何写1到100之间所有能被3整除而不能被7整除的整数的和与个数的...
VB代码如下：Dim i, jj = 0For i = 1 To 100If (i Mod 3 = 0 Or i Mod 7 = 0) And i Mod 21 <> 0 ThenPrint i,j = j + 1If j = 7 ThenPrintj = 0End IfEnd IfNext i
vb题:输出1~100自然数中被3整除的数据的个数几它们的和。
Print "1~100自然数中能被3整除的数据的个数为：" & n Print "以及它们的和为：" & s End Sub
VB编程产生100个0-100之间的随机整数找出其中能被3整除的数,并且按由...
函数代码如下：Public Function sj() As Integer Randomize sj = Int(Rnd * 98) + 2End Function二、举个例子，要产生10个1到100之间的随机整数，如下：1、打开VB6.0开发软件，新建一个标准exe工程；2、在设计界面上添加一个Text控件和一个Command控件；3、Command1控件的Caption属性设置为"产生10...
VB.求出0~100的整数能够被3整除的个数以及能够被7整除的个数。程序...
private sub command1_click dim sum as integer'和 dim count as integer'个数 sum=0 count=0 text3.text=""For i=1 to 100 If i Mod 3=0 And i Mod 7<>0 Then count=count+1 sum=sum+i text3.text=text3.text & i'text3显示都有什么数 End If Next text1.text="和为:"+...
我想在VB中输出1-100间能被3整除的数,并且每行输出8个,怎样换行,并且...
Private Sub form_Click()Dim i, s, n, p p = 2 '位置控制，这里指2个空格 For i = 1 To 100 If i Mod 3 = 0 Then s = s & i & Space(p)n = n + 1 If n Mod 8 = 0 Then Print s s = ""End If End If Next End Sub ...
求出1到100的自然数系列中能被3整除的所有数之和,并在文本框中输出结果...
3,6,9,12...96,99共有（3+99）÷3+1=35个 （3+99）×35÷2=1785即求出1到100的自然数系列中能被3整除的所有数之和1785
求1到100之间能被3整除且能被7整除的数的和的vb编辑
sub command1_click()dim i as integer, s as integer s = 0 for i = 1 to 100 if (i mod 3 = 0 and i mod 7 = 0) then s = s + i next msgbox s 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程序将1到100自然数中同时被3和5整除的数打印出来,并统计其个数...
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同时整除"End If Next i Print msg ...
