loading???线????○???? ???线????○????
第三步：
a?ba即为约分后的最简形式。
ba?b编写VB程序，程序运行界面如第6题图1所示，请根据算法将下列程序补充完整。
Private Sub Command1_Click()
Dim a As Integer, b As Integer, r As Integer 'a、b为分子和分母，r为最大公约数 a = Val(Text1.Text) b = Val(Text2.Text)
If b = 0 Then c = MsgBox(\分母不能为0\ '如果分母为0，则提示“分母不能为0”并退出该过程 r = ① （3分） Text3.Text = Str(a / r) End Sub
Private Sub Timer1_Timer() sec = Val(Text2.Text) min = Val(Text1.Text) If sec> 0 Then sec = sec - 1 Else
sec = 59
If min > 0 Then min = min - 1 Else
??○ __○?___?_?___??__?：?号?订考_订_?___??___??___??：级?○班_○?___?_?__?_?___??：名?装姓装_?__?_?___??___??_:校?○学○????????外内????????○○????????Text4.Text = Str(b / r) Text1 = 0 End Sub
Text2 = 0
Function gys(ByVal m As Integer, ByVal n As Integer) As Integer MsgBox \倒计时时间到\ 'gys函数用于求最大公约数 End If Dim s As Integer End If
If m < n Then
Text1 = min t = m: m = n: n = t Text2 = sec End If
End Sub
Do While n <> 0 程序中①处应该填
s = m Mod n 计时器timer1的inteval属性应该设置为 m = n 【答案】（1）True （2）1000 n = s 【解析】 Loop
② （3分） 评卷人 得分 End Function
三、判断题（题型注释）
【答案】①gys(a, b) ②gys = m
【解析】本题以欧几里德算法为背景，来解决一个在生活中非常普遍的问题——约分。在题意中，通过自然62．任何一个算法所包含的计算步骤都是有限的。（ ） 语言描述算法，考生可以根据题意了解该算法的基本原理，并对解题提供一定的帮助信息。涉及到自定义函【答案】√ 数，Do循环语句等知识点，同时也考查考生对自然语言转换为VB程序代码的能力。 【解析】
61．小李想用vb制作一个分钟倒计时器，界面如图所示。先在文本框text1中输入分钟数，然后在文本框text263．在循环体内可以再改变循环的初值、终值或步长；（ ） 中输入秒钟数，再点击“开始倒计时”按钮开始倒计时。Vb程序如下：
【答案】错误 【解析】
64．Do While循环也可以设置空循环或死循环（ ） 【答案】正确 【解析】
65．TEXT1.TEXT=100的唯一功能只．
是改变该对象的属性值（ ） 【答案】错误 【解析】
66．一个对象可以有若干个属性，这些属性的值反映了该对象的状态;方法(行为)的代码用来描述改变对象属性，从而改变对象的状态的处理过程（ ） 【答案】正确
【解析】
67．运行列表框对象语句：List1.AddItem= \同学们好！\，会显示：同学们好！；（ ） Private Sub Command1_Click() 【答案】错误 Timer1.Enabled = ①
【解析】
第17页 共28页 ◎ 第18页 共28页
???线????○????
68．解释程序将某个高级语言编写的程序全部解释为机器语言程序后才由计算机执行该程序。（ ） 【答案】× 【解析】
69．编制计算机程序解决问题的一般过程是：分析问题、编写程序、调试运行、设计算法。（ ） 【答案】错
【解析】应该是分析问题、编写程序、设计算法、调试运行。 评卷人 得分 四、操作题（题型注释）
Y=-20
If Not x>0 Then x=y-3 Else y=x+3 该程序段运行后，y的值为： 【答案】8 【解析】
72．全国两会中有代表又提到了个人税金问题。代表提议将个税作以如下的调整：月收入在2万及以上的收10%，月收入在1万（含）至2万的收5%，月收入在5千（含）至1万的收2%，月收入少于5千的免收。 小明用VB设计了计算个税的程序，程序运行时界面如图1所示，在文本框Text1中输入月收入后，点击“开始计算”按钮后，在文本框Text2中显示该产品应征收的税金。
???线????○???? 70．打开并修改考生文件夹下“VB”文件夹中的“峰谷电费计算.vbp”，使其具有下列功能：在文本框Text1和Text2中分别输入相应的电量，点击“计算”按钮，在Text3中显示用户的电费；点击“清空”按钮，则清空所有文本框；点击“退出”按钮，关闭程序。程序运行效果如下图所示：
（1）为应用程序界面添加“开始计算”按钮，应使用图2中的____________（填写相应编号），并将图3所示中的“属性窗口”中，将________属性设置成“开始计算”。
完成下列操作：
（1）对照效果图，添加缺少的对象，并修改其caption属性，使其与效果图相同。为窗体的背景设置图片，图片来自“VB”文件夹中的“greenbj.jpg”。
（2）为命令按钮Command1选择合适的事件过程，该事情过程的代码可以从“VB”文件夹下的“code.txt”中得到。
（3）运行程序时发现在文本框Text1和Text2中分别输入电量后，单击命令按钮Command1后，在Text3上未能显示结果。请修改相关的代码，实现上述功能。程序调试正确后，生成“峰谷电费计算.exe”，保存在“VB”文件夹中。保存窗体文件和工程文件。 【答案】（1）参照效果图，添加缺少的对象command2,并把caption属性值设为“清空”。把窗体的Picture属性值设置为“VB”文件夹中的“greenbj.jpg”
（2）双击command1对象，把“VB”文件夹中的“code.txt”的代码添加到代码窗口中。
（3）计算得出的用电费用fy的值没有赋值给Text3，将相关代码改为:
（2）根据题意，将下列程序空格处补充完整。 Text3.Text=str（fy）。利用“文件”菜单，在“VB”文件夹中保存窗体文件和工程文件。 Private Sub Command1_Click() 【解析】（1）本题主要考核VB程序设计中对象的添加和属性的设置。
Dim x As Single, p As Single 操作建议：参照效果图，添加缺少的对象command2,并把caption属性值设为“清空”。把窗体的Picture属x ＝ Val(Text1.Text) 性值设置为“VB”文件夹中的“greenbj.jpg”。 If x >＝ 20000 Then （2）本题主要考核事件过程代码的编制。
p ＝ 0.1 * x
操作建议：双击command1对象，把“VB”文件夹中的“code.txt”的代码添加到代码窗口中。 Else If x >＝ 10000 Then （3）本题主要考核对Visual Basic程序代码的调试的能力。要求能根据错误提示，分析原因，并解决问题。 p ＝ 0.05 * x
操作建议：计算得出的用电费用fy的值没有赋值给Text3，将相关代码改为Text3.Text=str（fy）。利用“文Else If x >＝ 5000 Then 件”菜单，在“VB”文件夹中保存窗体文件和工程文件。 p ＝ 0.02 * x 71．如下程度段： Else X=5
P ＝ 0
第19页 共28页 ◎ 第20页 共28页
??○ ?※○※??题※??※?答?※?订※内订?※??※线??※?※?订?○※※○?装??※※??在※??※?装要※装?※不??※??※请??※?○※○????????内外????????○○???????????线????○???? ???线????○????
End If
___________＝ Str(p) End Sub 【答案】（1）4，Caption （2）Text2.text 【解析】
73．小张设计了一个“加减运算练习”VB程序。界面如下图所示。单击“出题”Command1按钮显示两个运算数和运算符号，并计数。在文本框Text1中输入计算结果后单击“判断”按钮Command2，如果计算结果正确，则得分加10分，直至完成10题测试。VB程序如下，但加下划线处代码有错，请改正。
（2）c=”-”
（3）a-b=val(text1.text) 【解析】
74．要求编写VB程序，使其具有下列功能：在文本框Text1中输入身高数据，在文本框Text2中输入体重数据，在复选框Check1据实勾选“性别”，单击“判断”按钮Command1，按“世界卫生组织体重计算标准”进行判断，并在Label3中显示判断结果。界面设计如图1所示。世界卫生组织关于成年人体重标准的计算方法如图2所示。
??○ __○?___?_?___??__?：?号?订考_订_?___??___??___??：级?○班_○?___?_?__?_?___??：名?装姓装_?__?_?___??___??_:校?○学○????????外内????????○○????????
Dim n,s As Integer 'n为试题计数器,s为得分 Dim a, b As Integer 'a，b 为两个运算数
Dim c As String 'c为运算符：\表示加法，\表示减法
Private Sub Form_Load() n = 0: s = 0 End Sub
Private Sub Command1_Click() ‘出题按钮 Randomize n = n + 1
If n < 11 Then
Label1.Caption = \：\
a = Int(Rnd * 100) 'a，b为运算数，且要求a不小于b b = Int(Rnd * 100)
If a > b Then t = a: a = b: b = t '(1) If Rnd > 0.5 Then c = \ Label5.Caption = Str(a) + c + Str(b) + \ Text1.Text = \ Else
Command1.Caption = \完成测试\ End If End Sub
Private Sub Command2_Click() ‘判断按钮 If c = \
If a + b = Val(Text1.Text) Then s = s + 10 Else
If a + b = Val(Text1.Text) Then s = s + 10 '(3) End If
Label3.Caption = \得分:\ End Sub 【答案】（1）a
第21页 共28页
（1）应用程序界面设计时，为添加文本框Text1和Text2，应使用图3所示的“控件工具箱”中的___________（填写相应编号），并在属性窗口中将两个文本框的________属性设置为空。
（2）请根据题意将下列程序补充完整 Private Sub Command1_Click() Dim cm,kg,sc As Integer
第22页 共28页
◎???线????○????
Dim i as Single
cm = Val(Text1.Text) kg = val(Text2.Text) sc = 0 i = 0
If Check1 = 0 Then sc = (cm - 80) * 0.7 Else
_________①__________ End If
???线????○???? i = (kg - sc) / kg
If i >= -0.1 And i <= 0.1 Then Label3.Caption = \正重体重\ElseIf i > 0.1 And i <= 0.2 Then Label3.Caption = \体重超重\ElseIf i > 0.2 Then
_____________②____________ ElseIf i <= -0.1 And i >= -0.2 Then Label3.Caption = \体重过轻\Else
Label3.Caption = \体重严重不足\
End If （2）该程序的源代码如下，请根据题意将代码中①处补充完整，使程序能正常运行。（2分） End Sub
Private Sub Command1_Click() 【答案】（1）2（1分） Text（1分） （2）sc=(cm-70)*0.6（1分） Label3.Caption = \肥胖\（1分） Dim ch As String, pos As Integer 【解析】
① = Text1.Text 75．现要求编写VB程序（界面如图1所示），实现下列功能：计算一个大写字母在26个字母中的位次。程序pos = Asc(ch) – 64
运行时，在文本框Text1中输入一个大写英文字母，单击“计算”按钮Command1，在标签Label1上输出其在Label2.Caption = \第\个字母\ 26个字母中的位次。
End Sub 【答案】（1）3 Caption （2）ch 【解析】本题考查Visual Basic的界面设计，属性修改，和代码的阅读与填空，是对该软件的一个综合运用，考虑到是学业水平考试，而且加试部分有该知识点难度的提升，所以此处命题难度相对降低。 76．打开并修改考生文件夹下“VB”文件中的工程文件“test.vbp”，使其具有下列功能： 在文本框Text1中输入某场馆可容纳的观众人数，在文本框Text2中输入疏散全部观众所需的时间，单击“计算”按钮Command1，在文本框Text3中，显示该场馆至少应设置的疏散出口数（假设同一时刻走出同一大门的观众为5人，每个观众走出大门的时间为3到5秒）。程序运行效果如图所示：
（1）在进行应用程序界面设计时，需要添加“计算”按钮，可使用如图2所示的“控件工具箱”中的_______________（填写相应编号），并在如图3所示的“属性窗口”中，将__________属性值设置为“计算”。（4分）
第23页 共28页 ◎ 第24页 共28页
??○ ?※○※??题※??※?答?※?订※内订?※??※线??※?※?订?○※※○?装?※?※??在※??※装要?※装?※不??※??※请??※※?○○????????内外????????○○????????