几道VB课后上机习题 求答案

来源：百度知道 编辑：UC知道 时间：2024/06/17 01:39:30
1,求出所有水仙花数.水仙花数是指三位的正整娄,其各位数学的立方和等于该正整数本身.例如:407=4*4*4+0*0*0+7*7*7.

2,利用随机函数Rnd()生成25个正25个正整数,赋给一个5行5列的数组的每个元素,并找出最大元素的位置,在窗体中用Print语句显示数组元素的行列,并且显示最大元素及所有的位置.
是VB实用教程(第2版)郑阿奇主编 电子工业出版社的课后上机习题,如果能把所有答案传给我更好.我的EMAIL是wmking@sina.com.cn 谢谢!

1.
　　Private Sub Form_Click()
　　Dim a, b, c As Integer 'a(个)b(十)c(百)
　　For a = 0 To 9
　　For b = 0 To 9
　　For c = 1 To 9
　　If a ^ 3 + b ^ 3 + c ^ 3 = a + 10 * b + 100 * c Then
　　MsgBox 100 * c + 10 * b + a
　　End If
　　Next c
　　Next b
　　Next a
　　End Sub
　　2.
　　Sub FindMaxNum(A() As Integer, ByRef Max As Integer, ByRef MaxRow As Integer, ByRef MaxCol As Integer)
　　'定义循环变量
　　Dim I As Integer
　　Dim J As Integer
　　'假设第一个元素最大
　　Max = A(1, 1)
　　For I = 1 To 5
　　For J = 1 To 5
　　If Max < A(I, J) Then
　　Max = A(I, J): MaxRow = I: MaxCol = J
　　End If
　　Next
　　Next '
　　End Sub

　　Private Sub cmdCalc_Click()
　　'定义循环变量
　　Dim I As Integer
　　Dim J As Integer
　　'定义最大值变量
　　Dim Max As Integer
　　'定义最大值位置
　　Dim MaxRow As Integer
　　Dim MaxCol As Integer
　　'定义五行五列的数组
　　Dim A(1 To