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 姓名= 李明
搜索“diyifanwen.net”或“第一范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读,第一范文网,提供最新工程科技数据库原理与应用期末试卷(6)全文阅读和word下载服务。
相关推荐: