问题标题：
VB.NET的题目利用随机数生成两个4*4的矩阵A~紧急紧急要求,1、分别以下三角和上三角的形式显示矩阵A2、求主对角线和次对角线上各元素之和
问题描述：
VB.NET的题目利用随机数生成两个4*4的矩阵A~紧急紧急
要求,1、分别以下三角和上三角的形式显示矩阵A
2、求主对角线和次对角线上各元素之和
顾诵芬回答：
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
MsgBox(Int(Rnd()*10))
DimnAsInteger=4
Dimi,aAsInteger
DimrAsString
Randomize()
Fori=1Ton
r=Int(Rnd()*10)
Label1.Text&=Space(n-i+1)&StrDup(i,r)+vbNewLine
Nexti
Fori=nTo1Step-1
r=Int(Rnd()*10)
Label1.Text&=Space(n-i+1)&StrDup(i,r)+vbNewLine
Nexti
ForEachcInLabel1.Text
IfIsNumeric(c)Then
a+=1
EndIf
Next
MsgBox(a)‘主对角线和次对角线上各元素之和
EndSub
另一个矩阵也是用同样方法.
你说的是不是这样?
点击显示
数学推荐
热门数学推荐