UC知道急急急急急！！！各位 会VB的进
来源：百度知道 编辑：UC知道 时间：2024/05/21 15:53:47
在 FORM上显示100-999的水仙花数``我哪里做错拉
并且改正 一下
Private Sub Command1_Click()
Dim ss As String
Dim n As Integer, i As Integer, a As Integer, b As Integer
n = 0
Print
For i = 100 To 999
a = Int(i / 100)
b = Int((i - a * 100) / 10)
c = Int(i - a * 100 - b * 10)
If ss = a ^ 3 + b ^ 3 + c ^ 3 Then
n = n + 1
Print Tab(5);
Print
End If
Next i
End
End Sub
在print Tab(5):后加 水仙花数n：为 spc (3) :i
并且改正 一下
Private Sub Command1_Click()
Dim ss As String
Dim n As Integer, i As Integer, a As Integer, b As Integer
n = 0
For i = 100 To 999
a = Int(i / 100)
b = Int((i - a * 100) / 10)
c = Int(i - a * 100 - b * 10)
If ss = a ^ 3 + b ^ 3 + c ^ 3 Then
n = n + 1
Print Tab(5);
End If
Next i
End
End Sub
在print Tab(5):后加 水仙花数n：为 spc (3) :i
那个END是啥啊？
不是方法也不是事件也不是标记，把它删了试试
我没看错的话，SS 打哪来的？c 好像也没有显式声明。多了一个End。
Private Sub Command1_Click()
Dim ss As String '为啥是字串？
Dim n As Integer =0
Dim a As Integer, b As Integer, c As Integer
'是不是在这该给ss赋值？
Print
For i As Integer = 100 To 999
a = Int(i / 100)
b = Int((i - a * 100) / 10)
c = Int(i - a * 100 - b * 10)
If ss = a ^ 3 + b ^ 3 + c ^ 3 Then
n = n + 1
Print Tab(5);
Print
End If
Next i
End Sub
你的代码中ss未赋值且多余，End此句是QBASIC用法，Print语句未给值，代码修改如下：
Private Sub Command1_Click()
Dim n As Integer, i As Integer, a As Integer, b As Integer, c As Integer
n = 0
For i = 100 To 999
a = Int(i / 100)
b = Int((i - a * 100) / 10)
c = Int(i - a * 100 - b * 10)
If i = a ^ 3 + b ^ 3 + c ^ 3 Then
n = n + 1
Print i
End If
Next i
End Sub
另提供一段运行正确的简单代码：
Option Explicit
Dim i As Integer
Privat