1、二级 VISUAL+BASIC 笔试 359 及答案解析(总分：92.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.对长度为 n 的线性表进行顺序查找，在最坏情况下需要比较的次数为( )。（分数：2.00）A.125B.n/2C.nD.n+12.下列程序的运行结果是( )。 Private Sub Commandl_Click() a=1.5 b=1.5 Call fun(a，b) Print a，b End Sub Private Sub fun(x，y) x=y*y y=y+x End Sub（分数：2.00）A.2.25 3.75B.1.5 2.25C
2、.1.5 0.75D.0.75 1.53.为了提高软件模块的独立性，模块之间最好是( )。（分数：2.00）A.控制耦合B.公共耦合C.内容耦合D.数据耦合4.在窗体上有一个文本框控件，名称为 TextTime，一个计时器控件，名称为 Timer1。要求每一秒在文本框中显示一次当前的时间。 （分数：2.00）A.EnabledB.VisibleC.Timer()D.Interval5.待排序的关键码序列为(33，18，9，25，67，82，53，95，12，70)，要按关键码值递增的顺序排序，采取以第一个关键码为基准元素的快速排序法，第一趟排序后关键码 33 被放到第 ( )个位置。（分数：2
3、.00）A.3B.5C.7D.96.已知代数式 eXSin(30)2x/(x+y)Lnx，则正确的 Visual Basic 表达式为( )。（分数：2.00）A.E*Sin(30*3.14/180)*2*X/X+Y*Log(B.Exp(*Sin(30)*2*X/(X+*Ln(C.Exp(*Sin(30*3.14/180)*2*x/(x+*Log(D.Exp(*Sin(30*3.14/180)*2*X/(X+*Ln(7.设有变量声明为“Dim aDate As Date”，则为变量 aDZe 正确赋值的表达方式是( )。（分数：2.00）A.aDate=#8/2008#B.aDate=#“8/
4、8/2008“#C.aDate=Date(“8/8/2008“)D.aDate=Format(“m/d/yy“,“8/8/2008“)8.有下列二叉树，对此二叉树中序遍历的结果为( )。 （分数：2.00）A.ABCDEFB.BDAECFC.ABDCEFD.ABCDFE9.在新建一个 Visual Basic 工程时，将新建窗体的 Name 属性设置为 TheFirst，则默认的窗体文件名为( )。（分数：2.00）A.FormrrmB.工程 1.frmC.TheFirsfimD.Formvbp10.下列程序代码实现生成 20 个 0100 之间的随机整数，存于数组中，打印数组中大于 50 的
5、数，并求这些数的和。请选择正确的程序段是( )，完成程序。 Private Sub Commandl_Click() Dim arr(1 To 20) For i=1 To 20 arr(i)=_ Textl.Text=Textl.Text & arr(i)& Chr(13)& Chr(10) Next i Sum=0 For Each X _ If X50 Then Print Tab(20)；X Sum=Sum+X End If Next X Print Tab(20)；“Sum=“；Sum End Sub（分数：2.00）A.Int(Rnd*99+1) In arrB.Int(Rn In
6、 arrC.Int(Rnd*99+1) In arr()D.Int(Rn In arr()11.表达式 Str(Len(“123“)+Str(77.7)的值是( )。（分数：2.00）A.377.7B.377.7C.80.7D.12377.712.有如下函数过程： Function funl(ByVal x As Integer,ByVal y As Integer)As Integer Do While y0 reminder=x Mod y x=y y=reminder Loop fun1=x End Function 在下列按钮单击事件中调用该函数，则该程序的运行结果是( )。 Priv
7、ate Sub Command1_Click() Dim a As Integer Dim b As Integer a=100 b=25 x=funl(a，b) Print x End Sub（分数：2.00）A.0B.25C.50D.10013.下列程序段错误的是( )。（分数：2.00）A.Dim a As Integer a=array(1，2,3,4)B.Dim a()，b() a=array(1，2,3,4)：b=aC.Dim a As Variant a=array(1，“asd“,truD.Dim a()As Variant a=array(1,2,3,4)14.为了使列表框中
8、的项目分为多列显示，需要设置的属性为( )。（分数：2.00）A.ColumnsB.StyleC.ListD.MultiSelect15.窗体上添加一个文本框 Text1，编写如下代码： Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) Print Chr(KeyCode+5) & KeyCode End Sub 程序运行时，在文本框中输入“ab”，则在窗体上输出为( )。（分数：2.00）A.F65 G66B.F65 F66C.G66 F65D.G65 G6616.下列程序运行时输出的结果是( )。 Option
9、Base 1 Const a=10 Private Sub Form_Click() Dim x(a) As Integer k=-1 For i=1 To a x(i)=i*k k=(-1)*k Next i For i=1 To 10 Print x(i) Next i End Sub（分数：2.00）A.1 3 5 7 9 10B.-1-3-5-7-9C.-1 2-3 4-5 6-7 8-9 10D.1-2 3-4 5-6 7-8 9-1017.下列叙述正确的是( )。（分数：2.00）A.算法的执行效率与数据的存储结构无关B.算法的空间复杂度是指算法程序中指令(或语句)的条数C.算法的
10、有穷性是指算法必须能在执行有限个步骤之后终止D.以上 3 种描述都不对18.窗体上有一个图片控件和一个按钮控件，下列程序执行的结果是( )。 Private Sub Commandl_Click() Picturel.Picture=LoadPicture(“c：/picture.jpg“) Picmrel.Cls Picturel.Print “picture“ End Sub（分数：2.00）A.窗体无显示，图片框显示图片和文字 pictureB.窗体上出现 picture 文本，图片框无显示C.窗体上出现 picture 文本，图片框显示图片 picturjpgD.窗体无显示，图片框只显
11、示 picture 文字19.要建立一个随机文件记录学生的信息，如下定义了学生的记录类型，由学号、姓名、5 门课程成绩(百分制)组成，下列的定义正确的是( )。（分数：2.00）A.Type sru no As Integer name As String score(1 To 5)As Single End TypeB.Type stu no As Integer name As String*10 score()As Single End TypeC.Type stu no As Integer name As String*10 score(1 To 5)As Single End Ty
12、peD.Type stu no As Integer name As String score()As Single End Type20.数据库系统的核心是( )。（分数：2.00）A.数据模型B.数据库管理系统C.数据库D.数据库管理员21.在 C 盘当前文件夹下建立一个名为 SDat.txt 的顺序文件。要求用 InputBox 函数输入 5 名学生的学号(StuNo)、姓名(StuName)和英语成绩(StuEng)。则在下列横线处合适的语句是( )。 Private Sub Form_Click() Open “C：/SDat.txt“ For Output As 1 For i=1
13、 To 5 StuNo=InputBox(“请输入学号“) StuName=InputBox(“请输入姓名“) StuEndg=Val(InputBox(“请输入英语成绩“) Next i Close #1 End Sub（分数：2.00）A.Input #1,StuNo,StuName,StuEndgB.Put #1，StuNo，StuName，StuEndgC.Vrite #1，StuNO，StuName，StuEndgD.Get #1，StuNo,StuName,StuEndg22.在窗体上画一个名称为 Text1 的文本框，然后画 3 个单选按钮，并用这 3 个单选按钮建立一个控件数组
14、，名称为 Option1，程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换，请选择空白处合适的语句( )。 Private Sub Optionl_Click(Index As Integer) Select Case Case 0 a=“宋体“ Case 1 a=“黑体“ Case 2 a=“楷体 GB2312“ End Select Text1. =a End Sub（分数：2.00）A.Option TextB.Index TextC.Index FontD.Option Font23.有下列程序段，其输出结果为( )。 a=0：b=0 For i=-1 To
15、 -2 Step-1 For i=1 To 2 b=b+1 Next j a=a+1 Next i Print a；b（分数：2.00）A.2 3B.-2 2C.4 2D.2 424.假定有一个菜单项，名为 MenuItem，为了在运行时使该菜单项不可见，应使用的语句为( )。（分数：2.00）A.MenuIteEnabled=FalseB.MenuIteEnabled=TrmeC.MenuIteVisible=TrueD.MenuIteVisible=Flase25.下列描述中正确的是( )。（分数：2.00）A.软件工程只是解决软件项目的管理问题B.软件工程主要解决软件产品的生产率问题C.
16、软件工程的主要思想是强调在软件开发过程中需要应用工程化原则D.软件工程只是解决软件开发过程中的技术问题26.在窗体上画一个名称为“Command1”，标题为“计算”的命令按钮，再画 7 个标签，其中 5 个标签组成名称为 Labell 的控件数组；名称为 Label2 的标签用于显示计算结果，其 Caption 属性的初始值为空：标签 Label3 的标题为“计算结果”。运行程序时会自动生成 5 个随机数，分别显示在标签控件数组的各个标签中。单击“计算”按钮，则将标签数组各元素的值累加，然后计算结果显示在 Label2。下列为“计算”按钮的事件过程，请为下划线处选择合适的语句( )。 （分数：
17、2.00）A.Labell(.Caption Label2.CaptionB.Labell(.Caption Label3.CaptionC.LabelCaption Label2.CaptionD.LabelCaption Label3.Caption27.下列程序段的执行结果为( )。 a=75 If a60 Then i=1 If a70 Then i=2 If a80 Then i=3 If a90 Then i=4 Print “i=“；i（分数：2.00）A.i=1B.i=2C.i=3D.i=428.下列( )事件过程可以将打开文件对话框的标题改变为“new Caption”。（分
18、数：2.00）A.Prirate Sub Commandl Click() CommonDialogDialogTitle=“new Caption“ CommonDialogShowFont End SubB.Private Sub Commandl+Click() CommonDialogDialogTitle=“new Caption“ CommonDialogShowOpen End SubC.Private Sub Commandl_Click() CommonDialogDialogTitle=“new Caption“ CommonDialogShowHelp End SubD.
19、Private Sub Commandl_Click() CommonDialogDialogTitle=“new Caption“ CommonDialogShowColor End Sub29.窗体上有一个命令按钮，命令按钮的单击事件过程如下。运行程序后，单击命令按钮，输出结果是( )。Private Sub Command1_Click() Dim a a=Array(1，2，3，4，5) For k=1 To 4 S=S+a(k) Next k Print S End Sub（分数：2.00）A.10B.14C.15D.12030.下列事件过程的功能是：建立一个名为 Datal 的随机
20、文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为 1，2，3，90。请选择正确的程序段是( )，将程序补充完整。 Private Type Ang K As Integer Sinx As Single Cosx As Single End Type Dim Ksc As Ang Private Sub Form_Click() Dim Y As Single Dim i As Integer Dim Ksc As Ang Open _ Y=3.14159/180 For i=1 To 90 Ksc.K=i Ksc.Sinx=Sin(i*Y) Ksc.Cosx=Cos(i*Y) Ne
21、xt i Close #2 End Sub（分数：2.00）A.“/Datatxt“For Random As #1 Len=10 Put #1，i，KscB.“/Datatxt“For Random As #1 Len=10 Put #1，Y，KscC.“/Datatxt“For Random As #1 Put #1，i，KscD.“/Datatxt“For Random As #1 Put #1，Y，Ksc31.在使用打印直接输出信息时，下列哪个属性或方法实现了使文件结束打印( )。（分数：2.00）A.Print 方法B.Page 属性C.NewPage 方法D.EndDoc 方法32
22、.数据的存储结构是指( )。（分数：2.00）A.数据所占的存储空间B.数据的逻辑结构在计算机中的存放形式C.数据在计算机中的顺序存储方式D.存储在计算机外存中的数据33.源程序的文档化不包括( )。（分数：2.00）A.符号名的命名要有实际意义B.正确的文档形式C.良好的视觉组织D.正确的程序注释34.栈和队列的共同点是( )。（分数：2.00）A.都是先进先出B.都是先进后出C.只允许在端点处插入和删除元素D.没有共同特点35.按文件的访问方式不同，可以将文件分为( )。（分数：2.00）A.顺序文件、随机文件B.文本文件和数据文件C.数据文件和可执行文件D.ASCII 文件和二进制文件二
23、、B填空题/B(总题数：11，分数：22.00)36.在数据的存储结构中，不仅需要存储各数据元素的信息，还要存放各元素之间 1 的信息。（分数：2.00）填空项 1:_37.按照“先进先出”的原则组织数据的结构的是 1。（分数：2.00）填空项 1:_38.深度为 5 的满二叉树中，叶子结点的个数为 1。（分数：2.00）填空项 1:_39.在面向对象方法中， 1 描述的是具有相似属性与操作的一组对象。（分数：2.00）填空项 1:_40.Jackson 方法是一种面向 1 的结构化方法。（分数：2.00）填空项 1:_41.在鼠标事件过程 MouseDown 和 MouseUp 中，参数 B
24、utton 的值为 1、2、4 时，分别代表按下鼠标的_、_和_按钮。（分数：2.00）填空项 1:_42.已知变量 bool Var 是一个布尔型的变量，如果要给其赋值为 Tree，则正确的赋值语句是 1。（分数：2.00）填空项 1:_43.执行以下语句后，输出结果为_。 s$=“ABCDEFG“ Print InStr(s$，“efg“) Print LCase$(s$)（分数：2.00）填空项 1:_44.表达式“12345“12345“&“ABC“的值是_。（分数：2.00）填空项 1:_45.在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程： Private Sub Fo
25、rm_Click() Text1.Text=“VB Programming“ End Sub Private Sub Textl_Change() Picturel.Print “VB 程序设计“ End Sub 程序运行后，单击窗体，则在文本框中显示的内容是_，而在图片框中显示的内容是_。（分数：2.00）填空项 1:_46.下列程序用于在带垂直滚动条的文本框 Text1 中输出 3 到 100 之间的全部素数。请填空。 Private Sub Commandl_Click() Text1.Text=“ For n=3 To 100 k=Int(Sqr(n) i=2 Flag=0 Do Wh
26、ile i=_And Flag=0 If n Mod i=0 Then Flag=1 Else i=i+1 End If Loop If_Then Text1.Text=Text1.Text & Str(n)& Chr(13)&Chr(10) End If Next n End Sub（分数：2.00）填空项 1:_二级 VISUAL+BASIC 笔试 359 答案解析(总分：92.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.对长度为 n 的线性表进行顺序查找，在最坏情况下需要比较的次数为( )。（分数：2.00）A.125B.n/2C.n D.n+1解析
27、：解析 对线性表进行顺序查找时，从表中的第一个元素开始，将给定的值与表中逐个元素的关键字进行比较，直到两者相符，查找到所要找的元素为止。在最坏情况下，要查找的元素是表的最后一个元素或查找失败，这两种情况都需要将这个元素与表中的所有元素进行比较，因此比较次数为 n。2.下列程序的运行结果是( )。 Private Sub Commandl_Click() a=1.5 b=1.5 Call fun(a，b) Print a，b End Sub Private Sub fun(x，y) x=y*y y=y+x End Sub（分数：2.00）A.2.25 3.75 B.1.5 2.25C.1.5 0
28、.75D.0.75 1.5解析：解析 分析程序，命令按钮中的调用函数语句执行过程为：Call fun(a，b)x=y*y=1.5*1.5=2.25，y=y+x=1.5+2.25=3.75。因为这里的参数是默认类型，即传地址形式传递参数，所以 a、b 的值也改变为 2.25、3.750。3.为了提高软件模块的独立性，模块之间最好是( )。（分数：2.00）A.控制耦合B.公共耦合C.内容耦合D.数据耦合 解析：解析 耦合性与内聚性是模块独立性的两个定性标准，是互相关联的。在程序设计中，各模块间的内聚性越强，则耦合性越弱。一般较优秀的软件设计，应尽量做到高内聚、低耦合，有利于提高模块的独立性。4.
29、在窗体上有一个文本框控件，名称为 TextTime，一个计时器控件，名称为 Timer1。要求每一秒在文本框中显示一次当前的时间。 （分数：2.00）A.EnabledB.VisibleC.Timer() D.Interval解析：解析 计时器控件又称为时钟控件，通过引发 Timer 事件，可以有规律地隔一段时间执行一次代码。控件用于背景进程中，是不可见的。Timer 时间也是计时器控件的惟一事件。5.待排序的关键码序列为(33，18，9，25，67，82，53，95，12，70)，要按关键码值递增的顺序排序，采取以第一个关键码为基准元素的快速排序法，第一趟排序后关键码 33 被放到第 ( )
30、个位置。（分数：2.00）A.3B.5 C.7D.9解析：解析 快速排序的基本思想是：从表中选取一个元素(如本题中的 33)，将表中小于此元素的移到前面，大于此元素的移到后面，结果把线性表分割成两部分(两个子表)，此元素插入到其分界线的位置处。然后分别对两个子表再次分割本题中 33 作为分割的中界线，第一道排序后排在比它小的18、9、25、12 后面。6.已知代数式 eXSin(30)2x/(x+y)Lnx，则正确的 Visual Basic 表达式为( )。（分数：2.00）A.E*Sin(30*3.14/180)*2*X/X+Y*Log(B.Exp(*Sin(30)*2*X/(X+*Ln(
31、C.Exp(*Sin(30*3.14/180)*2*x/(x+*Log( D.Exp(*Sin(30*3.14/180)*2*X/(X+*Ln(解析：解析 “Exp”函数功能是计算 e 的某次方，其格式为是 Exp(number)；“Sin”函数指定参数的正弦值，它的参数是表示以弧度为单位的角的 Double 型数据；“Log”函数得到某数的自然对数值，正确的表达方式是 Log(number)；“30”在计算机中应该写成 30*3.14/180；并且各个表达式之间的乘号不能省略。7.设有变量声明为“Dim aDate As Date”，则为变量 aDZe 正确赋值的表达方式是( )。（分数：2
32、.00）A.aDate=#8/2008# B.aDate=#“8/8/2008“#C.aDate=Date(“8/8/2008“)D.aDate=Format(“m/d/yy“,“8/8/2008“)解析：解析 任何可辨认的文本日期都可以赋值给 Date 变量。日期文字必须以数字符号“#”扩起来，例如，#January 1、1993# 或 #1 Jan 93#。对于选项 D) 是按照格式字符串的要求显示数值表达式，Format 函数的正确格式为：Format(数值表达式，格式字符串)，所以选项 D) 应该改为：aDate=Format(“8/8/2008“,“m/d/yy“)；选项 C) 中
33、Date 函数使用错误，应为：aDate=Date。8.有下列二叉树，对此二叉树中序遍历的结果为( )。 （分数：2.00）A.ABCDEFB.BDAECF C.ABDCEFD.ABCDFE解析：解析 对二叉树的中序遍历是指：首先遍历左子树，然后访问根结点，最后遍历右子树。在遍历左、右子树时，注意依旧按照“左子树一根结点一右子树”的顺序。9.在新建一个 Visual Basic 工程时，将新建窗体的 Name 属性设置为 TheFirst，则默认的窗体文件名为( )。（分数：2.00）A.FormrrmB.工程 1.frmC.TheFirsfim D.Formvbp解析：解析 设置 Name
34、的属性其实就是给窗体重命名。窗体的文件名是由文件名和后缀名(.frm)组成，即“自定义名.frm”。10.下列程序代码实现生成 20 个 0100 之间的随机整数，存于数组中，打印数组中大于 50 的数，并求这些数的和。请选择正确的程序段是( )，完成程序。 Private Sub Commandl_Click() Dim arr(1 To 20) For i=1 To 20 arr(i)=_ Textl.Text=Textl.Text & arr(i)& Chr(13)& Chr(10) Next i Sum=0 For Each X _ If X50 Then Print Tab(20)；
35、X Sum=Sum+X End If Next X Print Tab(20)；“Sum=“；Sum End Sub（分数：2.00）A.Int(Rnd*99+1) In arr B.Int(Rn In arrC.Int(Rnd*99+1) In arr()D.Int(Rn In arr()解析：解析 Rnd 函数用于产生一个小于 1 但大于或等于 0 的实数，题中要求 0100 之间的随机整数，所以需要对 Rnd 产生的实数进行计算处理 Int(Rnd*99+1)。要处理数组中的元素，使用 For EachNext语句处理数组元素时，Each 后只需写出数组名，不能使用小括号。11.表达式
36、Str(Len(“123“)+Str(77.7)的值是( )。（分数：2.00）A.377.7B.377.7 C.80.7D.12377.7解析：解析 解本题有两个关键点：一是运算的先后顺序，这里应该是 Len 函数Str 函数+计算(连接)：二是 Len 函数和 Str 函数的功能，Len 函数用来计算字符串的长度，“123”长度为 3(空格、小数点各算一个长度)。Str 函数是将数字转为字符串，注意转换后数字前会保留一空位表示正负。这里“3”转换后为“_3”(“_”表示空格)。 “+”运算符时有可能是做加法，也有可能是做字符串连接，其结果根据两个参与运算的表达式决定。如果两个表达式都是数值
37、数据类型，进行相加运算：如果两个表达式都是字符，进行相连接运算。12.有如下函数过程： Function funl(ByVal x As Integer,ByVal y As Integer)As Integer Do While y0 reminder=x Mod y x=y y=reminder Loop fun1=x End Function 在下列按钮单击事件中调用该函数，则该程序的运行结果是( )。 Private Sub Command1_Click() Dim a As Integer Dim b As Integer a=100 b=25 x=funl(a，b) Print x
38、 End Sub（分数：2.00）A.0B.25 C.50D.100解析：解析 可以通过两种方式来传递参数，即按值传递参数和按地址传递参数。按值传递参数时，传递的只是变量的副本。如果过程改变了这个值，则所作变动只影响副本而不会影响变量本身。用 ByVal 关键字指出参数是按值来传递的。按地址传递参数使过程用变量的内存地址去访问实际变量的内容，在将变量传递给过程时，通过过程可永远改变变量值。默认时是按地址传递参数。 题中 funl 函数的参数都是按值传送的，函数使用“过程名二表达式”的形式获得函数的返回值，如题中“funl=x”语句。调用函数“x=funl(a，b)”后，x=25。13.下列程序
39、段错误的是( )。（分数：2.00）A.Dim a As Integer a=array(1，2,3,4) B.Dim a()，b() a=array(1，2,3,4)：b=aC.Dim a As Variant a=array(1，“asd“,truD.Dim a()As Variant a=array(1,2,3,4)解析：解析 本题是考查使用 Array 函数为数组变量赋值。使用 Array 函数给数组赋值时需要先定义数组变量，然后再使用 Array 函数赋值。 注意：在定义数组变量的时候，数组变量不能是具体的数据类型，只能是变体(Variant)类型。14.为了使列表框中的项目分为多列
40、显示，需要设置的属性为( )。（分数：2.00）A.Columns B.StyleC.ListD.MultiSelect解析：解析 Columns 属性返回或设置一个值，以决定控件是水平还是垂直滚动以及如何显示列中的项目。Columns 属性值为 0 时，控件为垂直滚动；Columns 属性等于 1 时，则列表框呈多行多列显示： Columns 属性值大于 1 时，为水平滚动，Columns 属性值的数量决定在控件中的可见宽度内显示列的数量。Columns 属性用来确定列表框的列数。15.窗体上添加一个文本框 Text1，编写如下代码： Private Sub Text1_KeyDown(Ke
41、yCode As Integer, Shift As Integer) Print Chr(KeyCode+5) & KeyCode End Sub 程序运行时，在文本框中输入“ab”，则在窗体上输出为( )。（分数：2.00）A.F65 G66 B.F65 F66C.G66 F65D.G65 G66解析：解析 KeyDown 事件返回键盘上的键，如按下字母“A”或者字母键“a”，KeyCode 码都为 65，所以按下小写字母 a 和 b 后，KeyCode 值分别为 65 和 66，KeyCode+5 的值分别为 70 和 71，对应的字母分别为 F 和 G，所以打印输出 F65 和 G66
42、。16.下列程序运行时输出的结果是( )。 Option Base 1 Const a=10 Private Sub Form_Click() Dim x(a) As Integer k=-1 For i=1 To a x(i)=i*k k=(-1)*k Next i For i=1 To 10 Print x(i) Next i End Sub（分数：2.00）A.1 3 5 7 9 10B.-1-3-5-7-9C.-1 2-3 4-5 6-7 8-9 10 D.1-2 3-4 5-6 7-8 9-10解析：解析 本题中两个 For 循环的作用分别为：为 x 数组元素赋值，在窗体上依次输出
43、x 数组元素的值。 其中，为 x 数组元素赋值时，有“x(i)=i*k”和“k=(-1)*k”两条语句。k 的值每次都取自己的相反数，这样，x 数组元素的符号每次都在变化，第 1 个元素是-1，第 2 个元素是 2，第 3 个元素是-3，依次类推；最后输出 x 元素的值为-1 2-3 4-5 6-7 8-9 10。17.下列叙述正确的是( )。（分数：2.00）A.算法的执行效率与数据的存储结构无关B.算法的空间复杂度是指算法程序中指令(或语句)的条数C.算法的有穷性是指算法必须能在执行有限个步骤之后终止 D.以上 3 种描述都不对解析：解析 算法的执行效率与数据的存储结构密切相关。算法的空间
44、复杂度是指算法执行过程中所需的存储空间。18.窗体上有一个图片控件和一个按钮控件，下列程序执行的结果是( )。 Private Sub Commandl_Click() Picturel.Picture=LoadPicture(“c：/picture.jpg“) Picmrel.Cls Picturel.Print “picture“ End Sub（分数：2.00）A.窗体无显示，图片框显示图片和文字 picture B.窗体上出现 picture 文本，图片框无显示C.窗体上出现 picture 文本，图片框显示图片 picturjpgD.窗体无显示，图片框只显示 picture 文字解析
45、：解析 图片框的装载语句为：Picturel.Picture=LoadPicture(图片完整路进)。Print 输出方法的功能是在指定的对象上输出文本信息，它的基本格式为：对象名.Print。19.要建立一个随机文件记录学生的信息，如下定义了学生的记录类型，由学号、姓名、5 门课程成绩(百分制)组成，下列的定义正确的是( )。（分数：2.00）A.Type sru no As Integer name As String score(1 To 5)As Single End TypeB.Type stu no As Integer name As String*10 score()As Si
46、ngle End TypeC.Type stu no As Integer name As String*10 score(1 To 5)As Single End Type D.Type stu no As Integer name As String score()As Single End Type解析：解析 可以用 Type 语句创建用户定义的类型，注意该语句必须置于模块的声明部分。其格式如下：Type 数据类型名 数据类型元素名 As 类型名 数据类型元素名 As 类型名 End Type 在记录数据类型中的元素可以是变长字符串，也可以是定长字符串。当在随机文件中使用时，必须使用定长
47、字符串，一般格式是：String *常量。另外，在记录类型中不能使用动态数组。20.数据库系统的核心是( )。（分数：2.00）A.数据模型B.数据库管理系统 C.数据库D.数据库管理员解析：解析 数据库系统由数据库(数据)、数据库管理系统(软件)、数据库管理员(人员)、硬件平台(硬件)、软件平台 5 个部分构成。其中数据库管理系统是数据库系统的核心，它负责数据库中的数据组织、数据操纵、数据维护、控制及保护和数据服务等工作。21.在 C 盘当前文件夹下建立一个名为 SDat.txt 的顺序文件。要求用 InputBox 函数输入 5 名学生的学号(StuNo)、姓名(StuName)和英语成绩
48、(StuEng)。则在下列横线处合适的语句是( )。 Private Sub Form_Click() Open “C：/SDat.txt“ For Output As 1 For i=1 To 5 StuNo=InputBox(“请输入学号“) StuName=InputBox(“请输入姓名“) StuEndg=Val(InputBox(“请输入英语成绩“) Next i Close #1 End Sub（分数：2.00）A.Input #1,StuNo,StuName,StuEndgB.Put #1，StuNo，StuName，StuEndgC.Vrite #1，StuNO，StuName，StuEndg D.Get #1，StuNo,StuName,StuEndg解析：解析 顺序文件的读操作使用 Input 语句，写操作使用 Print 或 Write 语句。 Write 语句的正确格式为：Write#文件号，表达式表，各表达式之间用逗号隔开。 随机文件的写操作使用 Put#语句，读操作使用 Get#语句。22.在窗体上画一个名称为 Text1 的文本框，然后画 3 个单选按钮，并用这 3 个单选按钮建立一个控件数组
