VB实现水仙花数的程序代码如下：
PrivateSubCommand_Click()
a=numMod10
b=num\10Mod10
c=num\100
Nextnum
EndSub
实现具体步骤如下：
①启动VB程序,新建一个标准的exe项目,如下图.
扩展资料：
C语言实现水仙花数的代码：
#include?stdio.h
#include?stdlib.h
voidmain()
{
inti,j,k,n;
printf("'waterflower'numberis:");
for(n=100;n1000;n++)
i=n/100;/*分解出百位*/
j=n/10;/*分解出十位*/
k=n;/*分解出个位*/
if(n==i*i*i+j*j*j+k*k*k)
}
printf("\n");
注意事项：
VB编程的核心思想是组件编程.VB是最早引入组件编程的概念,然后被其他语言采用并成为标准,如vc++、Delphi、PowerBuilder等都采用了组件编程模型,并利用面向对象的编程技术,成为当今程序设计的发展方向之一.
VB编程,由于采用了组件技术,所以不必从底层开始窗体,控制设计,可以由工厂通过各种零件装配生产机器,通过Microsoft或第三方提供的组件,装配成所需的程序.与什么?VB是代码,它像胶水一样,把有限的代码和组件粘合在一起.结果是一个完整的应用程序.
VB有一个图形用户界面(GUI)和快速应用程序开发(RAD)系统,可以很容易地使用daos、RDO、ADO连接到数据库,或者很容易地创建活动的X控件,从而高效地生成类型安全的和面向对象的应用程序.
程序员可以使用VB提供的组件轻松快速地构建应用程序.VB的组件既可以拥有用户界面,也可以没有.这样一来服务器端程序就可以处理增加的模块.
VB使用参数计算的方法来进行垃圾收集,这个方法中包含有大量的对象,提供基本的面向对象支持.因为越来越多组件的出现,程序员可以选用自己需要的扩展库.
可以运用将一个 For...Next 循环放置在另一个 For...Next 循环中,组成嵌套循环来解决水仙花求解问题.
Private?Sub?Command1_Click()
Dim?i?As?Long,?j?As?Long,?k?As?Long
Dim?s?As?Long
s?=?i?*?100?+?j?*?10?+?k
Debug.Print?s
End?If
Next?k
Next?j
Next?i
End?Sub
楼上写的程序,我无语了,要是有这么简单就好了......
下面是我写的程序：
Private Sub Command1_Click()
Dim a%(1 To 100), isprime As Boolean, k%
Static b%
b = 0
Cls
Print "随机产生的100个数是："
Randomize
For i = 1 To 100
Print a(i);
If i Mod 10 = 0 Then Print '十个数一行
Next i
'找出素数
Print "其中是素数的数有："
isprime = True '奇数都有可能是素数,故先假设奇数都是素数
Do Until k Sqr(a(i)) Or Not isprime
If a(i) Mod k = 0 Then
isprime = False
Else
End If
Loop
If isprime = True Or k Sqr(a(i)) Then
b = b + 1 '记录素数的个数
a(b) = a(i) '把素数用新的数组保存起来
Print a(b);
If b Mod 10 = 0 Then Print
'冒泡排序法
For y = 1 To x - 1
If a(y) a(y + 1) Then temp = a(y): a(y) = a(y + 1): a(y + 1) = temp
Next y
Next x
'输出排序后的素数
Print "按从大到小排序后的素数："
For i = 1 To b
If i Mod 10 = 0 Then Print
End Sub
运行结果如图所示.
如果还没解决你的问题,可以加我百度HI账号.
Module Module1
Sub Main()
Dim bai As Integer = i \ 100
Dim shi As Integer = (i - bai * 100) \ 10
Dim ge As Integer = i - bai * 100 - shi * 10
Console.Write("{0} ", i)
Next
Console.Read()
End Module
以上就是土嘎嘎小编为大家整理的vb.net水仙花相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦！！