Me.AutoRedraw = True
Me.Cls
k = 0
For i = 1 To 100
If i Mod 3 = 0 And i Mod 7 = 0 Then k = k + 1
Next i
Print "1-100ä¹é´æ¢è½è¢«3æ´é¤åè½è¢«7æ´é¤çæ°æ" & k & "个"
End Sub
VB.求出0~100的整数能够被3整除的个数以及能够被7整除的个数。程序...
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="和为:"+ sum text2.text="个数为:"+coun end sub ...
用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 输出同时能被3和7整除的数
Mod 运算符，用来对两个数作除法并且只返回余数。And 运算符，用来对两个表达式进行逻辑连接。假设某数是i：i Mod 3 = 0 And i Mod 7 = 0 Dim i As Long For i = 1 To 1000 If i Mod 3 = 0 And i Mod 7 = 0 Then Print i Next ...
vb编程:求在[1~1000]区间中的所有整数中能被3整除的数的个数及能被7...
private sub command1_click()dim i,a,b for i=1 to 1000 if i mod 3=0 then a=a+1 if i mod 7=0 then b=b+1 next print "1~1000中能被3整除的数的个数=" & a print "1~1000中能被7整除的数的个数=" & b end sub ...
求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整除的数据的个数几它们的和。
Private Sub Command1_Click()Dim i As Integer, n As Integer, s As Integer For i = 1 To 100 If i Mod 3 = 0 Then n = n + 1 s = s + i End If Next i 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题,求200以内能被3和能被7整除的个数
Private Sub Command1_Click() MsgBox ("200以内能同时被3和7整除的个数: " & 200 \\ 21 & vbCrLf & "能被3或7整除的个数:" & 200 \\ 3 + 200 \\ 7 - 200 \\ 21)End Sub
vb编写程序 将1~100之间能同时被2和7整除的整数乘积求出来,并将能被...
如图所示，望采纳。。。
