俺是个VB白痴,求助一个题目:
编制通用的Sub过程
急用!!在线等!谢谢!
俺是个VB白痴,求助一个题目:
编制通用的Sub过程
急用!!在线等!谢谢!
兄弟,我也知道啊!可是有急用啊!
我学的是C语言啊,帮帮我吧,谢了,
提示:Sub过程的形参列表如x() As Single , m As Byte, n As Byte,xmax As Single ki As Byte,kj As Byte......x为变量,x()为数组,m为行,n为列,ki.kj为该最大值所在的位置
Option Explicit
Option Base 1
Private Sub Command1_Click()
Dim a(5, 5) As Integer
Dim i As Integer, j As Integer
Dim Row As Integer, Col As Integer
Dim Max As Integer
For i = 1 To 5
For j = 1 To 5
a(i, j) = Rnd * 90 + 10
Print a(i, j);
Next
Print
Next
Max = a(1, 1)
For i = 1 To 5
For j = 1 To 5
If a(i, j) > Max Then
Max = a(i, j)
Row = i
Col = j
End If
Next
Next
Print "最大值是"; Max
Print "行号"; Row
Print "列号"; Col
End Sub