Question

VB.求出0~100的整数能够被3整除的个数以及能够被7整除的个数。程序代码怎么写？

Answer 1

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="和为:"+ sum
text2.text="个数为:"+coun
end sub

Answer 2

Private Sub Command1_Click()
Print "0~100的整数能够被3整除的个数="; 100 \ 3 + 1
Print
Print "0~100的整数能够被7整除的个数="; 100 \ 7 + 1
End Sub

Answer 3

就是能被21整除的个数

追问

不是，我要的是程序代码

追答

dim a as integer
a=val(text1)
if a mod 3=0 and mod 7=0 and a <100 then
msgbox a &”能被3和7整除”

手机太难打了，就是这个意思

外加循环

Answer 4

这么简单

追问

额，我不会←_←