VB:定义一个整型数组，

来源：百度知道 编辑：UC知道 时间：2024/06/21 09:38:40
VB:定义一个整型数组，将100个随机整数从下标1开始放入该数组中，求出该数组中具有偶数值的偶数下标元素之和

Option Explicit
Option Base 1
Dim A(100) As Integer
Dim I As Integer
Dim Sum As Integer

Private Sub Command1_Click()
Dim J As Integer
For I = 1 To 100
If (I Mod 2) = 0 And (A(I) Mod 2) = 0 Then
Sum = A(I) + Sum
J = J + 1
End If
Next I
Print J
Print Sum
End Sub

Private Sub Command2_Click()
Me.Cls
End Sub

Private Sub Command3_Click()
Dim J As Integer
Randomize
For I = 1 To 100
A(I) = Rnd * 99 + 1 '生成1到100之间的随机数，可改范围
Print "("; I; "):"; A(I);
J = J + 1
If (J Mod 10) = 0 Then Print
Next I
End Sub