第一章 单元测试

1、单选题:以下关于VB语言的说法中,正确的是(  )。
A:VB是一种低级语言
B:VB是一种机器语言
C:VB是一种面向过程的语言
D:VB是一种面向对象的语言
正确答案:【VB是一种面向对象的语言】

2、单选题:在Visual Basic环境下,当写一个新的Visual Basic程序时,所做的第一件事是(  )。
A:进入Visual Basic环境
B:编写代码
C:打开属性窗口
D:新建一个工程
正确答案:【新建一个工程】

3、单选题:以下可以构成语句的是(  )。
A:对象名.属性
B:对象名.方法名
C:对象名.函数名
D:对象名.事件名
正确答案:【对象名.方法名】

4、单选题:(  )是由Visual Basic提供的一种专门的子程序,由对象本身所具有,反映该对象功能的内部函数或过程。
A:属性
B:文件
C:窗体
D:方法
正确答案:【方法】

5、单选题:下列不是Visual Basic 文件的是(  )。
A:*.cls文件
B:*.bas
C:*.frm文件
D:*.txt
正确答案:【*.txt】

6、单选题:下列不能打开工具箱窗口的操作是()。
A:执行“视图”菜单中的“工具箱”命令
B:按Alt+V,然后按Alt+X键
C:按Alt+F8键
D:单击工具栏上的“工具箱”按钮
正确答案:【按Alt+F8键】

7、单选题:下列可以打开立即窗口的操作是()。

A:Ctrl+D
B:Ctrl+G
C:Ctrl+E
D:Ctrl+F
正确答案:【Ctrl+G】

8、单选题:Visual Basic6.0集成环境的主窗口中不包括()。
A:工具栏
B:状态栏
C:标题栏
D:菜单栏
正确答案:【状态栏】

9、单选题:在Visual Basic中,不能关闭的窗口是()。
A:属性窗口
B:窗体设计器窗口
C:工程窗口
D:立即窗口
正确答案:【工程窗口】

10、单选题:Visual Basic是一种面向对象的可视化程序设计语言,采取了()的编程机制。
A:从窗体开始执行
B:事件驱动
C:按书写顺序执行
D:从主程序开始执行
正确答案:【事件驱动】

第二章 单元测试

1、单选题:下列符号常量的声明中,(  )是不合法的。

A:Const a =“OK”
B:Const a As Single=1.1
C:Const a As Integer=“12”

D:Const a As Double=Sin(1)
正确答案:【Const a As Integer=“12”

2、单选题:表达式“Turbo”+“c”>“Ture”+“Basic”的值是(  )。
A:出错信息
B:True
C:False
D:Null
正确答案:【False】

3、单选题:执行下列语句后,V的值是(  )。

A=“56789”    V=Val(Mid(A,3,2))
A:89
B:78
C:67
D:0
正确答案:【78】

4、单选题:表达式4+56*7/8 Mod 4的值是(  )。
A:6
B:7
C:4
D:5
正确答案:【5】

5、单选题:下列符号(  )是Visual Basic中合法的变量名。

A:8xy
B:X8[B]
C:x23
D:END
正确答案:【x23】

6、单选题:在一行内写多条语句时,每个语句之间用(  )来分隔。
A::B:、
C:;
D:,
正确答案:【:  】

7、单选题:在VB中,用Single来表示的数据类型是(  )。

A:长整型
B:字符型
C:单精度型
D:逻辑型
正确答案:【单精度型】

8、单选题:下列程序段的运行结果是(  )。
Dim A As Integer , B As Integer
A = 15
B = 4
Print 4 + A B

A:7.75
B:7
C:8
D:-7
正确答案:【7】

9、单选题:三种逻辑运算符号优先次序为(  )。

A:AND、NOT、OR
B:OR、NOT、AND
C:NOT、OR、AND

D:NOT、AND、OR
正确答案:【NOT、AND、OR      】

10、单选题:数学式3abc(d+e)改写为VB表达式为(  )。

A:3abcd +3abce
B:3a*b*c(d+e)
C:3*a*b*c*(d+e)
D:3abc(d+e)

正确答案:【3*a*b*c*(d+e)】

第三章 单元测试

1、单选题:结构化程序设计的三种基本结构不包括()。

A:循环结构
B:选择结构
C:顺序结构
D:倒序结构
正确答案:【倒序结构

2、单选题:下面四个语句中,能打印显示20*30字样的是(  )。

A:Print 20*30
B:Print Chr(20)+“*”+Chr(30)
C:Print val(“20”)*val(“30”)
D:Print“20*30”
正确答案:【Print“20*30”】

3、单选题:关于MsgBox函数,以下说法不正确的是(  )。

A:“标题”参数可选,显示在对话框标题栏中的字符串表达式
B:“提示”参数用于在MsgBox函数产生的对话框内显示提示信息
C:MsgBox函数的返回值是一个字符串,这个字符串与所选择的命令按钮有关
D:“按钮”参数是数值表达式,是表示指定显示按钮的数目和类型、使用的图标样式,默认按钮的标识以及消息框样式的数值的总和
正确答案:【MsgBox函数的返回值是一个字符串,这个字符串与所选择的命令按钮有关】

4、单选题:语句If x=1 Then y=1,下列说法正确的是(  )。

A:x=1为关系表达式,y=1为赋值语句

B:x=1和y=1均为赋值语句
C:x=1为赋值语句, y=1为关系表达式

D:x=1和y=1均为关系表达式
正确答案:【x=1为关系表达式,y=1为赋值语句

5、单选题:下面程序段执行结果为(  )。                x = 5 : y = -6If not x > 0 Then      x = y – 3 Else      y = x + 3End IfPrint  x – y; y – x

A:-3  3
B:-6  5
C:3  -3
D:5  -9
正确答案:【-3  3】

6、单选题:编写如下事件过程:   Private Sub Form_Click()    score=Int(Rnd*10)+80     Select Case score          Case Is<  60             a$=”F”          Case 60 To 69         a$=”D”          Case 70 To 79         a$=”C”             Case 80 To 89         a$=”B”          Case Else         a$=”A”     End Select    Print a$   End Sub    程序运行后,单击窗体,则窗体上显示的内容是( )。

A: A
B: C
C: B
D: D
正确答案:【 B】

7、单选题:循环结构For I%= -1 to –17  Step –2 共执行( )次。

A: 8
B: 6
C: 9
D: 5
正确答案:【 9】

8、单选题:下列程序段的执行结果为( )。 a=0:b=1 Do    a=a+b     b=b+1 Loop While a<10 Print a;b
A: 0  1
B: a  b
C: 10  30
D: 10  5
正确答案:【 10  5】

9、单选题:有如下程序,运行后输出的结果是( )。j=0:n=0 Do While  n<3      j=(j+1)*(j+2)     n=n+1 Loop Print j;n
A: 30  4
B: 182  3
C: 3  3
D: 0  1
正确答案:【 182  3】

10、单选题:下列的程序段执行后,x的值为( )。x=0 For i=1 To 10    For j=i To 10        x=x+1     Next j Next i

A: 5
B: 105
C: 55
D: 50
正确答案:【 55】

第四章 单元测试

1、单选题:以下关于静态数组的描述正确的是(   )。
A:

静态数组的大小是可变的,但所有数组元素的类型必须相同

B:

静态数组的大小是固定的,可以有不同类型的数组元素

C:

静态数组的大小是可变的,可以有不同类型的数组元素

D:

静态数组的大小是固定的,所有数组元素的类型必须相同

正确答案:【

静态数组的大小是固定的,可以有不同类型的数组元素

2、单选题:执行下面程序段后,输出的结果为(  )。    Dim m(5) As Integer    s = 0    For i = 0 To 5        m(i) = 5    Next i    For j = 0 To 5        s = s + m(j)    Next j

Print s
A:

30

B:

25

C:

20

D:

35

正确答案:【

30

3、单选题:下面程序:Private Sub Form_Click()    Dim a(100) As Integer    For i = 1 To 10        j = i * i        a(j) = j    Next i    Print a(25)End Sub运行后,单击窗体,则输出的结果是(   )。
A:

36

B:

25

C:

49

D:

81

正确答案:【

25

4、单选题:

有如下语句:

Option Base 1

Private Sub Command1_Click()

Dim A(2, -1 To 1) As Integer

……

End Sub 以上语句所定义的数组A为(   )维数组,共有(   )个元素,第一维下标从(   )到(   ),第二维下标从(   )到(   )。
A:

6,2,1,2,-1,1

B:

2,1,6,-1,1,2

C:

1,2,6,2,-1,1

D:

2,6,1,2,-1,1

正确答案:【

2,6,1,2,-1,1

5、单选题:有如下程序:    Const n = -5    Const m = 6    Dim a(n To m) As Integer    For i = LBound(a, 1) To UBound(a, 1)        a(i) = i    Next i    Print a(LBound(a, 1)); a(UBound(a, 1))运行后输出的结果为(   )。
A:

0  6

B:

0  0

C:

-5  0

D:

-5  6

正确答案:【

-5  6

6、单选题:下面关于控件数组与一般控件的叙述中正确的是(   )。
A:

控件数组一定有1个以上同类型的控件组成,而一般控件只有一个控件

B:

控件数组的Index值为1,而一般控件的Index值为0

C:

控件数组的索引属性值Index值为0,而一般控件的Index值为空

D:

控件数组的建立通过Dim语句声明,而一般控件不需要声明

正确答案:【

控件数组一定有1个以上同类型的控件组成,而一般控件只有一个控件

7、单选题:如果要对已经声明的数组重新定义大小,并保留原有数据,可以使用语句(  )。
A:

Dim Preserve

B:

ReDim

C:

ReDim Preserve

D:

Dim

正确答案:【

ReDim Preserve

8、单选题:下列程序的输出结果为(   )。

Private Sub Command1_Click()

Dim a

ReDim a(6)

For j=1 To 5

a(j)=j*j

Next j

Print a(a(2)*a(3)-a(4)*2)+a(5)

End Sub
A:

36

B:

16

C:

41

D:

25

正确答案:【

41

9、单选题:执行下面程序段后,输出的结果为(  )。    Dim a(10, 10) As Integer    For i = 2 To 4        For j = 4 To 5            a(i, j) = i * j        Next j    Next i    Print a(2, 5) + a(3, 4) + a(4, 5)
A:

32

B:

42

C:

52

D:

22

正确答案:【

42

10、单选题:要分配存放如下方阵的数据,正确的且最节约存储空间的数组声明语句是(  )。

1.1  2.2   3.3

4.4  5.5   6.6

7.7  8.8   9.9
A:

Dim a(-1 To 1, -5 To -3) As Single

B:

Dim a(3, 3) As Single

C:

Dim a(-3 to 1, -5 to 7) As Integer

D:

Dim a(9) As Single

正确答案:【

Dim a(-1 To 1, -5 To -3) As Single

第五章 单元测试

1、单选题:假定有如下的Sub过程:Sub fun(x As Single, y As Single)    t = x    x = t / y    y = t Mod yEnd Sub在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click()    Dim a As Single    Dim b As Single    a = 6    b = 4    fun a, b    Print a, bEnd Sub程序运行后,单击命令按钮,输出结果为(   )。
A:

1  1

B:

5  4

C:

1.5  2

D:

1.25  4

正确答案:【

1.5  2

2、单选题:假定有以下函数过程: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 = s1End Function在窗体上添加一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click()    Dim Str1 As String    Dim Str2 As String    Str1 = InputBox(“请输入一个字符串”)    Str2 = Fun(Str1)    Print Str2End Sub程序运行后,单击命令按钮,如果在输入对话框中输入字符串“abcdefg”,则单击“确定”按钮后再窗体上输出的结果为(   )。
A:

GFEDCBA

B:

gfedcba

C:

ABCDEFG

D:

Abcdefg

正确答案:【

GFEDCBA

3、单选题:有如下函数过程:Function secproc(x As Integer, y As Integer, z As Integer)    secproc = 3 * y + z + 2 * xEnd Function Private Sub Command1_Click()    Dim a As Integer, b As Integer, c As Integer    a = 2: b = 3: c = 4    Print secproc(c, b, a)End Sub该程序的运行结果是(  )。
A:

20

B:

18

C:

19

D:

17

正确答案:【

19

4、单选题:有如下函数过程:Function Cys(ByVal x As Integer, ByVal y As Integer) As Integer    Dim quotients    Do While y <> 0        quotients = x / y        x = y        y = quotients    Loop    Cys = xEnd Function以下是调用该函数的事件过程,该程序的运行结果是(   )。Private Sub Command1_Click()    Dim a As Integer    Dim b As Integer    a = 10    b = 2    x = Cys(a, b)    Print xEnd Sub
A:

100

B:

0

C:

5

D:

25

正确答案:【

5

5、单选题:在窗体上画一个命令按钮(名称为Command1),并编写如下代码:Function Fun1(ByVal a As Integer, b As Integer) As Integer    Dim t As Integer    t = a – b    b = t + a    Fun1 = t + bEnd Function Private Sub Command1_Click()    Dim x As Integer    x = 10    Print Fun1(Fun1(x, (Fun1(x, x – 1))), x – 1)End Sub程序运行后,单击命令按钮,输出结果是()。
A:

10

B:

11

C:

21

D:

0

正确答案:【

0

6、单选题:下面程序的运行结果为(   )。Dim a%, b%, c%Sub p1(x%, y%)    Dim c As Integer    x = 2 * x: y = y + 2: c = x + yEnd SubSub p2(x%, ByVal y%)    Dim c As Integer    x = 2 * x: y = y + 2: c = x + yEnd SubPrivate Sub Command1_Click()    a = 2: b = 4: c = 6    Call p1(a, b)    Call p2(a, b)    Print a; b; cEnd Sub
A:

8  8  6

B:

4  6  6

C:

4  6  10

D:

8  6  6

正确答案:【

8  6  6

7、单选题:下面程序:Function a(x)    Static b As Integer    b = b + x ^ 2    Print bEnd Function Private Sub Command1_Click()    Dim c%    c = a(2)End Sub单击两次命令按钮,第二次显示的结果是(   )。
A:

2

B:

4

C:

8

D:

6

正确答案:【

8

8、单选题:下列叙述中正确的是(   )。
A:

局部变量的作用域可以超出所定义的过程

B:

在调用过程时,所有局部变量被系统初始化为0或空字符串

C:

在某个Sub过程中定义的局部变量可以与其他事件过程中定义的局部变量同名,但其作用域只限于该过程

D:

在窗体的Form_Load事件中定义的变量是全局变量

正确答案:【

在某个Sub过程中定义的局部变量可以与其他事件过程中定义的局部变量同名,但其作用域只限于该过程

9、单选题:若已编写了一个Sort子过程,在该工程中有多个窗体,为了方便地调用Sort子过程,应将该过程放在  (   )中。
A:

类模块

B:

标准模块

C:

窗体模块

D:

工程

正确答案:【

标准模块

10、单选题:以下是一个能返回数组a中最大数的函数过程代码:

Function maxval(a() As Integer) As Integer

Dim max%

max = 1

For i = 2 To 10

If a(i) > a(max) Then max = i

Next i

maxval = max

End Function

Private Sub Command1_Click()

Dim x(1 To 10) As Integer

For i = 1 To 10

x(i) = Int(Rnd() * 100)

Print x(i);

Next i

Print

Print maxval(x())

End Sub程序运行时,发现函数过程的返回值是错的需要修改,下面的修改方案中正确的是(  )。
A:

语句“max = 1”应改为“max = a(1)”

B:

语句“maxval = max ”应改为“maxval  = a(max)”

C:

语句“For i = 2 To 10”应改为“For i = 1 To 10”

D:

If语句“max = i”应改为“max = a(i)”

正确答案:【

语句“maxval = max ”应改为“maxval  = a(max)”

第六章 单元测试

1、单选题:若要求显示一个指定窗体,所用的方法是(  )。

A:

Hide

B:

Show

C:

Load

D:

Open

正确答案:【

Show

2、单选题:确定一个窗体或控件大小的属性是(  )。

A:

Top和Right

B:

Width和Height

C:

Width和Top

D:

Top和Left

正确答案:【

Width和Height

3、单选题:当一个工程含有多个窗体时,其中的启动窗体是(  )。

A:

启动 Visual Basic时建立的窗体

B:

在“工程属性”对话框中指定的窗体

C:

第一个添加的窗体

D:

最后一个添加的窗体

正确答案:【

在“工程属性”对话框中指定的窗体

4、单选题:每建立一个窗体,工程管理器窗口中就会增加一个(  )。

A:

窗体文件

B:

类模块文件

C:

工程文件

D:

程序模块文件

正确答案:【

窗体文件

5、单选题:当运行程序时,系统自动执行启动窗体的(  )事件过程。

A:

Load

B:

GotFocus

C:

Click

D:

UnLoad

正确答案:【

Load

6、单选题:若要改变窗体中显示文本的颜色,应该使用的属性是(  )。

A:

剩余章节答案支付后查看
如有疑问请及时联系QQ 50895809反馈
如遇卡顿看不了剩余内容请换个浏览器即可打开

没找到的科目也可以提醒我们更新

发表回复

您的邮箱地址不会被公开。 必填项已用 * 标注