当前位置：首页 > 2015年四川职教高考信息一类高考题
请补充完成相关代码实现上述功能。 备注：“生日”对应文本框的名字为Birth；“判断生日”按钮的名称是FindButton；“请输入查询学生的学号：”文字后面的文本框名字为Sno。
图8
图9 图10
图11 图12
Private Sub FindButton_ ① Sno. ② A=Sno.Text If A=\
MsgBox \请输入学生学号\
Else
Dim db As Database
set db=CurrentDb '后面可加()也可不加
SQL=\生日 from 学生表 where 学号='\③ if db.openRecordset(SQL). ④ =0 then
MsgBox \学生学号不存在，请重新输入！\Else
B=db.OpenRecordset(SQL).Fields(0) C=Weekday(B)
SQL2=\ ⑤ 性别\ set rs=db.OpenRecordset(SQL2) While Not rs.EOF
MsgBox ⑥ &\同学有\个\ rs.MoveNext Wend ⑦ case C
Case vbSunday
MsgBox \学号是\的同学的生日是 星期日\ Case vbmonday
MsgBox \学号是\的同学的生日是 星期一\......'此处略去判断生日的相关语句 Case vbSaturday
MsgBox \学号是\的同学的生日是 星期六\ End Select End If End If End Sub
96.网页设计综合应用题（共2题，共25分）
（1）图13是一个利用框架技术实现的网页，请将以下HTML代码补充完整实现图13所示的效果。（每空2分，共20分）
图13
下面是框架中显示“美丽四川”文字所在页面的HTML代码，请补充完整。
< ① HTTP-EQUIV=\ ② =gb2312\
< ④ rows=\
下面是框架中显示“旅游调查表”文字的网页“Lydc.htm”的HTML代码，请根据显示的效果补充完整。
