Question

用vb编写 韩信点兵:7人排队余3人,10人排队余4人,13人排队余5人,求10000以内满足条件的士兵人数

Answer 1

这个问题用编程来解答很方便，直接用穷举法，对每一个数进行验证。对于程序本身来说，这个需要的时间可能只需要几毫秒
For i = 1 To 10000 ‘穷举从1-10000之间所有的数字
If i Mod 7 = 3 Then '假如i除以7,余数为3，则往下执行，否则验证下一个数字
If i Mod 10 = 4 Then '假如i除以10,余数为4，则往下执行，否则验证下一个数字
If i Mod 13 = 5 Then '假如i除以13,余数为5，则此数符合要求
Print i ’打印该数字
End If
End If
End If
Next

Answer 2

'点兵
Private Sub Command1_Click()
Dim person As Integer
For person = 18 To 10000 Step 13
If person Mod 10 = 4 And person Mod 7 = 3 Then Print person
Next person
End Sub

'大小写转换 如果不是 英文字母 自动转成 *
'text1 为转前 text2为 转后
Private Sub Command1_Click()
Dim s As String
Dim i As Integer
If Len(Text1.Text) > 0 Then
For i = 1 To Len(Text1.Text)
s = Mid(Text1.Text, i, 1)
If Asc(s) >= 97 And Asc(s) <= 122 Then
Text2.Text = Text2.Text & UCase(s)
ElseIf Asc(s) >= 65 And Asc(s) <= 90 Then
Text2.Text = Text2.Text & LCase(s)
Else
Text2.Text = Text2.Text & "*"
End If
Next i
End If
End Sub

Answer 3

'韩信点兵:7人排队余3人,10人排队余4人,13人排队余5人,求10000以内满足条件的士兵人数
Private Sub Command1_Click()
For i = 18 To 10000
a1 = i Mod 7 = 3
a2 = i Mod 10 = 4
a3 = i Mod 13 = 5
If a1 And a2 And a3 Then Print i
Next
End Sub