专业班级:
学号:
姓名:
一、 选择题
( 用铅笔把选中的方格涂黑 1 分×50=50 分) 1 A B C D 2 A B C D 3 A B C D 4 A B C D 5 A B C D 6 A B C D 7 A B C D 8 A B C D 9 A B C D 10 A B C D 11 A B C D 12 A B C D 13 A B C D 14 A B C D 15 A B C D 16 A B C D 17 A B C D 18 A B C D 19 A B C D 20 A B C D 21 A B C D 22 A B C D 23 A B C D 24 A B C D 25 A B C D 26 A B C D 27 A B C D 28 A B C D 29 A B C D 30 A B C D 31 A B C D 32 A B C D 33 A B C D 34 A B C D 35 A B C D 36 A B C D 37 A B C D 38 A B C D 39 A B C D 40 A B C D 41 A B C D 42 A B C D 43 A B C D 44 A B C D 45 A B C D 46 A B C D 47 A B C D 48 A B C D 49 A B C D 50 A B C D 二、填空题 (每空占一行,每行写一个答案 2 分×20=40 分)
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
三、程序设计 ( 5 分×2=10 扣 分,代码若无锯齿形书写扣 1 分)
1 、请编写一个判断某个整数是否为素数的函数过程 Prime 。
2 、请编写一个求两个整数的最大公约数的函数过程 GCD 。
一、选择题(1 分×50=50 分)
1. 下面正确的赋值语句是__(1)_____。
A. X + Y = 10
B. Y = π *R*R
C. Y = X + 10
D. 2y = X 2. 当一个命令按钮的
(2)
属性设置为 False 时,该按钮为灰白显示(不可用)。
A. Visible
B. Enabled
C. Backcolor
D.
default 3. 执行下列语句时,会出现出错提示的是
(3)
。
A. Print 32765+3
B. Print 32768+3 C. Print "56" + 56
D. Print 5+7=14 4. 如果要在菜单的两个菜单命令项之间加一条分隔线,可在标题文本框中键入一个
(4)
符号。
A.下划线
B.@
C.连字符(-)
D.& 5. 下面哪一个是日期型常量
(5)
。
A."02/25/2005"
B. #January 1,1993#
C.
"02/25/2005#
D. #02/25/2005" 6. 要声明一个长度为 8 个字符的定长字符串变量 str,以下
(6)
语句是正确的。
(A)Dim str As String
(B)Dim str As String (8)
(C)Dim str As String [8]
(D)Dim str As String *8
7. 在窗体的通用声明中可以用
(7)
语句定义变量。
A. Dim、Private
B. Dim、Static
C.Dim、Public
D. Dim、Public、Private 8.
(8)
语句是专门用来为数组或对象集合中的每个元素重复执行一组语句而设置的。
A. Select-Case-End Select
B. Do-Loop
C.
For-Next
D.
For Each-Next 9.
若希望在离开某过程后,还能保存该过程中局部变量的值,则应使用__(9)___关键字在该过程中定义局部变量。
A、Dim
B、Private
C、Public
D、Static
10. 代数表达式y xe x???327 sin? 对应的 VB 表达式是
(10)
。
A. Sin(27)+Sqr(x+Exp3)/(x+y) B. Sin(27*3.14159/180)+Sqr(x+Exp(3))/Abs(x+y) C. Sin(27*3.14159/180)+Sqr(x+e^3)/Abs(x+y) D. Sin(27*π/180)+Sqr(x+Exp(3))/Abs(x+y) 11. 下列语句中,正确的是
(11)
。
A. Text1.SetFocus
B.Form1.Clear
C.Label1. SetFocus
D.List1.Cls 12. 计时器控件表示时间间隔的属性是
(12)
,其单位为千分之一秒。
A. Interval
B. Click
C. Timer
D. Load 13. 如果选定列表框中的第三项,它的 ListIndex 属性值是 (13)
。
A. 0
B. 1
C. 2
D. 3 14、在 VB 中最基本的对象是__(14)__,它是应用程序的基石,是其它控件的容器。
A. 窗体
B. 标签
C. 列表框
D. 文本框
15. 下面的哪个窗口可以用来调试程序__(15)____。
A. 工程窗口
B. 属性窗口
C. 本地窗口
D. 窗体布局窗口 16.设 a=3,b=2,c=1,Print a>b>c 的结果是 (16)
。
A. True
B. False
C. 1
D. 出错 17.假设变量 BOOL 是一个布尔型变量,则下列赋值语句中,正确的是
(17)
。
A. BOOL=TRUE
B. BOOL=.TRUE.
C. BOOL=#TRUE#
D. BOOL="TRUE" 18. 以下有关控件数组的说法中错误的是 (18)
。
A.控件数组由一组具有共同名称和相同类型的控件组成 B.控件数组中的每一个控件共享同样的事件过程 C.控件数组中的每个元素的下标由控件的 Index 属性指定 D.同一控件数组中的元素只能有相同的属性设置 19. 在 VB 中,终止一个死循环的方法是按
(19)
。
A. Ctrl+C
B. Ctrl+Break
C. Shift+C
D. Alt+Break 20. 可以从 Do While---Loop 循环中退出的语句是
(20)
。
A. Exit for
B. Exit Sub
C. Exit Do
D. Next 21. 设有说明语句 Dim X(0 To 2, 1 To 3) As Integer,则数组 X 中的元素个数有 (21)
。
A. 8
B. 9
C. 10
D. 6
22. 下列数组定义不正确的是
(22)
。
A. Dim A(10)
B. Dim A(2+10)
C. Dim A(n)
D. Dim A(2,3) 23. 下面可以正确地声明一个动态数组的是
(23)
。
A. Private A(n) As Integer
B. Dim A() As Integer C. Dim A(,) As Integer
D. Dim A(1 To n) 24. 下列____(24)___不是 Visual Basic 文件。
A. *.frm
B. *.bas
C. *.vbp
D. *.Doc 25. 下面可将数组下标的下界设置为 1 的语句是
(25)
。
A. Option Base 0
B. Option Base 1
C. Option Cmpare Text
D. Option Explicit 26. 要向文件 data1.txt 添加数据,正确的文件打开命令是
(26)
。
A. Open "data1.txt" For Output As #1 B. Open "data1.txt" For Input As #1 C. Open "data1.txt" For Append As #1 D. Open "data1.txt" For Write As #1 27. 下列关于函数的说法正确的是
(27)
。
A. 函数过程是通过函数名带回函数值的。
B. 函数名在过程中只能被赋值一次。
C. 函数过程只能被调用,用户不能自己定义。
D. 函数过程可以定义,但不能被调用。
28. 下列表达式中,能够将两位整数 X 的个位数与十位数对调(如将 78 转换为 87)的是
(28)
。
①Val (Right(x, 1) & Left(x, 1))
②Val (Right(Str(x), 1) & Left(Str(x), 1))
③ Val (Right(CStr(x), 1) & Left(CStr(x), 1))
④ Val (Mid(x, 2, 1) + Mid(x, 1, 1)) A. ①②
B. ②③
C. ①③④
D. ①④ 29. 以下有关对象属性的说法中,错误的是
(29)
。
A. 对象的 Name(名称)属性在程序代码中,作为对象的标识名 B. 只有在运行时设置或改变的属性不会出现在属性窗口中
C. Visible 属性值设为 True 的对象肯定是活动对象
D. 某些属性具有若干子属性,如 Font 属性 30.
Print 可在
(30)
上输出数据。
①窗体
②文本框
③图片框
④列表框
⑤立即窗口
⑥文件 A. ①③⑤⑥
B. ②③⑤
C. ①②⑥
D. ③④⑤⑥ 31.计算下面的表达式,其值是
(31)
。
Cint(3.5)+int(3.5)+fix(3.5)+(5 mod 3)
A. 10
B. 11
C. 12
D.13 32. 如果在一个工程中有多个窗体或模块,则 VB 默认的启动对象是
(32)
。
A.Sub main()
B.最后添加的窗体
C.标准模块
D.设计时的第一个窗体 33. 调用过程时,形参对象只能是
(33)
的参数。
A.按值传递
B.按地址传递
C.按实参传递
D.按形参传递 34.以下有关变量作用域的说法中,错误的是 (34)
。
A . 只有在标准模块中用 Public 语句说明的变量才是全局变量。
B.
在过程中不能使用 Private 语句说明变量。
C. 在过程中可以用 Dim 语句说明局部变量。
D.
当不同作用域的同名变量发生冲突时,VB 优先访问局限性大的变量 35.以下有关数组的说法中,正确的是
(35)
。
A.数组是有序变量的集合,序列中的变量类型可以不同 B.Erase 语句的作用是对固定大小数组的值重新初始化或收回分配给动态数组的存储空间 C.数组下标用以确定数组元素在数组中的位置,下标取值只能是 0 或 1 D.不能用赋值语句给数组元素赋值。
36.名为sort的sub子过程的形式参数为一数组,以下的定义语句中正确的是
(36)
。
A. private sub sort(a() as integer) B. private sub sort(a(10) as integer) C. private sub sort(byval a() as integer)
D.private sub sort(a(,) as integer)
37.若有语句 For
I = N1
To
N2
Step N3,在该循环体内含有__(37)___语句会影响循环执行的次数。
A. N1 = N1 + I
B. N2 = N2 + N3
C. I = I + N3
D. N3 = 2 * N3 38. 窗体模块的通用声明部分放置下列语句,其中正确的是
(38)
。
A. ReDim B(3) As Integer
B. Public S As String * 8 C. Private A() As Integer
D. Static a(10) As Integer
39、已知数组 A(1 TO 10) As Integer ,下列调用 PP 函数正确的是
(39)
。
Private Function pp(a() As Integer) As Integer
For I = 1 To 10
pp = pp + a(I)
Next I End Function
A、t=pp(a(1 to 10))
B、t=pp a
C、t=pp(a(10))
D、t=pp(a) 40. 设 s 是字符型变量,以下语句正确的是
(40)
。
A. s=List1.Caption
B. s=Timer1.Caption C. s=Text1.Caption
D. s=Label1.Caption 41、下列运算符中,优先级最低的是
(41)
。
A.Mod
B.\
C./
D.^ 42、Option Explicit 语句不可以放在
(42)
。
A.窗体模块的声明段中
B.标准模块的声明段中 C.类模块的声明段中
D.过程中 43、属性窗口显示属性的方式分为两种,即按字母排序和
(43)
排序。
A.分类
B.直接
C.间接
D.大小 44、当复选框被选中时,其 Value 属性取值为
(44)
。
A. 0
B.1
C.2
D.3 45、表达式 Val(“1.23467E3ab789”)的值为
(45)
。
A.1234.67
B.1.23467
C.1234.67789
D.表达式出错 46、下列叙述正确的是
(46)
。
A.变量名可以以字母或下划线开头
B.变量名的长度不允许超过 128 个字符 C.变量名可以包含小数点
D.变量名中可以包含数字 47、函数 InStr(“VB 计算机等级考试”,“等级”)的值是
(47)
。
A. 8
B.5
C. 6
D.9 48、表达式 8/5 和 8\5 的结果类型分别为
(48)
。
A. Single,Integer
B. Integer,Integer
C. Double,Integer
D. Double,Single 49、理论上已经证明,求解计算问题的三种基本程序控制结构是__(49)____。
A. 输入、处理、输出
B. 输入/输出、转移、循环 C. 转移、返回、处理
D. 顺序、分支、循环
50、下面关于退出 Sub 和 Function 过程中,说法正确的是
(50)
。
A.过程的最后一条语句是 End Sub(或 End Function),因而一定要执行到 End Sub(或End Function)才会结束过程的执行 B. 一个过程既可以通过 Exit Sub(或 Exit Function)语句结束过程的执行,也可以通过 End Sub(或 End Function)结束过程的执行 C. 一个过程可以没有 Exit Sub(或 Exit Function)语句,如果有则只能有一条 D.可以用 GoTo 语句来退出 Sub 过程
二、填空题 ( (2 分×20=40 分)
1.文件操作的一般步骤为打开文件、
(1)
、关闭文件。
2. 当使用 ReDim 语句改变原有数组最末维的大小时,要保持数组中原来的数据,需使用关键字___(2)____。
3 3 .执行下面的程序后,窗体上显示的第一行是
(3)
、第三行是
(4)
。
Private Sub Command1_Click()
Dim x As Integer, y As Integer
x = 10: y = 0
Do While x > 0
If x Mod 2 = 0 Then
y = y + x
Else
y = y - x
End If
x = x - 3
Print x, y
Loop End Sub 4 4 .执行下面的程序后,窗体上显示的第一行是
(5)
、第二行是
(6)
。
Option Explicit Private Sub Command1_Click()
Dim i As Integer, st As String
For i = 2 To 3
st = Chr(Asc("A") + i)
st = st & F(i)
Print st
Next i End Sub Private Function F(n As Integer)
Dim i As Integer, s As Integer
For i = 1 To n
s = s + i
Next i
F = s End Function
12、 、 执行下面的程序后,窗体上显示的第一行是
(7)
、第二行是
(8)
。
Option Base 1 Private Sub Command1_Click()
Dim a(3, 3) As Integer, i As Integer, j As Integer, k As Integer
i = 3: j = 1
a(i, j) = 1
For k = 2 To 9
If i + 1 > 3 Or j + 1 > 3 Then
If j = 1 Then
i = i - 1
ElseIf a(i - 1, j - 1) = 0 Then
i = i - 1: j = j - 1
ElseIf j = 3 Then
i = i - 1
Else
j = j + 1
End If
ElseIf j = 1 Or i = 1 Then
If a(i + 1, j + 1) = 0 Then
i = i + 1: j = j + 1
Else
j = j + 1
End If
Else
If a(i - 1, j - 1) = 0 Then
i = i - 1: j = j - 1
End If
End If
a(i, j) = k
Next k
For i = 1 To 3
For j = 1 To 3
Print a(i, j);
Next j
Next i
End Sub
12、 、 执行下面的程序后,窗体上显示的第一行是
(9)
、第二行是
(10)
、第三行是
(11)
。
Option Explicit Private B As Integer Private Sub Command1_Click()
Dim A As Integer
A = 1: B = 2
Call PACK(A, A)
Print A, B End Sub Private Sub PACK(X As Integer, Y As Integer)
Static C As Integer
X = X + 2
Y = Y + 2
B = B + 2
C = C + 2
If C >= 4 Then Exit Sub
Call PACK(X, Y)
Print X, Y
Print B, C End Sub
13. 随机生成由两位正整数组成的 4 4 行 行 5 5 列的二维数组,找最大值并指出其所在位置。
请完善程序。
Private Sub Command1_Click()
Dim a(4, 5) As Integer, i As Integer, j As Integer, max As Integer
For i = 1 To 4
For j = 1 To 5
a(i, j) =
(12)
Text1.Text = Text1.Text & Str(a(i, j))
Next j
Text1.Text = Text1.Text &
(13)
Next i Call maxele(a, max) Picture1.Print "最大值是:"; max Picture1.Print "位置是:" For i = 1 To 4
For j = 1 To 5
If a(i, j) = max Then Picture1.Print i; "行"; j; "列"
Next j Next i End Sub Private Sub maxele(
(14)
)
Dim i As Integer, j As Integer
max = a(1, 1)
For i = 1 To 4
For j = 1 To 5
If max < a(i, j) Then
(15)
End If
Next j
Next i End Sub 15 .统 计并在文本框 2 2 中显示字母(不分大小写)在文本中出现的次数,每行输出 5 5 个字母及统计结果后换一行。
Private Sub Command1_Click()
Dim St As String, Idx As Integer, A(0 To 25) As Integer,I As Integer
Dim Js As Integer ,Ch As String * 1, L As Integer
St = UCase(Text1.Text)
(16)
For I = 1 To L
Ch = Mid(St, I, 1)
If
(17)
Then
Idx = Asc(Ch) - Asc("A")
A(Idx) =A(Idx)+1
End If
Next I
For I = 0 To 25
If A(I) <> 0 Then
Js = Js + 1
Text2 = Text2 & Chr(I + Asc("A")) & ":" & Str(A(I)) & "
"
If
(18)
Then Text2 = Text2 & Chr(13) & Chr(10)
End If
Next I End Sub 7 7 、本程序的功能是求下面数列前 n n 项之和:
nx n x x xn x Sn2 6 4 2!6 4 2! 34 2! 22) , (1 2 5 3? ? ??? ? ? ?? ?????? ??
Option Explicit Private Sub Command1_Click()
Dim x As Single, s As Single
Dim n As Integer, i As Integer
x = InputBox("输入 X:", "求数列和", 1)
n = InputBox("输入 N:", "求数列和", 1)
For i = 1 To n
s = s + fun(x, i)
Next i
Label1.Caption =
(19)
Text1 = s End Sub Private Function fun(x As Single, n As Integer) As Single
Dim p As Single, i As Integer
p = 1
For i = 1 To n
(20)
Next i
fun = x ^ (2 * n - 1) * p
人生中每一次对自己心灵的释惑,都是一种修行,都是一种成长。相信生命中的每一次磨砺,都会让自己的人生折射出异常的光芒,都会让自己的身心焕发出不一样的香味。
我们常常用人生中的一些痛,换得人生的一份成熟与成长,用一些不可避免的遗憾,换取生命的一份美丽。在大风大雨,大风大浪,大悲大喜之后,沉淀出一份人生的淡然与淡泊,静好与安宁,深邃与宽厚,慈悲与欣然……
生活里的每个人,都是我们的一面镜子,你给别人什么,别人就会回待你什么。当你为一件事情不悦的时候,应该想想你给过人家怎样负面的情绪。
世界上的幸福,没有一处不是来自用心经营和珍惜。当你一味的去挑剔指责别人的时候,有没有反思过自己是否做得尽善尽美呢?
假如你的心太过自我,不懂得经营和善待,不懂得尊重他人的感受,那么你永远也不会获得真正的爱和幸福……
人生就像一场旅行,我们所行走的每一步都是在丰富生命的意义。我们一边穿越在陌生的吸引里,一边咀嚼回味着一抹远走光阴的旧味,一切都是不可预料,一切又似在预料之中。
人生看的多了,走的多了,经历的多了,也就懂得多了。每一份深刻的感悟大多来自一个人深刻的经历。
人生总有那么一两件重大的事情让你成熟和改变。这份错失,会让你反思自己,检讨自己,叩问自己,也让你意识到了自己真正的缺失,这或许就是一份痛苦的领悟吧!
人生可以平平淡淡,亦可以异彩纷呈。相信只要自己的德馨足够善美,上天就会把最好的一切赐予你。予人快乐,收获快乐;予人幸福,收获幸福;予人真情,收获厚意。人生的一切往来皆有因果,生活只善待有心人……
假如你有一颗计较的心,你就会很难获得一份幸福。当一个人放下了自己内心的那份累心的奢求,你的心空就会变得更加蔚蓝干净。
宽容,不仅是一种豁达的态度,更是一种心灵的品德,是一种处事的修行,宽容别人不是低矮了自己,而是释放了自己,升华了自己。你把世界宽待在心中,世界也同样装饰了你的一份美丽。
当你简约、释然了自己的时候,你会发现另一份生命中的快乐。那快乐是发自一颗简单的心,那快乐是从心灵的草地里欢快的迸发出来,通过你温柔的眼眸和开心的笑声来传递。
所以,心宽便心悦,你人生的天空是什么颜色,往往取决于你对人生的态度和对于自己情绪的驾驭……
世界上美好的东西那么多,有缘来到你的身旁,被你握到掌心的却又那么少。所以一切在的时候请学会珍惜,因为大多美丽的东西只会为你来过一次。你一不小心就会失落,无处找寻,增加了你人生的又一次遗憾……
过往,终是回不去的曾经。人总是在失去的时候才懂得珍惜,人总是在回味的时候才知道甜美。往事已矣,该放下的终归要放下,该忘记的一定要学会忘记。
其实这个世界上什么都不是我们的,在人间,我们只是一场心灵的路过而已……或许唯一属于过我们的,只是生命刹那的快乐与悲伤,以及自己一颗思索的灵魂……
站在时光的路口回望曾经,盘点每一份经历过的心情,人生有太多得不到的美好,有太多想不到的结局。终有一天,我们热望过的,贪念过的,彷徨过的,握紧过的,放手过的,都将化作尘埃随风飞去……
人生渺如尘埃,小如露珠,寻常如泥土,从不可知处而来,到不可知处而去。我们用灵魂结伴身体,走过这短暂的一朝一夕的寒暖,踏过流年的坎坷与花香,便是在世间真正的来过了。