利用VB输出n阶矩阵
1个回答
展开全部
Dim str As String = ""
Dim a(9, 9), i, j, temp As Integer
For i = 1 To 9
For j = 1 To 9
a(i, j) = Int(Rnd() * 90 + 10)
str = str & a(i, j).ToString & " "
Next
str = str & vbCrLf
Next
str = str & vbCrLf
temp = a(1, 1)
For i = 1 To 9
For j = 1 To 9
If a(i, j) < temp Then
temp = a(i, j)
End If
Next
Next
str = str & temp.ToString
TextBox6.Text = str
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
