锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net水仙花制作 水仙花数vb程序代码

IT技术输出

用VB写出100到999的水仙花数并且输出到list和text以下代码可用信息框输出水仙花数，我用的VBA写的，你自己修改一下吧：
Sub 水仙花数()
For i = 1 To 9
For j = 0 To 9
For k = 1 To 9
If i ^ 3 + j ^ 3 + k ^ 3 = i * 100 + j * 10 + k Then s = sChr(13)ijk
Next k, j, i
MsgBox "100到999有如下数是水仙花数："s
End Sub
VB如何求水仙花数水仙花数是指一个 n 位数 ( n≥3 )，它的每个位上的数字的 n 次幂之和等于它本身 。（例如：1^3 + 5^3+ 3^3 = 153）
可以运用将一个 For...Next 循环放置在另一个 For...Next 循环中，组成嵌套循环来解决水仙花求解问题 。
以3位10进制数100-999为例 ， 代码如下：
Private Sub Command1_Click()
Dim i As Long, j As Long, k As Long
Dim s As Long
For i = 1 To 9
For j = 0 To 9
For k = 0 To 9
s = i * 100 + j * 10 + k
If ((i ^ 3) + (j ^ 3) + (k ^ 3)) = s Then
Debug.Print s
End If
Next k
Next j
Next i
End Sub
如何用VB控制台编程（打印输出100－999之间的水仙花数）' VB .NET 控制台应用
Module Module1
Sub Main()
Dim i, a, b, c As Integer
i = 100
Do While i = 999
a = i \ 100
b = i \ 10 Mod 10
c = i Mod 10
If a ^ 3 + b ^ 3 + c ^ 3 = i Then
Console.WriteLine(i) '控制台输出部分vb.net水仙花制作，可以修改成其vb.net水仙花制作他形式输出
End If
i = i + 1
Loop
End Sub
End Module
VB编程题：编写输出水仙花数的程序Private Sub Command1_Click()
Dim i%, j%, k%,
Do While i 10
Do While j 10
Do While k 10
Ifi^ 3 + j^ 3 + k ^ 3 = i*100+j*10+k* 1 Then Text1.Text = Text1.Text""ijk
k=k+1
Loop
j=j+1
Loop
i=i+1
Loop
End Sub
用VB.net变成找出100~999之间的水仙花数楼上写的程序 ， 我无语了，要是有这么简单就好了……
下面是我写的程序：
Private Sub Command1_Click()
Dim a%(1 To 100), isprime As Boolean, k%
Static b%
b = 0
Cls
'随机产生100个100到999的数
Print "随机产生的100个数是："
Randomize
For i = 1 To 100
a(i) = Int(Rnd * 900 + 100)
Print a(i);
If i Mod 10 = 0 Then Print'十个数一行
Next i
'找出素数
Print "其中是素数的数有："
For i = 1 To 100
If a(i) Mod 20 Then'能被2整除的肯定不是素数，故排除这种情况
isprime = True'奇数都有可能是素数，故先假设奇数都是素数
k = 3'下面是判断a(i)是不是素数的算法，希望你能看懂
Do Until kSqr(a(i)) Or Not isprime
If a(i) Mod k = 0 Then
isprime = False
Else
k = k + 2
End If
Loop
If isprime = True Or kSqr(a(i)) Then
b = b + 1 '记录素数的个数
a(b) = a(i)'把素数用新的数组保存起来
Print a(b);
If b Mod 10 = 0 Then Print
End If
End If
Next i
'冒泡排序法
For x = b To 2 Step -1
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
Print "按从大到小排序后的素数："
For i = 1 To b
Print a(i);
If i Mod 10 = 0 Then Print
Next i
End Sub
运行结果如图所示 。
如果还没解决你的问题，可以加我百度HI账号 。
【vb.net水仙花制作 水仙花数vb程序代码】vb.net水仙花制作的介绍就聊到这里吧，感谢你花时间阅读本站内容 ， 更多关于水仙花数vb程序代码、vb.net水仙花制作的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：鸿蒙系统支持小米的米家吗，鸿蒙系统支持小米手机

    下一篇：asp.net配置系统，aspnet 50