| 计算机二级考试Visual Basic每日一练（2016-1-21） |
| 第1题：当文本框得到焦点发生的事件是() A.LostFocus B.GotFocus C.KeyPress D.Change |
| 【单选题】： |
| 第2题：让焦点移到文本框中所使用的方法是() A.LostFocus B.GotFocus C.KeyPress D.SetFocus |
| 【单选题】： |
| 第3题：在窗体中有一个名称为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 以下说法不正确的是() A.此程序的功能是把image1图像框显示图形在butterfly.bmp和butterfly2.bmp文件之间进行切换 B.PickBmp变量是逻辑变量，作用是表示图形的状态 C.App.Path表示绝对路径 D.要使得timer控件起作用，必须使得它的Enabled属性设置为true，interval属性设置为介于0-64767之间的数值，但不能等于0 |
| 【单选题】： |
| 第4题：在窗体中有一个名称为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 以下说法不正确的是() A.此程序的功能是把image1图像框显示图形在butterfly.bmp和butterfly2.bmp文件之间进行切换 B.也可以将timer1控件的timer事件改写为change事件 C.App.Path表示相对路径 D.要使得timer控件起作用，必须使得它的Enabled属性设置为true，interval属性设置为介于0-64767之间的数值，但不能等于0 |
| 【单选题】： |
| 第5题：以下程序段： Private Sub Form_Load( ) Dim Nop As Integer, Op As String * 1 Num1 = 3 Num2 = 2 Nop = val(Inputbox("请输入1-4之间的整数")) Select Case Nop Case 1 Op = "＋" Result = Num1 + Num2 Case 2 Op = "－" Result = Num1 - Num2 Case 3 Op = "×" Result = Num1 * Num2 Case 4 Op = "÷" Result = Num1 / Num2 End Select Label1= Num1 & Op & Num2 & "=" & Result End Sub 窗体运行后，输入3，则label1的标题显示结果为() A.3+2=5 B.3-2=1 C.3×2=6 D.3÷2=1.5 |
| 【单选题】： |
| 第6题：以下程序段： Private Sub Form_Load( ) Dim Nop As Integer, Op As String * 1 Num1 = 3 Num2 = 2 Nop = val(Inputbox("请输入1-4之间的整数")) Select Case Nop Case 1 Op = "＋" Result = Num1 + Num2 Case 2 Op = "－" Result = Num1 - Num2 Case 3 Op = "×" Result = Num1 * Num2 Case 4 Op = "÷" Result = Num1 / Num2 End Select Label1= Num1 & Op & Num2 & "=" & Result End Sub 窗体运行后，输入4，则label1的标题显示结果为() A.3+2=5 B.3-2=1 C.3×2=6 D.3÷2=1.5 |
| 【单选题】： |
| 第7题：设有如下通用过程： Public Sub Fun(a( ), ByVal x As Integer) For i = 1 To 5 x = x + a(i) Next I End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程： Private Sub Command1_Click( ) Dim arr(5) As Variant For i = 1 To 5 arr(i) = i Next I n = 10 Call Fun(arr( ), n) Text1.Text = n End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是() A.10 B.15 C.25 D.24 |
| 【单选题】： |
| 第8题：在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) For n = 1 To 20 If n Mod 3 ＜＞ 0 Then m = m + n \ 3 Next n Print n End Sub 程序运行后，如果单击命令按钮，则窗体上显示的内容是() A.15 B.18 C.21 D.24 |
| 【单选题】： |
| 第9题：为了同时改变一个活动控件的高度和宽度，正确的操作是() A.拖拉位于控件左上角 B.只能拖拉位于控件右下角 C.只能拖拉位于控件左下角 D.不能同时改变控件的高度和宽度 |
| 【单选题】： |
| 第10题：面向对象的程序设计指满足() A.虚拟化、结构化、动态化 B.封装性、继承性、多态性 C.对象的链接、动态链接、动态数据交换 D.ODBC、DDE、OLE |
| 【单选题】： |