vb编程，输入一个三位数，判断是否为水仙数 Private Sub Command1_Click()Dim a As Integer，b As Integer，c As Integer，s As Integers=Text1.Texta=s \\ 100b=(s-100*a)\\ 10c=s-100*a-10*bIf a^3+b^3+c^3=s ThenMsgBox s&\"是水仙花数ElseMsgBox s&\"不是水仙花数End IfEnd Sub加个文本框控件和按钮控件
请问用VB.NET 来判断水仙花数 希望哪个高手指点一下啊，谢谢 Module Module1Sub Main()Console.WriteLine(\"找出100-500水仙花数：\")For i As Integer=100 To 500Dim bai As Integer=i \\ 100Dim shi As Integer=(i-bai*100)\\ 10Dim ge As Integer=i-bai*100-shi*10If bai^3+shi^3+ge^3=i ThenConsole.Write(\"{0}\"，i)End IfNextConsole.Read()End SubEnd Module
急！！！VB问题！用VB作一个工程，判断任意输入的一个数是不是“水仙花数”。谢谢 Sub tt()Dim ss$，i%，j%ss=InputBox(\"请输入一个整数：\")If Val(ss)<；>；Int(Val(ss))Then MsgBox\"只能输入整数！Call ttIf ss=\"\"Then Exit SubFor i=1 To Len(ss)j=j+Val(Mid(ss，i，1))^3Next iIf j=Val(ss)ThenMsgBox ss&\"是水仙花数ElseMsgBox ss&\"不是水仙花数End IfEnd Sub
VB中输入一个数判断是否为水仙花数 Private Sub Form_Click()Dim n，i，sumDon=InputBox(\"输入一个数：\"，100+Int(Rnd*900))If IsNumeric(n)And Len(n)>；2 Then Exit DoLoopFor i=1 To Len(n)sum=sum+Val(Mid(n，i，1))^3NextPrint n，IIf(sum=Val(n)，\"是\"，\"不是\")&\"水仙花数End Sub
