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
Private Sub Command1_Click()
Print "0~100的整数能够被3整除的个数="; 100 \ 3 + 1
Print
Print "0~100的整数能够被7整除的个数="; 100 \ 7 + 1
End Sub
就是能被21整除的个数
这么简单
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024