代码如下：
Private Sub Command1_Click()
Dim a(1 To 6, 1 To 6) As IntegerFor i = 1 To 5
For j = 1 To 5
tmp = 99
If i < tmp Then
tmp = i
End If
If j < tmp Then
tmp = j
End If
If 6 - i < tmp Then
tmp = 6 - i
End If
If 6 - j < tmp Then
tmp = 6 - j
End If
a(i, j) = tmp
Next j
Next i
For i = 1 To 5For j = 1 To 5
Picture1.Print Tab(j * 5); a(i, j);
Next j
Picture1.Print
Next i
End Sub1
扩展资料
数组，是有序的元素序列。若将有限个类型相同的变量的集合命名，那么这个名称为数组名。组成数组的各个变量称为数组的分量，也称为数组的元素，有时也称为下标变量。用于区分数组的各个元素的数字编号称为下标。
数组是在程序设计中，为了处理方便， 把具有相同类型的若干元素按无序的形式组织起来的一种形式。这些无序排列的同类数据元素的集合称为数组。
如果你用一个变体类型的变量来Split成一个数组，那么数值型数据将被分配成整形或者浮点类型的数值。
对于数值型的数据来说：000,00,00000,0都是一样的，都表示0。而且在VB里面也只会认为是0。
但是，像100，这样的数字，后面的0是不能省略的，数学常识。
只有当一个数字，用字符串型表示的时候，"000"和"000000"才有区别。
所以，我们直接定义一个字符串类型的动态数组来读取该数据，这样，所有的数值型元素也将被当做字符串来看待，这样"000"就是一个长度为3的字符串了。如下：
Sub?Command1_Click()Dim?arr()?As?String
arr?=?Split("000，120，140，235",?"，")
Dim?i?As?Integer
For?i?=?1?To?3
Print?i?&?"="?&?Mid(arr(0),?i,?1)
Next
End?Sub
本文来自作者[含兰小郎君]投稿，不代表华瑞号立场，如若转载，请注明出处：https://www.huaruijixie.net/huarui/1729.html
评论列表（3条）
我是华瑞号的签约作者“含兰小郎君”
本文概览：代码如下：Private Sub Command1_Click() Dim a(1 To 6, 1 To 6) As IntegerFor i = 1 To 5For j...
文章不错《用VB程序将1到25的自然数依次赋值给5-5的二维数组并且输出数组的下三角。》内容很有帮助