用vb中求一个4位数各位数字之和的代码

2025-02-27 08:24:55

推荐回答（2个）

回答1：

Private Sub Command1_Click()
 Dim a, b, c, d, e
 a = 1234
 b = Int(a \ 1000)
 c = Int((a - b * 1000) \ 100)
 d = Int((a - b * 1000 - c * 100) \ 10)
 e = a Mod 10
 Print b + c + d + e

End Sub

Private Sub Command1_Click()
 Dim a, b, c, d, e
 a = 1234
 b = Int(a \ 1000)
 c = (a Mod 1000) \ 100
 d = (a Mod 100) \ 10
 e = a Mod 10
 Print b + c + d + e

End Sub

回答2：

Private Sub Command1_Click()
Dim a(4) As Integer
x = Text1.Text
For i = 1 To 4
a(i) = Mid(x, i, 1)
Next
For i = 1 To 4
Print a(i);
Next
End Sub