2022年高中信息技术VB专项题 .pdf

《2022年高中信息技术VB专项题 .pdf》由会员分享，可在线阅读，更多相关《2022年高中信息技术VB专项题 .pdf（9页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、VB 专题题第 1 页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 Integ

2、er,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=i10 Mod 10 B.b=int(i/10)Mod 10 C.b=i Mod 10010 D.b=Mid

3、(i,3,1)2、用 VB 设计一个奇数迁移的程序,具体要求是:单击“产生”按钮 Command1,清空两个列表框中的内容,并产生 10 个 3 位自然数放入左边列表框List1 中,如图 1 所示。单击“奇数迁移”按钮 Command2,将列表框 List1 中的所有奇数迁移到列表框List2中,如图 2 所示。名师资料总结-精品资料欢迎下载-名师精心整理-第 1 页，共 9 页 -VB 专题题第 2 页图 1 图 2 在以下 Visual Basic 程序的画线处填入合适的语句,实现上述功能。Dim a(1 To 10)As Integer Private Sub Command1_Cli

4、ck()List1.Clear List2.Clear Randomize For i=1 To 10 a(i)=Int(Rnd()*900+100)List1.AddItemNext 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中输

5、入发放红包的个数n,单击“发放红包”按钮 Command1,为 n 个红包随机分配金额,并在列表框 List1 中显示分配后的这些金额。界面如图1 所示。图 1 名师资料总结-精品资料欢迎下载-名师精心整理-第 2 页，共 9 页 -VB 专题题第 3 页图 2(1)在设计应用程序界面时,应使用图 2 所示“控件工具箱”中的(填写相应编号)添加列表框List1。(2)为实现上述功能,请在横线处填入合适代码。Private Sub Command1_Click()Dim s As Single,x As Single,n As Integer,i As Integer Randomize Lis

6、t1.Clear s=n=Val(Text2.Text)For i=1 To 通过循环语句产生n-1 个红包的随机值x=Int(Rnd()*s/(n-i)+0.005)*100)/100 List1.AddItemStr(x)s=Nexti x=Int(s+0.005)*100)/100产生最后一个红包List1.AddItemStr(x)EndSub 4、利用 Visual Basic 设计一个小写转大写的程序:在文本框 Text1 中输入一串字符,单击“转换”按钮 Command1,将其中的小写英文字母转换为大写英文字母后,在文本框 Text2 中显示转换后的字符串。程序运行界面如图所示。

7、(1)实现上述功能的VB 代码如下,在画线处应填入正确的语句以实现以上功能。Private Sub Command1_Click()Dim a As String,b As String Dim i As Integer,c As String a=名师资料总结-精品资料欢迎下载-名师精心整理-第 3 页，共 9 页 -VB 专题题第 4 页For i=1 To Len(a)c=Mid(a,i,1)IfThenc=Chr(Asc(c)-32)End If b=b&c Next i Text2.Text=b End Sub(2)由程序可知,小写字母比大写字母的ASCII 编码值大。5、多数高次方

8、程不存在求根公式,因此求精确根非常困难,甚至不可能,从而寻找方程的近似根就显得特别重要。由于数轴上的点是有序的,因此我们可以用对分查找法找出高次方程在某一区间的实根。即:不断地将区间对分,使得区间中点的值不断逼近方程的根。当区间小于精度的时候,我们就停止对分,并用此时区间的中点值作为方程的根。如求三次方程y=5x3-55x2+170 x-130 的实根,其函数图像如图1 所示:图 1 图 2 观察该函数图像发现函数有一实根在区域(1,2)之间,因此我们取两者的中点m=(1+2)/2 代入方程进行检测,发现f(1.5)=5x3-55x2+170 x-130=18.125,因为 f(1.5)0,因

9、此区间应该往左移动,得下一个区间(1,1.5),然后继续进行检测,如果区间差值误差率,则认为该中点是方程的根。根据上述方法描述,设计一个 VB 求解程序的根。程序运行界面如图3 所示,单击求解按钮 Command1,在文本框 Text1 中显示方程的根。图 3(1)为显示函数的图像,应在窗体中放置的控件是。(填图 2 中编号)(2)程序代码如下,请在画线处填写正确的VB 代码。Private Sub Command1_Click()Dim i As Double,j As Double,m As Double Dim r As Double,y As Double i=1:j=2:y=1:r=

10、j-i Do While y 0 And r 0.00001 m=(i+j)/2 名师资料总结-精品资料欢迎下载-名师精心整理-第 4 页，共 9 页 -VB 专题题第 5 页y=5*m 3-55 m 2+170 m-130 If y 0 Then ElseIf y 0 Then i=m End If r=Loop Text1.Text=m End Sub 6、现要用 VB 编写一个“剪刀石头布”的游戏,游戏界面如图1 所示:图 1 图 2 点击单选框选择剪刀或石头或布,程序立即显示相应的图像,同时电脑随机出示一个剪刀或石头或布,并显示输赢的结果在列表框 List1 中。(1)为显示输赢的结果

11、,应在窗体中加入一个列表框,应使用图 2 所示的控件工具箱中的(填写相应的编号)。(2)请根据题意将下列程序补充完整Private Sub Option1_Click(Index As Integer)index 表示所选的编号,剪刀为 0石头为 1布为 2,图片文件名与此编号对应Randomize x=产生 0,2 的随机整数Image1.Picture=Load Picture(x&.jpg)Image2.Picture=Load Picture(Index&.jpg)If Index=0 And x=0 Then s=平局 If Index=0 And x=1 Then s=输了 If

12、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 And x=1 Then s=胜了 If Index=2 And x=2 Then s=平局 名师资料总结-精品资料欢迎下载-名师精心整理-第 5 页，共 9 页 -VB 专题题第 6 页EndSub 7、生活中,许多女士喜欢穿高跟鞋,那穿高跟鞋会使人感到美吗?黄金分割能解释这个问题。人体躯干

13、与身高比例的黄金分割点是肚脐。换句话说,这一比值越接近0.618,愈给人美之感。现按要求编写“高跟鞋的最佳之选”的 VB 程序(界面如右图所示),实现如下功能:首先,设某女躯干a 米和身高 b 米比为 g,分别从文本框Text1 和 Text2 中输入。鞋跟高度s(单位与 a、b 一致)从 Text3 中输入,那么新比值g=(a+s)/(b+s),如果 g=0.618,那么鞋跟高度S 的值就是最佳高度。(1)应用程序界面设计时,为显示新比值,需在窗体中添加控件,并将它的属性值设置为空。(2)请根据题意将下列程序补充完整。Private Sub Command1_Click()Dim a As

14、Single,b As Single,s As Single,g As Single a=Val(Text1.Text)b=Val(Text2.Text)s=Val(Text3.Text)Label5.Caption=End Sub 8、身体质量指数BMI 是目前国际上常用的衡量人体胖瘦程序以及是否健康的标准之一。科学家通过大量的统计、分析,推导出 BMI 值与体重(w,单位 kg)成正比,与身高(h,单位 m)的平方成反比。BMI=w/h2成人的 BMI 数值参考:偏瘦:低于 20 正常:2025 偏胖:高于 25 最理想的体重指数是:22 下面 VB 程序的功能用于计算身体指数并判断体型。

15、在文本框Text1 和 Text2 中输入体重(w)和身高(h)的值,单击“测试”按钮,在文本框 Text3 中显示指数的值(结果取整),并根据此值在Label5 中显示相应的体型参考和最理想体重(ok)。程序运行界面如图所示:名师资料总结-精品资料欢迎下载-名师精心整理-第 6 页，共 9 页 -VB 专题题第 7 页VB 程序如下:Private Sub Command1_Click()Dim h As Single,w As Single,BMI As Single,ok As Single h=Val(Text1.Text)w=Val(Text2.Text)BMI=ok=Int(22

16、h 2)Text3.Text=Str(BMI)If ThenLabel5.Caption=偏瘦。ElseIf 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)标签或 LabelCaption(2)str(a+s)/(b+s)8、答案：(1)Int(w/h 2)(2)BMI 20(3)解

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

18、界面图中显示的形式可知,变量 C1 表示天干,C2 表示地支,C3 表示生肖,所以 2 处填 str(i)。(3)通过程序a=(i+6)Mod 10 和 c1=Mid(s1,a+1,1)可知天干,a=(2024+6)Mod 10=0,c1=Mid(s1,a+1,1)=“甲”。通过程序b=(i+8)Mod 12 和 c2=Mid(s2,b+1,1)可知地支,b=(2024+8)Mod 12=4,c2=Mid(s2,b+1,1)=“辰”。10、答案：(1)caption(2)Int(Rnd*6)+1Command1.Caption=甲方 名师资料总结-精品资料欢迎下载-名师精心整理-第 9 页，共 9 页 -