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)ij

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

有疑问可追问

Private Sub Command1_Click()

Dim i As Integer

Dim a As Integer, b As Integer, c As Integer

For i = 100 To 999

a = i \ 100                '求三位数的百位上的数

b = (i - a * 100) \ 10     '求三位数的十位上的数

c = i - a * 100 - b * 10   '求三位数的个位上的数

If a ^ 3 + b ^ 3 + c ^ 3 = i Then   '判断是否为水仙花数

Print i                         '如果是水仙花数则输出.

End If

Next i

End Sub

用三重循环做：

Private Sub Command1_Click()

Dim i As Integer, j As Integer, k As Integer

Dim s As Integer

For i = 1 To 9

   For j = 0 To 9

      For k = 0 To 9

         s = i * 100 + j * 10 + k

If i ^ 3 + j ^ 3 + k ^ 3 = s Then

            Print s

         End If

      Next k

Next j

Next i

End Sub

我好奇的是，这是什么人物出的题目。目的是什么？空选为对！选就错！

Private Sub Command1_Click()

For I = 1 To 4 '要打印四行内容

For J = 0 To 1 '每行打印两个字符

Print Chr$(65 + I)'这两个字符都是 Chr$(65 + I)，分号；表明要紧挨着打印出来

Next

Print '换一行，打印内容为空，视为换行

Next

End Sub

'输出结果是

'

'

'BB

'CC

'DD

'EE

张志晨

---