在窗体上画一个命令按钮,其名称为command1,然后编写如下代码: Option Base 1 Private Sub Command1_ Click()Dim ArrArr = Array(43, 68f -25, 65, -78, 12, -79, 43, -94, 72)pos = 0neg = 0For k = 1 To 10 If Art(k) > 0 Then Else End If
主观题
在窗体上画一个命令按钮,其名称为command1,然后编写如下代码: Option Base 1 Private Sub Command1_ Click()Dim ArrArr = Array(43, 68f -25, 65, -78, 12, -79, 43, -94, 72)pos = 0neg = 0For k = 1 To 10 If Art(k) > 0 Then Else End If