Dim x(3,5) As Integer For i = 1 To 3 For j = 1 To 5 x(i,j) =
Dim x(3,5) As Integer For i = 1 To 3 For j = 1 To 5 x(i,j) =
Private Sub Command1_Click() Dim i,j As Integer For i = 3 To
VB dim x as integer dim i as integer x = 100 for i = 1 to 10
dim a(10,10) as integer for i=1 to 10 for j=1to 10 a(i,j)=i*
DIM AS INTEGER A(6),I,T,J,P T=0 FOR I=1 TO 6:A(I)=7-I:NEXT F
var i,j:integer; begin for i:=1 to 5 do begin for j:=1 to i
dim i as integer dim sum as integer sum=0 for i=0 to 5 sum=s
Dim a(1 To 10) As Integer Dim i As Integer a(1) = 1 For i =
vb程序Dim a(1 To 20) As Integer,i As Integer,j As Integer
dim m(5,5),s(5) for i=1 to 5 s(i)=0 for j=1 to 5 m(i,j)=i+j
Dim i As Integer,n As Integer For i = 0 To 50 i = i + 3 n =
Private Sub Form_click() Dim x,i,j x = 0 For i = 0 To 1 x =