玫瑰花数是一个四位正整数，该数每一位上的数字4次方之和等于它本身。如：1634=14+64+34+44，小张设计VB程序用于找出所有可能的玫瑰花数，程序运行界面如下图所示。

2.

学校投票选最佳德育导师，候选老师有30位，现给每位参选老师一个从1到30的编号，在全校师生中投票，并从中选出最高得票数的教师作为年度最佳德育导师。小李设计了一个计票的VB程序，将各位师生投票的编号输入到文本框Text1，每票之间用“，”隔开，单击“计票”按钮Command1，在列表框中显示各位导师的得票数，在文本框Text2、Text3中显示总得票数和最高得票，在标签Label2中显示最高得票的教师编号，如果最高得票有多位教师，则全部显示他们的编号。程序运行界面如图所示。

实现上述功能的VB程序如下。

Private Sub Command1_Click()

Dim s As String, i As Integer, j As Integer, s1 As String

Dim a(30) As Integer, max As Integer, c As String, sum As Integer

s=Text1.Text

i=1：t=0：sum=0

Do While i <= Len(s)

  c=Mid(s, i, 1)

  If c=“，” Or      ①      Then

    a(t)=a(t)+1

    t=0

    sum=sum+1

  Else

        ′改错

  End If

    i=i+1

Loop

max=a(1)

For i=1 To 30

  List1.AddItem “编号为”+Str(i)+ “的教师，得票数为”+Str(a(i))

  If max < a(i) Then

    max=a(i)

    s1=“最高教师编号为：”+Str(i)

        ②     

    s1=s1+”，”+Str(i)

  End If

Next i

Text2.Text=Str(sum)

Text3.Text=Str(max)

Label2.Caption=s1

End Sub

相关知识

玫瑰花数 一个四位数等于各位数字的四次方之和，则为玫瑰花数。如：1634=1*1*1*1+6*6*6*6+3*3*3*3+4*4*4*4
如果一个四位数等于它的各位数字的4次方的和.则称这个四位数为“玫瑰花数 .如果1634=14+64+34+44.设计一个程序.找出所有的玫瑰花数． 题目和参考答案——青夏教育精英家教网——
【编程……关于花朵数的问题一个N位的十进制正整数，如果它的每个位上的数字的N次方的和等于这个数本身，则称其为花朵数。例如：当N=3时，153就满足条件，因为1^3+5^3+3^3=153，这样的】
JavaScript写打印水仙花数（三位数），（153=1*1*1+5*5*5+3*3*3）每位数字的立方和等于等于该数即水仙花数，打印出所有水仙花数。
【Python 123】水仙花数玫瑰数
java基础判断一个数是不是水仙花数
编程求玫瑰花数
用VB编写过程找出所有水仙花数所谓水仙花数是指一个三位数的整数其每一位上的数字立方和等于该数的本身如153=1??+5??+3??
水仙花数是指一个N位正整数（N≥3），它的每个位上的数字的N次幂之和等于它本身。例如：153=13+53+33。 本题要求编写程序,计算所有N位水仙花数。
python 水仙花数 水仙花数是指一个N位正整数（N≥3），它的每个位上的数字的N次幂之和等于它本身。 例如：153=1×1×1+5×5×5+3×3×3。

网址: 玫瑰花数是一个四位正整数，该数每一位上的数字4次方之和等于它本身。如：1634=14+64+34+44，小张设计VB程序用于找出所有可能的玫瑰花数，程序运行界面如下图所示。 https://www.huajiangbk.com/newsview648227.html