文档库

最新最全的文档下载
当前位置:文档库 > 高中信息技术VB专项题(学考)

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

1.“四叶玫瑰数”是指一个四位自然数各位上数字的四次方之和等于该四位数本身的数。如自然数8208=84+24+84”,那它就是一个“四叶玫瑰数”。现用VB编写一个程序,实现如下功能:单击“查找”按钮Command1,在列表框List1中显示所有“四叶玫瑰数”,并在标签Label2中显示找到的个数,运行界面如下图所示:

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

(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 Mo

d 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 = (i Mod 100) \ 10”和下列哪些项功能相同(多选)。

A.b=i\10 Mod 10

B.b=int(i/10) Mod 10

C.b = i Mod 100\10

D.b=Mid(i,3,1)

2、用VB设计一个奇数迁移的程序,具体要求是:单击“产生”按钮Command1,清空两个列表框中的内容,并产生10个3位自然数放入左边列表框List1中,如图1所示。单击“奇数迁移”按钮Command2,将列表框List1中的所有奇数迁移到列表框List2中,如图2所示。