UC知道请高手用vb编程
来源：百度知道 编辑：UC知道 时间：2024/05/17 01:20:21
题目：1. 单击窗体产生10个两位的随机正整数，计算并显示出最大的数据和其在数组中的位置。
2.求出所有水仙花数。（水仙花数是指3位正整数，其各位数字的立方和等于该正整数本身，如：407＝4×4×4 + 0×0×0 + 7×7×7 ）
2.求出所有水仙花数。（水仙花数是指3位正整数，其各位数字的立方和等于该正整数本身，如：407＝4×4×4 + 0×0×0 + 7×7×7 ）
Private Sub Form_click()
Dim n(1 To 10) As Integer
Randomize
For i = 1 To 10
n(i) = Int(Rnd * 90 + 10)
Print n(i)
Next
Max = -1
For i = 1 To 10
If n(i) > Max Then
Max = n(i)
wz = i
End If
Next
Print "max="; Max; "位置为"; wz
For i = 100 To 999
m = i Mod 10
nn = (i \ 10) Mod 10
mm = i \ 100
If m ^ 3 + nn ^ 3 + mm ^ 3 = i Then
Print i; "="; mm; "^3+"; nn; "^3+"; m; "^3"
End If
Next
End Sub