Dim a(9) As Integer,x As Integer,k As Integer,I As Integer R

Dim a(9) As Integer,x As Integer,k As Integer,I As Integer R vb程序Dim a(1 To 20) As Integer,i As Integer,j As Integer Dim ia(1 To 10) As Integer,imin As Integer,n As Integer,i As Function fun(a As Integer,n As Integer) As Integer Private Sub Form_Click() Dim a As Integer,b As Integer,k As dim a(3,2) as integer VB dim x as integer dim i as integer x = 100 for i = 1 to 10 Dim a(1 To 10) As Integer Dim i As Integer a(1) = 1 For i = Private Sub Command1_Click() Dim i As Integer,s As Integer,n VB中的Dim sum As Integer语句 Private Function p1(x As Integer,y As Integer,z As Integer) dim i as integer dim sum as integer sum=0 for i=0 to 5 sum=s