vb输入一维数组n个数字，并对下标为奇数的数组元素的值进行累加。

Question

如题所述

Answer 1

Dim n As Integer
Dim a() As Integer
Dim i As Integer
Private Sub Command1_Click()
n = Val(Text1.Text)
Dim str  As String
str = ""
ReDim a(n)
For i = 1 To n
    a(i) = InputBox("ÇëÊäÈëµÚ" & i & "¸öÊý×éÔªËصÄÖµ")
    str = str & a(i) & " "
Next i
Label4.Caption = str
End Sub

Private Sub Command2_Click()
Dim sum As Integer
sum = 0
For i = 1 To n
    If i Mod 2 <> 0 Then
        sum = sum + a(i)
    End If
Next i
Text2.Text = sum
End Sub