vb代码优化PublicP20(1To20)AsIntegerP20(1)=10P20(2)=19P20(3)=26P20(4)=30P20(5)=36P20(6)=40P20(7)=44P20(8)=48P20(9)=51P20(10)=54P20(11)=57P20(12)=60P20(13)=63P20(14)=66P20(15)=69P20(16)=72P20(17)=74P20(18)=7

Question

vb代码优化
Public P20(1 To 20) As Integer
P20(1) = 10
P20(2) = 19
P20(3) = 26
P20(4) = 30
P20(5) = 36
P20(6) = 40
P20(7) = 44
P20(8) = 48
P20(9) = 51
P20(10) = 54
P20(11) = 57
P20(12) = 60
P20(13) = 63
P20(14) = 66
P20(15) = 69
P20(16) = 72
P20(17) = 74
P20(18) = 76
P20(19) = 78
P20(20) = 80
注：弹弹堂力度表

Answer 1

Private P20(1 To 20) As Integer
Private Sub Command1_Click()
Dim iSize
iSize = Split("10,19,26,30,36,40,44,48,51,54,57,60,63,66,69,72,74,76,78,80", ",")
For i = 1 To UBound(iSize)
P20(i) = iSize(i)
Next
End Sub