实验十常用控件实验目的掌握命令按钮、标签、文本框、单选钮、复选框等常用控件的属性、方法和事件。掌握滚动条、列表框、组合框和时钟控件的使用。了解鼠标和键盘事件及其事件过程的编写。综合应用所学的知识，编制具有可视化界面的应用程序。实验要求通过实验范例的学习，掌握基本的常用控件，并根据实验内容要求编写完整的应用程序，学会单选框、复选钮、滚动条、列表框和滚动条等控件的使用。实验范例下图10-1是一个学生成绩计算程序，具有如下功能：文本框中只能输入0～9之间的数字字符。当焦点离开文本框时，能检查输入的成绩是否有效。若成绩不在0～100之间，则清除原数据，并将光标移到该文本框。若文本框左边的复选框未被选定，则文本框不可以输入成绩并且不参加计算总分和平均成绩。图10-1范例1程序运行界面步骤一：利用复选框、文本框、标签、命令按钮根据要求设计界面。步骤二：编写如下事件过程PrivateSubForm1_Load(……)HandlesMyBase.LoadMe.KeyPreview=True'窗体优先处理键盘事件CheckBox1.Checked=TrueCheckBox2.Checked=TrueCheckBox3.Checked=TrueEndSubPrivateSubForm1_KeyPress(……)HandlesMe.KeyPress'如果所按键不在0~9之间，则忽略Ife.KeyChar<"0"Ore.KeyChar>"9"Thene.Handled=TrueEndIfEndSubPrivateSubCheckBox1_CheckedChanged(……)HandlesCheckBox1.CheckedChangedTextBox1.Enabled=CheckBox1.CheckedEndSubCheckBox2和CheckBox3的CheckedChanged事件过程同CheckBox1，略。'如果输入分数超出0~100，则重新输入PrivateSubTextBox1_LostFocus(……)HandlesTextBox1.LostFocusIf(Val(TextBox1.Text)<0OrVal(TextBox1.Text)>100)ThenTextBox1.Text=""TextBox1.Focus()EndIfEndSubTextBox2和TextBox3的LostFocus事件过程同TextBox1，略。PrivateSubButton1_Click(……)HandlesButton1.ClickDimtotalAsInteger=0,countAsInteger=0IfCheckBox1.CheckedThentotal=total+Val(TextBox1.Text)count+=1EndIfIfCheckBox2.CheckedThenIfCheckBox2.CheckedThentotal=total+Val(TextBox2.Text)count+=1EndIfEndIfIfCheckBox3.CheckedThenIfCheckBox3.CheckedThentotal=total+Val(TextBox3.Text)count+=1EndIfEndIfTextBox4.Text=totalTextBox5.Text=Format(total/count,"0.##")EndSubPrivateSubButton2_Click(……)HandlesButton2.ClickTextBox1.Text=""TextBox2.Text=""TextBox3.Text=""TextBox4.Text=""TextBox5.Text=""EndSub程序运行时，不选中“语文”等前面的复选框，其后的文本框将变成灰色，不能输入也不会参与计算；在文本框中输入数据时，只能输入0～9之间的数字字符；单击“计算成绩”按钮，右边两个文本框中将显示所输入成绩的总分和平均分。编写一个程序，利用两个组合框设置文本框的字体和字号，其中字体组合框的选项通过获取系统字体加入。程序运行界面如图10-2所示。图10-2范例2程序运行界面步骤一：利用组合框、文本框根据要求设计界面，其中字体组合框的DropDownStyle属性设置为DropDownList，大小组合框的DropDownStyle属性设置为DropDown。步骤二：编写如下事件过程PrivateSubForm1_Load(……)HandlesMyBase.LoadDimfAsFontFamilyForEachfInSyste