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

1、1.四叶玫瑰数”是指一个四位自然数各位上数字的四次方之和等于该四位数本身的数。如自然数8208=84+24+84”,那它就是一个 四叶玫瑰数”。现用VB编写一个程序，实现如下功能：单击 查找按钮Commandl,在列表框Listl中显示所有 四叶玫瑰数 并在标签Label2中显示找到的个数，运行界面如下图所示：可编辑(1)为实现上述功能，请在画线处填入正确的代码。Private Sub Command1_Click( )Dim i As Integer, s As IntegerDim a As Integer, b As Integer, c As Integer, d As Integer

2、 s = 0For 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 A 4 = i ThenList1.AddItem is =End IfNext+ Str(s) +Label2.Caption =End Sub程序中的语句“b = (i Mod 100) 10 ”和下列哪些项功能相同(多选)。A.b=i10 Mod 10B.b=int(i/10) Mod 10C.b = i Mod 10010D.b=Mid

3、(i,3,1)2、用VB设计一个奇数迁移的程序，具体要求是：单击“产生”按钮Command1,清空两个列表框中的内容，并产生10个3位自然数放入左边列表框 List1中，如图1所示。单击“奇数迁移”按钮 Command2,将列表框List1中的所有奇数迁移到列表 框List2中，如图2所示。，实现上述功能。在以下Visual Basic程序的画线处填入合适的语句Dim a(1 To 10) As IntegerPrivate Sub Command1_Click()List1.ClearList2.ClearRandomizeFori = 1 To 10a(i) = Int(Rnd() * 9

4、00 + 100)List1.AddItem CDNext iEnd SubPrivate Sub Command2_Click()List1.ClearFor i =If a(i) Mod 2 = 1 ThenList2.AddItem a(i)ElseList1.AddItem a(i)End IfNext iEnd Sub3、小贝用VB6语言编写了一个拼手气红包程序，实现的功能是：在文本框Text1中输入发放红包的总金额s,在文本框Text2中输入发放红包的个数n,单击“发放红包按钮Command1,为n个红包随机分配金额，并在列表框List1中显示分配后的这些金额。界面如图1所示。由H

5、I1*B1空印n图2(1)在设计应用程序界面时，应使用图2所示“控件工具箱”中的 (填写相应编号)添加列表框List1 (2)为实现上述功能，请在横线处填入合适代码。Private Sub Command1 Click()Dim s As Single,x As Single,n As IntegerAs IntegerRandomizeListl.Clears= n=Val(Text2.Text)For i=1 To通过循环语句产生 n-1个红包的随机值x=Int(Rnd()*s/(n-i)+0.005)*100)/100List1.AddItemStr(x)s= Next ix=Int(s

6、+0.005)*100)/100产生最后一个红包List1.AddItem Str(x)End Sub4、利用Visual Basic设计一个小写转大写的程序：在文本框Text1中输入一串字符，单击转换按钮 Command1,将其中 的小写英文字母转换为大写英文字母后，在文本框Text2中显示转换后的字符串。程序运行界面如图所示。口期中；切日巨ttrufcl.t kftd you lav*.CEASE TO STRUGGLE AMD I0U CEASE TO LIVI(1)实现上述功能的 VB代码如下，在画线处应填入正确的语句以实现以上功能。Private Sub Command1_Click

7、()Dim a As String,b As StringDim i As Integer,c As String a=For i=1 To Len(a)c=Mid(a,i,1)If Then c=Chr(Asc(c)-32)End If b=b & cNext iText2.Text=bEnd Sub(2)由程序可知，小写字母比大写字母的ASCII编码值大 。5、多数高次方程不存在求根公式，因此求精确根非常困难，甚至不可能，从而寻找方程的近似根就显得特别重要。由于数轴上 的点是有序的，因此我们可以用对分查找法找出高次方程在某一区间的实根。即:不断地将区间对分，使得区间中点的值不断逼近方程的根

8、。当区间小于精度的时候，我们就停止对分，并用此时区间的中点值作为方程的根。如求三次方程y=5x 3-55x 2+170x-130 的实根 淇函数图像如图1所示：图1图2观察该函数图像发现函数有一实根在区域(1,2)之间，因此我们取两者的中点m=(1+2)/2代入方程进行检测，发现f(1.5)=5x 3-55x 2+170x-130=18.125, 因为f(1.5)0,因此区间应该往左移动，得下一个区间(1,1.5)，然后继续进行检测，如果区间差值0误差率，则认为该中点是方程的根。根据上述方法描述，设计一个VB求解程序的根。程序运行界面如图3所示，单击求解按钮Command1,在文本框Text1

9、中显示方程的根。图3(1)为显示函数的图像，应在窗体中放置的控件是 。(填图2中编号)(2)程序代码如下，请在画线处填写正确的 VB代码。Private Sub Command1_Click()Dim i As Double, j As Double, m As DoubleDim r As Double , y As Doublei=1:j=2:y=1:r=j-iDo While y 0 And r 0.00001m=(i + j) / 2y=5 * m 人 3 - 55 m A 2 + 170 m - 130If y 0 ThenElself y 0 Then i=mEnd If r= L

10、oop Text1.Text =m End Sub6、现要用VB编写一个“剪刀石头布”的游戏，游戏界面如图1所示:cj maw皿：府喇。一石头布名穆图1图2点击单选框选择剪刀或石头或布，程序立即显示相应的图像，同时电脑随机出示一个剪刀或石头或布，并显示输赢的结果在列 表框Listl中。(填写相应的编号)。(1)为显示输赢的结果，应在窗体中加入一个列表框，应使用图2所示的控件工具箱中的(2)请根据题意将下列程序补充完整Private Sub Option1_Click(Index As Integer)index表示所选的编号，剪刀为0 石头为1布为2,图片文件名与此编号对应Randomizex

11、=产生0,2的随机整数Image1.Picture=Load Picture(x & .jpg )Image2.Picture=Load Picture(Index & .jpgIf Index=0 And x=0 Then s=平局If Index=0 And x=1 Then s=输了If Index=0 And x=2 Then s=胜了If Index=1 And x=0 Then s=胜了If Index=1 And x=1 Then s=平局If Index =1 And x=2 Then s= 输了If Index=2 And x=0 Then s=输了If Index=2 An

12、d x=1 Then s=胜了If Index=2 And x=2 Then s=平局End Sub7、生活中，许多女士喜欢穿高跟鞋，那穿高跟鞋会使人感到美吗 ？黄金分割能解释这个问题。人体躯干与身高比例的黄金分割点是肚脐。换句话说，这一比值越接近0.618,愈给人美之感。现按要求编写“高跟鞋的最佳之选”的VB程序(界面如右图所示),实现如下功能：首先，设某女躯干a米和身高b米比为g,分别从文本框Text1和Text2中输入。鞋跟高度s(单位与a、b 一致)从Text3中输入，那么新比值g=(a+s)/(b+s),如果g=0.618,那么鞋跟高度S的值就是最佳高度。(1)应用程序界面设计时，为

13、显示新比值，需在窗体中添加 控件，并将它的 属性值设置为空。(2)请根据题意将下列程序补充完整。 Private Sub Command1_Click( ) Dim a As Single,b As Single,s As Single,g As Singlea=Val(Text1.Text)b=Val(Text2.Text)s=Val(Text3.Text) Label5.Caption= End Sub8、身体质量指数BMI是目前国际上常用的衡量人体胖瘦程序以及是否健康的标准之一。科学家通过大量的统计、分析，推导出BMI值与体重(w,单位kg)成正比，与身高(h,单位m)的平方成反比。BM

14、I=w/h 2成人的BMI数值参考：偏瘦:低于20 正常:2025 偏胖:高于25 最理想的体重指数是:22VBText1 Text2(w)(h),试”按钮，在文本框Text3中显示指数的值(结果取整，并根据此值在Label5中显示相应的体型参考和最理想体重(ok)。程序运行界面如图所示：VB程序如下：Private Sub Command1_Click()Dim h As Single, w As Single, BMI As Single, ok As Singleh =Val(Text1.Text)w =Val(Text2.Text)BMI =ok = Int(22 h A 2)Text

15、3.Text =Str(BMI)If ThenLabel5.Caption =偏瘦。Elself BMI = a And c= a And c0,则区间应该往左移动，结束点j=m,如果y0,则区间应该往右移动，起始点i=m 。6、 (1)4 (2)Int(Rnd*3)( 3) List1.Additem s解析： 程序通过9 个 If 语句判断胜负情况,结果存放在变量s 中 ,最后把结果显示在List1 中。在列表框中添加一行数据,可使用Additem 方法。7、 (1)标签或 Label Caption (2)str(a+s)/(b+s)8、答案：(1)Int(w/h A 2) (2)BMI

16、 20(3)解析算法解析：本题根据体重与身高求解体质指数BMI,两者之间的关系为BMI=w/hA2, 所以处应填入Int(w/ha 2)。根据成人的BMI数值参考，低于20属于偏瘦，所以处应填入 BMI 20。程序采用的算法是解析算法。9、答案：(1)C (2) n+11 str(i) (3)甲辰解析： (1) 代码“ Private Sub Command1_Click()Commandl 是对象名，Click是事件名 ,Command1_Click 则是事件处理过程的名称。(2)程序通过循环列举12 个年份对应的“天干地支”与“生肖”信息 ,年份 i 的值从 n 到 n+11, 因此 1处填 n+11 。根据运行界面图中显示的形式可知,变量C1 表示天干,C2 表示地支,C3 表示生肖,所以 2 处填str(i)