Question

定义一个具有15个元素的一维数组，并对其用inputbox（）函数进行赋值，然后求出

定义一个具有15个元素的一维数组，并对其用inputbox（）函数进行赋值，然后求出定义一个具有15个元素的一维数组，并对其用inputbox（）函数进行赋值，然后求出元素值为奇数的元素的和 vb编程题

Answer 1

Private Sub Command1_Click()
  Dim a(15) As Integer
  Print "输入的15个数是："
  For i = 1 To 15
    a(i) = InputBox("a(" & i & ")=")
    Print a(i);
    If a(i) Mod 2 = 1 Then s = s + a(i)
  Next i
  Print
  Print "元素值为奇数的元素的和="; s
End Sub

追问

程序运行不了

追答

有图有真相啊。

追问

可是我运行出来没有和啊