1.窗体中有一个名称为txtSpeed的文本框，一个名称为hsbSpeed的滚动条。

　　以下程序：

　　Private Sub hsbSpeed_Change( )

　　txtSpee

　　D.Text = hsbSpee

　　D.Value

　　End Sub

　　当单击滚动条hsbSpeed右端的箭头时，以下说法不正确的是(B) (单)

　　A.此时会触发change事件

　　B.此时不会触发change事件

　　C.在文本框中显示了滚动条滑块所在位置的值

　　D.此时不会触发scroll事件

　　2.利用窗体中的滚动条HScroll1改变窗体的背景色，可以这样编写代码：

　　Private Sub HScroll1_Change( )

　　R= HScroll1.Value

　　form1.BackColor = RGB(R，int(Rnd*256)，int(Rnd*256))

　　End Sub

　　以下说法不正确的是(C) (单)

　　A.窗体的背景色是一个随机的颜色

　　B.RGB函数取得到的颜色有256*256*256种

　　C.表达式int(Rnd*256)取得随机数的范围为0-256之间的整数

　　D.表达式int(Rnd*256)取得随机数的范围为0-255之间的整数

　　3.窗体中有一个名称为Slider1的可选择性刻度滑块控件，一个名称为text1的文本框，如下程序：

　　Private Sub Slider1_change( )

　　Text1.FontSize =【Slider1.value】

　　End Sub

　　当拖动滑块时，以上程序实现用Slider控件设置文本框中的字体大小的功能。

　　4.窗体中有一个名称为Slider1的可选择性刻度滑块控件，一个名称为text1的文本框，如下程序：

　　Private Sub Slider1_change( )

　　Text1.【Fontsize】 = slider1.value

　　End Sub

　　当拖动滑块时，以上程序实现用Slider控件设置文本框中的字体大小的功能。

　　5.窗体中有一个名称为Slider1的可选择性刻度滑块控件，要设置它的如下属性值，可以编写程序(A) (单)

　　(1)Slider控件的滑块处于最小位置时值为8

　　(2)Slider控件的滑块处于最大位置时值为72

　　(3)单击Slider控件两端箭头时，滑块的增量值为2

　　(4)单击Slider控件的空白处时，滑块的增量值为8

　　A.Slider1.Min = 8：

　　Slider1.Max = 72：

　　Slider1.SmallChange =2：

　　Slider1.LargeChange = 8

　　B.Slider1.Min = 2：

　　Slider1.Max = 8：

　　Slider1.SmallChange = 72：

　　Slider1.LargeChange = 8

　　C.Slider1.Min = 8：

　　Slider1.Max = 72：

　　Slider1.SmallChange = 8：

　　Slider1.LargeChange = 2

　　D.Slider1.Min = 72：

　　Slider1.Max = 8：

　　Slider1.SmallChange = 2：

　　Slider1.LargeChange = 8

　　6.在窗体中有一个名称为timer1的时钟控件，三个名称分别为image1、image2 和 image3的图像框，编写如下程序：

　　Sub Form_Load( )

　　Image1.Picture=LoadPicture(App.Path+"\butterfly.bmp")

　　Image2.Picture=LoadPicture(App.Path+"\butterfly2.bmp")

　　Image3.Picture=LoadPicture(App.Path+"\butterfly.bmp")

　　End Sub

　　Sub timer1_Timer( )

　　Static PickBmp As Boolean

　　Image1.Move Image1.Left + 20, Image1.Top - 5

　　If PickBmp = False Then

　　Image1.Picture = Image2.Picture

　　PickBmp = True

　　Else

　　Image1.Picture = Image3.Picture

　　PickBmp = False

　　End If

　　End Sub

　　以下说法不正确的是(C) (单)

　　A.此程序的功能是把image1图像框显示图形在butterfly.bmp和butterfly2.bmp文件之间进行切换

　　B.PickBmp变量是逻辑变量，作用是表示图形的状态

　　C.App.Path表示绝对路径

　　D.要使得timer控件起作用，必须使得它的Enabled属性设置为true，interval属性设置为介于0-64767之间的数值，但不能等于0

　　7.在窗体中有一个名称为timer1的时钟控件，三个名称分别为image1、image2 和 image3的图像框，编写如下程序：

　　Sub Form_Load( )

　　Image1.Picture=LoadPicture(App.Path+"\butterfly.bmp")

　　Image2.Picture=LoadPicture(App.Path+"\butterfly2.bmp")

　　Image3.Picture=LoadPicture(App.Path+"\butterfly.bmp")

　　End Sub

　　Sub timer1_Timer( )

　　Static PickBmp As Boolean

　　Image1.Move Image1.Left + 20, Image1.Top - 5

　　If PickBmp = False Then

　　Image1.Picture = Image2.Picture

　　PickBmp = True

　　Else

　　Image1.Picture = Image3.Picture

　　PickBmp = False

　　End If

　　End Sub

　　以下说法不正确的是(B) (单)

　　A.此程序的功能是把image1图像框显示图形在butterfly.bmp和butterfly2.bmp文件之间进行切换

　　B.也可以将timer1控件的timer事件改写为change事件

　　C.App.Path表示相对路径

　　D.要使得timer控件起作用，必须使得它的Enabled属性设置为true，interval属性设置为介于0-64767之间的数值，但不能等于0

　　8 .在ProgressBar进度条控件中，它的Value属性决定该控件被填充多少。√

　　9 .UpDown控件通常与伙伴控件"捆绑"在一起使用。√

　　10 .Animation控件可以用来显示有声音的AVI视频文件 ×。

　　11.对Animation控件所使用的方法描述不正确的是(B) (单)

　　A.Open方法用于打开文件

　　B.Play方法用于播放动画，格式为： Animation1.play AVI动画文件路径

　　C.Stop方法用于停止播放

　　D.Close方法用于关闭文件

　　12.下面的事件不属于鼠标器事件的是(D) (单)

　　A.MouseDown事件

　　B.MouseUp事件

　　C.MouseMove事件

　　D.Move事件

　　13.下面的事件不属于键盘事件的是(D) (单)

　　A.KeyPress事件

　　B.KeyDown事件

　　C.KeyUp事件

　　D.KeyMove事件

　　14.在窗体中有一个名称为command1的命令按钮，一个名称为text1的文本框，一个名称为commondialog1的通用对话框，编写如下程序：

　　Sub command1_Click( )

　　CommonDialog1.Action = 3

　　text1.ForeColor = CommonDialog1.Color

　　End Sub

　　当单击命令按钮时，对程序的运行说法正确的是(B) (单)

　　A.打开一个颜色对话框

　　B.打开一个字体对话框

　　C.把文本框的背景颜色设置为对话框选择的字体颜色

　　D.把文本框的背景颜色设置为对话框中选择的颜色

　　15.当单击命令按钮时，对以下程序说法不正确的是(D) (单)

　　Sub command1_Click( )

　　CommonDialog1.Action = 5

　　For i = 1 To CommonDialog1.Copies

　　Printer.Print text1.Text

　　Next i

　　Printer.EndDoc

　　End Sub

　　A.此文件的功能是打印文本框text1中的内容

　　B.语句Printer.EndDoc表示结束文挡打印

　　C.打开的打印对话框

　　D.以上说法都不正确

　　16.当单击命令按钮时，对以下程序说法不正确的是(C) (单)

　　Sub command1_Click( )

　　CommonDialog1.FileName = "default.txt"

　　CommonDialog1.DefaultExt = "Txt"

　　CommonDialog1.Action = 2

　　End Sub

　　A.设置缺省文件名为default.txt

　　B.设置缺省扩展名为Txt

　　C.显示的是文件"打开"对话框

　　D.显示的是"另存为"对话框

　　17.在窗体中建立了三个名称分别为EditCut、EditCopy和EditPaste的命令按钮，一个名称为text1的文本框。

　　如下程序：

　　Private Sub EditCopy_Click( )

　　st = Text1.SelText '将选中的内容存放到st变量中

　　End Sub

　　Private Sub EditCut_Click( )

　　st = Text1.SelText '

　　Text1.SelText = ""

　　End Sub

　　Private Sub EditPaste_Click( )

　　Text1.Text = Left(Text1, Text1.SelStart) + st + Mid(Text1, Text1.SelStart

　　+ 1)

　　End Sub

　　对以上程序说法不正确的是(D) (单)

　　A.语句st = Text1.SelText的作用是：将text1文本框中选择的内容存放到st变量中

　　B.语句Text1.SelText = "" 的作用是：将text1文本框中选择的内容清除

　　C.单击EditCut命令按钮实现了text1文本框中选择的内容清除

　　D.单击Editcopy命令按钮实现了text1文本框中所有内容的粘贴

　　18.对以下程序说法不正确的是(D) (单)

　　Private Sub FileOpen_Click( )

　　CommonDialog1.InitDir = "C:\"

　　CommonDialog1.Filter = "文本文件 | *.Txt"

　　CommonDialog1.ShowOpen

　　End Sub

　　A.显示"文件"打开对话框

　　B.打开的对话框的初始目录为C盘根目录

　　C.打开的对话框的文件类型为文本文件

　　D.以上说法都不正确

　　19.双精度型数据的类型符为(A) (单)

　　A.#

　　B.*

　　C.&

　　D.@

　　20.整型数据的类型符为(B) (单)

　　A.#

　　B.%

　　C.&

　　D.@