dim a(10,10) as integer for i=1 to 10 for j=1to 10 a(i,j)=i*
来源:学生作业帮 编辑:作业帮 分类:数学作业 时间:2024/05/12 04:54:01
dim a(10,10) as integer for i=1 to 10 for j=1to 10 a(i,j)=i*j next j,i print a(2,2)+a(3,3)
上面的每一步都是什么意思,麻烦备注出来
上面的每一步都是什么意思,麻烦备注出来
太乱了,给你改清楚了.
'定义名称为a的二维数组,内有元素10*10=100个
Dim a(10,10) As Integer
'大循环:以i为变量循环10次
For i = 1 To 10
'小循环:以j为变量循环10次
For j = 1 To 10
'计算i乘以j,把结果按顺序存入数组,每次循环存1个
a(i,j) = i * j
Next i
Next j
'共循环了100次结束.输出数组中某两个元素之和
Print a(2,2) + a(3,3)
你可以把a看成是一张纸
--每次大循环,需要纸上写一行字,每次小循环分10次共写10个字
--一共写10行.
那么最后一句Print a(2,2) + a(3,3) 的意思就是
计算纸上第2行第2个字 + 第3行第3个字的和
再问: for i=1 to 4 x=2 for j=1 to 3 x=1 for k=1 to 2 x=x+3 next k next j next i print x 麻烦你把这个也帮我写出来,谢谢了。
再答: For i = 1 To 4 '循环4次 x = 2 '每次到这里x变成2 For j = 1 To 3 '循环3次 x = 1 'x每次到这里变成1 For k = 1 To 2 '循环2次 x = x + 3 'x增加3(1循环加两次3变成7) Next k Next j '每次到这里x总等于7 Next i '输出x的结果,等于7 Print x
'定义名称为a的二维数组,内有元素10*10=100个
Dim a(10,10) As Integer
'大循环:以i为变量循环10次
For i = 1 To 10
'小循环:以j为变量循环10次
For j = 1 To 10
'计算i乘以j,把结果按顺序存入数组,每次循环存1个
a(i,j) = i * j
Next i
Next j
'共循环了100次结束.输出数组中某两个元素之和
Print a(2,2) + a(3,3)
你可以把a看成是一张纸
--每次大循环,需要纸上写一行字,每次小循环分10次共写10个字
--一共写10行.
那么最后一句Print a(2,2) + a(3,3) 的意思就是
计算纸上第2行第2个字 + 第3行第3个字的和
再问: for i=1 to 4 x=2 for j=1 to 3 x=1 for k=1 to 2 x=x+3 next k next j next i print x 麻烦你把这个也帮我写出来,谢谢了。
再答: For i = 1 To 4 '循环4次 x = 2 '每次到这里x变成2 For j = 1 To 3 '循环3次 x = 1 'x每次到这里变成1 For k = 1 To 2 '循环2次 x = x + 3 'x增加3(1循环加两次3变成7) Next k Next j '每次到这里x总等于7 Next i '输出x的结果,等于7 Print x
dim a(10,10) as integer for i=1 to 10 for j=1to 10 a(i,j)=i*
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 AS INTEGER A(6),I,T,J,P T=0 FOR I=1 TO 6:A(I)=7-I:NEXT F
vb程序Dim a(1 To 20) As Integer,i As Integer,j As Integer
Private Sub Command1_Click() Dim i,j As Integer For i = 3 To
Dim x(3,5) As Integer For i = 1 To 3 For j = 1 To 5 x(i,j) =
Dim a%(3,3),i%,j% For i = 1 To 3 For j = 1 To 3 If j > land
Dim ia(1 To 10) As Integer,imin As Integer,n As Integer,i As
我写这个程序时 dim a(10)as interger dim ias interger for i= 10 to 1
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