VB 麻烦把A矩阵改成下三角型显示,B上三角型显示
VB 麻烦把A矩阵改成下三角型显示,B上三角型显示
Private Sub Command1_Click()
Dim a(4, 4) As Integer
Dim i As Integer, j As Integer
For i = 1 To 4
For j = 1 To 4
a(i, j) = Int(Rnd * 41 + 30)
Print a(i, j);
Next j
Print
Next i
Print
Dim b(4, 4) As Integer
For i = 1 To 4
For j = 1 To 4
b(i, j) = Int(Rnd * 34 + 101)
Print b(i, j);
Next j
Print
Next i
Private Sub Command1_Click()
Dim a(4, 4) As Integer
Dim i As Integer, j As Integer
For i = 1 To 4
For j = 1 To 4
a(i, j) = Int(Rnd * 41 + 30)
Print a(i, j);
Next j
Next i
Dim b(4, 4) As Integer
For i = 1 To 4
For j = 1 To 4
b(i, j) = Int(Rnd * 34 + 101)
Print b(i, j);
Next j
Next i
其他人气:466 ℃时间:2020-03-19 17:11:59
优质解答
Private Sub Command1_Click()Dim a(4,4) As IntegerDim i As Integer,j As IntegerFor i = 1 To 4For j = i To 4a(i,j) = Int(Rnd * 41 + 30)Print a(i,j);Next jPrintNext iPrintDim b(4,4) As IntegerFor i = 1 T...
我来回答
类似推荐
猜你喜欢
- 1英语翻译.把下文翻译成英语文章
- 2一个圆环形的铁片,外圆直径是8分米,内圆半径是3分米,他的面积是()平方分米
- 3It’s many years since I saw you last time and I _________ you at all.
- 4家乡的小河400字
- 5三顾茅庐的故事在《三国演义》第三十七、三十八回中有非常详细生动的叙述.它和《隆中对》
- 6They are on the dresser 变一般疑问句并作否定回答 怎么做还有These are my grandparents改一般疑问句
- 7both,either,all,neither的用法
- 8I failed my math
- 9he gets out of his car and walks to the shopping mall . he went out of the room and come back a
- 10在水中漂浮或悬浮的物体,若将此物体切成两半,则状态是怎样,我想问切开以后物体的浮力会发生改变吗?