用VB如何写1到100之间所有能被3整除而不能被7整除的整数的和与个数的程序

来源:学生作业帮助网 编辑:作业帮 时间:2024/06/06 23:11:57
用VB如何写1到100之间所有能被3整除而不能被7整除的整数的和与个数的程序
xRNP Y` $hBWƭhmI)%MЊj! ~m m|ޜ9gfΝM`z@fUUfeoj7׸MFzǣ<\b`k .>BgԲTNMN<`{ȼAz[G7Ļ=x뤶RƲrv46GF ?/$] pUy(rʢ8="s%E$?0v $V.I]踌"Y>Vs5uO&"̎РʀF(Lؕ93lJ%(?%? <:`]gEYqB34?Ѭ;66Is!ht#>$-Sb!+ݿ6=

用VB如何写1到100之间所有能被3整除而不能被7整除的整数的和与个数的程序
用VB如何写1到100之间所有能被3整除而不能被7整除的整数的和与个数的程序

用VB如何写1到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 70 Then
count=count+1
sum=sum+i
text3.text=text3.text & i'text3显示都有什么数
End If
Next
text1.text="和为:"+ sum
text2.text="个数为:"+coun
end sub