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语句将释放动态数组所占的存储空间