UC知道刚学vb，有几个编程想请教一下，谢谢谢啦....
来源：百度知道 编辑：UC知道 时间：2024/05/22 04:49:32
1.20个两位随机正整数围成一圈，找出每四个相邻数之和中德最大值，并指出是哪四个相邻的数。
2.找出一个“m*n”数组的鞍点。即指一个在本行中值最大，在本列中最小的数组元素。若找到了鞍点，则输出鞍点的行号列号。
3.利用随机函数生成一个由两位正整数构成的4行5列矩阵，并求出矩阵行的和最大与最小的行，并调换这两行位置。
4.有如下一个二维数组，
45 67 89
23 54 99
89 59 29
找出不同行、不同列的三组元素的乘积最大的一组，并将这三个元素按下面的形式打印出来：
A（1，*）=** A（2，*）=** A（3，*）=**
刚接触vb不久，不慎感激哦。。。
是学校要求学VB的，而且我想学习一门知识也没什么不好的，不是么？呵呵..
2.找出一个“m*n”数组的鞍点。即指一个在本行中值最大，在本列中最小的数组元素。若找到了鞍点，则输出鞍点的行号列号。
3.利用随机函数生成一个由两位正整数构成的4行5列矩阵，并求出矩阵行的和最大与最小的行，并调换这两行位置。
4.有如下一个二维数组，
45 67 89
23 54 99
89 59 29
找出不同行、不同列的三组元素的乘积最大的一组，并将这三个元素按下面的形式打印出来：
A（1，*）=** A（2，*）=** A（3，*）=**
刚接触vb不久，不慎感激哦。。。
是学校要求学VB的，而且我想学习一门知识也没什么不好的，不是么？呵呵..
////////////////第一题/////////////
\'注： 里面的第21，22，23项分别就是对应的1，2，3项
Private Sub Form_Click()
Cls
Randomize
Dim a(1 To 24) As Integer, b(20) As Integer
Print \"随机的20个两位数是：\"
For i = 1 To 20
a(i) = Int(Rnd * 90 + 10)
Print a(i) & \",\";
Next
Print
a(21) = a(1)
a(22) = a(2)
a(23) = a(3)
For i = 1 To 20
b(i) = a(i) + a(i + 1) + a(i + 2) + a(i + 4)
Print i, i + 1, i + 2, i + 3; \"项的和为：\"; b(i) & \",\"
Next
Print \"\"
Max = b(1)
For i = 2 To 20
If b(i) > Max Then Max = b(i)
Next
For i = 1 To 20
If b(i) = Max Then MsgBox \"最大的项是：\" & i & \",\" & i + 1 & \",\" & i + 2 & \",\" & i + 3 & \"的和\" & Max
Next
End Sub
/////////////////第2题/////////////