输出N以内的最大的6个能被3或5整除的数

来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/24 02:14:18
输出N以内的最大的6个能被3或5整除的数输出N以内的最大的6个能被3或5整除的数输出N以内的最大的6个能被3或5整除的数''回答如下:''在VB中运行如下代码:Submod3or5()DimnAsInte

输出N以内的最大的6个能被3或5整除的数
输出N以内的最大的6个能被3或5整除的数

输出N以内的最大的6个能被3或5整除的数
'回答如下:
'在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 Sub