Private Sub Form_Click() Dim a(4, 5) As Integer Dim i As Integer Dim j As Integer Dim d ,x,y As Integer Randomize d = 0 For i = 1 To 4 For j = 1 To 5 a(i, j) = Int(Rnd * 90) + 10 Print a(i, j); Next j Print Next i For i = 1 To 4 For j = 1 To 5 If d < a(i, j) Then d = a(i, j) x=i y=j End If Next j, i Print "最大值是:"; d; x;y End Sub
答：忘记用vc的语法规则了，要用VB还会写详情>>
答：详情>>
答：资源间的数据交换和授权认证、安全控制都在这一层控制实现详情>>
答：分享个：P2P终结者软件~就挺厉害的~详情>>
