(1/3)用VB程序编程:编写程序,把下面的数据输入一个二维数组中: 25 36 78 13 12 26 8... 30
(1/3)用VB程序编程:编写程序,把下面的数据输入一个二维数组中:25367813122688937518...
(1/3)用VB程序编程:编写程序,把下面的数据输入一个二维数组中:
25 36 78 13
12 26 88 93
75 18 展开
25 36 78 13
12 26 88 93
75 18 展开
4个回答
展开全部
二维数组创建 ,调用示例
Dim arr(9, 6) As Integer
'赋值
For i = 0 To 9
For j = 0 To 6
arr(i, j) = i * j
Next j
Next i
'输出
For i = 0 To 9
For j = 0 To 6
Print arr(i, j), '打印
Next j
Print '另起一行
Next i
Dim arr(9, 6) As Integer
'赋值
For i = 0 To 9
For j = 0 To 6
arr(i, j) = i * j
Next j
Next i
'输出
For i = 0 To 9
For j = 0 To 6
Print arr(i, j), '打印
Next j
Print '另起一行
Next i
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
就这几个数么?
输入数组方法
sub a()
dim shu()
shu =array(25,36,78,13,12,26,88,93,75,18)
end sub
没搞懂,怎么区分二维,根据每个数的个位和百位么?
希望我的回答对你有所帮助
输入数组方法
sub a()
dim shu()
shu =array(25,36,78,13,12,26,88,93,75,18)
end sub
没搞懂,怎么区分二维,根据每个数的个位和百位么?
希望我的回答对你有所帮助
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
有一个问题,你的数据是写在什么地方的?
如果需要手动输入的话:
Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
'定义一个3行4列的数组
Dim a(3, 4) As Integer
a(1, 1) = 25
a(1, 2) = 36
a(1, 3) = 78
a(1, 4) = 13
a(2, 1) = 12
a(2, 2) = 26
a(2, 3) = 88
a(2, 4) = 93
a(3, 1) = 75
a(3, 2) = 18
For i = 1 To 3
For j = 1 To 4
If a(i, j) <> 0 Then
Print a(i, j);
End If
Next j
Print
Next i
End Sub
不过我想没这么简单吧?
如果需要手动输入的话:
Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
'定义一个3行4列的数组
Dim a(3, 4) As Integer
a(1, 1) = 25
a(1, 2) = 36
a(1, 3) = 78
a(1, 4) = 13
a(2, 1) = 12
a(2, 2) = 26
a(2, 3) = 88
a(2, 4) = 93
a(3, 1) = 75
a(3, 2) = 18
For i = 1 To 3
For j = 1 To 4
If a(i, j) <> 0 Then
Print a(i, j);
End If
Next j
Next i
End Sub
不过我想没这么简单吧?
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询