vb第三部分 练习题 下载本文

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