浙江省余姚市第四职业技术学校2022年高一上VB程序设计模拟四

浙江省余姚市第四职业技术学校2022年VB程序设计模拟4 考试说明： 1、在答题的过程中请注意保存 2、提交前请校对所有文件是否存在 3、答题前先把下发的试题文件夹改名为学号+本人姓名，确定考生文件夹 试题一(40分)： 设计一个学生信息输入和处理程序，要求界面如图1-1所示。 日学生信息城入和处理 班级 名「 身份证号码： 性别 男 、年龄 330204198203091021 选修课 爱好 C机器人 C街奥 厂足球 厂游泳 厂培歇 广酰舞 提交 信息预览： 图1-1 操作要求： 1.(3分)创建一个“标准EXE”工程，将其窗体文件和工程文件分别以“test1.fm” “test1.vbp”、“test1.exe”为文件名保存到“试题一”文件夹下。 2.(16分)参照图1完成界面设计：按表1-1添加相关对象并设置相关属性（各控件名称都 默认)。 表1-1 对象 设置内容 窗体form1 名称为Form1,标题为“学生信息输入和处理”，背景颜色为白 色2分窗体宽度为7995缇，高度为6600缇：窗口有单线边框， 运行时窗口大小不可改变：无最大化和最小化按钮。3分 6个标签 修改标题文字和背景透明'3分 “班级”文本框 背景颜色为：&HO0C0C0FF&'0.5分 “姓名”文本框 背景颜色为：&HO0C0FFFF&'O.5分 “身份证号码”文本框 默认文本为：330204199203091021'1分 “信息预览”文本框 设置多行属性为true'1分 “提交”命令按钮 运行时效果为背景颜色&H8000000D&'1分 “性别”组合框 运行时可以选择性别为“男”和“女”1分 其它控件按效果图 名称都为默认，背景颜色看效果3分 3.(21分)根据题意编写相应的事件（提交按钮单击事件）：共21分 1.如果没有输入班级、姓名、年龄，显示警告消息框如图1-2所示。'2分 2.如果没有选择选修课，显示错误消息框如图1-3所示2分 3.如果没有选择爱好，显示询问消息框如图1-4所示2分 4.如果身份证号码与性别或年龄不符合，显示消息框如图1-5所示，年龄是当前年份减去身 份证号码中的年份，性别根据身份证号码的倒数第二位来定，如果倒数第二位是偶数，则为 女性，如果是奇数则是男性。'10分 5.如果输入正确，显示信息在文本框如图1-6所示。5分 请选择课程」 警告！ 班级姓名和年龄不为空！ 你不参加选课吗？ 确定 确定 图1-2 图1-3 清选深爱好！ testl × 你境然没有爱好？ 性别或者身份证号码有误！ 确定 确定 图1-4 图1-5 日字生信息斯入和处理 X 班级5网蹈班■姓名王大力二 身份证号码： 性别皮 习年龄函 330204199203091021 选修课 爱好 G机器人 C街舞 反足球 口游泳 厂唱歌 厂跳疑 提胶 信息预览： 班赛和姓名：15网路班 王大力 爱是： 图1-6 2 代码区： Private Sub Command1 Click() If Then MsgBox"班级姓名和年龄不能为空！"，48，"警告！” Elself Option1.Value False And Option2.Value False Then MsgBox Elself Check1.Value =0 And Check2.Value 0 And Check3.Value 0 And Check4.Value =0 Then MsgBox"你竟然没有爱好？"，32，"请选择爱好！" Elself Val(Mid(Text5.Text,Len(Text5.Text)-1,1))Mod 2=0 And Or Val(Mid( )Mod 2 =1 And Combo1.Text =""Then MsgBox"性别或者身份证号码有误！" Elself Val(Text3.Text)<> Then MsgBox"年龄或者身份证号码有误！" Else Text4.Text="你的班级和姓名："&Text1.Text&""&Text2.Text&vbCrLf Text4.Text=Text4.Text&"你的性别："&Combo1.Text&vbCrLf Text4.Text=Text4.Text&"你的年龄："&Text3.Text&vbCrLf Text4.Text=Text4.Text&"你的选修课是：" If Option1.Value=True Then Text4.Text=Text4.Text &Option1.Caption&"" If Option2.Value=True Then Text4.Text=Text4.Text&Option2.Caption &" Text4.Text=Text4.Text&vbCrLf&"你的爱好是：