高中信息技术VB专项题(学考).docVIP

VB专题题 第PAGE \* MERGEFORMAT9页 1.“四叶玫瑰数”是指一个四位自然数各位上数字的四次方之和等于该四位数本身的数。如自然数8208=84+24+84”,那它就是一个“四叶玫瑰数”。现用VB编写一个程序,实现如下功能:单击“查找”按钮Command1,在列表框List1中显示所有“四叶玫瑰数”,并在标签Label2中显示找到的个数,运行界面如下图所示: (1)为实现上述功能,请在画线处填入正确的代码。 Private Sub Command1_Click(　) Dim i As Integer, s As Integer Dim a As Integer, b As Integer, c As Integer, d As Integer s = 0 For i = 1 000 To 9 999 　　　①　　　 取出个位数字? b = (i Mod 100)\10 取出十位数字 c = i \ 100 Mod 10 取出百位数字 d = i \ 1 000 取出千位数字 If a ^ 4+ b ^ 4 + c ^ 4 + d ^ 4 = i Then 　　List1.AddItem i 　　s =　　　②　　　? End If Next Label2.Caption = ″四叶玫瑰数共有″+ Str(s) + ″个″ End Sub (2)程序中的语句“b