【参考答案】
〔1〕将〝商品信息〞表的〝价格〞字段数据类型设置为〝货币〞，〝小数位数〞为2；
〔2〕以〝商品编号〞字段，为〝进货信息〞与〝商品信息〞两表建立一对一关系，并实施参照完整性；
〔3〕以〝商品信息〞表为数据源，创建一个名为〝商品价格查询〞的查询，依次显示〝商品编号〞、〝商品名称〞和〝价格〞字段，并只显示〝价格〞高于100元〔不包含100元〕的商品信息；
〔4〕以〝进货信息〞为数据源，创建一个命名为〝进货数据〞的自动窗体。
第二卷 选修部分评析
【一】单项选择题〔题数：7道，共：14.0分〕
1、(选修)在高中生里面招收飞行员的基本条件是身高T不低于1.7米且体重W不少于50公斤，表示该条件的逻辑表达式为〔 〕。
A、T>=1.7 Or W>=50 B、T>=1.7 Or W<=50 C、T>=1.7 And W>=50 D、T>1.7 And W>50 【参考答案】C
2、(选修)计算机高级程序设计语言必须由〔 〕转化成机器语言才能被计算机执行。
A、自然语言程序 B、汇编语言程序 C、操作系统 D、编译或解释程序 【参考答案】D
3、(选修)下面是〝用辗转相除法求两个数的最大公约数〞的算法描述，下面哪个语句是伪代码？〔 〕
Dim m As Long, n As Long, r As Integer …… ① m = InputBox(\输入第一个数\ n = InputBox(\输入第二个数\
r = m Mod n …………………………………… ② Do While r≠0 …………………………… ③ m = n n = r
r = m Mod n …………………………………… ④ Loop Print n A、① B、② C、③ D、④
【参考答案】C
4、(选修)使用VB编写一个员工管理的程序时，使用哪种数据类型来定义变量〝年龄〞？
A、Integer B、Double C、String D、Long 【参考答案】A
5、(选修)有一组数列：12.5 16.0 17.3 13.1 16.5 14.2，如果按照选择排序法将其从小到大排列，第二次交换后得到的数列应为〔 〕。
A、12.5 16.0 13.1 14.2 16.5 17.3
B、12.5 16.0 13.1 16.5 14.2 17.3 C、12.5 13.1 17.3 16.0 16.5 14.2 D、12.5 13.1 14.2 16.0 16.5 17.3 【参考答案】C
6、(选修)下面的VB程序在编译时出现如右图所示错误信息提示，原因是〔 〕。
A、缺少了语句：For B、缺少了语句：End If C、缺少了语句：Next i D、缺少了语句：Next n 【参考答案】C
7、(选修)某同学忘记了自己的银行密码，他只记得该密码是将自己生日〔例如：19860512〕打乱顺序后重新排列而成，他可以用哪种算法求得密码？
A、穷举法 B、解析法 C、插入排序法 D、选择排序法 【参考答案】A
【二】综合分析题〔题数1道，共：10分〕：
第2大题(题号：66)本大题：10分，考生得分：0.0 (选修)
小罗编写了一个VB程序，功能如下：随机生成三个1到10之间的整数〔包括1和10〕，然后判断这三个整数做为三条边是否能构成三角形，如果可以进一步判断三角形的类型，下面是程序的界面：
程序代码如下：
Private Sub Command1_Click() Dim a(3) As Integer
Dim i As Integer Me.Cls
Randomize
For i = 1 To 3 Step 1 a(i) = Int(Rnd * 10) + 1 Next i
If Not (a(1) + a(2) > a(3) And a(2) + a(3) > a(1) And a(3) + a(1) > a(2)) Then
pd = \这三条线不能构成一个三角形\
ElseIf a(1) * a(1) + a(2) * a(2) = a(3) * a(3) Or a(1) * a(1) + a(3) * a(3) = a(2) * a(2) Or a(2) * a(2) + a(3) * a(3) = a(1) * a(1) Then
pd = \可以构成一个直角三角形\ ElseIf a(1) = a(2) and a(1) = a(3) Then pd = \可以构成一个等腰三角形\ ElseIf __①__ Then
pd = \可以构成一个等边三角形\ Else
pd = \可以构成一个不等边斜三角形\ End If Next pd
Label1.Caption = pd End Sub
第1小题：如果没有Text控件，下面可以替换蓝框内代码的是〔 〕。 A、Print a(i)
B、Label1.text = a(i) C、Label1.Caption = a(i) D、Print Str(a(1 to 3));
