输出N以内的最大的6个能被3或5整除的数
来源:学生作业帮 编辑:百度作业网作业帮 分类:综合作业 时间:2024/07/14 10:24:40
输出N以内的最大的6个能被3或5整除的数
![输出N以内的最大的6个能被3或5整除的数](/uploads/image/z/17737951-31-1.jpg?t=%E8%BE%93%E5%87%BAN%E4%BB%A5%E5%86%85%E7%9A%84%E6%9C%80%E5%A4%A7%E7%9A%846%E4%B8%AA%E8%83%BD%E8%A2%AB3%E6%88%965%E6%95%B4%E9%99%A4%E7%9A%84%E6%95%B0)
'回答如下:
'在VB中运行如下代码:
Sub mod3or5()
Dim n As Integer
Dim i As Integer
Dim jieguo(6) As Integer
Dim j As Integer
j = 0
n = InputBox("请输入N值(N>=12)")
If n < 12 Then
MsgBox "错误,输入值应为大于12的整数 "
Exit Sub
End If
For i = n To 1 Step -1
If i Mod 3 = 0 Or i Mod 5 = 0 Then
jieguo(j) = i
j = j + 1
End If
If j > 6 Then Exit For
Next i
MsgBox n & "以内的最大的6个能被3或5整除的数字分别为:" _
& Chr(10) & jieguo(0) & Chr(10) & jieguo(1) _
& Chr(10) & jieguo(2) & Chr(10) & jieguo(3) _
& Chr(10) & jieguo(4) & Chr(10) & jieguo(5)
End Su
'在VB中运行如下代码:
Sub mod3or5()
Dim n As Integer
Dim i As Integer
Dim jieguo(6) As Integer
Dim j As Integer
j = 0
n = InputBox("请输入N值(N>=12)")
If n < 12 Then
MsgBox "错误,输入值应为大于12的整数 "
Exit Sub
End If
For i = n To 1 Step -1
If i Mod 3 = 0 Or i Mod 5 = 0 Then
jieguo(j) = i
j = j + 1
End If
If j > 6 Then Exit For
Next i
MsgBox n & "以内的最大的6个能被3或5整除的数字分别为:" _
& Chr(10) & jieguo(0) & Chr(10) & jieguo(1) _
& Chr(10) & jieguo(2) & Chr(10) & jieguo(3) _
& Chr(10) & jieguo(4) & Chr(10) & jieguo(5)
End Su
填空.输出500以内最大的10个能被13或17整除的自然数之和
用循环语句输出1000以内能被3或7整除但不能同时整除的数
Description 输入正整数n,试编程输出n以内能被5和7整除的数.(不包括n)
输出1000以内被3或5整除,但不能同时被3和5 整除的数(C语言)
C语言编程,输出300以内能被18整除的最大数
输出3位数中最大的5个能被7整除的数 c语言代码?
C语言 输出1000以内能被3整除且各位数是6的整数
C语言,输出100以内既能被3整除,又能被7整除的数.
程序设计输出100以内被7整除的数
编程:输出100 以内能被7 整除的数.
c语言程序设计输出100以内被7整除的数
编写函数fun,它的功能是:计算并输出n(包括n,n由键盘输入)以内能被5或9整除的所有自然数之和