求VB从入门到精通的全套视频教程

无课本的人回答如下：

如希望准确回答，请给出课本上的代码和题目要求

Dim a(20, 30) As Single

Private Sub Command1_Click()

For i = 0 To 20

For j = 0 To 30

If Max < a(i, j) Then

Max = a(i, j)

DebugPrint a(i, j); i; j

End If

Next

Next

End Sub

Private Sub Form_Load() '对数组的定义，我自己用随机数做的，课本不一定这样，只是个例子

' n = 20

' m = 30

For i = 0 To n

For j = 0 To m

Randomize

a(i, j) = (Rnd 1) 100

Print a(i, j);

Next

Next

End Sub

debug的内容有多个，最后的一个就是最大值 和行、列

debug的哪一行也可以改成 text1=a(i,j) ; i ; j

有疑问可追问

以上就是关于求VB从入门到精通的全套视频教程全部的内容，包括:求VB从入门到精通的全套视频教程、如何快速学习vb、VB程序设计教程（第四版）等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！