评定等级() Dim i As Integer For i = 3 To 11 t = Sheets(1).Cells(
评定等级() Dim i As Integer For i = 3 To 11 t = Sheets(1).Cells(
Dim a(1 To 10) As Integer Dim i As Integer a(1) = 1 For i =
VB dim x as integer dim i as integer x = 100 for i = 1 to 10
Dim i As Integer,n As Integer For i = 0 To 50 i = i + 3 n =
dim i as integer dim sum as integer sum=0 for i=0 to 5 sum=s
Private Sub Command1_Click() Dim i,j As Integer For i = 3 To
DIM AS INTEGER A(6),I,T,J,P T=0 FOR I=1 TO 6:A(I)=7-I:NEXT F
Dim x(3,5) As Integer For i = 1 To 3 For j = 1 To 5 x(i,j) =
Dim ia(1 To 10) As Integer,imin As Integer,n As Integer,i As
vb程序Dim a(1 To 20) As Integer,i As Integer,j As Integer
dim a(10,10) as integer for i=1 to 10 for j=1to 10 a(i,j)=i*
能不能再帮我看一道题sum Fun (a() as integer,x as integer) for i = 1 to