实验目的

1. 掌握标签、命令按钮、单选按钮、复选框、文本框、列表框等控件的常用属性。

2. 掌握命令按钮、单选按钮、复选框、文本框、列表框等控件的常用事件。

3. 掌握命令按钮、文本框、列表框等控件的常用方法。

4. 了解标签、命令按钮、单选按钮、复选框、分类框、文本框、列表框等控件在程序设计中的作用，能够使用以上控件编写简单的应用程序。

实验内容

一、单选按钮、复选框和分类框的使用

设计如图9-1所示的程序，通过对单选按钮和复选框控件的选择以设置窗体标签中显示的字体、字号和字型。

如图9-1所示，建立自己的应用程序用户界面，并设置每个对象所需要的属性。在Form1窗体中包含有一个标签控件、二个Frame控件、六个单选按钮控件、二个复选框控件，这些对象的Caption属性如下：

Ø  Label1的Caption属性为：“单选按钮、复选框和框架”

Ø  Frame1的Caption属性为：“字体”

Ø  Frame2的Caption属性为：“字号”

Ø  Option1的Caption属性为：“宋体”

Ø  Option2的Caption属性为：“隶书”

Ø  Option3的Caption属性为：“黑体”

Ø  Option4的Caption属性为：“10”

Ø  Option5的Caption属性为：“16”

Ø  Option6的Caption属性为：“20”

Ø  Check1的Caption属性为：“画底线”

Ø  Check2的Caption属性为：“画中线”

下面给出了三个事件过程，其他需要的事件过程请同学们自己补充完善，并调试通过。

PrivateSub Option1_Click()

    Label1.FontName = "宋体"

EndSub

PrivateSub Option4_Click()

    Label1.FontSize = 10

EndSub

PrivateSub Check1_Click()

    If Check1.Value = 0 Then

        Label1.FontUnderline = False

    Else

       Label1.FontUnderline = True

    End If

EndSub

运行该程序，然后回答以下两个问题。

（1）为什么在单选按钮的Click事件中，不需要像在复选框的Click事件中那样对情况进行判断？                                                                 

（2）在建立应用程序的界面时，能否先在窗体上添加六个单选按钮控件，然后添加两个Frame控件，再将单选按钮拖动到每个Frame控件中？若使用这种方法，将会出现一种什么样的情况？                                                                       

二、文本框的使用

利用文本框的KeyPress事件限制文本框中输入的字符只能是数字0~9。建立如图9-2所示的应用程序用户界面，并设置对象的相关属性

补充完善如下代码，并调试通过。

PrivateSub Text1_KeyPress(KeyAscii As Integer)

    IfKeyAscii <         Or KeyAscii >          Then

        MsgBox "输入的字符必须是数字"

        KeyAscii = 0 '取消刚才的输入

    EndIf

EndSub

运行该程序，然后回答以下几个问题。

（1）在文本框的KeyPress事件的KeyAscii参数中，保存了什么？          

（2）当我们通过键盘中输入字符“A”时，KeyAscii的值将是什么？        

（3）上面的程序代码能够满足我们的需要，但需要我们知道数字0和数字9的ASCII值。实际上，即使我们并不知道它们的ASCII码值，按照ASCII码的排列顺序和特点，也可以设计出功能相同的程序。修改你的程序代码，并调试通过。

PrivateSub Text1_KeyPress(KeyAscii As Integer)

EndSub

（4）使用KeyPress事件的KeyAscii参数，如何将输入的大写字符自动转换为小写字符？补充以下代码，并调试通过。

PrivateSub Text1_KeyPress(KeyAscii As Integer)

EndSub