怎么用vb语言实现水仙花数?
VB实现水仙花数的程序代码如下：
Private Sub Command_Click()
For num = 100 To 999
a = num Mod 10
b = num \ 10 Mod 10
c = num \ 100
If a^3 + b^3 + c^3 = num Then Print num
Next num
End Sub
实现具体步骤如下：
1、启动VB程序，新建一个标准exe工程
2、在窗体上绘制一个命令按钮（名称：Command），双击命令按钮进入代码窗口。
3、接下来开始编写命令按钮的单击事件。点击事件要实现的内容就是上面提供的程序代码。
4、按F5运行程序，点击命令命令按钮，输出的水仙花数共有4个：153，370，371，407。
扩展资料：
C语言实现水仙花数的代码：
#include <stdio.h>
#include <stdlib.h>
void main()
{
int i,j,k,n;
printf("'water flower'number is:");
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实现水仙花数
Private Sub Command1_Click()For I = 1 To 10 For j = 1 To 10 For h = 1 To 10 if i^3*j^3*h*3=100*i+10j+h then print i;"^3";"*";j; "^3"; "*";h; "^3"; " ="; 100*i+10j+h end if next h next j next i end sub ...
用VB.net变成找出100~999之间的水仙花数
Private Sub Form_Click()Dim i As Integer, n As Integer Dim a As Integer, b As Integer, c As Integer '设a b c 分别表示百位数，十位数，个位数 Print "水仙花数如下："For n = 100 To 999 '遍历100到999所有三位的水仙花数 a = Int(n \/ 100) '取百位数，用int函数取整数...
VB题:在窗体上以每行两个数的格式输出所有的“水仙花数。
你得有个范围，数字无上限，水仙花数也无上限，vb不可能算出二十位，三十位name大的水仙花数 这个是算3位数的水仙花数 Private Sub Command1_Click()Dim n As Integer, a As Integer, b As Integer, c As Integer For i = 100 To 999 Step 1 a = i \\ 100 b = (i - 100 * a) \\ ...
VB输出200至400的水仙花数
“水仙花数”是指一个3位数，其中各位数的立方和等于该数，如153=1^3+5^3+3^3 Dim a As Integer, b As Integer, c As Integer, i As Integer For i = 200 To 400 a = Int(i \/ 100)b = Int(i \/ 10 - a * 10)c = i Mod 10 If i = a ^ 3 + b ^ 3 + c ^ 3 ...
Vb程序题 水仙花数 把下列程序补充完整 求大佬
Vb程序题水仙花数把下列程序补充完整求大佬Privatesubform_click()X=val(inputbox("请输入一个数:"))N=len(trim(str(x)))Y=XS=0Fori=1to___A=Ymod10___NextiIf___thenP... Vb程序题 水仙花数 把下列程序补充完整 求大佬Private sub form_click()X=val(input box("请输入一个数:"))N=len(trim...
如何用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) '控制台输出部分，可以修改成其他形式输出 End ...
vb水仙花数
Private Sub Command1_Click()s = Val(InputBox("请输入一个三位整数"))a = s Mod 10b = s \\ 10 Mod 10c = s \\ 100 Mod 10If s = a ^ 3 + b ^ 3 + c ^ 3 ThenPrint "是水仙花数"ElsePrint "不是水仙花数"End IfEnd Sub 您的采纳就是对我最大的支持 ...
如何用VB控制台编程(打印输出100-999之间的水仙花数)
Private Sub Command1_Click()For i = 100 To 999 If IsPrime(i) Then n = n + 1 Print i;If n Mod 10 = 0 Then Print End If Next i End Sub Public Function IsPrime(ByVal num As Long) As Boolean Dim m As Long m = Sqr(num)IsPrime = True For i = 2 To m If num ...
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水仙花数
改为 Private Sub Command1_Click()Dim x%, y%, z%, s%, i%, sum As Single Print "水仙花数为："sum = 0 i = 0 For x = 1 To 9 For y = 0 To 9 For z = 0 To 9 s = x * 100 + y * 10 + z If s = x ^ 3 + y ^ 3 + z ^ 3 Then sum = sum + s...