用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 su