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

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 = (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所示。 图1 图2 在以下Visual Basic程序的画线①②处填入合适的语句,实现上述功能。 Dim a(1 To 10) As Integer Private Sub Command1_Click() List1.Clear List2.Clear Randomize For i = 1 To 10 a(i) = Int(Rnd() * 900 + 100) List1.AddItem　　　①　　　? Next i End Sub Private Sub Command2_Click() List1.Clear For i =　　　②　　　? If a(i) Mod 2 = 1 Then 　　List2.AddItem a(i) Else 　　List1.AddItem a(i) End If Next i End Sub 3、小贝用VB6语言编写了一个拼手气红包程序,实现的功能是:在文本框Text1中输入发放红包的总金额s,在文本框Text2中输入发放红包的个数n,单击“发放红包”按钮Command1,为n个红包随机分配金额,并在列表框List1中显示分配后的这些金额。界面如图1所示。 图1 图2 (1)在设计应用程序界面时,应使用图2所示“控件工具箱”中的　　　　　　　　　　　(填写相应编号)添加列表框List1。? (2)为实现上述功能,请在横线①②③处填入合适代码。 Private Sub Command1_Click() 　Dim s As Single,x As Single,n As Integer,i As Integer 　Randomize 　List1.Clear 　s=　①　? 　n=Val(Text2.Text) 　For i=1 To 　　②　　　　通过循环语句产生n-1个红包的随机值? 　x=Int((Rnd()*s/(n-i)+0.005)*100)/100 　List1.AddItem　Str(x) 　s=　　③　　? 　Next　i x=Int((s+0.005)*100)/100　　产生最后一个红包 　List1.AddItem　Str(x) End　Sub 4、利用Visual Basic设计一个小写转大写的程序:在文本框Text1中输入一串字符,单击“转换”按钮Command1,将其中的小写英文字母转换为大写英文字母后,在文本框Text2中显示转换后的字符串。程序运行界面如图所示。 (1)实现上述功能的VB代码如下,在画线处应填入正确的语句以实现以上功能。 Private Sub Command1_Click()