第8章Visual Basic程序设计－8.6 制作学生情况调查表.doc

第8章Visual Basic程序设计－8.6 制作学生情况调查表 教学要求 要求掌握： 1．“单选按钮”、“复选框”与“框架”组合应用。 ??2．利用“单选按钮”、“复选框”的Value值编程。 ??3．符号“”的应用及多项信息在文本框中显示的方法。 重点: ??“单选按钮”与“框架”、“复选框”与“框架”的组合使用， ???符号“”的应用及多项信息在文本框中显示的方法， ???以及利用“单选按钮”、“复选框”的Value值编写程序。 难点：“单选按钮”、“复选框”的Value值编写程序代码。? 1.?设计式样? 对? 象 属? 性 属性值 Form1 Caption 学生情况调查表 Border 选2- Sizable Label1 Caption 姓名 Label2 Caption 年龄 Label3 Caption 基本情况 Text1 Text 为空 Text2 Text 为空 Text3 Text 为空 Multiline True Frame1 Caption 性别 Frame2 Caption 年级 Frame3 Caption 爱好 Command1 Caption 确定 Command2 Caption 清除 Command3 Caption 退出 ?单击工具箱的“OptionBotton”图标，?在Frame1框架内创建“Option1”、“Option2”。 ?单击工具箱的“OptionBotton”图标，在Frame2框架内创建“Option3”、“Option4”、“Option5”。 ?单击工具箱的“CheckBox“图标，在Frame3框架内创建“Check1”、“Check2”、“Check3”、”Check4”、“Check5”、“Check6”。 2.?设计功能 双击Form1窗体，打开代码窗口，在“对象”下拉列表中选择Command1，在“过程”?下拉列表中选择Click，输入代码：? Option?Explicit ??Dim?xb,?nj,?ah1,?ah2,?ah3,?ah4,?ah5,?ah6,?_ ??fh1,?fh2,?fh3,?fh4,?fh5,?fh6?As?String ??一行写不下，可在行尾用空格加一短线“_”实现换行连接 Private?Sub?Command1_Click ?Select?Case?True ???Case?Option1.Value:?xb?=?”男” ?单选按钮Option?的?Value?的值有两种： ???Case?Option2.Value:?xb?=?”女” True表示选中，False表示未选 ?End?Select ?Select?Case?True ???Case?Option3.Value:?nj?=?”高一” ???Case?Option4.Value:?nj?=?”高二” ???Case?Option5.Value:?nj?=?”高三” ?End?Select ?If?Check1.Value?=?1?Then ???复选框Check?的?Value?值的?有三种：? ???ah1?=?”体育”:?fh1?=?”、”:?End?If?0表示未选，1表示选中，2表示不可用 ?If?Check2.Value?=?1?Then ???ah2?=?”音乐”:?fh2?=?”、”:?End?If ?If?Check3.Value?=?1?Then ???ah3?=?”美术”:?fh3?=?”、”:?End?If ?If?Check4.Value?=?1?Then ???ah4?=?”电脑”:?fh4?=?”、”:?End?If ?I f?Check5.Value?=?1?Then ???ah5?=?”文学”:?fh5?=?”、”:?End?If ?If?Check6.Value?=?1?Then ???ah6?=?”舞蹈”:?fh6?=?”。”:?End?If ??Text3.Text?=?Text1.Text??”同学”??”，”??xb??”，”??Text2.Text??”岁，”?_ ?nj??”学生”??”，”??”爱好”??ah1??fh1??ah2??fh2??ah3?_ ?fh3??ah4??fh4??ah5??fh5??ah6??fh6 ?‘符号“”将两个字符串连接 End?Sub 在“对象”下拉列表中选择Command2，在“过程”?下拉列表中选择Click?，输入代码： Private?Sub