这是完整代码:Option ExplicitDim A(1 To 20) As IntegerPrivate Sub Command1_Click() '生成按钮代码Command2.Enabled = TrueDim i As IntegerFor i = 1 To 20
Randomize
A(i) = Int(Rnd() * 90 + 10)Next iEnd SubPrivate Sub Command2_Click() '查询按钮代码Dim n As Integer, i As Integern = InputBox("请输入要查询的值:")For i = 1 To