VB程序，非常感谢
答案:1 悬赏:20 手机版
解决时间 2021-03-09 13:52
- 提问者网友：感性作祟
- 2021-03-08 17:00
VB程序，非常感谢
最佳答案
- 五星知识达人网友：掌灯师
- 2021-03-08 17:34
Private Sub Command1_Click()
Dim a(3, 3) As Integer, sum As Integer
Dim i As Integer, j As Integer
For i = 0 To 3
For j = 0 To 3
a(i, j) = Int(Rnd * 11)
Print a(i, j); " ";
Next
Print
Next
Print
For i = 0 To 3
sum = sum + a(i, i)
Next
Print sum
End Sub
Dim a(3, 3) As Integer, sum As Integer
Dim i As Integer, j As Integer
For i = 0 To 3
For j = 0 To 3
a(i, j) = Int(Rnd * 11)
Print a(i, j); " ";
Next
Next
For i = 0 To 3
sum = sum + a(i, i)
Next
Print sum
End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯