用vb求1到1000水仙花数的编程方法
VB实现水仙花数的程序代码如下:
PrivateSubCommand_Click()
Fornum=100To999
a=numMod10
b=num\10Mod10
c=num\100
Ifa^3+b^3+c^3=numThenPrintnum
Nextnum
EndSub
实现具体步骤如下:
1.启动VB程序,新建一个标准的exe项目,如下图。
2.在窗体上绘制命令按钮(名称:命令),双击命令按钮以进入代码窗口,如下图。
3.接下来,开始为命令按钮编写单击事件。click事件实现了上面提供的程序代码,如下图。
4.按F5运行程序并单击命令按钮。水仙花产量为4:15,370,371,407,如下图。
扩展资料:
C语言实现水仙花数的代码:
#include
#include
voidmain()
{
inti,j,k,n;
printf("'waterflower'numberis:");
for(n=100;n<1000;n++)
{
i=n/100;/*分解出百位*/
j=n/10%10;/*分解出十位*/
k=n%10;/*分解出个位*/
if(n==i*i*i+j*j*j+k*k*k)
{
printf("%-5d",n);
}
}
printf("
");
}
注意事项:
VB编程的核心思想是组件编程。VB是最早引入组件编程的概念,然后被其他语言采用并成为标准,如vc++、Delphi、PowerBuilder等都采用了组件编程模型,并利用面向对象的编程技术,成为当今程序设计的发展方向之一。
VB编程,由于采用了组件技术,所以不必从底层开始窗体,控制设计,可以由工厂通过各种零件装配生产机器,通过Microsoft或第三方提供的组件,装配成所需的程序。与什么?VB是代码,它像胶水一样,把有限的代码和组件粘合在一起。结果是一个完整的应用程序。
VB有一个图形用户界面(GUI)和快速应用程序开发(RAD)系统,可以很容易地使用daos、RDO、ADO连接到数据库,或者很容易地创建活动的X控件,从而高效地生成类型安全的和面向对象的应用程序。
程序员可以使用VB提供的组件轻松快速地构建应用程序。VB的组件既可以拥有用户界面,也可以没有。这样一来服务器端程序就可以处理增加的模块。
VB使用参数计算的方法来进行垃圾收集,这个方法中包含有大量的对象,提供基本的面向对象支持。因为越来越多组件的出现,程序员可以选用自己需要的扩展库。
Private Sub Command1_Click()Dim i As IntegerFor i = 100 To 999 If (i \ 100) ^ 3 + ((i Mod 100) \ 10) ^ 3 + (i Mod 10) ^ 3 = i Then Print iNextEnd Sub
所谓的水仙花数(梅花数)是指在三位整数(100到999之间)中,百位数、十位数、个位数的立方和等于它本身,如153=1^3+5^3+3^3。程序代码如下:
Private Sub Command1_Click()
Dim i As Integer, s As Integer
Dim a As Integer, b As Integer, c As Integer
Print "100到999所有水仙花数(也叫梅花数):";
For i = 100 To 999
a = i \ 100 '取百位数
b = i \10 Mod 10 '或 b = i Mod 100 \10 取十位数
c = i Mod 10 ‘取个位数
s = a ^ 3 + b ^ 3 + c ^ 3 '水仙花数的判断依据
If s = i Then
Print i;
End If
Next i
End Sub
运行结果:
100到999所有水仙花数(也叫梅花数): 153 370 371 407
Private Sub Command1_Click()
Dim s%, s1%, s2%, t%
For s = 100 To 1000
s2 = 0
t = s
Do While t > 0
s1 = t Mod 10
t = t \ 10
s2 = s2 + s1 ^ 3
Loop
If s = s2 Then
Print "水仙花数为:"; s
End If
Next s
End Sub
随便搜一下就有了
http://baike.baidu.com/view/152077.htm?fr=ala0
“水仙花数”是指一个3位数,其各位数的立方和等于该数,编写程序,打印...
也可以直接用a、b、c三个循环搞定 '这个是VB Private Sub Form_Click()For a = 1 To 9 For b = 0 To 9 For c = 0 To 9 If a ^ 3 + b ^ 3 + c ^ 3 = 100 a + 10 b + c Then Print (100 a + 10 b + c)Next c Next b Next a End Sub 显示:153 370 371 40...
vb计算100-999有多少个水仙花数怎么写程序,用for和if语句的
通过上述程序,可以找出100至999之间的所有水仙花数。这样的程序可以帮助初学者理解循环和条件语句的基本用法,同时也能加深对水仙花数概念的理解。水仙花数的寻找过程不仅展示了编程语言的逻辑处理能力,还能够锻炼程序员的逻辑思维能力。在这个例子中,通过嵌套循环和条件判断,我们可以系统地检查每一个三位数...
VB编写“水仙花数”
Private Sub Form_Click()Dim i%, j%, m%, n For n = 100 To 999 i = n \\ 100 j = (n Mod 100) \\ 10 m = n Mod 10 If i ^ 3 + j ^ 3 + m ^ 3 = n Then Print n; "="; i; "^3+"; j; "^3+"; m; "^3"End If Next n End Sub ...
用vb编程 水仙花数 求程序。万分感谢
Private Sub Command1_Click()For i = 100 To 999 a = Mid(i, 1, 1)b = Mid(i, 2, 1)c = Mid(i, 3, 1)If a ^ 3 + b ^ 3 + c ^ 3 = i Then Debug.Print i & "=" & a & "^3+" & b & "^3+" & c & "^3"End If Next i End Sub ...
水仙花数的程序怎么写啊?
For b = 0 To 9 For c = 1 To 9 x=100 * c + 10 * b + a If a ^ 3 + b ^ 3 + c ^ 3 = a + 10 * b + 100 * c Then print x;Next c Next b Next a 这是用vb编的 我只学了这个 === C语言的"水仙花数"代码 main(){ int i,j,k;for(i=1;i<10;i++)...
如何用vb语言编写水仙花数的代码?
这个是打印所有三位数的水仙花数的代码:Private Sub Command1_Click()For a = 1 To 9 For b = 0 To 9 For c = 0 To 9 If a * 100 + b * 10 + c = a ^ 3 + b ^ 3 + c ^ 3 Then print a * 100 + b * 10 + c End If Next Next Next End Sub ...
VB 求水仙花数
你的最内层循环把C赋值为0后根本就没有把C恢复,可以 Private Sub Form_Click()Dim a1 As Integer, b1 As Integer, c1 As Integer Dim a#, b#, c#, x#, y a = 123456789 b = 1234567890 c = 1234567890 x = b y = c Do While a > 0 a1 = a Mod 10 a = a \\ 10 Do While...
VB编程,找出所有的“水仙花数”。
VB中程序如下:一个按钮,一个标签就可以了。Dim m As Integer Dim m1 As Integer Dim m2 As Integer Dim m3 As Integer 'm,m1,m2,m3最好是分开定义不然会出现ByRef参数类型不符的错误 Dim str As String Private Sub Command1_Click()For m = 100 To 999 m3 = m Mod 10 If m3 >=...
vb找出100–500之间所有的水仙花数。所谓水仙花数,是一个三位数,它的...
Private Sub Command1_Click()Dim x%, y%, z%, s%, i%, sum As SinglePrint "水仙花数为:"sum = 0i = 0For x = 1 To 9For y = 0 To 9For z = 0 To 9s = x * 100 + y * 10 + zIf s = x ^ 3 + y ^ 3 + z ^ 3 Then sum = sum + s i = i +...
编程求100—999之间的水仙花数;如水仙花数153=1*1*1+5*5*5+3*3*3;
For b = 0 To 9 For c = 0 To 9 For d = 0 To 9 If a ^ 3 + b ^ 3 + c ^ 3 + d ^ 3 = a * 1000 + b * 100 + c * 10 + d Then Print a * 1000 + b * 100 + c * 10 + d;End If Next d Next c Next b Next a Rem 第二种方法求水仙花数 Print P...