VB编程picturesbox！

来源：百度知道 编辑：UC知道 时间：2024/06/30 00:33:14
编写程序，在图形框（PictureBox）中显示出所有的水仙花数。所谓水仙花数，是指一个3位数，其各数位上的数字的立方和等于该数本身。
153是水仙花数，因为153=1^3+5^3+3^3

Option Explicit

Private Sub Command1_Click()
Dim i As Long
Dim j As Long
Dim K As Long
Dim Shu As Long
Dim shuixianhua As Long
For i = 1 To 9
For j = 0 To 9
For K = 0 To 9
Shu = i * 100 + j * 10 + K * 1 '生成三位数
shuixianhua = i * i * i + j * j * j + K * K * K
If Shu = shuixianhua Then
Me.Picture1.Print Shu
End If
Next K
Next j
Next i
Me.Picture1.Print "别忘了给分"
End Sub

Private Sub Form_Load()
Picture1.AutoRedraw = True
End Sub

结果
153
370
371
407

for i=111 to 999
b=i/100
s=(i-b)/10
g=i-b-s*10
if b^3+s^3+g^3=i then picturebox1.print.i
next i