(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 
展开
 我来答
吹花PM
2012-08-05 · TA获得超过946个赞
知道小有建树答主
回答量:635
采纳率:0%
帮助的人:607万
展开全部
二维数组创建 ,调用示例
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
本回答被网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
start1902
推荐于2018-04-27 · TA获得超过261个赞
知道小有建树答主
回答量:183
采纳率:100%
帮助的人:90.9万
展开全部
就这几个数么?

输入数组方法
sub a()

dim shu()
shu =array(25,36,78,13,12,26,88,93,75,18)

end sub

没搞懂,怎么区分二维,根据每个数的个位和百位么?

希望我的回答对你有所帮助
本回答被网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
四十五度的主人
2012-08-05 · 超过59用户采纳过TA的回答
知道小有建树答主
回答量:136
采纳率:100%
帮助的人:137万
展开全部
有一个问题,你的数据是写在什么地方的?
如果需要手动输入的话:
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
不过我想没这么简单吧?
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
为离散的的撒
2012-08-04
知道答主
回答量:45
采纳率:0%
帮助的人:12.1万
展开全部
求解。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(2)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式