一 : 大一的vb期末考试题和答案

抱歉，获取内容失败请稍后刷新尝试

vb期末考试试题 大一的vb期末考试题和答案

2． __________________________

3．8exln10 __________________________

4．2sin(450)cos(450) _______________________________

5． ___________________________________________

6． ___________________________________________

四、判断题，正确打“√”，错误打“×”（10分）

1．在VB中，控件的事件只能通过用户的操作触发。(www.61k.com］（ ）

2．字符型数据以双引号作为定界符，输出时双引号本身不会显示在屏幕上。（ ）

3．保存工程时，窗体文件和工程文件的文件名不能相同。（ ）

4．改变控件的大小，可以使用鼠标和键盘，还可以通过修改代码。（ ）

5．同一过程中，数组和简单变量可以同名。（ ）

6．VB函数中的参数可以是常量、变量、表达式，还可以是另一个函数。（ ）

7．代码Const Number1=15：Number1=10合法。（ ）

8．允许将块If-Then语句结构中的所有语句都写在一行上（ ）

9．定义数组语句Dim a(b) As Integer 是正确的（ ）

10．在过程调用中，“实参表”和“形参表”中对应的变量名不必相同，但是变量的个数必须相等，而且实际参数的类型必须与相应形式参数的类型相符。（ ）

五、根据题意，将下列程序补充完整。（16分）

1． 产生20个[10，100] 之间的随机整数，每行输出10个数据。

Private Sub command1_click()

Dim a(1 To 20) As Integer

Randomize

i = 0

Do While i < 20

i = i + 1

a(i) = ( )

If （ ）Then

Print a(i);

End If

If i = 10 Then Print a(i)

If i > 10 Then Print a(i);

Loop

End Sub

2．打印九九乘法表

Private Sub command1_click()

For i = 1 To 9

For j = 1 To 9

Print （ ）

Next j

Print

（ ）

End Sub

2

vb期末考试试题 大一的vb期末考试题和答案

3．判断一个数是否素数

Private Sub command1_click()

x = InputBox("请输入一个整数")

flag = 1

For i = 2 To （ )

If x Mod i = 0 Then

flag = 0

End If

Next i

If （ ）Then Print x; "是素数" Else Print x; "不是素数" End Sub

4．利用数组输出Fibonacci数列的前15项。（www.61k.com）

该数列的第1项和第2项为1，其余各项均为其前两项之和。 Private Sub Command1_Click()

（ ）

f(1) = 1 : f(2) = 1

List1.AddItem f(1) : List1.AddItem f(2)

For i = 3 To 15

f(i) = （ )

List1.AddItem f(i)

Next i

End Sub

六、写出下面程序的输出结果。（每题3分，共18分）

1． Private Sub command1_click()

x = InputBox("enter x") ' x 的输入值为-8

Select Case Sgn(x) + 2

Case 1

Print "y="; x ^ 2 + 1

Case 2

Print "y="; x - 4

Case 3

Print "y="; x ^ 3 + 100

End Select

End Sub

2． Private Sub command1_click()

Dim a, b, c, d, e As String

a = "Zheng Zhou"

b = "Zhong Yuan Gong Xue Yuan"

c = a + " " + b

d = Left(a, 1) + Mid(a, 7, 1)

e = Left(b, 1) + Mid(b, 12, 1)

Print c

Print d; e

3

vb期末考试试题 大一的vb期末考试题和答案

End Sub

3．设有Sub过程：

Private Sub p1(x As Integer, ByVal y As Integer) x = 4 ：y = 5 ：z = 6

End Sub

则如下程序段的运行结果是:

Private Sub Command1_Click()

Dim x As Integer, y As Integer

x = 1: y = 2: z = 3

Print x, y, z

Call p1(x, y)

Print x, y, z

End Sub

4． Private Sub command1_click()

k = 0

For i = 1 To 3

k = k + 1

a = i * i * k

Print a;

Next i

End Sub

5． Private Sub command1_click()

Dim a(5, 5) As Integer

For i = 1 To 5

For j = 1 To 5

a(i, j) = i * 2 + j

Print a(i, j);

Next j

Print

Next i

End Sub

6．设有Function过程:

Private Function f1(b, a)

a = a * a: b = b * b

f1 = a - b

End Function

则如下程序段的运行结果是什么？

Private Sub command1_click()

a = 4: b = 3

a = f1(a, b)

4

vb期末考试试题 大一的vb期末考试题和答案

Print a

End Sub

七．编程题（共30分）

注意：艺术类学生（环艺、装潢、表演、服设）做第1、2、5、6小题；

其他学生做 第1、2、3、4 小题。(www.61k.com)

1．给出一个百分制的成绩，要求输出成绩的相应等级。（7分）

90分以上为“A”，80～89分为“B”，70～79分为“C”，60～69分为“D”，60分以下为“E”。

2．求n!,n由键盘输入。（7分）

3．产生20个 [0，99] 之间的随机整数，并按从小到大的顺序输出。（8分）

4．产生并输出一个6×6的二维数组A：（8分）

（1）两条对角线上元素的值为1，其余元素为小于30的随机整数。

（2）计算各行元素的平均值，输出平均值最大和平均值最小的行号。

5．输出1+2+……+100的和，并求出1～100 之间能被17整除的数据的个数（8分）

6．从键盘输入10个数，求出其中的最大数，最小数和平均值。（8分）

VB试题答案及评分标准

一、 单项选择题（每题1分，共10分）

1．B 2．A 3．C 4．C 5．D

6．D 7．A 8．B 9．D 10．B

二、 填空题（每空1分，共10分）

1．n Mod 13=0 And n Mod 17=0

1、 对象

3．LEFT(“Visual Basic 6.0”,6)

4．6

5．False

6．Autosize

7． ： 8．Option Explict 9．Const Dim

三、 将下列数学表达式转换成VB表达式（每题1分，共6分）

1、 a^2+2*a*b+b^2

2、 x^(1/3)*y^(1/4)

3、 8*exp(x)*log(10)

4、 2*sin(3.1416/4)*cos(3.1416/4)

5、 (x+y+z)/sqr(x^2+y^2+z^2)

6、 log(1+abs((a+b)/(a-b)))

四、 判断题（每题1分，共10分）

1．× 2．√ 3．× 4．√ 5．×

6．√ 7．× 8．× 9．× 10．√

五、 根据题意，将下列程序补充完整（每空1分，共10分）

1．（1） int(rnd*91)+10 （2） I<10

2．（1） i*j （2） next i

3．（1）int(sqr(x))或者x-1 （2） flag=1

4．（1）dim f(15) as integer （2）f(I-1)+f(I-2)

六、 写出下面程序的输出结果（每题4分，共24分）

1、 y=65

5

vb期末考试试题 大一的vb期末考试题和答案

2、 Zheng Zhou Zhong Yuan Gong Xue Yuan 2分 ZZZG 2分

3．1 2 3

4 2 3

4．1 8 27

5．3 4 5 6 7

5 6 7 8 9

7 8 9 10 11

9 10 11 12 13

11 12 13 14 15

6．-7

七、 编写程序

1. private sub command1_click()

dim x as integer,grade as string 1分

x= www.61k.com 1分

select case x 4分

case 90 to 100

grade=”A”

case 80 to 89

grade=”B”

case 70 to 79

grade=”C”

case 60 to 69

grade=”D”

case is<60

grade=”E”

case else

msgbox “请重新输入”

end select

print “该学生成绩为”+grade 1分

end sub

2．Private Sub command1_click()

Dim n as integer,f as long 1分

n= www.61k.com 1分

f=1

for I=1 to n 3分

f=f*I

next I

www.61k.com =f 2分

end sub

3． Private Sub Command1_Click()

Dim a(1 To 20) As Integer ' 1分

Randomize

For i = 1 To 20 2分

6

vb期末考试试题 大一的vb期末考试题和答案

a(i) = Int(Rnd * 100)

Print a(i);

Next

Print

For i = 1 To 19 3分

For j = i + 1 To 20

If a(i) > a(j) Then

t = a(i): a(i) = a(j): a(j) = t

End If

Next j

Next i

For i = 1 To 20 2分

Print a(i);

Next i

End Sub

4． Private Sub Command1_Click()

Dim a(1 To 6, 1 To 6) As Integer ' 1分 Dim aver As Single

Randomize

For i = 1 To 6 3分

For j = 1 To 6

If i = j Or i + j = 7 Then

a(i, j) = 1

Else

a(i, j) = Int(Rnd * 30)

End If

Print a(i, j);

Next j

Print

Next i

Print

Max = 0: Min = 30 4分

For i = 1 To 6

s = 0

For j = 1 To 6

s = s + a(i, j)

Next j

aver = s / 6

If aver > Max Then Max = aver: row_max = I If aver < Min Then Min = aver: row_min = i Next i

Print row_max, row_min

End Sub

5． Private Sub Command1_Click()

7

vb期末考试试题 大一的vb期末考试题和答案

Dim i As Integer, c As Integer Dim s As Integer

For i = 1 To 100 4分

s = s + i

If i Mod 17 = 0 Then c = c + 1 Next i

Print "1+2+...+100="; s 2分

Print "能被17整数的数据有"; c; "个" 2分 End Sub

6． Private Sub Command1_Click() Dim x As Integer

x = InputBox("x=") 1分

Print x;

Max = x: Min = x: s = x 2分 For i = 2 To 10 3分

x = InputBox("x=") ：Print x;

s = s + x

If x > Max Then Max = x

If x < Min Then Min = x

Next i

Print s / 10 1分

Print Max, Min 1分

End Sub

应该不是真的。［www.61k.com）

8

二 : VB期末考试题库

试卷名称：第12次上机

试卷说明：

命题教师： 北京化工大学北方学院 信息学院 张玉英

一、单项选择题(总分60)

1. (分值：1.1分)标签框所显示的内容，由()属性值决定

A: Text

B: (名称)

C: Caption

D: Alignment

序号：10 难度：1 考查点：数据的输入与输出

2. (分值：1.1分)设有如下通用过程：

Public Function f(x As Integer)

Dim y As Integer

x = 20

y = 2

f = x * y

End Function

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click()

Static x As Integer

x = 10

y=5

y = f(x)

Print x; y

End Sub

程序运行后，如果单击命令按钮，则在窗体上显示的内容是

A: 10 5

B: 20 5

C: 20 40

D: 10 40

序号：101 难度：1 考查点：过程

3. (分值：1.1分)文本框的()属性用于设置或返回文本框中的文本内容。 A: Text

B: (名称)

C: Caption

D: Name

序号：11 难度：1 考查点：数据的输入与输出

4. (分值：1.1分)计时器控件的( )属性用于设置Timer事件发生的时间间隔。 A: Stretch

B: Interval

C: Value

D: Length

序号：12 难度：1 考查点：选择结构程序

5. (分值：1.1分)若要向列表框添加列表项，可使用的方法是()

A: Add

B: Remove

C: Clear

D: AddItem

序号：13 难度：1 考查点：循环结构程序

6. (分值：1.1分)VB中可用()语句产生一消息框。

(www.61k.com)

A: InputBox

B: Shift

C: Both

D: MsgBox

序号：15 难度：1 考查点：数据的输入与输出

7. (分值：1.1分)以下叙述错误的是________。

A: 一个工程只能有一个Sub Main过程

B: 窗体的Show方法的作用是将指定的窗体装入内存并显示该窗体

C: 窗体的Hide方法和Unload方法的作用完全相同

D: 若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体

序号：150 难度：1 考查点：多重窗体与环境应用

8. (分值：1.1分)为了使一个窗体从屏幕上消失但仍在内存中，所使用的方法或语句为 _____

A: Show

B: Hide

C: Load

D: Unload

序号：151 难度：1 考查点：多重窗体与环境应用

9. (分值：1.1分)以下叙述错误的是

A: 在KeyUp和 KeyDown 事件过程中，从键盘上输入A或a被视作相同的字母(即具有相同的KeyCode)

B: 在KeyUp和 KeyDown 事件过程中，将键盘上的"1"和右侧小键盘上的"1"视作不同的数字(即具有不同的KeyCode)

C: KeyPress事件中不能识别键盘上某个键的按下与释放

D: KeyPress事件中可以识别键盘上某个键的按下与释放

序号：154 难度：1 考查点：键盘与鼠标事件过程

10. (分值：1.1分)编写如下两个事件过程：

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

Print Chr(KeyCode)

End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)

Print Chr(KeyAscii)

End Sub

在一般情况下(即不按住键和锁定大写)，运行程序，如果按键，则程序的输出是_________

A: A

a

B: a

A

C: A

A

D: a

a

序号：155 难度：1 考查点：键盘与鼠标事件过程

11. (分值：1.1分)下列符号中哪个是VB程序中合法的变量名()

A: ab7

B: 7ab

C: If

D: a*bc

序号：16 难度：1 考查点：VB语言基础

12. (分值：1.1分)X是小于100的非负数，用VB表达式表达正确的是()

A: 0≤X≤100

B: 0<=x<100

C: 0<=X and X<100

D: 0≤X<100

序号：17 难度：1 考查点：VB语言基础

13. (分值：1.1分)设有数组声明语句：

Option Base 0

Dim B(-1 To 10,2 To 9,20) As Integer

则数组B中共有( )个元素。

A: 1800

B: 1848

C: 2016

D: 2310

序号：185 难度：1 考查点：数组

14. (分值：1.1分)在VB语言中，6个关系运算符在运算过程中优先级从高到低的顺序是

( )

A: =→<>→<→>→<=→>=

B:>→>=→=→<→<=→<>

C:<=→<→=→>=→>→<>

D: 不分先后顺序

序号：186 难度：1 考查点：选择结构程序

15. (分值：1.1分)下列赋值语句中，( )是错误的。

A: x=x+1

B: x=x+y

C: x+y=x

D: x=4>6

序号：191 难度：1 考查点：选择结构程序

16. (分值：1.1分)从功能上讲，Visual Basic 6.0有3种版本，下列不属于这3种版本的是________。

A: 学习版

B: 标准版

C: 专业版

D: 企业版

序号：2 难度：1 考查点：VB概述

17. (分值：1.1分) 如果在程序中要将c定义为静态变量，且为整型数，则应使用的语句是()

A: Redim a As Integer

B: Static a As Integer

C: Public a As Integer

D: Dim a As Integer

序号：21 难度：1 考查点：变量与过程的作用范围

18. (分值：1.1分)设有声明语句

Dim b(-1 To 10, 2 To 9, 20) As Integer

则数组b中全部元素的个数

A: 2310

B: 2016

C: 1500

D: 1658

序号：212 难度：1 考查点：数组

19. (分值：1.1分) 声明一个变量为局部变量应该用()

A: Global

B: Private

C: Static

D: Public

序号：22 难度：1 考查点：变量与过程的作用范围

20. (分值：1.1分)下列程序的执行结果为

Private Sub Command1_Click()

Dim x As Integer, y As Integer

x=12: y=20

Call Value(x, y)

Print x; y

End Sub

Private Sub Value(ByVal m As Integer, ByVal n As Integer)

m=m * 2: n=n - 5

Print m; n

End Sub

A: 20 12

20 15

B: 12 20

12 25

C: 24 15

12 20

D: 24 12

12 15

序号：221 难度：1 考查点：过程

21. (分值：1.1分)、执行x$=InputBox("请输入x的值") 时，在弹出的对话框中输入123，在列表框List1选中1个列表项(数据为456) ，使有的值使123456的语句是

A: y=x$+List1.List(0)

B: y=x$+List1.List(1)

C: y=Val(x$) +Val(List1.List(0) )

D: y=Val(x$) & Val(List1.List(1) )

序号：23 难度：1 考查点：VB语言基础

22. (分值：1.1分)下面的属性中，用于自动调整图像框中图形内容的大小的是 A: Picture

B: CurentY

C: CurrentX

D: Stretch

序号：24 难度：1 考查点：数据的输入与输出

23. (分值：1.1分)以下属于Visual Basic合法的数组元素是

A: x8

B: x[8]

C: s(0)

D: v[8]

序号：26 难度：1 考查点：数组

24. (分值：1.1分)要使菜单项MenuOne在程序运行时失效，使用的语句是

A: MenuOne.Visible=True

B: MenuOne.Visible=False

C: =True

D: =False

序号：27 难度：1 考查点：菜单与对话框

25. (分值：1.1分) 在窗体上建立通用对话框需要添加的控件是

A: Data控件

B: From控件

C: CommonDialog控件

D: VBComboBox控件

序号：28 难度：1 考查点：菜单与对话框

26. (分值：1.1分)在Visual Basic中，要将一个窗体加载到内存进行预处理但不显示，应使用的语句是

A: Load

B: Show

C: Hide

D: Unload

序号：29 难度：1 考查点：多重窗体与环境应用

27. (分值：1.1分)与传统的程序设计语言相比，Visual Basic最突出的特点是________。 A: 结构化程序设计

B: 程序开发环境

C: 事件驱动编程机制

D: 程序调试技术

序号：3 难度：1 考查点：VB概述

28. (分值：1.1分)运行下列程序段后，显示的结果为

J1=4

J2=9

If J1

A: 4

B: 9

C: 13

D: 49

序号：30 难度：1 考查点：选择结构程序

29. (分值：1.1分)下列语句正确的是

A: If A≠B Then Print "A不等于B"

B: If A<>B Then Printf "A不等于B"

C: If A<>B Then Print "A不等于B"

D: If A≠B Print "A不等于B"

序号：31 难度：1 考查点：选择结构程序

30. (分值：1.1分)下列程序段执行结果为

x=5

y=-6

If Not x>0 Then x=y-3 Else y=x+3

Print x-y; y-x

A: -3 3

B: 5 -9

C: 3 -3

D: -6 5

序号：32 难度：1 考查点：选择结构程序

31. (分值：1.1分)不能脱离控件(包括客体) 而独立存在的过程是 A: 事件过程

B: 通用过程

C: Sub过程

D: 函数过程

序号：33 难度：1 考查点：过程

32. (分值：1.1分)Sub过程与Function过程最根本的区别是

A: Sub过程可以用Call语句直接使用过程名调用，而Function过程不可以 B: Function过程可以有形参，Sub过程不可以

C: Sub过程不能返回值，而Function过程能返回值

D: 两种过程参数的传递方式不同

序号：34 难度：1 考查点：过程

33. (分值：1.1分)Visual Basic 6.0集成环境的主窗口中不包括________。 A: 标题栏

B: 菜单栏

C: 状态栏

D: 工具栏

序号：4 难度：1 考查点：VB概述

34. (分值：1.1分)阅读下面的程序段：

For I = 1 To 3

For j = 1 To I

For k = j To 3

A=A+1

Next k

Next j

Next I

执行上面的三重循环后，a的值为_______。

A: 3

B: 9

C: 14

D: 21

序号：41 难度：1 考查点：循环结构程序

35. (分值：1.1分)在窗体上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(其Name属性为Command1)，然后编写如下的事件过程：

Private Sub Command1_Click()

X = 0

Do While x<50

X = ( x + 2 ) * ( x + 3 )

N = n+1

Loop

= Str(n)

= Str(x)

End Sub

程序执行后，单击命令按钮，在两个文本框中显示的值分别为______。

A: 1和0

B: 2和72

C: 3和50

D: 4和168

序号：42 难度：1 考查点：循环结构程序

36. (分值：1.1分)对窗体编写如下代码：

Option Base 1

Private Sub Form_KeyPress (KeyAscii As Integer)

A = Array (237,126,87,48,498)

M1 = a (1)

M2 = 1

If KeyAscii = 13 Then

For I = 2 To 5

If a (i)>m1 then

M1 = a(i)

M2 = I

End if

Next I

End if

Print m1

Print m2

End Sub

程序执行后，按回车键，输出结果为 ( )

A: 48

4

B: 237

1

C: 498

5

D: 498

4

序号：44 难度：1 考查点：数组

37. (分值：1.1分)在设计菜单时，如果要在菜单中加入一个菜单分隔项，则菜单分隔项的标题必须设置为( )

A: 冒号(:)

B: 加号(+)

C: 减号(-)

D: 感叹号(!)

序号：45 难度：1 考查点：菜单与对话框

38. (分值：1.1分)在Do Until…Loop循环中，判断循环表达式与结束循环的关系是( ) A: 先判断循环表达式，当表达式值为假时结束循环

B: 先判断循环表达式，当表达式值为真时结束循环

C: 先执行循环体，后判断循环表达式，当表达式值为假时结束循环

D: 先执行循环体，后判断循环表达式，当表达式值为真时结束循环

序号：46 难度：1 考查点：循环结构程序

39. (分值：1.1分)在While循环中，判断循环表达式与结束循环的关系是( ) A: 判断循环表达式，当表达式值为假时执行循环体

B: 先判断循环表达式，当表达式值为真时执行循环体

C: 先执行循环体，后判断循环表达式

D: 无论循环体表达式的值真假与否，循环体至少执行一次

序号：47 难度：1 考查点：循环结构程序

40. (分值：1.1分)若有以下说明语句：

则下面表示记录变量ABC1的成员T1正确的是( )

A: ABC1→T1

B: T1

C: T1.ABC1

D: ABC1.T1

序号：48 难度：1 考查点：变量与过程的作用范围

41. (分值：1.1分)设a=6，则执行x=IIf(a>5,-1,0)后,x的值为( )

A: 5

B: 6

C: 0

D: -1

序号：50 难度：1 考查点：选择结构程序

42. (分值：1.1分)在窗体上画一个命令按钮，然后编写如下程序：

程序运行后单击命令按钮，N的值是( )

A: 5

B: 6

C: 10

D: 11

序号：51 难度：1 考查点：循环结构程序

43. (分值：1.1分)用于从字符串左边截取字符的函数是()

A: Ltrim( )

B: Trim( )

C: Left( )

D: Instr( )

序号：6 难度：1 考查点：VB语言基础

44. (分值：1.1分)在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序： Private Sub Command1_Click()

Static X As Integer

Static Y As Integer

Cls

Y=1

Y=Y+5

X=5+X

Print X,Y

End Sub 程序运行时，三次单击命令按钮Commandl后，窗体上显示的结果为 A: 15 16

B: 15 6

C: 15 15

D: 5 6

序号：60 难度：1 考查点：变量与过程的作用范围

45. (分值：1.1分)下列叙述中正确的是

A: 在窗体的Form_Load事件过程中定义的变量是全局变量

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

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

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

序号：66 难度：1 考查点：变量与过程的作用范围

46. (分值：1.1分)以下叙述中错误的是

A: 在同一窗体的菜单项中，不允许出现标题相同的菜单项

B: 在菜单的标题栏中，"&"所引导的字母指明了访问该菜单项的访问键

C: 程序运行过程中，可以重新设置菜单的Visible属性

D: 弹出式菜单也在菜单编辑器中定义

序号：68 难度：1 考查点：菜单与对话框

47. (分值：1.1分)可获得当前系统日期的函数是( )

A: Date( )

B: Time( )

C: IsDate( )

D: Year( )

序号：7 难度：1 考查点：VB语言基础

48. (分值：1.1分)以下叙述中错误的是

A: 一个工程中可以包含多个窗体文件

B: 在一个窗体文件中用Private定义的通用过程能被其他窗体调用

C: 在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件 D: 全局变量必须在标准模块中定义

序号：71 难度：1 考查点：多重窗体与环境应用

49. (分值：1.1分)定有以下函数过程：

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

在窗体上画一个命令按钮，然后编写如下事件过程：

Prlvate Sub Commmldl_Click()

Dim Str1 As String，Str2 As String

Strl=inputbox("请输入一个字符串")

Str2=Fun(Strl)

Print Str2

End Sub

程序运行后，单击命令按钮，如果在输入对话框中输入字符串"abcdefg"，则单击"确 　　 定"按钮后在窗体上的输出结果为

A: abcdefg

B: ABCDEFG

C: gfedcba

D: GFEDCBA

序号：79 难度：1 考查点：过程

50. (分值：1.1分)退出For循环可使用的语句为()

A: Exit For

B: Exit Do

C: End For

D: End Do

序号：8 难度：1 考查点：循环结构程序

51. (分值：1.1分)在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程： 　　 Private Sub Txta_KeyPress(keyascii as integer)

End Sub

若焦点位于文本框中，则能够触发KeyPress事件的操作是

A: 单击鼠标

B: 双击文本框

C: 鼠标滑过文本框

D: 按下键盘上的某个键

序号：81 难度：1 考查点：键盘与鼠标事件过程

52. (分值：1.1分)设有以下循环结构Do 循环体 Loop While<条件>则以下叙述中错误的是

A: 若"条件"是一个为0的常数，则一次也不执行循环体

B: "条件"可以是关系表达式、逻辑表达式或常数

C: 循环体中可以使用Exit Do语句

D: 如果"条件"总是为True，则不停地执行循环体

序号：85 难度：1 考查点：循环结构程序

53. (分值：1.1分)窗体的标题栏显示内容由窗体对象的()属性决定。

A: BackColor

B: BackStyle

C: Text

D: Caption

序号：9 难度：1 考查点：数据的输入与输出

54. (分值：1.1分)用下面语句所定义的数组的元素个数是

Dim a(-3 to 5) as integer

A: 6

B: 7

C: 8

D: 9

序号：95 难度：1 考查点：数组

55. (分值：1.1分)假定有以下程序段：

For i=1 To 3

For j=5 To 1 Step -1

Print i*j

Next

Next

则语句Print i*j的执行次数是

A: 15

B: 16

C: 14

D: 10

序号：96 难度：1 考查点：循环结构程序

二、编程题(总分40)

1.(分值：10.0分)编写程序，输入学生的姓名、学号和成绩(高数、英语和专业课)，判断该学生能获得几等奖学金，并输出结果。

获奖条件是：一等奖学金要求所有成绩在95分以上;二等奖学金要求所有成绩在90分以上;三等奖学金要求所有成绩在88分以上。

参考答案:

序号：13 难度：2 考查点：选择结构程序

2.(分值：10.0分)利用下述公式计算

参考答案:

1

序号：21 难度：1 考查点：循环结构程序

3.(分值：10.0分)北京化工大学北方学院决定组织成绩优秀的学生免费旅游，可以获得旅游的条件如下：

(1)所考3门课程即英语、高等数学、VB的总分超过285分，并且每门课程的成绩超过90分，这样的学生可以免费旅游颐和园、故宫和天坛;

(2)每门课程的成绩都在88分以上，这样的学生可以免费旅游颐和园、故宫;

(3)每门课程的成绩都在80分以上，这样的学生可以免费旅游颐和园;

(4)其他条件都没有免费旅游资格。

编程输入某学生3门课的成绩，判断此学生可以到何处旅游。

参考答案:

序号：85 难度：2 考查点：选择结构程序

4.(分值：10.0分)任意输入n值，编程求n!

参考答案:

序号：96 难度：1 考查点：循环结构程序

VB期末考试题库

本文标题：vb期末考试试题-大一的vb期末考试题和答案
本文地址： http://www.61k.com/1116215.html