模拟考试题

一、按要求写出正确的SQL命令

1.参考附件，创建customer表。

2.往customer表中插入一条记录（要求：customer_id的值为：510103************，cust_name的值为：张华）。

3.参考附件，查询账号为：12345678账户的账户余额是多少。

4.参考附件，查询账户余额在10000（不包括10000）到500000（包括500000）之间的账号、户主身份证号信息。

5.参考附件，将账户余额在10000以下（包括10000）的账户，按1.5%计息，并归入账户余额字段。

6.参考附件，删除Staff_id字段值为：staff01的工作人员记录。

7.参考附件，删除account表。

8.参考附件，删除账户余额小于1的账户记录。

9.参考附件，查询账户余额在1000000以上（包含1000000）的户主姓名和性别。

10.参考附件，将所有账户余额清零。

二、按要求编写程序（每小题6分，共30分）

1.换行显示学生自己的学校名、学院名、专业名及本人学号、姓名等信息。

2.在程序中，用循环语句计算并显示出100+101+102+...+200的值。

Private Sub Command1_Click()

Dim i,s as integer

S=0

For I = 100 to 200

S=s+i

Next i

Print s

End sub

3.从键盘上输入一个数X，计算并输出Y的值。Y=。

4.从键盘上输入三个整数，显示最大的那个整数。

Private Sub Command1_Click()

Dim a, b, c, max As Integer

a = Val(InputBox("="))

b = Val(InputBox("="))

c = Val(InputBox("="))

If a > b Then

max = a

Else

max = b

End If

If c > max Then

max = c

End If

Print max

End Sub

5.从键盘上输入学生成绩（0-100的整数），判断并显示成绩对应的等级（0-59分为：“不及

格”，60-79为：“中等”；80及以上为：“优良”）。Private Sub Command1_Click()

Dim a As Integer