vb程序设计教程第四版电子书(vb程序设计教程(第四版)答案第五章)

本文目录
vb程序设计教程(第四版)答案第五章
dim i as long
dim sum as long
for i = 100 to 200
if (i mod 3 《》 0) and (i mod 2 《》 0) then
sum = sum +i
end if
next i
msgbox(sum)
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)
Debug.Print 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
有疑问可追问

更多文章:
majority of(the majority of 和 a majority of的区别以及用法例句)
2026年10月11日 07:40
another time(another time和other time的区别)
2026年10月11日 05:00








