教学要求
要求掌握：
1．“单选按钮”、“复选框”与“框架”组合应用。
2．利用“单选按钮”、“复选框”的Value值编程。
3．符号“&”的应用及多项信息在文本框中显示的方法。
重点:
“单选按钮”与“框架”、“复选框”与“框架”的组合使用，
符号“&”的应用及多项信息在文本框中显示的方法，
以及利用“单选按钮”、“复选框”的Value值编写程序。
难点：“单选按钮”、“复选框”的Value值编写程序代码。
1.设计式样
对象属性属性值Form1（窗体）Caption学生情况调查表Border选2-SizableLabel1（标签）Caption姓名Label2Caption年龄Label3Caption基本情况Text1（文本框）Text为空Text2Text为空Text3Text为空MultilineTrue（接受多行文本）Frame1（框架）Caption性别Frame2Caption年级Frame3Caption爱好Command1（命令按钮）Caption确定Command2Caption清除Command3Caption退出单击工具箱的“OptionBotton（单选按钮）”图标，在Frame1框架内创建“Option1（男）”、“Option2（女）”。
单击工具箱的“OptionBotton（单选按钮）”图标，在Frame2框架内创建“Option3（高一）”、“Option4（高二）”、“Option5（高三）”。
单击工具箱的“CheckBox（复选框）“图标，在Frame3框架内创建“Check1（体育）”、“Check2（音乐）”、“Check3（美术）”、“Check4（电脑）”、“Check5（文学）”、“Check6（舞蹈）”。
2.设计功能（设置程序代码）
双击Form1窗体，打开代码窗口，在“对象”下拉列表中选择Command1，在“过程”下拉列表中选择Click，输入代码：
OptionExplicit
Dimxb,nj,ah1,ah2,ah3,ah4,ah5,ah6,_
fh1,fh2,fh3,fh4,fh5,fh6AsString
‘一行写不下，可在行尾用空格加一短线“_”实现换行连接
PrivateSubCommand1_Click()
SelectCaseTrue
CaseOption1.Value:xb="男"‘单选按钮Option的Value的值有两种：
CaseOption2.Value:xb="女"‘True表示选中，False表示未选
EndSelect
SelectCaseTrue
CaseOption3.Value:nj="高一"
CaseOption4.Value:nj="高二"
CaseOption5.Value:nj="高三"
EndSelect
IfCheck1.Value=1Then‘复选框Check的Value值的有三种：
ah1="体育":fh1="、":EndIf‘0表示未选，1表示选中，2表示不可用
IfCheck2.Value=1Then
ah2="音乐":fh2="、":EndIf
IfCheck3.Value=1Then
ah3="美术":fh3="、":EndIf
IfCheck4.Value=1Then
ah4="电脑":fh4="、":EndIf
I
fCheck5.Value=1Then
ah5="文学":fh5="、":EndIf
IfCheck6.Value=1Then
ah6="舞蹈":fh6="。":EndIf
Text3.Text=Text1.Text&"同学"&"，"&xb&"，"&Text2.Text&"岁，"_
&nj&"学生"&"，"&"爱好"&ah1&fh1&ah2&fh2&ah3_
&fh3&ah4&fh4&ah5&fh5&ah6&fh6‘符号“&”将两个字符串连接
EndSub
在“对象”下拉列表中选择Command2，在“过程”下拉列表中选择Click，输入代码：
PrivateSubCommand2_Click()
Text1.Text="":Text2.Text="":Text3.Text=""‘置文本框为空字符串
Option1.Value=False:Option2.Value=False:Option3.Value=False
Option4.Value=False:Option5.Value=False‘置单选框为“假”
Check1.Value=0:Check2.Value=0:Check3.Value=0‘置复选框为未选
Check4.Value=0:Check5.Value=0:Check6.Value=0
ah1="":fh1="":ah2="":fh2="":ah3="":fh3=""
ah4="":fh4="":ah5="":fh5="":ah6="":fh6=""
EndSub<Back8.6制作学生情况调查表教学要求要求掌握：1．“单选按钮”、“复选框”与“框架”组合应用。2．利用“单选按钮”、“复选框”的Value值编程。3．符号“&”的应用及多项信息在文本框中显示的方法。重点:“单选按钮”与“框架”、“复选框”与“框架”的组合使用，符号“&”的应用及多项信息在文本框中显示的方法，以及利用“单选按钮”、“复选框”的Value值编写程序。难点：“单选按钮”、“复选框”的Value值编写程序代码。1.设计式样对象属性属性值Form1（窗体）Caption学生情况调查表Border选2-SizableLabel1（标签）Caption姓名Label2Caption年龄Label3Caption基本情况Text1（文本框）Text为空Text2Text为空Text3Text为空MultilineTrue（接受多行文本）Frame1（框架）Caption性别Frame2Caption年级Frame3Caption爱
好Command1（命令按钮）Caption确定Command2Caption清除Command3Caption退出单击工具箱的“OptionBotton（单选按钮）”图标，在Frame1框架内创建“Option1（男）”、“Option2（女）”。单击工具箱的“OptionBotton（单选按钮）”图标，在Frame2框架内创建“Option3（高一）”、“Option4（高二）”、“Option5（高三）”。单击工具箱的“CheckBox（复选框）“图标，在Frame3框架内创建“Check1（体育）”、“Check2（音乐）”、“Check3（美术）”、“Check4（电脑）”、“Check5（文学）”、“Check6（舞蹈）”。2.设计功能（设置程序代码）双击Form1窗体，打开代码窗口，在“对象”下拉列表中选择Command1，在“过程”下拉列表中选择Click，输入代码：OptionExplicitDimxb,nj,ah1,ah2,ah3,ah4,ah5,ah6,_fh1,fh2,fh3,fh4,fh5,fh6AsString‘一行写不下，可在行尾用空格加一短线“_”实现换行连接PrivateSubCommand1_Click()SelectCaseTrueCaseOption1.Value:xb="男"‘单选按钮Option的Value的值有两种：CaseOption2.Value:xb="女"‘True表示选中，False表示未选EndSelectSelectCaseTrueCaseOption3.Value:nj="高一"CaseOption4.Value:nj="高二"CaseOption5.Value:nj="高三"EndSelectIfCheck1.Value=1Then‘复选框Check的Value值的有三种：ah1="体育":fh1="、":EndIf‘0表示未选，1表示选中，2表示不可用IfCheck2.Value=1Thenah2="音乐":fh2="、":EndIfIfCheck3.Value=1Thenah3="美术":fh3="、":EndIfIfCheck4.Value=1Thenah4="电脑":fh4="、":EndIfIfCheck5.Value=1Thenah5="文学":fh5="、":EndIfIfCheck6.Value=1Thenah6="舞蹈":fh6="。":EndIfText3.Text=Text1.Text&"同学"&"，"&xb&"，"&Text2.Text&"岁，"_&nj&"学生"&"，"&"爱好"&ah1&fh1&ah2&fh2&ah3_&fh3&ah4&fh4&ah5&fh5&ah6&fh6‘符号“&”将两个字符串连接EndSub在“对象”下拉列表中选择Command2，在“过程”下拉列表中选择Click，输入代码：PrivateSubCommand2_Click()Text1.Text="":Text2.Text="":Text3.Text=""‘置文本框为空字符串Option1.Value=False:Option2.Value=False:Option3.Value=F
您现在访问的是中国学科吧旗下教案网http://www.jsfw8.com/jafs/alseOption4.Value=False:Option5.Value=False‘置单选框为“假”Check1.Value=0:Check2.Value=0:Check3.Value=0‘置复选框为未选Check4.Value=0:Check5.Value=0:Check6.Value=0ah1="":fh1="":ah2="":fh2="":ah3="":fh3=""ah4="":fh4="":ah5="":fh5="":ah6="":fh6=""EndSub第8章VisualBasic程序设计－8.6制作学生情况调查表这一教您现在访问的是中国学科吧旗下教案网http://www.jsfw8.com/jafs/