模拟试题三

一、  选择题（每题2分，计60分）

(1)下列可自动设置滚动条的控件是(    )

A) 复选框         B) 框架        C) 文本框          D) 标签框

(2) 计时器控件的（　　）属性用于设置Timer事件发生的时间间隔。

A) Stretch　B) Interval　　C) Value　　D) Length

(3) 表达式（7+1）*(18-1)的值是（   ）
A) 6       B) 7.8             C) 8．76             D) 6.67

(4) 函数InStr(“VB程序设计教程”,”程序”)的值为（  ）
A)1          B)2               C)3            D)4

(5) 有程序代码如下：

Label1.caption=”程序设计”

  则label1、caption、”程序设计”分别代表（）。
A) 对象、属性、值                 B)对象、值、属性

C) 对象、方法、属性　　           D)属性、方法、值

(6) Inputbox函数返回值的类型是（）。

    A) 整型数值    B) 字符串    C)变体    D)数值或字符串

(7) 设a=6，则执行 x=IIf(a>5,-1,0)后，x 的值为() 。  
A) 5         B) 6      C) 0       D) -1  

(8) 产生[60，100]之间的随机整数的Visual Basic表达式是（）。 
A) Int(Rnd*40)+60         B) Int(Rnd*40)+61
C) Int(Rnd*41)+60         D) Int(Rnd*41)+61

(9) 执行语句s=Len(Mid("VisualBasic",1,6))后，s的值是
A) Visual    B) Basic    C) 6   D) 11

(10) 下面（）是合法的变量名。
A) dim       B) m-1      C) _123     D) X_t6

(11) 下面正确的赋值语句是（）。

A）x=y+3         B）x=y=3

C）x+y=3         D）3x=y

(12)VB提供了结构化程序设计的三种基本结构，三种基本结构是（）。

A）递归结构、选择结构、循环结构

B）选择结构、过程结构、顺序结构

C）过程结构、输入、输出结构、转向结构

D）选择结构、循环结构、顺序结构

(13) 确定一个控件在窗体上的位置的属性是（）。

A) Width和HeightB) Width或Height

C) Top和Left       D) Top或Left

(14) 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程
Private Sub Command1_Click()
    Text1.Text = "Visual"
    Text1 = "Basic"
    Text1 = "Program"
End Sub
程序运行后，如果单击命令按钮，则在文本框中显示的是
A) 出错   B) Visual   C) Basic   D) Program

(15) 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
    Dim array1(10, 10) As Integer
    Dim i As Integer, j As Integer
    For i = 1 To 3
       For j = 2 To 4
          array1(i, j) = i + j
       Next j
    Next i
    Text1.Text = array1(2, 3) + array1(3, 4)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是
A) 15 B) 14 C) 13 D) 12

(16)设菜单中有一个菜单项为"Open"。若要为该菜单命令设计访问键，即按下Alt及字母O时，能够执行"Open"命令，则在菜单编辑器中设置“Open"命令的方式是
  A) 把Caption属性设置为&Open    B) 把Caption属性设置为O&pen
  C) 把Name属性设置为&Open       D) 把Name属性设置为O&pen
(17)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
   x=InputBox("Input")
   Select Case x
      Case 1,3
        Print "分支1"
      Case 2,4
        Print "分支2"
      Case Else
        Print "Else 分支"
   End Select
End Sub
程序运行后，如果在输入对话框中输入2，则窗体上显示的是（）。
    A） 分支1    B） 分支2     C）Else分支    D) 程序出错
(18) for k=13 to -5 step -2循环次数为：（）。

    A) 7       B) 8      C) 9       D) 10

(19)用下面语句定义的数组的元素个数是(    )

Dim a(3,1 To 5) As Integer

A)8          B)15           C)20             D)21

(20) 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
   a$="Program"
   Print String(3,a$)
End Sub
程序运行后，单击命令按钮，在窗体上显示的内容是
     A）Pro 　B) ram 　C) gra 　D) PPP

(21) 保存一个工程至少应保存两个文件，这两个文件分别是（ ）
A)文本文件和工程文件                  B)窗体文件和工程文件
C)窗体文件和标准模块文件              D)类模块文件和工程文件

(22) 下列表达式的值为2123的是（ ）
A) Val("123asd") & 2000              B) Val("123") + 2000
C) Str(123) & "2000"                 D)Str(123)+"2000"

(23)表示滚动条控件取值范围最大值的属性是（）。

A）Max   B）LargeChange   C）Value   D）Max-Min

(24) 当使用Line方法时，参数B与F可组合使用，下列组合中（）不允许。

A)BF   B)B   C)省略不用   D)F

(25)可以RGB(x,y,z)函数获取颜色，下面的数字对应了x,y,z三个参数，其中不合法的是（）。

A)0，0，0  B) 200，255，129   C) 100，256，200   D)255，255，0

(26) 在用菜单编辑器设计菜单时，必须输入的项有（）。
A)快捷键    B)索引     C)热键       D)名称

(27) 在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：
Option Base 0
Private Sub Command1_Click()
   Dim city As Variant
   city = Array("北京", "上海", "天津", "重庆")
   Print city(1)
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是
A）空白   B）错误提示   C）北京   D）上海

(28)假定有以下函数过程：
Function Fun(S As String) As String
    Dim s1 As String
    For i = 1 To Len(S)
        s1 = UCase(Mid(S, i, 1)) + s1
    Next i
    Fun = s1
End Function
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
    Dim Str1 As String, Str2 As String
    Str1 = InputBox("请输入一个字符串")
    Str2 = Fun(Str1)
    Print Str2
End Sub
程序运行后，单击命令按钮，如果在输入对话框中输入字符串"abcdefg"，则                             单击"确定"按钮后在窗体上的输出结果为
   A）gfedcba   B）ABCDEFG   C）GFEDCBA   D）abcdefg

(29) Circle(500,600)，500， ， ，,3将绘制（  ）。

    A)圆弧     B)扇形     C)圆     D)椭圆

(30) 在窗体上画一个命令按钮，名称为Command1，然后编写如下程序：

    Private Sub Command1_Click()

        int t1

Static t2

         t1=t1+1

        t2=t2+1

    End Sub

    三次单击命令按钮后，t1,t2的值分别为（）：

     A) 1  1        B) 3  3   C) 1  3    D) 3  1

二、填空题（每题2分,计16分）

1． 窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Label1、Caption属性为“Sum”的标签，一个名称为Command1、标题为“计算”的命令按钮。程序运行后，将把1～100之间能够被7整除的数添加到列表框。如果单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，如图所示。以下是实现上述功能的程序，请填空。

    Private Sub Form_Load()
      For i=1 To 100
        If i Mod 7 =0 Then
           _【 1_】__
        End If
      Next i
    End Sub

Private Sub Command1_Click()
Sum =0
For i=0 To__【 2_】__
    Sum =Sum+_【_3 】_____
Next i
Text1.Text=Sum

End Sub

2．按存储信息的形式分类，文件可以分为【4 】和【5 】。

3． 以下语句输出结果是   【6 】   。

    Print Int(12345.6789 * 100 + 0.5) / 100。

4．数学表达式的VB算术表达式为【7 】。

5．表达式Lcase(left(“ABCDEFG”,5)的值是【8 】。

6．设有如下程序：

Option Base 1

Private Sub Command1_Click()

      Dim arr1

      Dim Min As Integer, i As Integer

      arr1 = Array(12, 435, 76, -24, 78, 54, 866, 43)

      Min =    【9】  

      For i = 2 To 8

         If arr1(i) < Min Then    【10】  

      Next i

      Print "最小值是："; Min

End Sub

以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中各元素的最小值。请填空。

三、写出下面程序的运行结果（10分）

  1. Private Sub Command1_Click()
         x = 0
         n = InputBox("")
         For i = 1 To n
             For j = 1 To i
                 x = x + 1
             Next j
         Next i
         Print x
       End Sub
程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是:

2.Private Function f(m As Integer)
   If m Mod 2 = 0 Then
      f = m
   Else
      f = 1
   End If
End Function
Private Sub Command1_Click()
   Dim i As Integer
   s = 0
   For i = 1 To 5
       s = s + f(i)
   Next i
   Print s
End Sub
单击命令按钮后，程序的运行结果为：

四、程序设计（10分）

定义命令按钮的单击事件，当单击命令按钮时输出能被3整除的所有三位数。