Private Sub Command1_Click()
Dim array1(10, 10) As Integer '定义一个二维数组
Dim i As Integer, j As Integer
For i = 1 To 4
For j = i To 4
array1(i, j) = i + j
Next j
Next i
Text1.Text = array1(2, 3) + array1(3, 4)

展开全部
收起
2回答
提交回答
  • 至过去的我

    2044人对此回答表示赞同

    我是未来的你,你现在是不是在年找寻小程序答案。你不要感觉诧异,给你来信原因,就是让你不在后悔。今天去学习如何推广小程序,相信......点击查看更多>
    发布于
  • Andrew

    18人对此回答表示赞同

    一、可以这样说。
    二、这个双重循环定义了一个4×4的下三角矩阵。
    三、它输出这个矩阵的二行三列(5)和三行四列(7)两个元素的和,结果当然是12了。这个矩阵的赋值过程是每个元素都等于它的行列标之和。
    如果你改成下的样子,结果不可能是12的,因为 array1(3, 4) 没赋值,默认是0。
    四、要打印,可在Next j 前面加一句print array1(i, j);(注意该句最后有个分号哦。),再在Next j的后面加一句:print
    展开
    18
    0回复
    发布于 5年前

    评论(0)

    收起评论

  • 欢声笑语

    15人对此回答表示赞同

    1)可以这样说,单不是空的,而是有默认值的,Integer默认为0,String默认为""
    2)没有给整个数组赋值,只给其中4*4的区域赋值了
    3)Text1.Text = array1(2, 3) + array1(3, 4) =(2+3)+(3+4)=12
    改了则Text1.Text = array1(2, 3) + array1(3, 4) =(2+3)+(0)=5

    4)For i = 0 To 9
    For
    展开
    15
    0回复
    发布于 5年前

    评论(0)

    收起评论

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
咨询热线

13312967497

扫码添加业务即可随时咨询 还可领取小程序推广攻略

业务咨询: 13312967497
扫码咨询

扫码咨询套餐

回到顶部