作业帮 > 综合 > 作业

VB 程序 计算从1到12260之间所有的能同时整除3,7,9的整数的个数

来源:学生作业帮 编辑:搜搜考试网作业帮 分类:综合作业 时间:2024/06/10 20:43:50
VB 程序 计算从1到12260之间所有的能同时整除3,7,9的整数的个数
计算从1到12260之间所有的能同时整除3,7,9的整数的个数.效果图如下,注意:按钮的name属性为“Bcompute”;显示结果的文本框的name属性为"Tresult":
VB 程序 计算从1到12260之间所有的能同时整除3,7,9的整数的个数
设置了没5个换行
Private Sub Bcompute_Click()
t = 0
For i = 1 To 12260
If (i Mod 3 = 0) And (i Mod 7 = 0) And (i Mod 9 = 0) Then
Tresult.Text = Tresult.Text & i & " "
t = t + 1
If t Mod 5 = 0 Then Tresult.Text = Tresult.Text & Chr(13) & Chr(10)
End If
Next i
End Su