UC知道求vb高手
来源：百度知道 编辑：UC知道 时间：2024/05/16 12:43:55
1.求出矩阵中最大元素所在的行和列，输出其值行号列号
2。求一个3*3矩阵的对角线元素之和
3、找出二维数组N*M的鞍点、输出鞍点所在的行与列、无鞍点输出无
4、建立并输出一个9*9的矩阵、两对角线元素为1其余为o
5、设某班公式名同学、评奖学金，超过平均成绩10%为一等，超过5%的二等。编程，输出获奖学金的学生名单（包括姓名、学号、成绩、奖学金等级）。给上答案不胜感激！！！！！！！！！！！谢谢！！！
鞍点就是指它在本行中值最大在本列中值最小！！！第五题也做啊 ！！谢谢了
2。求一个3*3矩阵的对角线元素之和
3、找出二维数组N*M的鞍点、输出鞍点所在的行与列、无鞍点输出无
4、建立并输出一个9*9的矩阵、两对角线元素为1其余为o
5、设某班公式名同学、评奖学金，超过平均成绩10%为一等，超过5%的二等。编程，输出获奖学金的学生名单（包括姓名、学号、成绩、奖学金等级）。给上答案不胜感激！！！！！！！！！！！谢谢！！！
鞍点就是指它在本行中值最大在本列中值最小！！！第五题也做啊 ！！谢谢了
option base 1
private sub cmd1_click()
dim i%,j%,man%,a%,b%
dim a(2,4) as integer
for i=1 to 2
for j=1 to 4
a(i,j)=rnd*100
print a(i,j);
next j
print
next i
max=a(1,1)
for i=1 to 2
for j=1 to 4
if a(i,j)>=max then max=a(i,j)
a=i:b=j
next j
next i
print "max=" & max ,"第"&str(i) & "行","第" & str(j) &"列"
2:
dim a(1 ot3,1 to 3) as integer
ststic sum%
sum=0
for i=1 to 3
for j=1 to 3
if i=j or i+j=4then sum=sum+a(i,j)
next j
next i
print sum
3:
鞍点？鞍点是什么？不清楚
4:
Option Base 1
Private Sub cmd1_click()
Dim a(9, 9) As Integer
For i = 1 To 9
For j = 1 To 9
If i = j Or i + j = 10 Then
a(i, j) = "1"
Else
a(i, j) = "0"
End If
Print a(i, j);
Next j
Print
Next i
End Sub
5: