VB编程题 速度啊

来源：百度知道 编辑：UC知道 时间：2024/05/09 09:14:56
用穷举法程序设计

1) 一个正整数,分别被5,7,9除,余数为1,2,3,编程求满足此条件的最小数?

2)有5位同学去照相,每次照2个同学,共可照出多少张不相同的照片?

给出代码
人左右互换又是一张照片 所以有20种 帮忙改一下

第一题：
Private Sub Form_Load()
Dim i As Integer
Dim n As Integer
n = 10000
For i = 1 To n
If i Mod 5 = 1 Then
If i Mod 7 = 2 Then
If i Mod 9 = 3 Then
MsgBox (i)
Exit For
End If
End If
End If
Next i
End Sub

结果是：156

第二题：
Private Sub Form_Load()
Dim stu As Integer
stu = 5
Dim Num As Integer
Num = 0
While (stu <> 0)
Num = 2*(Num + 1 * (stu - 1))
stu = stu - 1
Wend
MsgBox (Num)
End Sub

结果是:20

每次照有2种情况

思路:5个人中取一个与其他4个照 有4种照法
然后4个人中取一个与其他3个照 有3种照法
然后3个人中取一个与其他2个照 有2种照法
然后剩下2个人只有1种照法
4+3+2+1=10 *2=20

5个人又不多，你自己排下看看.能排出40种？？
给5个人编号,分别叫1,2,3,4,5
总共的可能性是:12,13,14,15,23,24,25,34,35,45
你的意思是 21，31这种的也算？

Private Sub Command1_Click()
Dim i As Integer '该自然数
Do Until i > 9999 '最大值
i =