实验十三常用控件认识与使用参.pdfVIP

《实验十三VB常用控件的认识与使用》参考答案

一、实验目的

掌握基本控件的特点及其属性、方法；

熟练掌握窗体和控件的事件过程代码的编写；

初步掌握建立基于图形用户界面的应用程序的过程。

二、实验内容

1．编写一个求三角函数的程序。通过一组单选按钮选择输入单位为“角度”或

“弧度”；另一组单选按钮用于选择VB三角函数Sin,Cos,Tan中的一种；

用文本框输入自变量值（角度或弧度），按下“计算”按钮，程序能计算相应结

果，并在窗体下端用标签输出。

提示：框架（Frame）控件的功能主要是从视觉上和功能上将其它控件分组。在

本题中的5个单选按钮（Option）如果不用框架分组的话，就只能五中选一，而

分为两组后就可以分别实现三中选一和二中选一。

２．将上题中选择三角函数的单选按钮控件换为列表框控件，修改窗体设计及相

应代码完成。

3．设计一个成绩录入程序用五个文本框来输入数学、物理、化学、语文、外

语五门课成绩。输入完一门成绩移开光标时（LostFocus事件）自动检查录入的

成绩是否有效。如果介于0～100之间，则可以继续输入；否则清除原数据，并

要求重新输入。底部的五个复选框用来选择参加合计的课程成绩。单击“合计”

按钮，计算所选课程的成绩总分。

［提示］LostFocus事件的主要用途是在焦点移离控件时进行①数据的验证和确

认；②隐藏、显示对象或者使其有效性。

4．编程实现下述功能：

（1）设计“个人情况登记”窗体Form1。窗体标题设置为“个人情况登记”；

用文本框输入姓名；用下拉式组合框选择部门，其中的候选项目包括“药学”、

“预医”、“临医”、“基础”等；性别为两个单选按钮；爱好是放置在框架控

件上的一组复选框，包括“文学”、“音乐”和“体育”等；垂直滚动条和文本

框组成一个数码器用于输入年龄，其值介于1~100之间。

（2）编写代码，单击垂直滚动条选择的年龄能够实时显示在相应的文本框中。

（3）在工程中添加一个Form2窗体，标题为“个人情况一览”。窗体中包含一

个支持多行显示的文本框控件；

（4）编写代码，按下“确定”命令按钮后，能够显示Form2窗体，并在其文本

框中分行输出Form1中输入的个人信息。单击Form2的“返回”按钮或按[Alt]+R

键可关闭该窗口，返回Form1。

三、实验结果

请在此简述实验完成情况，并列出你编写的各工程的主要命令代码：

1、主要程序代码如下：

PrivateSubCommand1_Click()

DimjdAsSingle,hszAsSingle定义存放输入的角度和函

数值的变量

DimhsmAsString定义存放函数名

字符串的变量

jd=Val(Text1.Text)

If___Option4.Value__Thenjd=jd*3.1415926/180角度转

弧度

hsz=f(Option1.Value,Sin(jd),f(Option2.Value,Cos(jd),

Tan(jd)))

hsm=__f(Option1.Value,Sin,f(Option2.Value,Cos,Tan))___

Label1.Caption=hsm+(+Text1.Text+)=+____Str(Hsz)____

EndSub

2、更改两句：

hsz=f(List1.SelectIndex=0,Sin(jd),f(List1.SelectIndex=1,

Cos(jd),Tan(jd)))

hsm=f(List1.SelectIndex=0,Sin,f(List1.SelectIndex=1,Cos,

Tan))

3、

PrivateSubCommand1_Click()

Dimi%

DimSum!

Fori=0To4

IfCheck1(i).Value=1ThenSum=Sum+Val(TexCJ(i).Text)

Nexti

Text1.Text=Sum

EndSub

Pr