VB期中B卷

苏州大学09-10（2）《VB程序设计》课程期中试卷（ B ）卷

共 9 页

考试形式闭卷年月

院系年级专业

学号姓名成绩

一、选择题（用答题卡答题，答案依次填在1~20答题号内,每题2分共40分）

1.Visual Basic 6.0 有3种不同的版本，可满足不同的开发需要。下列不是

Visual Basic 6.0的版本。

A.学习版

B.专业版

C.企业版

D.测试版

2.窗体文件的后缀是。

A.vbp

B.frm

C.vbw

D.bas

3.下列操作不能打开“代码编辑器”窗口。

A.双击对象（窗体或控件）

B.单击工程资源管理器窗口的“查看代码”按钮

C.单击标准工具栏中的“对象浏览器”按钮

D.选取“视图”菜单下的“代码窗口”

4.Visual Basic是面向的程序设计语言。

A.事件

B.对象

C.工程d。过程

5.能被对象所识别的动作称为对象的。

A.属性

B.过程

C.事件

D.方法

6.在过程中可以用语句定义变量。

A. Dim、Static

B.Doim、Private

C.Dim、Static、Private

D.Dim、Public

7.取字符串A=”Visual_Basic”程序设计”中的”程序设计”的字符函数是。

A.Mid(A,12,4)

B.Mid(A,12,8)

C. Mid(A,13,4)

D. Mid(A,13,8)

8.VB表达式Chr(Asc(Chr(65))+4)的值是.。

A.C

B.69

C.e

D.E

9.下列表达式中的值是整型（Integer或Long）。

①36+4/2 ②123+Fix(63.8) ③59+7.9\2.5

④356 & 22 ⑤”374”+256 ⑥5.5 mod 1.5

A. ①②④⑥

B..②③④⑤⑥

C.③④⑤⑥

D.③⑥

10.可以在中，使用语句Public Str As String*20定义一个定长字符串。

A.窗体模块

B.标准模块

C.类模块

D.三者均可

11.1、如果窗体上有命令按钮“确定”，在代码编辑窗口有与之对应的OK_Click()事件过程，

则命令按钮控件的名称属性和Caption属性分别为。

A. “OK”和“确定”

B. “确定”和“OK”

C. “Command1”和“确定”

D. “Command1”和“OK”

12.VB中下列关于控件的属性或方法中搭配错误的有个。

①Timer1.Interval ②List1.Cls ③Text1.Print

④List1.RemoveItem ⑤Vscroll1.Value ⑥Picture1.Print

A. 0

B. 1

C. 2

D. 3

13.下列表达式中，运算结果与函数Mid(S,i,i)的返回值相同的是。

A. Left(S,i) & Right(s,Len(S)-i)

B. Left(Right(S,Len(S)-i+1),i)

C. Left(Right(S,i),Len(S)-i+1)

D. Left(S,Len(S)-i) & Right(S,i)

14.下列表达式中能够被正确计算的有个。

（1）4096*2^3 （2）Cint(5.6) * 5461+2 （3）6553*5+0.5*6 （4）32768+12

A. 4

B. 3

C. 2

D. 1

15.执行下面语句后，Len函数值最大的是。

Dim IA As Integer, B As Single, S As String *5, Ch As String

IA=32767 : B=23.5 : S=”A” :Ch=”abcd”

A．Len(IA) B．Len(B) C．Len(S) D．Len(Ch)

16.对正实数X 的第四位小数四舍五入的VB表达式是。

A. 0.001*Int(x+0.005)

B. 0.001*(1000*x+0.5)

C. 0.001*Int(1000*x+5)

D. 0.001*Int(1000*(x+0.0005))

17.以下变量名不合法是的是。

A. sad_1

B.b51

C.file-1

D.sd_3_444

18.执行以下程序段后，变量c$的值为。

a$=“Visual Basic Programing”

b$=“Quick”

c$=b$ & UCase(Mid$(a$, 7, 6)) & Right $ (a$, 11)

A.Visual BASIC Programing

B.Quick Basic Programing

C.QUICK Basic Programing

D.Quick BASIC Programing

19.以下有关把数组作为形参的说明中错误的是。

A.形参数组只能按地址传送

B.调用过程时，只需要把传递的数组名填入实参表

C.使用动态数组时，可用ReDim语句改变形参数组的维界

D.在过程中也可用Dim语句对形参数组进行说明

20.以下说法正确的是。

A.默认情况下属性Visible的值为True

B.如果设置控件的Visible属性值为False，则该控件消失

C.Visible的值可设为0或1

D.设置Visible属性同设置Enable属性的功能是相同的，都是使控件处于失效状态

二、填空题

（请将答案填写在答题纸的相应答题号内，每个答案只占一行，）每空2分共60分1．将一表达式转成Byte类型的函数是（1）。

2．解锁Unlock语句的功能是释放由（2）设置的对一个文件的多重访问保护。

3．为了改变Label控件中显示的文本，可使用（3）属性。

4．第一次显示某窗体时，将引发Initialize、Activate和Load三个事件，最先引发的事件是（4）事件。

5．窗体上有一个shape控件，其shape属性设置为2-Oval，则显示为一个（5）图形。

6．下列程序的执行结果是（6）。

Private Sub Form_Click()

Dim s As Integer, k As Integer

s = 1: k = 1

Do While k < 10

s = s + k

k = k + 1

Loop

Print s

End Sub

7．下列程序程序单击窗体后，则在窗体上的text1和text2中的内容分别是（7）和（8）。

Private Sub Form_Click()

Dim s As Variant, s1 As String

s = #5/24/2003#

Text1.Text = Day(s)

s1 = CStr(s)

s1 = Left(s1, 1) + Space(3) + Right(s1, 1)

Text2.Text = s1

End Sub

8．下列程序的功能是，找出1～10之间所有的因子之和，并在图片框Picture1中显示出来，如图1所示。给定的程序不完整，将程序补充完整。

图1

Private Sub form_Click()

Dim a() As Integer, Id As Integer

For I = 1 To 10

Picture1.Print I; "-> 1 ";

（9）

For j = 2 To I - 1

If I Mod j = 0 Then

Id = Id + 1

ReDim Preserve a(Id)

a(Id) = j

End If

Next j

For j = 1 To Id

（10）

Next j

Picture1.Print

Next I

End Sub

9．给定程序其功能是：建立并打印主对角线的元素为1外，主对角线之上的元素为5，主对角线之下的元素为0的方阵，如图2所示。给定的程序不完整，将程序补充完整。

图2

Option Base 1

Private Sub Form_Click()

Dim A(5, 5)

For i = 1 To 5

For j = 1 To 5

If i = j Then

（11）

ElseIf（12）Then

A(i, j) = 5

Else

A(i, j) = 0

End If

Next j

Next i

For i = 1 To 5

For j = 1 To 5

Print A(i, j);

Next j

（13）

Next i

End Sub

10．1955年，卡普耶卡(D.R.Kaprekar)研究了对四位数的一种变换：任给出四位数k0，用它的四个数字由大到小重新排列成一个四位数m，再减去它的反序数rev(m)，得出数k1=m-rev(m)，然后，继续对k1重复上述变换，得数k2。如此进行下去，卡普耶卡发现，无论k0是多大的四位数，只要四个数字不全相同，最多进行7次上述变换，就会出现四位数6174。例如：k0=5298，k1=9852-2589=7263，k2=7632-2367=5265，k3=6552-2556=3996，k4=9963-3699=6264，k5=6642-2466=4176，k6=7641-1467=6174。给定下列程序实现其功能。给定的程序不完整，将程序补充完整。

Option Base 1

Private Sub Form_Click()

Dim n(4) As Integer

Randomize

k =（14）

m = 0

Do

Print k

For i = 1 To 4

n(i) = k Mod 10

（15）

Next i

For i = 1 To 3

For j = i To 4

If（16）Then

t = n(i)

n(i) = n(j)

n(j) = t

End If

Next j

Next i

Max = n(1) * 1000 + n(2) * 100 + n(3) * 10 + n(4)

Min = n(4) * 1000 + n(3) * 100 + n(2) * 10 + n(1)

k = Max - Min

（17）

Loop Until k = 6174

Print k

Print "交换次数＝";m

End Sub

11．下面程序的功能是找出由两个不同的数字组成的回文平方数。程序界面参见图3。

图3

Option Explicit

Private Sub Command1_Click()

Dim a(0 To 9) As Integer, i As Long, flg As Boolean

Dim j As Integer, sum As Integer

For i = 10 To 1000

Erase a

Call sub1((i * i), a, flg)

If （18）Then

For j = 0 To 9

sum = sum + a(j)

Next j

If （19）Then

List1.AddItem CStr(i) & "^2=" & Str(i * i)

End If

End If

sum = 0

Next i

End Sub

Private Sub sub1(x As Long, a() As Integer, bl As Boolean)

Dim n As Integer, idx As Integer, i As Integer

bl = （20）

n = Len(CStr(x))

For i = 1 To n / 2

If Mid(CStr(x), i, 1) <> Mid(CStr(x), n - i + 1, 1) Then

Exit Sub

End If

Next i

bl = True

For i = 1 To n

idx = x Mod 10

a(idx) = 1

x = (x \ 10)

Next i

End Sub

12．下列的程序的功能是，将密码转换成字符串，其中密码的规则为：数码后面的字符表示数码的个数，例如A表示1个，B表示2个，C表示3个，……。转换顺序是密码→(每7位)二进制→ASCII码→原代码，程序运行后的结果如图4所示。给定的程序不完整，将程序补充完整。

图4

Dim w As String

Private Sub Command1_Click()

w = Text1(0).Text

For i = 1 To Len(w)（21）

s1 = Mid(w, i, 1)

For j = 1 To Asc(Mid(w, i + 1, 1)) - 64

t = t + s1

Next j

Next i

Text1(1).Text =（22）

s2 = ""

For i = 0 To Len(t) / 7 - 1

s1 = Mid(t, i * 7 + 1, 7)

（23）

For j = 6 To 0 Step -1

Sum = Sum + Val(Mid(s1, 7 - j, 1)) * 2 ^ j

Next j

Text1(2).Text = Text1(2).Text + Str(Sum)

s2 = s2 + Chr(Sum)

Next i

Text1(3).Text =（24）

End Sub

13．下列程序是统计字母和数字字符在文本中出现的次数。程序运行后的结果如图5所示。给定的程序不完整，将程序补充完整。

图5

Option Explicit

Private Sub Command1_Click()

Dim str1 As String, n1 As Integer

Dim A(62) As Integer

Dim I As Integer, line1 As Integer

Dim s1 As String * 1, len1 As Integer

（25）= Text1.Text

len1 = Len(str1)

For I = 1 To len1

s1 =（26）

If s1 >= "A" And s1 <= "Z" Then

n1 = Asc(s1) - Asc("A")

A(n1) = A(n1) + 1

ElseIf s1 >= "a" And s1 <= "z" Then

n1 = Asc(s1) - Asc("a") + 26

（27）

ElseIf s1 >= "0" And s1 <= "9" Then

n1 = Asc(s1) - Asc("0") + 52

A(n1) = A(n1) + 1

End If

Next I

For I = 0 To 62

If A(I) > 0 Then

Select Case（28）

Case 0 To 25

Text2 = Text2 & Chr(I + Asc("A")) & "：" & Str(A(I)) & " "

Case 26 To 51

Text2 = Text2 & Chr(I - 26 + Asc("a")) & "：" & Str(A(I)) & " "

Case Else

Text2 = Text2 & （29）

End Select

（30）

If line1 Mod 6 = 0 Then Text2 = Text2 & vbCrLf

End If

Next I

End Sub