二、试题对比：
1、真题选择第1题 预测第四套选择第9题
考查知识点：文本框获得焦点方法
真题选择第1题：
1、若要在程序中使得文本框获得焦点，应该调用文本框的（1）方法。
       A．TabIndex  B．GotFocus  C．LostFocus       D．SetFocus
预测第四套选择第9题：
9、若要在程序中使得文本框获得焦点，应该调用文本框的（9）方法。
A）TabIndex    B）SetFocus         C）LostFocus     D）GotFocus

2、真题选择第2题 预测第四套选择第8题
考查知识点：获得滚动条当前值
真题选择第2题：
2、通过（2）属性可以获得滚动条当前值。
       A．SmallChange    B． Text      C．Value      D．Max
预测第四套选择第8题：
8、通过（8）属性可以获得滚动条当前值。
   A）SmallChange  B）Text    C）Value    D）Max

3、真题选择第3题 预测第五套选择第5题
考查知识点：文件打开方式
真题选择第3题：
3、以（3）访问方式打开文件时，文件指针被定位在文件末尾。
       A．Output      B．Append          C．Input D．Random
预测第五套选择第5题：
5、以（5）读写方式打开文件时，文件指针被定位在文件末尾。
A）Output      B）Input   C）Append        D）Random

4、真题选择第4题 预测第五套选择第9题
考查知识点：单选按钮的Value属性
真题选择第4题：
4、若在程序运行时某单选按钮被选中，则属性Value的值为（4）。
       A．True          B．1         C．0         D．False
预测第五套选择第9题：
9、若在程序运行时某单选钮被选中，则属性Value的值为（9）。
A）0      B）1       C）True      D）False

5、真题选择第6题 预测第二套填空第9题
考查知识点：时钟控件
真题选择第6题：
6、在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5秒发生一次计时器事件，则以下正确的属性设置语句是（6）。
A．Timer1.InterVal=0.5       B．Timer1.Interval=500      
       C．Timer1.Interval=50          D．Timer1.Interval=5
预测第二套填空第9题：
9、语句：timer1.Interval=900(Timer1为窗体中的一个Timer控件)中的900指的是  （10）  。

6、真题选择第7题 预测第一套选择第6题
考查知识点：图像框的Stretch属性
真题选择第7题：
7、图像框（Image）有一个属性，可以自动调整图形的大小，以适应图像框的尺寸，这个属性是（7）。
       A．AutoSize        B．AutoRedraw     C．Stretch    D．Appearance 
预测第一套选择第6题：
6、图像框（Image）的Stretch性，可以自动调整图形的大小，以适应图像框的尺寸，要想使图象自动放大或缩小，应将该属性设置为（）
       A．True  B．False C．1       D．0


7、真题填空第1题 预测第四套选择第10题
考查知识点：图片装入函数
真题填空第1题：
在程序运行过程中，如果要在PictureBox图片框中装入图片，则应使用函数  （1）  。
预测第四套选择第10题：
10、在程序运行时使图片框中装入指定图片，应使用函数（10）
A）Inputbox                                      B）Msgbox
C）Open                                           D）Loadpicture

8、真题填空第2题 预测第四套填空第4题
考查知识点：对象
真题填空第2题：
Visual Basic程序设计中，通过对象的一组  （2）  描述其特性，把能被对象识别的动作称为事件。
预测第四套填空第4题：
4、VB程序设计中，通过对象的一组（4）  描述其特性，把能被对象识别的动作称为（5）  .

9、真题填空第3题 预测第五套填空第6题
考查知识点：变体类型
真题填空第3题：
对于Visual Basic中没有显示声明的变量，其默认类型为  （3）  。
预测第五套填空第6题：
6、对于VB中没有显示声明的变量，其默认类型为  （7）   

10、真题填空第4题 预测第四套填空第7题
考查知识点：Chr、Asc函数
真题填空第4题：
语句：Print  Chr$ (Asc( "a") – 32)运行的输出结果为  （4）  。
预测第四套填空第7题：
7、Print chr$ ( asc ( "a" ) - 32 ) 运行结果为  （8）  。

11、真题填空第6题 预测第五套填空第8题
考查知识点：Mid、InStr函数
真题填空第6题：
6、设有如下程序段：
a$="BeijingShanghai"
b$=Mid(a$,InStr(a$,"g")+1)
执行上面的程序段后，变量b$的值为  （6）  。
预测第五套填空第8题：

8、某事件过程中有语句 Print Mid$("Min gong", Instr("Min gong","g")+1) ，程序运行后触发该事件将会在窗体上显示结果  （10）  。

12、真题填空第9题 预测第五套选择第3题
考查知识点：文本框的MultiLine属性
真题填空第9题：
9、在程序运行中，如果要使得用户无法编辑文本框中的内容，只能浏览，应设置文本框的  （9）  属性。
预测第五套选择第3题：
3、要使程序运行时禁止用户编辑文本框中的文本，但是可以浏览，则其（3）属性必须设置为True
 A）Enabled   B）Locked    C）Visible    D）MultiLine

13、真题填空第10题 预测第五套填空第1题
考查知识点：表达式运算
真题填空第10题：
10、语句Print Int(12345.6789 * 100 + 0.5) / 100的输出结果是  （10）  。
预测第五套填空第1题：
1、VB表达式Int( 28.3689*100 +0.5)/100的值是  （1）  。

14、真题运行结果第1题 预测第四套运行结果第2题
考查知识点：For循环嵌套
真题运行结果第1题：
Private Sub Command1_Click()
Dim i As Integer, j As Integer, Sum As Integer, k As Integer
Sum = 0
For i = 1 To 5
    k = 0
    For j = 1 To i
      k = k + j
    Next j
    Sum = Sum + k
Next i
Print "Sum="; Sum
End Sub
预测第四套运行结果第2题：
2、程序2
Private Sub Command1_Click()
Dim s As Integer  , p as Integer
s=0
For m=1 To 5
   p=0
  For n=1 To m
     p=p+n
  Next n
  s=s+p
Next m
Print "s="; s
End Sub


15、真题运行结果第2题 预测第四套运行结果第5题
考查知识点：数组值的输出
真题运行结果第2题：
２、程序２
Private Sub Command1_Click()
Dim a(5) As Integer, i As Integer, j As Integer
For i = 1 To 5
  a(i) = 2 * i - 1
Next i
For i = 1 To 4
  For j = i + 1 To 5
   If a(i) < a(j) Then t = a(i): a(i) = a(j): a(j) = t
  Next j
Next i
For i = 1 To 5
  Print a(i);
Next i
End Sub
预测第四套运行结果第5题：
5、程序5
Private Sub Command1_Click()
 Dim a(5) As Integer
 For m = 1 To 5
  a(m) = 2 * m - 1
 Next m
 For m = 1 To 4
  For n = m + 1 To 5
   If a(m) < a(n) Then t = a(m): a(m) = a(n): a(n) = t
  Next n
 Next m
 For m = 1 To 5
  Print a(m);
 Next m
End Sub

16、真题程序填空第3题 预测第四套运行结果第1题
考查知识点：素数判断
真题程序填空第3题：
3、以下程序段用于从键盘输入一个整数，判断其是否为素数，是则在窗体上输出“Yes”，否则在窗体上输出“No”。
Private Sub Command1_Click()
Dim w As Boolean, x As Integer
x = Val(InputBox("请输入整数x( X>2) :"))
w = True
k = 2
Do While k < > x And w =   （7） 
  If x Mod k = 0 Then
     w = False 
    （8） 
  k =   （9） 
Loop
If w Then
  Print "Yes"
Else
  Print "No"
End If
End Sub
预测第四套运行结果第1题：
1、程序1
Private Sub Command1_Click()
Dim w As Boolean
 x=Val(InputBox("请输入整数x( X>2) :"))
w=True : k=2
 DO
   If x mod k =0 Then w=False
   k=k+1
 Loop Until k=x Or w=False
If w Then Print "Yes" Else Print "NO"
End Sub
输入5

17、真题程序问答第1题 预测第五套运行结果第5题
考查知识点：函数调用
真题程序问答第1题：
1、程序1
Private Sub Command1_Click()
Dim x As Integer
Dim y As Integer
x = 10
y = 20
Call s(x, y)
Print x, y
End Sub
Private Sub s(a As Integer, ByVal b As Integer)
a = a + 5
b = a + b
End Sub
问题1（2分）：写出程序运行结果。
问题2（2分）：语句Call s(x, y)的作用是调用子过程s，写出调用子过程s的另一种形式。
预测第五套运行结果第5题：
5、程序5
Private Sub Command1_Click()
 Static x As Integer
 Dim y As Integer
 x = 10
 y = 20
 Call s(x, y)
 Print x, y
End Sub
Private Sub s(a As Integer, ByVal b As Integer)
 a = a + 5
 b = a + b
End Sub