vb高手进～求任意输入十个正整数的和，代码！～！

显示全部楼层 · 2008-11-12 20:26:04

谢谢

千问 · 2008-11-12 20:26:04

Private Function sum(ByVal a As Integer, ByVal b As Integer, ByVal c As Integer, ByVal d As Integer, ByVal e As Integer, ByVal f As Integer, ByVal g As Integer, ByVal h As Integer, ByVal j As Integer, ByVal k As Integer, ByVal l As Integer) As Longsum = a + b + c + d + e + f + g + h + j + k + lEnd Function这是函数你只要调用就是...

千问 · 2008-11-12 20:26:04

Private Sub Form_Load()Dim a(11) As IntegerFor i = 1 To 10a(i) = Abs(Int(InputBox("请输入第" & i & "正整数", "输入正整数")))NextFor i = 1 To 10a(i + 1) = a(i) + a(i + 1)NextMsg...

千问 · 2008-11-12 20:26:04

Private Sub Form_Load()Dim A() As String, B As Long, i As IntegerA = Split(InputBox("输入十个正整数(以空格分开)", "提示"), " ")If UBound(A)9 ThenMsgBox "输入错误,要求十个正整数", 16, "Error"E...