数据库原理与应用期末试卷(5)

X = InputBox("输入一个自然数：") For I = 2 To X - 1 If X Mod I = 0 Then Exit For End If Next I If X = I Then

MsgBox X & "是质数" Else

MsgBox X & "不是质数" End If End Sub

此程序的功能是： 2.Sub ShowSystemDate( )

Dim date1 as Date

date1=Date

Msgbox date1

End Sub

此程序运行的结果： 显示当前日期 五、综合题（25分）

1. 现在有一创建好的Student的表，表中有四个字段：姓名，性别，年龄，入学日期。现要求如下：(1)删除Student表中的“入学日期”字段;(3分)

(2)向Student表中添加一条记录，并给姓名、性别和年龄赋值分别为“李明”、“男”、18；(3分)

(3)将Student表中“李明”的年龄由18改为20; (3分)

(4)将Student表中年龄为19岁以下(不包括19岁)的记录全部删除。(3分) 请用SQL语句实现以上要求。 (1).Alter table Student drop 入学日期

(2).Insert into Student values( 李明 ， 男 ，18) (3).Update Student set 年龄=20 where 姓名= 李明