8. 若要设置图形命令按钮的背景图形，则可通过（ C ）属性来设置。 A. DownPicture
B. DisabledPicture C. Picture
D. Image
9. 若要使用标签框成为透明，则可通过设置（ B ）属性来实现。 A. BackColor
B. BackStyle
C. BorderStyle
D. ForeColor
10. 标签框文本的对齐方式由（ B ）属性值决定。 A. Align
B. Alignent
C. Autosize
D. BackStyle
11. 在运行时，若要获得用户在文本框中所选择的文本，可通过访问（ D）属性来实现。 A. SelStart
B. SelLength
C. Text
D. SelText
12. 若要设置定时器控件的定时时间，可通过（ A ）属性来设置。 A. Interval
B. value
C. Enabled
D. Text
13. 若要在图片框中绘制一个椭圆，则可使用（ A ）方法来实现。 A. Circle
B. Line
C. Point
D. Pset
14. 若要获得图片框中某一点的颜色值，则可通过（ D ）方法来实现。 A. Circle
B. Line
C. Point
D. Pset
15. 若要列表框以水平滚动的多列方式显示列表项，可通过设置列表框对象的（ A ）属性来实现。 A. Columns
B. MultiSelect
C. Style
D. List
16. 若要获知当前列表项的数目，可通过访问（ C ）属性来实现。 A. List
B. ListIndex
C. ListCount
D. Text
17. 若要向列表框新增列表项，则可使用的方法是（ D ）。 A. Add
B. Remove
C. Clear
D. AddItem
18. 用户在组合框中所输入的数据，可通过访问组合框对象的（ D ）属性来获得。 A. List
B. ListIndex
C. ListCount
D. Text
19. 复选框或单选框的当前状态可通过（ A ）属性来设置或访问。 A. Value
B. Checked
C. Selected
D. Caption
20. 激活属性窗口使用的键是（ C ） A．F2 B．F3
三、填空题10道题
1. 为了把一个窗体装入内存，所使用的语句是_load______；而为了清除内存中指定的窗体，所使用的
语句是____unload___。
2. 与键盘操作有关的事件有KeyPress、KeyUp和KeyDown事件，当用户按上并且释放一个键后，这三
个事件发生的顺序是___keydown____、___keypress____及____keyup___。
3. 在键盘和鼠标事件中，转换键Shift Ctrl 和Alt 键对应的Shift值分别是__1___ 、___2___ 、___4___。 4. 为了使用户自定义的鼠标光标，应该首先把对象的___mousepointer__属性设置为___99____,然后把对
象的___mouseicon____属性设置为一个图标文件。
5. 如果要使用命令按钮表面显示文字“退出（X）”（在字符X之下加下划线），则其Caption属性设置为
______退出（&X）_____，其括号中的X表示在运行时按下ALT+X___键与单击该按钮效果相同． 6. 所有控件都具有的共同属性是________name__________属性。
C．F4 D．F5
7. 一般情况下，控件有两个属性项的缺省值是相同的，这两个属性项是____name和caption__。 8. 列表框控件不支持Click事件，但支持_______dblclick________事件。 9. 滚动条控件主要支持两个事件，它们是_______scroll和change________事件。
10. 要使鼠标停留在按钮上显示特殊的鼠标形状，应设置的属性值是________mousepointer_________。
四、运行程序写出最后结果
1. 在窗体Forml上设置一个标签Label1和一个图片框Picture1两个控件，然后编写如下两个事件过程：
Private Sub Form_Click() Label1.Caption = \End Sub
Private Sub Label1_Change() Picture1.Print \End Sub
程序运行后，单击窗体，则在文本框中显示的内容是 Hello world ，而在图片框中显示的 内容是 Visual Basic 。
2. 在窗体Forml上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和
Command1，然后编写如下两个事件过程： Private Sub Command1_Click() Char$ = InputBox(\请输入字符串：\Text1.Text = Char$ End Sub
Private Sub Text1_Change()
Label1.Caption = UCase(Mid(Text1.Text, 3)) End Sub
程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串\，则在标签中显示的内容是 COMPUTER ，文本框中显示的内容是 Mycomputer 。
3. 把窗体Forml的KeyPreview属性设置为True，然后编写如下两个事件过程：
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Print Chr(KeyCode) End Sub
Private Sub Form_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii) End Sub
程序运行后，如果直接按键盘上的\键（即不按住Shift键），则在窗体上输出的字符分别是 A 和 a 。
4. 在窗体上画一个文本框Text1，然后编写如下事件过程：
Private Sub Form_Load() Text1.Text = \For i = 1 To 10 Sum = Sum + i Next i
Text1.Text = Sum End Sub
上述程序的运行的结果是：在文本框Text1中输出___55_。
5. 程序运行时连续三次单击Command1，且设输入的数是3，5和7时，分别写出文本框text1.text的值
为：___x=0___、__x=0____、___x=7___。 Private Static Sub Command1_Click() Dim x As Integer, y As Integer
y = Val(InputBox(\请输入一个正整数：\If y <= 5 Then x = x * y Else x = x + y End If
Text1.Text = \End Sub
五、完善程序填空
1. 建立一个工程，该工程包括两个窗体，分别为Form1和Form2，启动窗体为Form1。在Form1中添加
一个命令按钮Command1，程序运行后，要求当单击该命令按钮时，Form1窗体消失，显示窗体Form2。请将下列程序补充完整。
Private Sub Command1_Click() ___Unload___ Form1 Form2.___Show___ End Sub
2. 有如下程序代码，程序运行后，把鼠标光标移到窗体Form1内，每单击一次，变换一 种鼠标光标的
形状，依次显示鼠标光标的15个属性。请将下列程序补充完整。 Private Sub Form_Click() Static x As Integer Cls
Print \当前的鼠标指针属性为：\Form1. Mousepointer = x x = x + 1
If x = 15 Then x = 0 End Sub
3. 在窗体Form1上设置命令按钮Command1，标签Label1，设置文体框Textl。程序运行期间，在文本
框Textl输入一个负数，然后按下Command1按钮，则在标签Label1中将输出该数的绝对值及信息。请在划线处填入适当的内容，将程序补充完整。（要求不用取绝对值函数） Private Static Sub Command1_Click() Dim x As Single x = Val(Text1.Text) Label1.Caption = \If x < 0 Then x=-x
Label1.Caption =label1.caption + \的绝对值是\End Sub
4. 在窗体Form1上放置了一个滚动条HScroll1和一个标签控件Label1，要使每次单击滚动条两端箭头
时，或单击滚动条滑块与两端箭头之间的空白区域时，标签内容能够反映滚动条的值，补齐以下代码。 Private Sub HScroll1_Change() Label1.Caption = HScroll1. value End Sub
只有拖动滚动条的滑块时，滚动条的值才被反映在标签内容中，补齐以下代码。 Private Sub HScroll1. HScroll1_Scroll() Label1.Caption = Value End Sub
5. 在窗体Form1上添加一个滚动条控件HScroll1和一个文本框控件Text1，用HScroll1的Value属性值
作为Text1中文本内容的字体大小，当单击滚动条的箭头或拖动滚动框时，改变文本框中文本的字体大小。
Private Sub HScroll1_Change() Text1.Text = \Text1.fontsize= End Sub
练习题五
一、选择题
1. 以下说法正确的有 BC （多选）
(A) 使用ReDim语句将释放动态数组所占的存储空间