2014-2015学年第二学期第二次月考试卷

2014-2015学年第二学期 V68VB第二次月考试卷

出卷人：贾艳超 班级： 分数： 一、基础题（每题2分，共52分）

1．在Visual Basic中，Print Int(Rnd)+Int(3+Rnd)的结果是.............（ ）

A．无法确定 B. 2 C. 3 D. 4

2．在Visual Basic中，当窗体启动时能够被触发的事件是................（ ） A．UnLoad B.Click C.DblClick D.Load

3．Visual Basic中，窗体的标题用以下哪个属性表示....................（ ）

A．Value B．Caption C. Text D. Topic

4．Visual Basic中,表达式 3 Mod 2 * 4的值是．．．．．．．．．．．．．．．．．．．．．．．．．．（ ）

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

5．关于Visual Basic中列表框属性的说法不正确的选项是...............（ ）

A．列表框既有添加列表项的方法，也有删除列表项的方法 B．列表框中列表项个数无法统计

C．向列表框中添加项目时可以插入在列表项之间 D．列表框中的每个列表项都有一个索引位置

6．执行下面Visual Basic程序，数组a中元素值是w的数据经过一系列位置变化后，其最终位

置的下标是哪个选项......................................（ ）

Option Base 0

Private Sub Command1_Click() Dim w As Integer w = 20

a = Array(10, 15, 6, 8, 93, 84, w) Dim i As Integer Dim j As Integer Dim t As Integer For i = 0 To 5 For j = i + 1 To 6 If a(i) > a(j) Then

t = a(i): a(i) = a(j): a(j) = t End If Next j Next i

End Sub

A. 2 B. 4 C. 6 D. 8

7．在Visual Basic中，语句Print InStr(2, \的输出结果是( ) A. 0 B. 1 C．5 D. 6

8．下面关于Visual Basic中工程的说法正确的是..................．．．．（ ）

A. 每个工程中只能包含一类文件 B. 工程中的启动窗体是不能改的 C. 工程中的窗体当创建以后是不能被删除掉的 D. 工程也是有属性的

9．Visual Basic中，关于属性、事件、方法、对象说法正确的是.........（ ）

A. 可以通过改变对象的属性值来改变对象的特性 B. 事件必须在鼠标单击或双击对象后触发

C. Visual Basic中，所有对象都设置了相同的方法 D. 窗体不是对象，按钮是对象

10．执行下面Visual Basic程序，最后输出s的值是....................（ ）

Dim a As Integer Dim s As Integer a = 1 s = 0

For i = 1 To 3 a = i

For j = 1 To a s = s + a Next j i = j Next i Print s

A. 6 B. 8 C. 10 D. 12

11．在Visual Basic中，LCASE(\的值是???????????????( )

A．abcd B．1234 C．12ABCD34 D．12abcd34 12．Visual Basic窗体模块文件的扩展名是???????????????????( ) A．.FRM B．.WIN

C．.VBG

D．.BAS 13. 下面选项中，哪个不是Visual Basic中的对象???????????????( )

A．窗体

B．命令按钮 C．属性

D．定时器

14. 关于Visual Basic中对象的方法，说法不正确的是????????????( )

A．方法是对象的动作 B．文本框有方法 C．窗体有方法 D．方法后必须跟有被操作的对象

15. 关于Visual Basic中复选框的Value属性的说法，不正确的是????????( )

A．可以有三个值0、1、2 B．其值不能通过赋值语句改变 C．其值是整数类型 D．当值为1时表示被选中

16．在Visual Basic中，关于窗体中命令按钮的说法，正确的是?????????( )

A．通过指令可以改变位置，但大小不能改变B．通过指令不能改变位置，但大小可以改变 C．位置、大小均不能改变 D．通过指令可以改变位置和大小

17．在Visual Basic中，产生5到35之间（含5和35）的随机整数，哪个公式正确???( )

A．Int(30*Rnd)+5 B．5+Int(31*Rnd) C．Int(5+31)*Rnd D．40-5*Int(Rnd) 18．下面不是Visual Basic合法数据的是???????????????????( )

A．2E2.1 B．2%

C．\

D．True

19．Visual Basic中表示一个文本框（名称为Text1）选定内容的是哪个选项????( )

A．Text1.SelLength B．Text1.Text C．Text1.SelText D．Text1.SelStart 20．执行Visual Basic语句PRINT \的显示结果是????????????( )

A．1245 B．57

C．5421

D．语句有语法错误

21．在Visual Basic中，控件的属性在任何状态下都可以修改。 （ ）

22．在Visual Basic中，一个窗体中的多个选项按钮，不管通过什么方法设计，运行时每次只能选一个。

23．在Visual Basic中，从顺序文件中文件指针的当前位置读取指定长度的字符串的函数名是 。

24．代数式s(s?a)(s?b)(s?c)在Visual Basic中的算术表达式是 。 25. Visual Basic的表达式(10 > 8) And (-3 < 3) And (10 < 8) Or (5 > 14)的结果是_________________。

26．在Visual Basic中，对于数组 A(2 To 3, 4 To 6)，它的第二维的下界为___________。 二、程序题（本大题共2小题，每小题5分，共10分，读程序并分析结果，请填写在答题纸上）

1．阅读下面的Visual Basic程序，程序运行后sum的值是 Private Sub Command1_Click() Dim a(10) As Integer Dim i As Integer Dim j As Integer Dim num As Integer Dim sum As Integer sum = 0: a(0) = 1 For i = 0 To 10 For j = 1 To 9

num = 1 + Int(91 * Rnd)

If num = a(i) Then a(j) = num: sum = sum + a(j) Else j = j - 1

Next j

If j = 10 Then Exit For Next i Print sum End Sub

2．分析下面Visual Basic程序段。窗体中有一命令按钮（名称为C6_1）。

Private Sub C6_1_Click() Dim i As Integer Dim w As Integer w = 1

a = Array(1, 2, 3) b = Array(0, w, 4) For i = 0 To 2

w = w + wz(a(i), w, b(i)) Next i Print w End Sub

Private Function wz(ByVal x As Integer, y As Integer, ByVal z As Integer) Dim t As Integer t = x: x = y: y = t z = z + 1 wz = z End Function

窗体启动后单击命令按钮，输出w的值为________。 3．分析下面Visual Basic程序段。

Open \Print #1, \Print #1, \Print #1, \Print #1, \Close #1

Open \Line Input #1, st Seek #1, 2 Line Input #1, st Print st

Close #1

程序执行后，输出语句Print st执行结果是__________________。 4.输入数据依次为：0，1，0，1，0，1 Option base 1

Private sub form1_activate( ) Dim x(6) as integer Dim s as integer Dim t as integer For I = 1 to 6

X(i)=inputbox(“请输入数据”) If I mod 2 <> 0 then S = s + x(i) Else

T = t + x(i) End if Next i Print s ,t End sub

程序执行后，输出语句Print s，t执行结果是__________________。 5.private sub form1_activate A = 1:x = 8 Do

A = a + 1 X = x –2

Loop while x < 5 Print “a = ”;a Print “x = ”;x End sub

程序执行后，输出语句执行结果是__________________。 一、基础题 1 14 2 15 3 16 4 17 5 18 6 19 7 20 8 21 9 22 10 23 11 24 12 25 13 26 二、程序题 1. 2. 3. 4. 5.