ZKX's LAB

用VB编写:找出所有的“水仙花数”。 “水仙花数”是指一个三位数,其各位数字的立方和等于该数本身 vb三位数的水仙花数

2020-10-02知识24

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编写:找出所有的“水仙花数”。 “水仙花数”是指一个三位数,其各位数字的立方和等于该数本身 vb三位数的水仙花数

用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编写:找出所有的“水仙花数”。 “水仙花数”是指一个三位数,其各位数字的立方和等于该数本身 vb三位数的水仙花数

VB 输入1000以内 水仙花数(即三位数,各位数字立方和等于该数)我用TEXT输出结果,却只显示一行,为什么? Text1.Text=S 这句该改为Text1.Text=Text1.Text&\"\"

用VB编写:找出所有的“水仙花数”。 “水仙花数”是指一个三位数,其各位数字的立方和等于该数本身 vb三位数的水仙花数

#水仙花数

随机阅读

qrcode
访问手机版