高中信息技术VB专项题（学考）

VB专题题

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 C.b = i Mod 100\\10

B.b=int(i/10) Mod 10 D.b=Mid(i,3,1)

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

第1页

VB专题题

图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页

VB专题题

图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() Dim a As String,b As String Dim i As Integer,c As String a= ①

第3页

VB专题题

For i=1 To Len(a) c=Mid(a,i,1)

If ② Then c=Chr(Asc(c)-32) End If b=b & c Next i Text2.Text=b End Sub

(2)由程序可知,小写字母比大写字母的ASCII编码值大 。

5、多数高次方程不存在求根公式,因此求精确根非常困难,甚至不可能,从而寻找方程的近似根就显得特别重要。由于数轴上的点是有序的,因此我们可以用对分查找法找出高次方程在某一区间的实根。即:不断地将区间对分,使得区间中点的值不断逼近方程的根。当区间小于精度的时候,我们就停止对分,并用此时区间的中点值作为方程的根。如求三次方程y=5x3-55x2+170x-130的实根,其函数图像如图1所示:

图1 图2

观察该函数图像发现函数有一实根在区域(1,2)之间,因此我们取两者的中点m=(1+2)/2代入方程进行检测,发现

f(1.5)=5x3-55x2+170x-130=18.125,因为f(1.5)>0,因此区间应该往左移动,得下一个区间(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=j-i

Do While y <> 0 And r > 0.00001

m=(i + j) / 2

第4页

VB专题题

Loop Text1.Text =m End Sub

6、现要用VB编写一个“剪刀石头布”的游戏,游戏界面如图1所示:

y=5 * m ^ 3 - 55", m ^ 2 + 170", m - 130 If y > 0 Then ① ElseIf y < 0 Then i=m End If r= ②

图1

图2

点击单选框选择剪刀或石头或布,程序立即显示相应的图像,同时电脑随机出示一个剪刀或石头或布,并显示输赢的结果在列表框List1中。

(1)为显示输赢的结果,应在窗体中加入一个列表框,应使用图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 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页

VB专题题

End Sub

7、生活中,许多女士喜欢穿高跟鞋,那穿高跟鞋会使人感到美吗?黄金分割能解释这个问题。人体躯干与身高比例的黄金分割点是肚脐。换句话说,这一比值越接近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 Single,b As Single,s As Single,g As Single End Sub

8、身体质量指数BMI是目前国际上常用的衡量人体胖瘦程序以及是否健康的标准之一。科学家通过大量的统计、分析,推导出BMI值与体重(w,单位kg)成正比,与身高(h,单位m)的平方成反比。 BMI=w/h2 成人的BMI数值参考: 偏瘦:低于20 正常:20~25 偏胖:高于25 最理想的体重指数是:22 下面VB程序的功能用于计算身体指数并判断体型。在文本框Text1和Text2中输入体重(w)和身高(h)的值,单击“测试”按钮,在文本框Text3中显示指数的值(结果取整),并根据此值在Label5中显示相应的体型参考和最理想体重(ok)。程序运行界面如图所示:

a=Val(Text1.Text) b=Val(Text2.Text) s=Val(Text3.Text) Label5.Caption= ①

第6页

VB专题题

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 ", h ^ 2) Text3.Text =Str(BMI) If ② Then Label5.Caption = ″偏瘦。″ ElseIf BMI <= 25 Then Label5.Caption = ″正常。″ Else

Label5.Caption = ″偏胖。″ End If

Label5.Caption = Label5.Caption + ″最佳体重是″ + Str(ok) + ″kg″ End Sub

(1)程序中画线①处应填入的语句是 。 (2)程序中画线②处应填入的语句是 。

（3）程序中用到的算法是_______________________（填写：解析算法或枚举算法）

9、(2016·4浙江学考)编写VB程序,实现如下功能:在文本框Text1中输入某一年份,单击“天干地支与生肖”按钮Command1,在列表框List1中输出该年份开始的12个年份及对应的“天干地支”与“生肖”,运行界面如图所示,程序代码如下。

(1)代码“Private Sub Command1_Click( )”中的Click是 。(单选,填字母:A.对象名/B.属性名/C.事件名) (2)为实现上述功能,请在画线处填入合适的代码。 Private Sub Command1_Click( )

Dim a As Integer, b As Integer Dim i As Integer, n As Integer Dim c1 As String, s1 As String Dim c2 As String, s2 As String Dim c3 As String, s3 As String List1.Clear

第7页

VB专题题

Next i End Sub

(3)由上述算法可知,2024年对应的“天干地支”为 。

10、某“掷骰子游戏”的VB程序界面如下图示,单击按钮Command1,在标签Label1上显示点数(点数是1到6之间的整数,含数字1和6),按钮上文字由“甲方”变为“乙方”,再次单击按钮上文字由“乙方”变为“甲方”。

s1=″甲乙丙丁戊己庚辛壬癸″ s2=″子丑寅卯辰巳午未申酉戌亥″ s3=″鼠牛虎兔龙蛇马羊猴鸡狗猪″ n=Val(Text1.Text) For i=n To ① a=(i+6) Mod 10 b=(i+8) Mod 12 c1=Mid(s1, a+1, 1) c2=Mid(s2, b+1, 1) c3=Mid(s3, b+1, 1)

List1.AddItem ② +″年″ + c1 + c2 +″″ + c3

(1)窗体标题“掷骰子游戏”是通过设置窗体的 属性值得到。 (2)Command1对象的单击事件处理过程如下: Private Sub Command1_Click( ) End Sub

为实现上述功能,在程序画线处填入适当的语句和代码,把程序补充完整。 程序①处的语句为 。 程序②处的语句为 。

第8页

Randomize x= ① Label1.Caption=Str(x) If ② Then Command1.Caption=″乙方″ Else

Command1.Caption=″甲方″ End If

VB专题题

答案

1、(1)①a=i Mod 10 ②s+1 (2)AB 2、①str(a(i)) ②1 To 10 Step 1或1 to 10

解析： ①处是把产生的随机3位自然数a(i)显示在列表框List1中,所以该处填“a(i)”; ②处循环依次判断数组a中元素的奇偶性,所以该填“1 To 10”或“1 To 10 Step1”。 3、(1)4 (2)①Val(Text1.Text) ②n-1 ③s-x

解析： (1)工具箱中1是标签,2是文本框,3是复选框,4是列表框。(2)①变量s存放发放红包的总金额,该数据来自文本框Text1的Text属性;②由提示可知,循环次数是n-1;③每发放一个红包x后,总金额s须减去x。 4、(1)①Text1.Text ②c>=″a″ And c<=″z″ (2)32

解析： (1)①变量a存储文本框Text1中输入的字符,所以①处填Text1.Text。②处判断c中的字符是否为小写字母,可用表达式c>=″a″And c<=″z″进行判断。(2)程序中的语句c=Chr(Asc(c)-32)就将小写字母转换为大写字母,由此可知,小写字母比大写字母的ASCII编码值大32。 5、(1)3 (2)①j=m ②j-i

解析： (1)显示图像的控件是image。

(2)程序中,变量i表示根区间起始点,j表示根区间结束点,m为中点,r为误差率,r=j-i。循环中,首先算出中点值m,再计算方程的值y,如果y>0,则区间应该往左移动,结束点j=m,如果y<0,则区间应该往右移动,起始点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 ^ 2) (2)BMI < 20 (3)解析算法

解析： 本题根据体重与身高求解体质指数BMI,两者之间的关系为BMI=w/h^2,所以①处应填入Int(w/h ^ 2)。根据成人的BMI数值参考,低于20属于偏瘦,所以②处应填入BMI < 20。程序采用的算法是解析 算法。 9、答案： (1)C (2)①n+11 ②str(i) (3)甲辰

解析： (1)代码“Private Sub Command1_Click()”中的Command1是对象名,Click是事件名,Command1_Click则是事件处理过程的名称。

(2)程序通过循环列举12个年份对应的“天干地支”与“生肖”信息,年份i的值从n到n+11,因此1处填n+11。根据运行界面图中显示的形式可知,变量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) + 1 ②Command1.Caption=″甲方″

第9页

本文来源：https://www.bwwdw.com/article/dzw.html