求VB运算代码

来源：百度知道 编辑：UC知道 时间：2024/05/11 00:25:12
是一个选择电话号码的程序,前5位数相加除8余4,后6位数相加除8余5,11位数相加除6余3,第一位为1,第二位为3或者是5,请各帮忙一下,感激不尽.

楼主应该是要随机选号吧

Dim a(1 To 11) As Integer
Dim qian5 As Integer, hou6 As Integer
Dim i As Integer, Num As String
Randomize
Do
qian5 = 0
hou6 = 0
a(1) = 1
a(2) = IIf(Rnd > 0.5, 3, 5)
For i = 3 To 11
a(i) = 9 * Rnd()
Next i
For i = 1 To 5
qian5 = qian5 + a(i)
Next
For i = 6 To 11
hou6 = hou6 + a(i)
Next
Loop Until qian5 Mod 8 = 4 And hou6 Mod 8 = 5 And (qian5 + hou6) Mod 6 = 3
For i = 1 To 11
Num = Num & a(i)
Next
MsgBox "号码：" & Num, vbInformation, "号码"