Question

VB 用随机函数产生20个两位数的整数，存于4行5列的二维数组中，并求出其中的最大元素

求高手帮帮我解以下几道题，急！在线等答！谢谢！
（1）VB 用随机函数产生20个两位数的整数，存于4行5列的二维数组中，并求出其中的最大元素及它的行、列坐标，将数组按行（矩阵形式）输出到窗体，最大元素及行、列下标输出在数组的下方。
（2）编一个将二进制数转换成十进制的函数TranBtoD(str$).将函数分别放在标准模块和窗体模块中，在窗体中编写调用程序，输入、输出结果分别使用文本框，程序界面自定。
（3）编写一个通用过程josc，功能是求1~50的偶数平方和与奇数平方和之差。
（4）利用函数过程，计算s=m!/(n!(m-m)!)的值

麻烦各位VB高手不吝赐教！

Answer 1

Option Explicit
Option Base 1
Dim a%(80), i%, k%, t%, b%(80)
Private Sub Command1_Click()
Me.Cls
Dim j As Integer
Randomize

For i = 1 To 80
a(i) = Int(Rnd * 90) + 10
Next i
k = 0
t = 1
For i = 1 To 79
b(i) = Abs(a(i + 1) - a(i))
If b(i) > k Then
k = b(i)
t = i
End If
Next i

Print "全部"

For i = 1 To 80
Print a(i);
If i Mod 10 = 0 Then Print
Next i

Print "最大差值:" & k & ",是" & a(t + 1) & "和" & a(t) & "之差"
End Sub
请参考

Answer 2

两位数的整数

Answer 3

第一题：
Option base 1
Private Sub Form_Click()
Dim a(4,5) as integer , i as integer ,j as integer ,s as integer
dim a_ave as single
randomize
for i=1 to 4
for j =1 to 5
a(i,j)=int(91*rnd+10)
print Format(a(i,j),"@@@@@@");
next j
print
next i
s=a(1,1)
For i=1 to 4
For j =1 to 5
if a (i,j)<s then
else s=a(i,j)
n=i ,m=j
end if
next j
next i
print "最大的元素为：" , s , "坐标为：" , n ,"行" , m , "列"

如果最大的元素有多个，则只显示最后一个的坐标