建立一个3行4列的二维数组，求每行元素最大值之和。

来源：百度知道编辑：UC知道时间：2024/06/30 16:06:37

有一数列，前两项分别为1，从第三项开始，后项总是前两项的和，即1、1、2、3、5、8、13、……，求这个数列的前30项及其和。
还有这个~~~谢谢啦！

'新建一个标准exe，把窗体form1的AutoRedraw设置为true
'第一个问题
Private Sub Command1_Click()
Dim IntArr%(), LineMax%, Max%
Randomize
ReDim IntArr(0 To 3, 0 To 4)
For i = 1 To 3
For j = 1 To 4
IntArr(i, j) = Int(Rnd * 100 + 1) '随机产生1-100的整数
Next j, i

Max = 0
LineMax = 0
For i = 0 To 3
For j = 0 To 4
If IntArr(i, j) > Max Then '求出每行的最大数
Max = IntArr(i, j)
End If
Next j
LineMax = LineMax + Max '计算每行最大数之和
Next i
Print "最大数之和为" & CStr(LineMax)
End Sub
'第二个问题
Private Sub Command2_Click()
Dim tmp&(), Sum&, sTmp$
Sum = 2
sTmp = "1, 1,"
ReDim tmp(1 To 30)
tmp(1) = 1
tmp(2) = 1
For i = 3 To 30
tmp(i) = tmp(i -

通过键盘对一个3行4列的二维数组输入整型数值，并按表格形式输出此数组的所有元素读入m*n 个实数放到m行n列的二维数组中,求该二维数组个行平均值,分别放到一个一维数组中,并打印一维数组如何将一个二维数组的列固定?? 写一个程序，统计3行4列的整数二维数组中有多少个奇数、多少个偶数，多少个零写一函数,使给定的一个二维数组(3×3)转置,即行列互换。帮我查下错：将一个二维数组和列的元素互换，存到另一个二维数组中！ 200分高分求助！！用多级指针和指针数组实现一个3*4的二维数组，求数组中所有元素的和及平均值用C语言编写一Total函数，求N行M列的二维数组中所有数的和请教高手,用函数调换,使给定的一个3*3的二维整型数组转置,即行列互换, 生成一个二维数组A(3,4),编写程序找出其中的非零元素及所在行号和列号! (VB)