vb编程n以内5或7的倍数之和,编程统计1~n之内是3的倍数或7的倍数的个数
来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/11/16 09:16:23
vb编程n以内5或7的倍数之和,编程统计1~n之内是3的倍数或7的倍数的个数
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吧,我还有一票问题呢?
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吧,我还有一票问题呢?
vb编程n以内5或7的倍数之和,编程统计1~n之内是3的倍数或7的倍数的个数
用VB编程,统计1~100中满足3的倍数,7的倍数的数各为多少?
VF编程统计1~100之间3的倍数的个数和7的倍数的个数.
编程求200到300内5的倍数或7的倍数之和(一个数如果同时是5和7的倍数,只能加一次)
编程vb题,编程求200–400范围内5的倍数或7的倍数(一个数如果同时是7和5的倍数,则只能加
vf 随机输入自然数n以内所有是5的倍数的自然数并统计个数
编程计算100—200之间7的倍数之和
java里 编程计算1至50中是7的倍数的数值之和
VF编程,1到100之间,所有即是3的倍数又是7倍数的自然数
VB编程题.输入一个整数判断他是否是5 的倍数
在50以内,所有3的倍数或7的倍数有几个?它们的和是几?
用VB分别统计1-100中,满足3的倍数,7的倍数的数各有多少