【计算机类职业资格】二级VISUAL+BASIC-15-2及答案解析.doc

《【计算机类职业资格】二级VISUAL+BASIC-15-2及答案解析.doc》由会员分享，可在线阅读，更多相关《【计算机类职业资格】二级VISUAL+BASIC-15-2及答案解析.doc（15页珍藏版）》请在麦多课文档分享上搜索。

1、二级 VISUAL+BASIC-15-2 及答案解析(总分：72.50，做题时间：90 分钟)一、选择题(总题数：25，分数：46.50)1.以下语句的输出结果是_。 Print Format$(“123.58“,“#,#.00“)（分数：2.00）A.123.58B.123.00C.,123.58D.0,123.582.Sub 过程与 Function 过程最根本的区别是 _ 。（分数：2.00）A.Sub 过程可以使用 Call 语句或直接使用过程名调用，而 Function 过程不可以B.Function 过程可以有参数，Sub 过程不能有参数C.两种过程参数的传递方式不同D.Sub 过

2、程的过程名不能有返回值，而 Function 过程能通过过程名返回值3.下面不是键盘事件的是（分数：2.50）A.KeyDownB.KeyUpC.KeyPressD.KeyCode4.语句 Y=Y+1 的正确含义是 _ 。（分数：2.00）A.变量 Y 的值与 Y+1 的值相等B.将变量 Y 的值存到 Y+1 中去C.将变量 Y 的值加 1 后赋值给变量 YD.变量 Y 的值为 15.在窗体上有一个文本框控件，名称为 TextTime，一个计时器控件，名称为 Timer1。要求每一秒在文本框中显示一次当前的时间。 （分数：2.00）A.EnabledB.VisibleC.Timer()D.In

3、terval6.下列语句用来设置窗体 Form1 的属性，其中在运行时不能正确操作的语句是_。（分数：2.00）A.Form1.Captin = “Form Test“B.Form1.Name = “Form Test“C.Form1.MaxButton = FalseD.Form1.MinButton = False7.设置组合框的风格，可用的属性是 _ 。（分数：2.00）A.BackstyleB.BorderstyleC.StyleD.Sortned8.以下关于变量作用域的叙述中，正确的是（分数：1.00）A.窗体中凡被声明为 Private 的变量只能在某个指定的过程中使用B.全局变量

4、必须在标准模块中声明C.模块级变量只能用 Private 关键字声明D.Static 类型变量的作用域是它所在的窗体或模块文件9.以下语句的输出结果是_。 a = Sqr(3) Print Format(a，“$#.#“)（分数：2.00）A.$1.732B.$1.732C.$1732D.$0001.73210.数据库系统的核心是 _ 。（分数：2.00）A.数据模型B.数据库管理系统C.数据库D.数据库管理员11.下面不能在信息框中输出“VB”的是（分数：3.00）A.MsgBox“VB“B.x=MsgBox(“VB“)C.MsgBox(“VB“)D.Call MsgBox“VB“12.下列

5、关于栈的描述中错误的是_。（分数：2.00）A.栈是先进后出的线性表B.栈只能顺序存储C.栈具有记忆作用D.对栈的插入与删除操作中，不需要改变栈底指针13.窗体上有一个图片控件和一个按钮控件，下列程序执行的结果是 _ 。 Private Sub Command1_Click() Picture1.Picture=LoadPicture(“C:/picture.jpg“) Picture1.Cls Picture1.Print“picture“ End Sub（分数：2.00）A.窗体无显示，图片框显示图片和文字 pictureB.窗体上出现 picture 文本，图片框无显示C.窗体上出现 p

6、icture 文本，图片框显示图片 picture.jpgD.窗体无显示，图片框只显示 picture 文字14.某人编写了下列程序，用来求 10 个整数(整数从键盘输入)中的最大值： Private Sub Command1_Click() Dim a(10) As Integer, max As Integer For k=1 To 10 a(k)=InputBox(“输入一个整数“) Next k max=0 For k=1 To 10 If a(k)max Then max=a(k) End If Next k Print max End Sub 运行程序时发现，当输入 10 个正数时

7、，可以得到正确结果，但输入 10 个负数时结果是错误的。程序需要修改。下列修改中可以得到正确运行结果的是( )。（分数：2.00）A.把 Ifa(k)max Then 改为 If a(k)max ThenB.把 max=a(k)改为 a(k)=maxC.把第 2 个循环语句 For k=1 To 10 改为 For k=2 To 10D.把 max=O 改为 max=a(10)15.在设计程序时，应采纳的原则之一是_。（分数：2.00）A.程序结构应有助于读者理解B.不限制 goto 语句的使用C.减少或取消注解行D.程序越短越好16.设窗体上有一个文本框，名称为 Text1，程序运行后，要求

8、该文本框只能显示信息，不能接收输入的信息，以下能实现该操作的语句是（分数：1.00）A.Text1Maxength=0B.Text1Enabled=FalseC.Text1Visible=FalseD.Text1Width=017.进行程序设计时， _ 不是进行输入和输出方式设计时必须考虑的原则。（分数：1.00）A.应允许使用自由格式B.应允许默认值C.输入格式要简单，以使得输入的步骤和操作尽可能简单D.一次最好只输入一个数据，系统确认后再输入下一个数据18.确定一个窗体或控件大小的属性是（分数：1.00）A.Width 或 HeightB.Width 和 HeightC.Top 或 Lef

9、tD.Top 和 Left19.设有如下的程序段： n=0 For j=1 To 3 For j=1 To i For k=j To 3 n=n+1 Next k Next j Next i 执行上面的程序段后，n 的值为_。（分数：1.00）A.3B.21C.9D.1420.在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim arr(10,10)As Integer,i,j As Integer For i=1 To 3 For j=2 To 4 arr(i,j)=i+

10、j Next Next Text1.Text=arr(2,3)+arr(3,4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是 _ 。（分数：2.00）A.12B.13C.14D.1521.假定在窗体上建立一个通用对话框，其名称为 CommonDialog1，用下面的语句可以建立一个对话框： CommonDialog1.Action=4 与该语句等价的语句是 _ 。（分数：2.00）A.CommonDialog1.ShowOpenB.CommonDialog1.ShowFontC.CommonDialog1.ShowColorD.CommonDialog1.ShowSave2

11、2.与键盘操作有关的事件有 KeyPress、KeyUp 和 KeyDown 事件，当用户按下并且释放一个键后，这三个事件发生的顺序是 _ 。（分数：2.00）A.KeyDown、KeyPress、KeyUpB.KeyDown、KeyUp、KeyPressC.KeyPress、KeyDown、KeyUpD.没有规律23.可以用作其他控件容器的控件有_。（分数：2.00）A.窗体、列表框、图像B.窗体、文本框、框架C.窗体、框架、图片框D.窗体、标签、图片框24.下列程序段的执行结果为 _ 。 a=75 If a60 Then i=1 If a70 Then i=2 If a80 Tnen i=

12、3 If a90 Then i=4 Print “i=“;i（分数：2.00）A.i=1B.i=2C.i=3D.i=425.在窗体上添加一个命令按钮，名为 Command1，其单击事件中有下列程序段，则事件过程执行后，文本框中输出 _ 。 For i=1 To 4 For j=1 To 3 x=3 For k=1 To 2 K=x+3 Next k Next j Next i Text1.Text=Str(x)（分数：2.00）A.3B.6C.9D.12二、填空题(总题数：15，分数：26.00)26.为了选择多个控件，可以按住 1 键，然后单击每个控件。 （分数：2.00）27.程序测试分为

13、静态测试和动态测试。其中 1 是指不执行程序，而只是对程序文本进行检查，通过阅读和讨论，分析和发现程序中的错误。 （分数：2.00）28.下列过程的功能是：用来计算并输出 S=1+1/2+1/3+1/100 的值。请完善程序。 Function SumF(n As Integer)As Single s=0 For i=1 To n s= 1 Next i SuraF=s End Function Private Sub Form_Click 2 Sum1=SumF(100) Print Print “sum1=“ :sum1 End Sub （分数：2.00）29.工具栏的复制、剪切、粘贴按

14、钮所对应的菜单命令放置于主菜单项 1 的下拉菜单中。 （分数：2.00）30.在结构化设计方法中，数据流图表达了问题中的数据流与加工间的关系，且每一个 1 实际上对应一个处理模块。 （分数：2.00）31.以下程序的功能是：将一维数组 A 中的 100 个元素分别赋给二维数组 B 的每个元素并打印出来，要求把 A(i)到 A(10)依次赋给 B(1，1)到 B(1，10)，把 A(11)到 A(20)依次赋给 B(2，1)到 B(2，10)，把 A(91)到 A(100)依次赋给 B(10，1)到 B(10，10)。请填空。 Option Base 1 Private Sub Form_Cli

15、ck() Dim i As Integer，j As Integer Dim A(1 To 100)As Integer Dim B(1 To 10,1 To 10)As Integer For i=1 To 100 A(i)=Int(Rnd*100) Next i For i=1 To _ 1_ For j1 To _ 2_ B(i,j) _ 3_ Print B(i,j)； Next j Print Next i End Sub （分数：1.00）32._ 1_ 是数据库应用的核心。 （分数：1.00）33.子程序通常分为两类： _ 1_ 和函数，前者是命令的抽象，后者是为了求值。 （分数

16、：1.00）34.结构化程序设计方法的主要原则可以概括为自顶向下、逐步求精、 _ 1_ 和限制使用 goto 语句。 （分数：1.00）35.使通用对话框 C1 显示为一个标准的颜色对话框，应使用语句 1，使通用对话框 C1 显示为一个标准的字体对话框，应使用语句 2。 （分数：4.00）36.以下程序的功能是：把当前目录下的顺序文件 smtext1.txt 的内容读入内存，并在图片框 Picture1 中显示出来。请填空。 Private Sub Command1_Click 1 Dim inData As String Open “./mText1.txt“ _ 2_ As 1 Do Wh

17、ile Not EOF(1) Input #i，inData Picture1.Print inData Loop Close#1 End Sub （分数：2.00）37.设有如下通用过程： Public Sub Fun(a()，ByVal x As Integer) For i=1 To 5 x=x+a(i) Next End Sub 在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下的事件过程： Private Sub Command1_Click() Dim arr(5)As variant For i=1 To 5 arr(i)=i Ne

18、xt n=10 Call Fun(arr()，n) Text1.Text=n End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是 _ 1_ 。 （分数：1.00）38.语句 Print“Int(-13.2)=“；Int(-13.2)的输出结果为 1。 （分数：2.00）39.在 n 个运动员中选出任意 r 个人参加比赛，有很多种不同的选法，选法的个数可以用公式 计算。下图窗体中 3 个文本框的名称依次是 Text1、Text2、Text3。程序运行时在 Text1、Text2 中分别输入 n和 r 的值，单击 Command1 按钮即可求出选法的个数，并显示在 Text3 文本

19、框中(见下图)。请填空。 （分数：2.00）40.以下程序段执行后 y 的值是 1。 x=8.6 y=int(x+0.5) print y （分数：1.00）二级 VISUAL+BASIC-15-2 答案解析(总分：72.50，做题时间：90 分钟)一、选择题(总题数：25，分数：46.50)1.以下语句的输出结果是_。 Print Format$(“123.58“,“#,#.00“)（分数：2.00）A.123.58 B.123.00C.,123.58D.0,123.58解析：解析 Format 用于格式化输出文本，其一般格式如下： Format(expression,format) 其中，

20、expression 为任何有效表达式。format 为格式字符串，其描述符作用如下： #：输出数字，不在输出前后补 0。 0：输出数字，在输出的前后补 0。 .：输出小数点。 ,：输出千分位分隔符。 %：输出百分比符号，同时转化数值。 $：输出前加“$”。2.Sub 过程与 Function 过程最根本的区别是 _ 。（分数：2.00）A.Sub 过程可以使用 Call 语句或直接使用过程名调用，而 Function 过程不可以B.Function 过程可以有参数，Sub 过程不能有参数C.两种过程参数的传递方式不同D.Sub 过程的过程名不能有返回值，而 Function 过程能通过过程名

21、返回值 解析：解析 Function 过程与 Sub 过程的相似之处是：都可以获取参数，执行一系列语句，以及改变其参数值的独立过程；不同之处的是：Function 函数有返回值，可以在表达式的右边使用，使用方式与内部函数一样，而 Sub 过程没有返回值。3.下面不是键盘事件的是（分数：2.50）A.KeyDownB.KeyUpC.KeyPressD.KeyCode 解析：解析 常见的键盘事件有：KeyDown、KeyUD 和 KeyPress。当用户按下并释放一个可打印的键盘字符时，KeyDown、KeyPress、KeyUp 事件将依次发生。KeyCode 是 KeyDown、KeyUp 事

22、件的参数。4.语句 Y=Y+1 的正确含义是 _ 。（分数：2.00）A.变量 Y 的值与 Y+1 的值相等B.将变量 Y 的值存到 Y+1 中去C.将变量 Y 的值加 1 后赋值给变量 Y D.变量 Y 的值为 1解析：解析 这是考查通过赋值运算符给变量赋值，赋值运算符“二”的含义是将等号右边的表达式的值赋给等号左边的变量或属性，其优先级低于算术运算符，所以应该是 Y+1 先运算然后赋值给等号左侧的Y。5.在窗体上有一个文本框控件，名称为 TextTime，一个计时器控件，名称为 Timer1。要求每一秒在文本框中显示一次当前的时间。 （分数：2.00）A.EnabledB.VisibleC

23、.Timer() D.Interval解析：解析 计时器控件又称为时钟控件，通过引发 Timer 事件，可以有规律地隔一段时间执行一次代码。控件用于背景进程中，是不可见的。Timer 时间也是计时器控件的惟一事件。6.下列语句用来设置窗体 Form1 的属性，其中在运行时不能正确操作的语句是_。（分数：2.00）A.Form1.Captin = “Form Test“B.Form1.Name = “Form Test“ C.Form1.MaxButton = FalseD.Form1.MinButton = False解析：7.设置组合框的风格，可用的属性是 _ 。（分数：2.00）A.Bac

24、kstyleB.BorderstyleC.Style D.Sortned解析：8.以下关于变量作用域的叙述中，正确的是（分数：1.00）A.窗体中凡被声明为 Private 的变量只能在某个指定的过程中使用B.全局变量必须在标准模块中声明 C.模块级变量只能用 Private 关键字声明D.Static 类型变量的作用域是它所在的窗体或模块文件解析：解析 在窗体中凡是被声明为 Private 的变量，可以在整个窗体中被调用。全局变量只能在标准模块中声明。模块级变量可以用 Private 关键字声明，也可以在通用过程中用 Dim 关键字声明。Static类型的变量如果在事件过程中声明，那么只能在

25、该过程中调用。9.以下语句的输出结果是_。 a = Sqr(3) Print Format(a，“$#.#“)（分数：2.00）A.$1.732B.$1.732 C.$1732D.$0001.732解析：10.数据库系统的核心是 _ 。（分数：2.00）A.数据模型B.数据库管理系统 C.数据库D.数据库管理员解析：11.下面不能在信息框中输出“VB”的是（分数：3.00）A.MsgBox“VB“B.x=MsgBox(“VB“)C.MsgBox(“VB“)D.Call MsgBox“VB“ 解析：解析 MsgBox()函数用于显示提示信息，并可返回一个代表用户单击了哪个按钮的 Integer

26、类型值，当其作为函数使用时必须将参数放在括号内部，而返回值可以赋值给一个变量，也可以单独使用此函数而不将其返回值赋值给变量；MsgBox 过程也用于显示提示信息，作为过程可以独立使用，也可以使用Call 关键字来进行调用，但此时参数需要加括号。12.下列关于栈的描述中错误的是_。（分数：2.00）A.栈是先进后出的线性表B.栈只能顺序存储 C.栈具有记忆作用D.对栈的插入与删除操作中，不需要改变栈底指针解析：解析 在栈中，允许插入与删除的一端称为栈顶，不允许插入与删除的另一端称为栈底。栈顶元素总是最后被插入的元素，从而也是最先能被删除的元素；栈底元素总是最先被插入的元素，从而也是最后才能被删除

27、的元素。即栈是按照先进后出(FILO，First In Last Out)或后进先出(LIFO，Last In First Out)的原则组织数据的，因此，栈也被称为先进后出表或后进先出表。由此可以看出，栈具有记忆作用。答案 B 错在带链的栈的结点存储顺序与其逻辑顺序是可以不一致的。13.窗体上有一个图片控件和一个按钮控件，下列程序执行的结果是 _ 。 Private Sub Command1_Click() Picture1.Picture=LoadPicture(“C:/picture.jpg“) Picture1.Cls Picture1.Print“picture“ End Sub（分

28、数：2.00）A.窗体无显示，图片框显示图片和文字 picture B.窗体上出现 picture 文本，图片框无显示C.窗体上出现 picture 文本，图片框显示图片 picture.jpgD.窗体无显示，图片框只显示 picture 文字解析：14.某人编写了下列程序，用来求 10 个整数(整数从键盘输入)中的最大值： Private Sub Command1_Click() Dim a(10) As Integer, max As Integer For k=1 To 10 a(k)=InputBox(“输入一个整数“) Next k max=0 For k=1 To 10 If a(

29、k)max Then max=a(k) End If Next k Print max End Sub 运行程序时发现，当输入 10 个正数时，可以得到正确结果，但输入 10 个负数时结果是错误的。程序需要修改。下列修改中可以得到正确运行结果的是( )。（分数：2.00）A.把 Ifa(k)max Then 改为 If a(k)max ThenB.把 max=a(k)改为 a(k)=maxC.把第 2 个循环语句 For k=1 To 10 改为 For k=2 To 10D.把 max=O 改为 max=a(10) 解析：解析 本题考查的考点是有关循环和数组的。本题为了实现求取最大值，首先应

30、该假设数组中的某一个数就是最大值，再依次与数组元素比较，一旦某个元素比当前的最大值大，就把它作为新的最大值。max 初值设为。是不可以的，它没有考虑到数组元素都小于 0 的情况。15.在设计程序时，应采纳的原则之一是_。（分数：2.00）A.程序结构应有助于读者理解 B.不限制 goto 语句的使用C.减少或取消注解行D.程序越短越好解析：解析 滥用 goto 语句将使程序流程无规律，可读性差；添加的注解行有利于对程序的理解，不应减少或取消：程序的长短要依照实际需要而定，并不是越短越好。16.设窗体上有一个文本框，名称为 Text1，程序运行后，要求该文本框只能显示信息，不能接收输入的信息，以

31、下能实现该操作的语句是（分数：1.00）A.Text1Maxength=0B.Text1Enabled=False C.Text1Visible=FalseD.Text1Width=0解析：解析：Enabled 属性用来设置文本框的有效性，当设置为 True 时，处于有效状态，文本框能接受输入的信息，当设置为 False 时，处于无效状态，文本框不能接受输入信息，所以选项 B)是正确的；Visible 是设置控件的可见性属性；Maxlength 属性设置文本框最多可以容纳多少个字符；Width 属性设置文本框的宽度，都不是正确答案。17.进行程序设计时， _ 不是进行输入和输出方式设计时必须考

32、虑的原则。（分数：1.00）A.应允许使用自由格式B.应允许默认值C.输入格式要简单，以使得输入的步骤和操作尽可能简单D.一次最好只输入一个数据，系统确认后再输入下一个数据 解析：解析 良好的程序设计风格应注意输入/输出的方式和格式应尽可能方便用户使用。选项 A、B、C都是输入和输出时应考虑的原则。选项 D 的叙述是错误的，数据输入的方式应根据具体情况确定。18.确定一个窗体或控件大小的属性是（分数：1.00）A.Width 或 HeightB.Width 和 Height C.Top 或 LeftD.Top 和 Left解析：解析 Height 和 Width 两个属性用来指定窗体或窗体的高

33、度和宽度。19.设有如下的程序段： n=0 For j=1 To 3 For j=1 To i For k=j To 3 n=n+1 Next k Next j Next i 执行上面的程序段后，n 的值为_。（分数：1.00）A.3B.21C.9D.14 解析：解析 程序是三层的 For 循环，内层的循环次数由外一层的循环变量的值决定。因此程序执行过程如下： i=1 时，第二层循环执行 1 次，第三层循环执行 3 次，n=3 i=2 时，第二层循环执行 2 次，第三层循环执行 3 次+2 次，n=3+3+2=8 i=3 时，第二层循环执行 3 次，第三层循环执行 3 次+2 次+1 次，n=

34、8+3+2+1=14 因此答案为 D。20.在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim arr(10,10)As Integer,i,j As Integer For i=1 To 3 For j=2 To 4 arr(i,j)=i+j Next Next Text1.Text=arr(2,3)+arr(3,4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是 _ 。（分数：2.00）A.12 B.13C.14D.15解析：解析 本题的难点是嵌套循

35、环的计算。根据 arr 1(i,j)=i+j 可知，arr(i,j)的值为两个下标值之和，所以 arr(2,3)+arr(3,4)的值为 2+3+3+4=12021.假定在窗体上建立一个通用对话框，其名称为 CommonDialog1，用下面的语句可以建立一个对话框： CommonDialog1.Action=4 与该语句等价的语句是 _ 。（分数：2.00）A.CommonDialog1.ShowOpenB.CommonDialog1.ShowFont C.CommonDialog1.ShowColorD.CommonDialog1.ShowSave解析：22.与键盘操作有关的事件有 Key

36、Press、KeyUp 和 KeyDown 事件，当用户按下并且释放一个键后，这三个事件发生的顺序是 _ 。（分数：2.00）A.KeyDown、KeyPress、KeyUp B.KeyDown、KeyUp、KeyPressC.KeyPress、KeyDown、KeyUpD.没有规律解析：23.可以用作其他控件容器的控件有_。（分数：2.00）A.窗体、列表框、图像B.窗体、文本框、框架C.窗体、框架、图片框 D.窗体、标签、图片框解析：解析 列表框、文本框和标答上不能放置其他控件。24.下列程序段的执行结果为 _ 。 a=75 If a60 Then i=1 If a70 Then i=2

37、If a80 Tnen i=3 If a90 Then i=4 Print “i=“;i（分数：2.00）A.i=1B.i=2C.i=3D.i=4 解析：解析 本题考查选择语句。题目中共含有 4 条井列的选择语句，语句从上到下依次执行，由于a60、a70、a80、a90 这些条件中除了第 3 个外对于 a 都成立，因此第一个，第二个和最后一个If 语句都执行，则 i 的值为最后的条件分支的值。25.在窗体上添加一个命令按钮，名为 Command1，其单击事件中有下列程序段，则事件过程执行后，文本框中输出 _ 。 For i=1 To 4 For j=1 To 3 x=3 For k=1 To

38、2 K=x+3 Next k Next j Next i Text1.Text=Str(x)（分数：2.00）A.3B.6C.9 D.12解析：解析 这也是一个三重循环，依次分析循环过程，程序执行如下： x=3；先执行第 3 层 k 控制的循环：k 从 1 到 2 循环 2 次，x=x+3x=9；然后执行 j 控制的第 2 层 j控制的循环，共 3 次，x=3；第 3 层循环使得 x=9；最后是 i 控制的第 1 层 i 控制的循环，共 4 次，x=9。二、填空题(总题数：15，分数：26.00)26.为了选择多个控件，可以按住 1 键，然后单击每个控件。 （分数：2.00）解析：Ctrl 或

39、 Shift27.程序测试分为静态测试和动态测试。其中 1 是指不执行程序，而只是对程序文本进行检查，通过阅读和讨论，分析和发现程序中的错误。 （分数：2.00）解析：静态分析(静态测试)解析 从原则上讲，可以将软件测试方法分为两大类，即静态测试和动态测试。静态测试无须执行被测代码，而是借助专用的软件测试工具评审软件文档或程序，度量程序静态复杂度，检查软件是否符合编程标准，借以发现编写程序的不足之处，减少错误出现的概率。动态测试，是被测代码在相对真实环境下运行，从多角度观察程序运行时能体现的功能、逻辑、行为、结构等的行为，以发现其中的错误现象。程序测试分为静态测试和动态测试。静态测试一般是指人

40、工评审软件文档或程序，借以发现其中的错误。由于被评审的文档或程序不必运行，所以称为静态测试。28.下列过程的功能是：用来计算并输出 S=1+1/2+1/3+1/100 的值。请完善程序。 Function SumF(n As Integer)As Single s=0 For i=1 To n s= 1 Next i SuraF=s End Function Private Sub Form_Click 2 Sum1=SumF(100) Print Print “sum1=“ :sum1 End Sub （分数：2.00）解析：s+1/i解析 从公式可以看出，第一项为 1/1，第二项为 1/2

41、，第三项为 1/3，第 n 项为 1/n。也就是说，分母每次增加 1，而分子始终为 1。为求前 n 项之和，在 ForNext 循环中每次循环都增加1/n。29.工具栏的复制、剪切、粘贴按钮所对应的菜单命令放置于主菜单项 1 的下拉菜单中。 （分数：2.00）解析：编辑30.在结构化设计方法中，数据流图表达了问题中的数据流与加工间的关系，且每一个 1 实际上对应一个处理模块。 （分数：2.00）解析：加工解析 数据流图是从数据传递和加工的角度，来刻画数据流从输入到输出的移动交换过程其中的每一个加工对应一个处理模块。31.以下程序的功能是：将一维数组 A 中的 100 个元素分别赋给二维数组 B

42、 的每个元素并打印出来，要求把 A(i)到 A(10)依次赋给 B(1，1)到 B(1，10)，把 A(11)到 A(20)依次赋给 B(2，1)到 B(2，10)，把 A(91)到 A(100)依次赋给 B(10，1)到 B(10，10)。请填空。 Option Base 1 Private Sub Form_Click() Dim i As Integer，j As Integer Dim A(1 To 100)As Integer Dim B(1 To 10,1 To 10)As Integer For i=1 To 100 A(i)=Int(Rnd*100) Next i For i=

43、1 To _ 1_ For j1 To _ 2_ B(i,j) _ 3_ Print B(i,j)； Next j Print Next i End Sub （分数：1.00）解析：10 10 A(10*(i-1)+j) 解析 最外层的循环负责控制二维数组 B()的行数，内层循环负责控制二维数组 B()的列数，将数组 A()的 A(1)到 A(10)依次赋给数组 B()的第一行，把 A(11)到 A(20)依次赋给 B()的第二行，。32._ 1_ 是数据库应用的核心。 （分数：1.00）解析：数据库设计解析 数据库设计是数据库应用的核心。在数据库应用系统中的一个核心问题就是设计一个能满足用户

44、要求，性能良好的数据库，这就是数据库设计。33.子程序通常分为两类： _ 1_ 和函数，前者是命令的抽象，后者是为了求值。 （分数：1.00）解析：过程解析：当程序之间发生调用关系时，调用命令所在的代码段被称为主程序，被调用的代码段被称为子程序。子程序是对功能的抽象，可分为过程和函数两类，两者的区别是函数是通过函数名来返回值的，而过程只能通过形式参数或对全局变量进行修改以返回值。34.结构化程序设计方法的主要原则可以概括为自顶向下、逐步求精、 _ 1_ 和限制使用 goto 语句。 （分数：1.00）解析：模块化 解析 结构化程序设计方法的主要原则可以概括为自顶向下、逐步求精、模块化和限制使用

45、 goto 语句。 自顶向下：程序设计时，应先考虑总体，后考虑细节；先考虑全局目标，后考虑局部目标。不要一开始就过多追求众多的细节，先从最上层总目标开始设计，逐步使问题具体化。 逐步求精：对复杂问题，应设计一些子目标作过度，逐步细化。 模块化：一个复杂问题，肯定是由若干稍简单的问题构成。模块化是把程序要解决的总目标分解为分目标，再进一步分解为具体的小目标，把每个小目标称为一个模块。 限制使用 goto 语句。35.使通用对话框 C1 显示为一个标准的颜色对话框，应使用语句 1，使通用对话框 C1 显示为一个标准的字体对话框，应使用语句 2。 （分数：4.00）解析：C1.ShowColor；C

46、1.ShowFont36.以下程序的功能是：把当前目录下的顺序文件 smtext1.txt 的内容读入内存，并在图片框 Picture1 中显示出来。请填空。 Private Sub Command1_Click 1 Dim inData As String Open “./mText1.txt“ _ 2_ As 1 Do While Not EOF(1) Input #i，inData Picture1.Print inData Loop Close#1 End Sub （分数：2.00）解析：For Input解析 在用 Open 语句打开 smtext1.txt 文件时，For Inpu

47、t 表示顺序输入方式，ForOutput 表示顺序输出方式。EOF 函数用来测试文件的结束状态。“文件号”的含义同前。利用 EOF 函数，可以避免在文件输入时出现“输入超出文件尾”错误。在文件输入期间，可以用 EOF 测试是否到达文件末尾。对于顺序文件来说，如果已到文件末尾，则 EOF 函数返回 True，否则返回 False。37.设有如下通用过程： Public Sub Fun(a()，ByVal x As Integer) For i=1 To 5 x=x+a(i) Next End Sub 在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如

48、下的事件过程： Private Sub Command1_Click() Dim arr(5)As variant For i=1 To 5 arr(i)=i Next n=10 Call Fun(arr()，n) Text1.Text=n End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是 _ 1_ 。 （分数：1.00）解析：10解析 Fun 函数的参数 x 为传值调用。在函数中，对 x 值的改变不能够返回给 n，因此最后 n 的值仍然为 10，没有改变。38.语句 Print“Int(-13.2)=“；Int(-13.2)的输出结果为 1。 （分数：2.00）解析：Int(-13.2)=-1439.在 n 个运动员中选出任意 r 个人参加比赛，有很多种不同的选法，选法的个数可以用公式 计算。下图窗体中 3 个文本框的名称依次是 Text1、Text2、Text3。程序运行时在 Text1、Text2 中分别输入 n和 r 的值，单击 Command1 按钮即可求出选法的个数，并显示在 Text3 文本框中(见下图)。请填空。 （分数：2.00）解析：n-r 或 Val(Text1)-Val(Text2)或 Text1-Text2 或 Val(Text1.Text)-Val(Text2.Text)或 Textl.Text-Text2