VB:用调用函数的方法找出所有三位数的水仙花数. Private Sub Command1_Click()Dim a As IntegerFor a=101 To 999 Step 1If isnum(a)=True Then Print a;NextEnd SubPrivate Function isnum(n As Integer)As BooleanDim a As Integer,b As Integer,c As Integera=n \\ 100b=(n-a*100)\\ 10c=n-a*100-b*10If n=a^3+b^3+c^3 Thenisnum=TrueElseisnum=FalseEnd IfEnd Function
用VB求三位数的水仙花数 Private Sub Command1_Click()Dim a%,b%,sum As Integer,c As String For a=100 To 999 c=CStr(a)sum=0 For b=1 To 3 sum=sum+Val(Mid(c,b,1))^3 Next b If sum=a Then 。
VB 输入1000以内 水仙花数(即三位数,各位数字立方和等于该数)我用TEXT输出结果,却只显示一行,为什么? Text1.Text=S 这句该改为Text1.Text=Text1.Text&\"\"