2011年期末数据库模拟考试例题.docVIP

填空题： 1、铁路托拖行李,是根据行李的重量按下列标准收费：若不超过50Kg，按每0.35/Kg收费，若超过50 Kg，超过部分则按0.5/ Kg元收费，行李重量不得超过150 Kg。 设计一个VB程序，通过输入托运行李的重量，计算并输出托运行李的费用，若超过150 Kg，提示“行李超重！”。 设x表示行李重量，y表示托运费。通过分析可以得出该问题的数学表达式为： 以下代码解决上述问题，在划线处填入合适的语句或表达式，把程序补充完整。 Private Sub Command1_Click() 　Dim x As Double 　x = Val(Text1) 　If x 150 Then 　　Text2 = 行李超重! 　Else 　　If??____[1]____ ?? Then 　　　y = 50 * 0.35 + (x - 50) * 0.5 　　Else 　　　? ____[2]____ 　　　 　　End If 　　Text2 = y 　End If End Sub x 或x50 [2] y= x * 0.35 2、有30个人，其中有男人、女人和小孩。他们在一家饭馆里花去500元。已知，每个男人花30元，每个女人花20元，每个小孩花10元。问：男人、女人、小孩各为多少人。为了实现这一目标，完善下面的VB程序，在划线处填入合适的语句或表达式，完成程序设计。 Private Sub Command1_Click() 　Dim man As Integer, woman As Integer, child As Integer 　For man = 1 To 15 　　For woman = 1 To 23 　　　child =? ? ____[1]____ ? 　　　　s = 30 * man + 20 * woman + 10 * child 　　　　If??? ____[2]____ ???Then 　　　　Print?? man, woman, child 　　　End If 　　Next woman 　Next man End Sub 下面VB程序的功能是：计算表达式1+1/3+1/5+…+1/99的值，并在文本框Text1中输出该表达式的值。为了实现这一功能，程序中划线处填入适当的语句或表达式，以完善程序。 Private Sub Command1_Click() 　Dim sum As Single, i As Integer 　sum = 0 　For i = 1 To 99 Step??____[1]____ 　　sum =? ____[2]____ 　Next 　Text1 = sum End Sub有表St_Info(St_Id，St_Name，St_Sex，Born_Date，Address)，各属性的含义为学号、姓名、性别、出生日期、住址，和表S_C_Info(St_Id，C_No，Score)，各属性的含义为学号、课程号、成绩，查询所有姓王的学生所修课程的成绩。SELECT? ?C_No, Score FROM?? S_C_Info WHERE???____[1]____ IN ?( SELECT ?? St_ID?? FROM?? St_Info?? WHERE?? St_Name? ?LIKE?? ‘ ____[2]____ ?’ ?)? ? 答：[1] St_ID? [2] ‘王%’ 5、对于表St_Info(学号,姓名,性别,出生日期,专业,班级)， C_info(课程号,课程名,课程类别,学分)和S_C_Info(学号,课程号,分数)，查询选修了“高等数学”课程的学生的学号和成绩。 SELECT? ?学号,? FROM ?? S_C_Info WHERE? ? ____[1]____ ?IN?? ( SELECT ?课程号? FROM ?C_Info?? WHERE?? ?课程名= ‘____[2]____ ?? ? ’? )‘高等数学’ 问答题： 1、 在VB中，执行以下程序段： a = 123 b = 456 c = Val(a) + Val(b) Print c 输出结果是：Val表示把字符串类型的数据转化为数值型，val是把string类型的数字转成数值型。若输入的不是数字，它的结果就是0，例如 val(123abc)，值为 123。 2、在VB中，执行以下程序段： Private Sub Command1_Click() 　Dim a(5) 　For i = 1 To 5 　　a(i) = i * i 　Next i 　Print a(a(2) * a(3) - a(4) * 2) + a(5) End Sub 单击按钮Command1，输出结果