作业帮 > 综合 > 作业

vb编程n以内5或7的倍数之和,编程统计1~n之内是3的倍数或7的倍数的个数

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/08 06:51:11
vb编程n以内5或7的倍数之和,编程统计1~n之内是3的倍数或7的倍数的个数
 vb编程n以内5或7的倍数之和,还有编程统计1~n之内是3的倍数或7的倍数的个数,下面是两个程序的图片截图,拜托编成像图片那样的,

n以内5或7的倍数之和:
Private Sub Command1_Click()
n = Val(Text1.Text)
For i = 5 To n
If i Mod 5 = 0 Or i Mod 7 = 0 Then Sum = Sum + i
Next
MsgBox n & "以内5或7的倍数之和=" & Sum
End Sub
1~n之内是3的倍数或7的倍数的个数
Private Sub Command1_Click()
n = Val(InputBox("输入n"))
For i = 1 To n
If i Mod 3 = 0 Or i Mod 7 = 0 Then j = j + 1
Next
Label1.Caption = "1到" & n & "中是3或7的倍数的个数有" & j & "个"
End Sub
再问: 大神留个qq吧,我还有一票问题呢?