江苏省计算机二级b考试试题

1、一、选择题（每小题2分，共70分） 下列各题A) 、B) 、C) 、D)四个选项中，只有一个选项是正确的。请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。 （1）软件是指 A）程序B）程序和文档 C）算法加数据结构D）程序、数据与相关文档的完整集合 （2）软件调试的目的是 A）发现错误B）改正错误 C）改善软件的性能D）验证软件的正确性 （3）在面向对象方法中，实现信息隐蔽是依靠 A）对象的继承B）对象的多态 C）对象的封装D）对象的分类 （4）下列叙述中，不符合良好程序设计风格要求的是 A）程序的效率第一，清晰第二B）程序的可读性好 C）程序中要有必要的注释D）输入数据前要有提示信息

2、（5）下列叙述中正确的是 A）程序执行的效率与数据的存储结构密切相关 B）程序执行的效率只取决于程序的控制结构 C）程序执行的效率只取决于所处理的数据量 D）以上三种说法都不对 （6）下列叙述中正确的是 A）数据的逻辑结构与存储结构必定是一一对应的 B）由于计算机存储空间是向量式的存储结构，因此，数据的存储结构一定是线性结构 C）程序设计语言中的数组一般是顺序存储结构，因此，利用数组只能处理线性结构 D）以上三种说法都不对 （7）冒泡排序在最坏情况下的比较次数是 A）(n1)/2 B）nlog2 n C）n(n1)/2 D）/2 （8）一棵二叉树中共有70个叶子结点与80个度为1的结点，则该二

3、叉树中的总结点数为 A）219 B）221 C）229 D）231 （9）下列叙述中正确的是 A）数据库系统是一个独立的系统，不需要操作系统的支持 B）数据库技术的根本目标是要解决数据的共享问题 C）数据库管理系统就是数据库系统 D）以上三种说法都不对 （10）下列叙述中正确的是 A）为了建立一个关系，首先要构造数据的逻辑关系 B）表示关系的二维表中各元组的每一个分量还可以分成若干数据项 C）一个关系的属性名表称为关系模式 D）一个关系可以包括多个二维表 （11）要使一个文本框可以显示多行文本，应设置为True的属性是 A）Enabled B）MultiLine C）MasLenfth D）W

4、idth （12）在窗体上有一个名为Text1的文本框。当光标在文本框中时，如果按下字母键“A”，则被调用的事件过程是 A）Form_KeyPress() B）Text1_LostFocus() C）Text1_Click() D）Test1_Change() （13）设在窗体上有一个名称为Command1的命令按钮和一个名称为Text1的文本框。要求单击Command1按钮时可把光标移到文本框中。下面正确的事件过程是 A）Private Sub Command1_Click() B）Private Sub Text1.GotFocus Command1.GotFocus End Sub En

5、dSub C）Private Sub Command1_Click() D）Private Sub Text1.SetFocus Command1.SetFocus End Sub End Sub （14）执行以下程序后输出的是 Private Sub Command1_Click() Ch$=”AABCDEFGH” Print Mid(Righ(ch$,6),Len(left(ch$,4),2) End Sub A)CDEFGH B)ABCD C)FG D)AB （15）设在窗体Form1上有一个列表框List1，其中有若干个项目。要求单击列表框中某一项时，把该项显示在窗体上，正确的事件过程

6、是 A)Prvate Sub List1_Click() B)Private Sub Form1_Click() Print List1.Text Print List1.Text End Sub End Sub C)Private Sub List1_Click() D)Private Sub Form1_Click() Print Form1.Text List1.Print List1.Text End Sub End Sub （16）若窗体上的图片框中有一个命令按钮，则此按钮的Left属性是指 A)按钮左端到窗体左端的距离 B)按钮左端到图片框左端的距离 C)按钮中心点到窗体左端的距离

7、 D)按钮中心点到图片框左端的距离 （17）为使程序运行时通用对话框CD1上显示的标题为“对话框窗口”，若通过程序设置该标题，则应使用的语句是 A)CD1.DialogTitle=“对话框窗口” B)CD1.Action=“对话框窗口” C)CD1.FileName=“对话框窗口” D)CD1.Filter=“对话框窗口” （18）在窗体上有如右图所示的控件，各控件的名称 与其标题相同，并有如下程序： Private Sub Form_Load() Command2.Enabled=False Check1.Value=1 End Sub 刚运行程序时，看到的窗体外观是： （19）设在窗体中有

8、一个名称为List1的列表框，其中有若干个项目（如图）。要求选中某一项后单击Command1按钮，就删除选中的项，则正确的事件过程是 A)Private Sub Command1_Click() List1.Clear End Sub B) Private Sub Command1_Click() List1.Clear List1.ListIndex End Sub C) Private Sub Command1_Click() List1.Removeltem List1.ListIndex End Sub D) Private Sub Command1_Click() List1.Rem

9、oveltem End Sub （20）某人设计了如下程序用来计算并输出7!（7的阶乘） Private Sub Command1_Click() t=0 For k=7 To 2 Step -1 t=t*k Next Print t End Sub 执行程序时，发现结果是错误的，下面的修改方案中能够得到正确结构的是 A）把t=0改为t=1 B）把For k = 7 To 2 Step -1改为For k =7 To 1 Step -1 C）把For k = 7 To 2 Stip-1改为Fork=1 To 7 D）把Next改为Nexi k （21）若窗体中已经有若干个不同的单选按钮，要把它

10、们改为一个单选按钮数组，在属性窗口中需要且只需要进行的操作是 A）把所有单选按钮的Index属性改为相同值 B）把所有单选按钮的Index 属性改为连续的不同值 C）把所有单选按钮的Caption属性值改为相同 D）把所有单选按钮的名称改为相同，且把它们的Index属性改为连续的不同值。 （22）窗体上有文本框Text1和一个菜单，菜单标题、名称如表，结构见图。要求程序执行时单击“保存”菜单项，则把其标题显示在Text1文本框中。下面可实现此功能的事件过程是： 标题 名称 文件 file 新建 new 保存 save A）Private Sub save_Click() B）Private S

11、ub save_Click() Text1.Text=file.save.Caption Text1.Text=save.Caption End Sub End Sub C）Private Sub file_Click() D）Private Sub file_Click() Text1.Text=file.save.Caption Text1.Text=save.Caption End Sub End Sub（23）某人在窗体上画了一个名称为Timer1的计时器和一个名称为Lab 的属性设置为Enabled=True, Interval=0,并编程如下。希望在每2秒在标签上显示一次系统当前时

12、间。 Private Sub Timer1_Timer() Label1.Caption=Time$ End Sub 在程序执行时发现未能实现上述目的，那么，他应做的修改是 A）通过属性窗口把计时器的Interval属性设置为2000 B）通过属性窗口把计时器的Enabled属生设置为False C)把事件过程中的Label1.Caption=Time$语句改为Timer1.Interval=Tims$ D)把事件过程中的Label1.Caption=Time$语句改为Label1.Caption=Timer1.Time （24）形状控件的Shape属性有6种取值，分别代表6种几何图形。下列不

13、属于这6种几何图形的是 （25）下面关于文件的叙述中错误的是 A）随机文件中各条记录的长度是相同的 B）打开随机文件时采用的文件存取方式应该是Random C）向随机文件中写数据应使用语句Print#文件号 D）打开随机文件与打开顺序文件一样，都使用Open语句 （26）设窗体上有一个图片框Picture1，要在程序运行期间装入当前文件夹下的图形文件File1.jpg，能实现此功能的语句是 A）Picture1.Picture=”Flie1.jpg B）Picture1.Picture=LoadPicture(“File1.jpg”) C) LoadPicture(“File1.jpg”) D

14、）Call LoadPicture(“File1.jpg”) （27）下面程序执行时，在窗体上显示的是 Private Sub Command1_Click() Dim a(10) For k = 1 To 10 a(k) = 11 k Next k Print a(a(3)a(7) Mod a(5) End Sub A）3 B）5 C）7 （28）为达到把a、b中的值交换后输出的目的，某人编程如下： Private Sub Command1_Click() a% = 10:b% = 20 Call swap(a,b) Print a,b End Sub Private Sub swap(By

15、Val a As Integer,ByVal b As Integer) c= a:a=b:b=c End Sub 在运行时发现输出结果错了，需要修改。下面列出的错误原因和修改方案中正确的是 A）调用swap过程的语句错误，应改为Call swap a,b B）输出语句错误，应改为：Print ”a”,”b” C）过程的形式参数有错，应改为：swap(ByRef a As Integer,ByRef b As Integer) D）swap中3条赋值语句的顺序是错误的，应改为a=b:b=c:c=a （29）有如下函数： Function fun(a As Integer,n As Intege

16、r) As Integer Dim m As Integer While a =n a=a-n m= m+1 Wend fun=m End Function 该函数的返回值是 A）a乘以n的乘积 B）a加n的和 C）a减n的差 D）a除以n的商（不含小数部分） （30）下面程序的输出结果是 Private Sub Command1_Click() ch$=”ABCDEF” proc ch Print ch End Sub Private Sub proc(ch As String) S=” For k=Len(ch) To 1 Step-1 s=s&Mid(ch,k,1) Next k ch=

17、s End Sub A）ABCDEF B）FEDCBA C）A D）F （31）某人编写了一个能够返回数组a中10个数中最大数的函数过程，代码如下： Function MaxValue(a() As Integer) As Integer Dim max% max=1 For k = 2 To 10 If a(k)a(max) Then max = k End If Next k MaxValue = max End Function 程序运行时，发现函数过程的返回值是错的，需要修改，下面的修改方案中正确的是 A）语句max = 1应改为max = a(1) B）语句For k = 2 To

18、10应改为For k = 1 To 10 C）If语句中的条件a(k)a(max)应改为a(k)max D）语句MaxValue = max 应改为MaxValue = a(max) （32）在窗体上画一个名称为Command1的命令按钮，并编写以下程序： Private Sub Command1_Click() Dim n%,b,t t = 1:b = 1:n = 2 Do b = b*n t = t + b n = n +1 Loop Until n9 Print t End Sub 此程序计算并输出一个表达式的值，该表达式是 A）9！ B）10！ C）1！+2！+9！ D）1！+2！+1

19、0！ （33）有一个名称为Form1的窗体，上面没有控件，设有以下程序（其中方法Pset(X,Y)的功能是在坐标X，Y处画一个点）： Dim cmdmave As Boolean Private Sub Form_MouseDown(Button As Integer,Shift As Integer, X As Single,Y As Single) cmdmave = True End Sub Private Sub Form_MouseMove(Button As Integer,Shift As Integer, X As Single, Y As Single) If cmdmave

20、 Then Form1.Pset(X,Y) End If End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single,Y As Single) cmdmave = False End Sub 此程序的功能是 A）每按下鼠标键一次，在鼠标所指位置画一个点 B）按下鼠标键，则在鼠标所指位置画一个点；放开鼠标键，则此点消失 C）不按鼠标键而拖动鼠标，则沿鼠标拖动的轨迹画一条线 D）按下鼠标键并拖动鼠标，则沿鼠标拖动的轨迹画一条线，放开鼠标键则结束画线 （34）某人设计了下面的函数fun，功能是返回

21、参数a中数值的位数 Function fun(a As Integer) As Integer Dim n% n = 1 While a 10 = 0 n = n + 1 a = a 10 Wend fun = n End Function 在调用该函数时发现返回的结果不正确，函数需要修改，下面的修改方案中正确的是 A）把语句n = 1改为n = 0 B）把循环条件a 10 = 0改为a 10 0 C）把语句 a = a 10改为a = a Mod 10 D）把语句fun = n改为 fun = a （35）在窗体上有一个名称为Check1的复选框数组（含4个复选框），还有一个名称为Text1

22、的文本框，初始内容为空。程序运行时，单击任何复选 框，则把所有选中的复选框后面的方字罗列在文本框中（见图）。下面能实现此功能的事件过程是 A）Private Sub Check1_Click(Indes As Integer) Text1.Text = For k = 0 To 3 If Check1(k).value = 1 Then Text1.Text = Text1.Text & Check1(k).Caption & 双引号中是空格 End If Next k End Sub B）Private Sub Check1_Click(Index As Integer) For k = 0

23、 To 3 If Check1(k).Value = 1 Then Text1.Text = Text1.Text & Check1(k).Caption & 双引号中是空格 End If Next k End Sub C）Private Sub Check1_Click(Index As Integer) Text1.Text = For k = 0 To 3 If Check1(k).Value = 1 Then Text1.Text = Text1.Text & Check1(Index).Caption & 双引号中是空格 End If Next k End Sub D）Private

24、 Sub Check1_Click(Index As Integer) Text1.Text = For k = 0 To 3 If Check1(k).Value = 1 Then Text1.Text = Text1.Text & Check1(k).Caption & 双引号中是空格 Exit For End If Next k End Sub 二、填空题（每空2分，共30分） 请将每空的正确答案写在答题卡115序号的横线上，答在试卷上不得分。 (1)软件需求规格说明书应具有完整性，无岐义性、正确性、可验证性、可修改性等特征，其中最重要的是【1】 。 (2)在两种基本测试方法中，【2】

25、测试的原则之一是保证所测模块中每一个独立路径至少执行一次。 (3)线性表的存储结构主要分为顺序存储结构和链式存储结构。队列是一种特殊的线性表，循环队列是队列的【3】 存储结构。 (4)对下列二叉树进行中序遍历的结果为【4】 。 （5）在E-R图中，矩形表示【5】 。 （6）窗体上有一个组合框，其中已输入了 若干个项目。程序运行时，单击其中一 项，即可把该项与最上面的一项交换。 例如：单击图1中的“重庆”，则与“北 京”交换，得到图2的结果。下面是可 实现此功能的程序，请填空。 Private Sub Combo1_Click() Dim temp temp = Combo1.Text 6 =

26、Combo1.List(0) Combo1.List(0) = temp End Sub （7）设窗体上有一个名称为HScroIII的水平滚动条，要求当滚动块移动位置后，能够在窗体上输出移动的距离（即新位置与原位置的刻度值之差，向右移动为正数，向左移动为负数）。下面是可实现此功能的程序，请填写。 Dim 7 As Integer Private Sub Form_Load() pos=HScroIII.Value End Sub Private Sub HScroIII_Change() Print 8 -pos pos=HScroIII.Value End Sub （8）设窗体上有一个名称为

27、CD1的通用对话框，一个名称为Text1的文本框和一个名称为Command1的命令按钮。程序执行时，单击Command1按钮，则显示打开文件对话框，操作者从中选择一个文本文件，并单击对话框上的“打开”按钮后，则可打开该文本文件，并读入一行文本，显示在Text1中。下面是实现此功能的事件过程，请填空。 Private Sub Command1_Click() CD1.Filter =文本文件1*.txt(Word 文档)*.doc CD1.Filterinder = 1 CD1.ShowOpen If CD1.FileNameThen Open 9 For Input As #1 Line In

28、put #1,ch$ Close #1 Text1.Text = 10 End If End Sub （9）下面的程序执行时，可以从键盘输入一个正整数，然后把该数的每位数字按逆序输出。例如：输入7685，则输出5867，输入1000，则输出0001。请填空。 Private Sub Command1_Click() Dim x As Integer x=InputBox(“请输入一个正整数”) While x_11_ Print x Mod 10; x=x10 Wend Print_12_ End Sub （10）有如图所示的窗体。程序执行时先在Text1文本框中输入编号，当焦点试图离开Tex

29、t1时，程序检查编号的合法性，若编号合法，则焦点可以离开Text1文本框；否则，显示相应错误信息，并自动选中错误的字符，且 焦点不能离开Text1文本框（见图）。 合法编号的组成是：前2个字符是大写英文 字母，第3个字符是“-”，后面是数字字符 （至少1个）。下面程序可实现此功能，请 填空。 Private Sub Text1_Lostfocus() Dim k%,n% n=Len( 13 ) For k=1 to if (n3,n,4) c=Mid(Text1. Text,k,1) Select Case k Case 1,2 If cZ Then MsgBox(第&k&个字符必须是大写字母

30、！) SetPosition k Exit For End If Case 3 If c- Then MsgBox(第&k&个字符必须是字符-) SetPosition k Exit For End If Case Else If c9 Then MsgBox(第&k&个字符必须是数字！) SetPosition k Exit For End If End Select Next k End Sub Private Sub SetPosition(pos As Integer) Text1.SelStart=pos-1 Text.SelLength= 14 Text1. 15 End Sub

31、2007年9月全国计算机等级考试二级VB参考答案 一、选择题 1-5 DBCAA 6-10 CCABA 11-15 BDCCA 16-20 BAACA 21-25 DBABC 26-30 BDCDB 31-35 DCDBA 二、填空题 1、无歧义性 2、白盒测试 3、顺序 4、ACBDFEHGP 5、实体集 6、Combol1.List(Combol1.ListIndex) 7、pos 8、HScroll1.value 9、CD1.FileName 10、ch 11、10 12、x 13、Text1.Text 14、1 15、SetFocus第二部分Visual Basic程序设计 . 一、选

32、择题(用答题卡答题，答案依次填在2130答题号内) 21.关于窗体，以下叙述中正确的是 21 。 A.仅当窗体上没有可以获得焦点的控件时，窗体才可以获得焦点 B.一个VB工程只能从某个指定的窗体开始启动 C.只有窗体可以作为控件的容器 D.Unload Me和End语句的效果总是等同的 22.若a为长整型变量，则执行a=12 : Print Len(a);Len(Str(a); Len(CStr(a)后，在窗体上看到的是 22 。 A.4 2 3 B.2 3 2 C.4 3 2 D.2 2 3 23.数学表达式 对应的visual Basic表达式是 23 。 A.Cos(30*3.14159

33、/180)/(4*y+Ln(x)+Exp(2) B.Cos(30*3.14159/180)/(4*y+Log(x)+Exp(2) C.Cos(30*3.14159/180)/(4*y+Ln(x)+e2 D.Cos(30)/(4*y+Log(x)+e2 24.表达式Fix(-2.5)+Int(-3.5)+CInt(-2.5)的值是 24 。 A.-8 B.-7 C.-6 D.-5 25.以下说法中，错误的是 25 。 A.使用缺省Preserve关键字的ReDim语句可以改变数组的维数和大小 B.ReDim语句只能出现在过程中 c.使用ReDim语句重新定义的动态数组，只能比原数组大 D.使用R

34、eDim语句可以对动态数组的所有元素进行初始化 26.下列关于菜单的说法中，错误的是. 26 。 A.可以为菜单项选定快捷键 B.若在标题文本框中键入连字符(一)，则可在菜单的两个菜单命令项之间加一条分隔线 C.除了Click事件之外，菜单项还可以响应其他事件 D.菜单编辑器的名称文本框用于输入菜单项的名称 27.以下有关过程中形式参数的描述中，错误的是 27 。 A.函数过程可以没有形式参数 B.事件过程一定没有形式参数 C.形参数组只能按地址与实参数组结合 D.窗体与控件也可以作为过程的参数 28.以下表达式中，可以表示A和B之一大于0的是 28 。 A*B0 Xor B0 A0 Or B

35、0 A0 And B0 And A=1 st=Left(s,1) if st9 then st=Asc(st)-55 end if Covert=Convert+Val(st)*N(L-1) print Val(st)*N(L-1) L=L-1 s=Right(S,L) Loop End Function 5.窗体显示的第一行是_(13)_,第二行是_(14)_,第三行是_(15)_ Option Explicit Private Sub Command1_Click() Dim s as string, k as integer, ch() as string Dim P as string

36、,i as integer s=Ucase(Meet me after the class.) For i=1 to Len(s) If Mid(s,i,1)=A then p=p & Mid(s,i,1) ElseIf p then k=k+1 Redim Preserve ch(k) ch(k)=p p= End if Next i For i=1 to Ubound(ch) if len(ch(i)=2 then Call move_c(ch(i),1) else Call move_c(ch(i),2) end if print ch(i) next i End SUb Private

37、 Sub Move_c(s as string, k as integer) Dim i as integer, j as integer, p as string*1 For i=1 to k p=Right(s,1) For j=Len(s)-1 to 1 step -1 Mid(s,j+1,1)=Mid(s,j,1) Next j s=p & Right(s,Len(s)-1) next i End Sub 6.下面的程序是求的近似值，当第n项的绝对值小于10-5时终止计算 =1-1/3+1/5-1/7+(-1) option explicit Private Sub Command1_

38、Click() dim n as long, s as single, t as single, pi as single Const eps=0.00001 n=1 t=1 s=0 do s=s+t n=n+1 t=_(16)_ Loop Until _(17)_ pi=s*4 Label1.Caption =的近似值为: End Sub 7.下面程序的功能是，找出满足以下条件的三位整数，不含数字0, 且任意交换数字位置所得到的数，均能被6整除 Option explicit Private sub Command1_Click() dim i as integer, j as intege

39、r, k as integer, st as string Dim a(6) as integer For i=100 to 999 if _(18)_ then For j=1 to 6 if a(j) Mod 60 then Exit For Next j if_(19)_THen st=st & str(i) k=k+1 if k mod 3 =0 then st=st & vbcrlf End if End if Next I Text1=st End Sub Private Function fj(a() as integer, s as string) as Boolean Dim

40、 n as Integer, i as integer, j as integer if Instr(s,0)0 then _(20)_ end if For i=1 to 3 For j=1 to 2 n=n+1 _(21)_ s=Left(s,1) & Right(s,1) & Mid(s,2,1) Next j s=Right(s,1) & left(s,2) Next i fj=True End Function 8.下面程序的功能是求两个特大整数之和，由于vb中能够表示的整数大小有一定限制，所以必须用新的方法求特大整数之和，本程序将特大整数使用字符类型进行处理，其中函数add用于求两

41、个1位整数之和，参数c用于保存进位，注意，求和前需首先将两个整数按位对齐 option explicit private Sub command1_Click() Dim s1 as string, s2 as string, s3 as string dim i as integer, n1 as integer, n2 as integer dim c as integer, n as integer s1=text1 : s2=Text2 n=_22_ if sgn(n)0 then s2=_23_ elseif Sgn(N)0 then s1=String(Abs(n),0) & s1

42、 end if For i=len(s1) to 1 step -1 n1=Val(Mid(s1,i,1) n2=Val(Mid(s2,i,1) s3=_(24)_ Next i if c0 then s3=_(25)_ Text3=s3 End Sub Private Function Add(x as integer, y as integer, c as Integer) as string Add=Cstr(x+y+c) Mod 10) _(26)_ End Function 9. Option Explicit Private Sub Command1_Click() dim i a

43、s long,i2 as long, flag as Boolean Dim a(0 to 9) as integer, b(0 to 9) as integer For i=100000 to 160000 Call Validate(i,a,flag) if flag then i2=i*6 call Validate(i2,b,flag) if flag and Compare(a,b) then List1.AddItem i & & i2 End if End if Next i end sub Private Sub validate(n as long, a() as Integ

44、er, f as Boolean) dim p as integer, i as integer Erase a f=false for i=1 to len(cstr(N) p=_(27)_ if a(p)=1 then exit sub else a(p)=1 end if next i _(29) f=true End Sub Private Function Compare(a() as integer, b() as integer) as Boolean dim j as integer compare=false for j=1 to Ubound(a) if a(j)b(j)

45、then _(30)_exit function End if next j Compare=true End Function22.在下列属性中,属于CommandButton控件、ListBox控件共有的是22。 A.Caption、Text B.Visible、Font C.Caption、Visible D.List、Visible 23.数学表达式 对应的visual Basic表达式是 23 。 A.Sin(30*3.14159/180)+Sqr(Log(x)+y)/2*3.14159+Exp(x+y) B.(Sin(30* /180)+sqr(Ln(x)+y)/(2* +Exp(

46、x+y) C.Sin(30*180/3.14159)+Sqr(Log(x)+y)/(2*3.14159+e(x+y) D.(Sin(30*3.14159/180)+Sqr(Log(x)+Y)/(2*3.14159+Exp(x+y) 24.下列的关系表达式中,运算结果为True的是24。 A.CInt(1.5)=Int(1.5) B.Fix(1.5)=Int(1.5) C.Fix(-1.5)=CInt(-1.5) D.Fix(-1.5)=Int(-1.5) 25.下列有关数组的叙述中,不正确的是25 。 在过程中用ReDim语句定义的动态数组,其下标的上下界可以是变量 数组作为形式参数时,传递的

47、是每个数组元素的值 在窗体模块的通用声明处可以用Public说明一个全局数组 数组定义语句中可以用负数或小数来指定某一维的维下界或维上界的值 A. B. c. D. 26.以下关于文件的叙述中,错误的是26 。 A用Output模式打开一个顺序文件,即使不对它进行写操作,原来的内容也被清除 B.可以用Print#语句或Write#语句将数据写到顺序文件中 C若以Output、Append、Random、Binary方式打开一个不存在的文件,系统会出错 D.顺序文件或随机文件都可以用二进制访问模式打开 27.下列有关控件数组的说法中,错误的是27 。 A控件数组由一组具有相同名称和相同类型的控件

48、组成,不同类型的控件无法组成控件数组 B.控件数组中的所有控件不得具有各自不同的属性设置值 C.控件数组中的所有控件共享同一个事件过程 D.控件数组中每个元素的下标由控件的Index属性指定 28.以下Case语句中,能正确描述Y的绝对值大于6的是28。 A.Case Abs(Y)6 B.Case -6 To 6 C.Case Not (-6 To 6) D.Case Is6 29若在模块中用Private Function Fun(A As Single,B As Integer)As Integer定义了函数Fun。调用函数Fun的过程中定义了I、J和K三个Integer型变量,则下列语句

49、中不能正确调用函数Fun的语句是29。 A.Fun 3.14,J B.Call Fun(I,365) C.Fun (I),(J) D.K=Fun(24”,”35”) 30若需要在同一窗体内安排两组相互独立的单选按钮(OptionButt.Dn),可使用30控件做容器将它们分开。 TextBox PictureBox Image Frame A.或 B.或 c.或 D.或 二、填空题(请将答案填写在答题纸的相应答题号内,每个答案只占一行) 1.执行下面程序,单击Commandl,则数组元素a(1,2)的数值是 ( 1 ),a(2,3)的数值 是(2),a(4,3)的数值是(3)。 Option

50、Explicit Private Sub Commandl_Click() Dim a(4,4)As Integer,i As Integer Dim j As Integer,k As Integer,n As Integer n=6：k=2 Do For i=1 To 4 For j=1 To 4 If i+j=k Then a(i,j)=n n=n-1 End If Next j Next i k=k+1 Loop Until k8 For i=1 To 4 For j=1 To 4 print Right(“ “ & a(i,j),3); Next j Print Next i End

51、 Sub 2.执行下面程序,单击Commandl,窗体上显示的第一行是( 4 ) ,第三行是( 5 ) , 最后一行是(6) 。 . Option Explicit Private Sub Commandl_Click() Dim i As Integer,s As Integer For i=1 To 9 Step 3 . s=fun(i)+fun(i) Print s . Next i End Sub Private Function fun(m As Integer)As Integer Static a As Integer If m Mod 2=0 then a=a+1 m=m+1

52、Else a=a+2 m=m+2 End If fun=a+m Print fun End Function 3.运行下面的程序,单击Commandl,窗体上显示的第一行是 ( 7 ) ,第二行( 8 ) ,最后一行是( 9 ) 。 Option Explicit Private Sub Commandl_Click() Dim a As Integer Dim b As Integer a=1 b=2 Print fun(a+2),fun(2*a,b) Print a;b End Sub Private Function fun(x As Integer,ByVal y As Integer

53、)As Integer x=x+2 y=x-y+3 fun=x+y Print x ;y ;fun End Function 4.执行下面的程序,单击Commandl,窗体上显示的第二行是 (10) ,第三行(11) ,第四行是(12) 。 Option Explicit Private Sub Command1_Click() Dim N As Integer,K As Integer N=36 : K=5 Print Trans(N,K) End Sub Private Function Trans(N As Integer,K As Integer)As String Dim R As

54、Integer If N0 Then R=N Mod K If R3 End Sub Private Sub encrypt(a As String,b As String) Dim sp As String,n As Integer,i As Integer sp=0000” n=Len(b)-Len(a) If n0 Then a=Right(sp & a,Len(b) For i=1 To Len(b) If Mid(a,i,1)=Mid(b,i,1)Then Mid(a,i,1)=”0” Else Mid(a,i,1)=”1” End If Next i End Sub . 6.下面程

55、序的功能是求序列：1/2、2/3、3/5、5/8、8/13、13/21、前若干项的和,项数由文本框输入。试完善程序使其达到功能要求。 Option Explicit Private Sub Calculate_Click() Dim n As Integer,al As Integer,a2 As Integer Dim i As Integer,t As Single,S As Single n=Val(Textl.Text) al=1 . a2=2 For i=1 To n ( 16 ) s=s+t a2=al+a2 ( 17 ) Next i Text2=S End Sub 7.下面程序

56、的功能是：从一组以16进制数形式表示的若干个字节数据中,找出其中的汉 字代码(若相邻的两个字节中,每个字节的最高一位的数值都大于或等于8,则这两个字节为 一个汉字的代码)。试完善程序使其达到功能要求。 Private Sub Commandl_Click() Dim st()As String,P As String,k As Integer Dim n As Integer,i As Integer P=Trim(Textl) Do n=InStr(P,” ”) If (18) Then k=k+1 ReDim Preserve st(k) st(k)=Left(p,n-1) p=Right

57、(p,Len(p)-n) Else ReDim Preserve st(k+1) ( 19 ) End If Loop Until n=0 For i=1 To UBound(st)-1 If chinese(st(i),st(i+1) Then Listl.AddItem st(i) & ”,” & st(i+1) ( 20 ) End If Next i End Sub Private Function chinese(p As String,q As String)As Boolean Dim st As String,k As Integer,n As Integer Dim i As

58、 Integer st=”0123456789ABCDEF” For i=1 To Len(st) If Left(p,1)=Mid(st,i,1) Then k=i-1 (21) Next i If k=8 And n=8 Then chinese=True End Functinn 8.本程序的功能是求出nm之间所有的可分解整数。所谓可分解整数是指具有以 下性质的数,它的各位数字之和等于其所有质因子各位数字之和(注意：素数不是可分 解整数)。例如整数121,各位数字之和是4,其质因子是11、11,质因子的各位数字之和 也是4(1+1+1+1=4),所以121是可分解整数。试完善程序使其达到

59、功能要求。 Option Explicit .Private Sub Commandl_Click() Dim n As Integer,m As Integer,k As Integer n=Textl nl=Text2 For k=n To m If sum1(k)=sum2(k)Then Listl.AddItem k End If Next k End Sub Private Function suml( 22 ) As Integer 求一个数的各位数字之和 Do suml= (23) n=n10 Loop Until n=0 End Function Private Functio

60、n sum2(ByVal n As Integer) As Integer 求质因子及其各位数字之和 Dim k As Integer,an As Integer (24) nn=n Do If n Mod k=0 Then sum2=sum2+suml(k) n=nk Else (25) End If Loop Until knn/2 End FunCtion 9.下面程序的功能是：将a、b两个数组的数据按从大到小的顺序合并到数组c中。a,b两 个数组的数据分别从文本框A和文本框B输入,数据以空格分隔。合并结果在文本框C中输 出。试完善程序使其达到功能要求。 Option Explicit