VB程序设计实例 （韩信点兵）
“韩信点兵，多多益善”这句话大家都知道，那究竟这“多多”的士兵共有多少呢？韩信说：“如果每3个人编为一队，那最后剩下1个人；如果每5个人编为一队，那最后剩下2个人；如果每7个人编为一队，最后也剩下2个人。请你自己算一个，我有多少士兵？”（假设士兵总数不超过 ?人）Dim a1, a2, a3, b1, b2, b3, s As Long
s = Val(zs.Text)
a1 = Val(Text1.Text)
a2 = Val(Text2.Text)
a3 = Val(Text3.Text)
b1 = Val(Text4.Text)
b2 = Val(Text5.Text)
b3 = Val(Text6.Text)
flag = True
While flag And (s > 0)
If (s Mod a1 = b1) And (s Mod a2 = b2) And (s Mod a3 = b3) Then
flag = False
Else
s = s - 1
End If
Wend
If s > 0 Then
jg.Text = Val(s)
Else
message = MsgBox("这种情况下无解。韩信数错了。^o^", 0, "出错提示")
End If
页:
[1]