【计算机类职业资格】二级VISUAL+BASIC笔试19及答案解析.doc

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

1、二级 VISUAL+BASIC 笔试 19 及答案解析(总分：100.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.算法指的是（分数：2.00）A.计算机程序B.解决问题的计算方法C.排序算法D.解题方案准确而完整的描述2.假定窗体的名称(Name 属性)为 Form1，则将窗体的标题设置为“等级考试”的语句为（分数：2.00）A.Form1=“等级考试“B.Caption=“等级考试“C.Form1Text=“等级考试“D.Form1Name=“等级考试“3.为了使标签覆盖背景，应将 BackStyle 属性设置为（分数：2.00）A.0B.1C.True

2、D.False4.在窗体上画一个名称为 Commandl 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim x As Integer，y As Integer x = 41： y = 54 Call sub1(x，y) x = x + 1 Print x； y End Sub Private Sub sub1(n As Integer， ByVal m As Integer) n=n Mod 10 m=m/10 End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是（分数：2.00）A.41 54B.2 54C.1 3D.42 35.

3、击窗体中的对象后，Visual Basic 将显示的窗口是（分数：2.00）A.工具箱B.项目(工程)窗口C.代码窗口D.属性窗口6.在窗体上画一个名称为 Timer1 的计时器、一个名称为 Command1 的命令按钮和一个名称为 Labell 的标签。程序如下： Private Sub Command1_Click() Timer1Enabled=True Timer1Interval=1000 End Sub Private Sub Timerl_timer() LabellCaption=Time End Sub 当运行程序后，单击命令按钮，将在标签中显示的内容为（分数：2.00）A.

4、TimeB.TrueC.1000D.10：06：557.某线性表采用顺序存储结构，每个元素占 4 个存储单元，首地址为 200，则第 12 个元素的存储地址为（分数：2.00）A.248B.247C.246D.2448.在窗体(Name 属性为 Form1)上画两个文本框(其 Name 属性分别为 Text1 和 Text2)和一个命令按钮(Name属性为 Command1)，然后编写如下两个事件过程： Private Sub Command1_Click() A=Text1.Text+Text2.Text Print a End Sub Private SUb Form 胃 Load() T

5、ext1.Text= “ “ Text2.Text=“ “ End Sub 程序运行后，在第一个文本框(Text1)和第二个文本框(Text2)中分别输入 33 和44，然后单击命令按钮，则输出结果为（分数：2.00）A.77B.33+44C.3344D.44339.一棵有 16 个结点的完全二叉树，对它按从上到下，从左至右给结点编号，则对于编号为 7 的结点 X，它的父结点及右子结点的编号分别为（分数：2.00）A.2，14B.2，15C.3，14D.3，1510.在窗体中添加两个文本框，其名称分别为 Text1 和 Text2;两个标签，其名称分别为 Label1 和Label2。编写程序

6、，使得程序运行后，在文本框 Text2 中输入小写字母，能转换为比此字母的 ASCII 码小4 的大写字母，结果显示在文本框 Text1 中。如输入“efg”，则输出的结果为“ABC”，能够实现上述功能的程序是（分数：2.00）A.Private Sub Form Load() Show Text1Text=“ “ Text2Text=“ “ Text2SetFocus End Sub Private Sub Text2_KeyDown(KeyCode As Integer，Shift As Intege Text1Text=Chr(KeyCode-4) End SubB.Private Su

7、b Form_Load() Show Text1Text=“ “ Text2Text=“ “ Text2SetFocus End Sub Private Sub Text2_KeyDown(KeyCode As Integer，Shift As Intege Text1Text=Text1Text+Chr(KeyCode-4) End SubC.Private Sub Form_Load() Show Text1Text=“ “ Text2Text=“ “ Text2SetFocus End Sub Private Sub Text2_Click(KeyCode As Integer，Shif

8、t As Intege Text1Text=Text1Text+Chr(KeyCOde-4) End SubD.Private Sub Form_Load() Show Text1Text=“ “ Text2Text=“ “ Text2SetFocus End Sub Private Sub Text2_Click(KeyCode As Integer，Shift As Intege Text1Text=Chr(KeyCode-4) End Sub11.下面列出的条目中，哪些是数据库技术的主要特点 数据的结构化 数据的冗余度小 较高的数据独立性 程序的标准化（分数：2.00）A.、和B.和C.

9、、和D.都是12.下列关于队列的叙述正确的是（分数：2.00）A.在队列中只能插入数据B.在队列中只能删除数据C.队列是先进先出的线性表D.队列是先进后出的线性表13.在窗体上画两个文本框(其名称分别为 Textl 和 Text2)和一个命令按钮(其名称为 Command1)，然后编写如下两个事件过程： Private Sub Command1_Click() Text1.Text=“Microsoft Visual Basic“ End Sub Private Sub Text1_Change() Text2.Text=UCase(Text1.Text) End Sub 程序运行后，单击命令

10、按钮，则在 Text2 文本框中显示的内容是（分数：2.00）A.Microsoft Visual BasicB.microsoft visual basicC.MICROSOFT VISUAL BASICD.空字符串14.关于 Move 方法，下列叙述正确的是（分数：2.00）A.用来移动窗体和控件，不能改变其大小B.“对象”是窗体时，移动基准以屏幕左边界和上边界为准C.Move 方法移动除计时器以外的所有标准控件D.“对象”是控件时，移动基准以屏幕左边界和上边界为准15.下列有关测试的论述中，错误的是（分数：2.00）A.证明错误存在B.证明错误不存在C.发现程序中的错误D.提供诊断信息1

11、6.假定有下面的程序段： For i=1 To 3 For j = 1 To i For k=j To 3 Print “i = “；i，“j=“；i，“k =“；k Next k Next j Next i 这是一个三重循环程序，在这个程序中，外层、中层和内层循环的循环次数是（分数：2.00）A.3、6 和 14B.3、8 和 16C.3、4 和 12D.3、9 和 1817.设有如下变量声明 Dim timel As Date，为变量 time1 正确赋值的表达式是（分数：2.00）A.time1=#11:34:04#B.time1=Format(Time，“yy:mm:dd“)C.tim

12、e1=#“11:34:04“#D.fime1=Format(“hh:mm:ss“，Tim18.在窗体上画一个命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1 Click() Dim Arr1(12)As Integer， Arr2(3)As Integer Dim Sum As Integer Sum = 2 For i=1 To 12 Arrl(i)= i Next i For i=1 To 3 Arr2(i)= Arrl(i*i) Next i For i = 1 To 3 Sum = Sum + Arr2(i) Next i Print

13、Sum End Sub 程序运行后，单击命令按钮，在窗体上的输出结果为（分数：2.00）A.16B.24C.32D.3619.下面子过程语句说明合法的是（分数：2.00）A.Sub f1(s1 As String*8)B.Sub f1(n()As IntegeAs IntegerC.Function f1(f1 As IntegeAs IntegerD.Function f1(By Val n As Intege20.下列工具中，需求分析常用的工具是（分数：2.00）A.PADB.PFDC.N-SD.DFD21.对序列(7，19，24，13，31，8，82，18，44，63，5，29)进行一趟

14、排序后得到的结果如下：(7，18，24，13，5，8，82，19，44，63，31，29)，则可以认为使用的排序方法是（分数：2.00）A.希尔排序B.插入排序C.快速排序D.选择排序22.为了在程序运行时，使被遮的窗口又重现，用窗体的 Picture 属性设置的背景图像会自动重画，设置值为 True 的属性是（分数：2.00）A.ScaleB.AutoRedrawC.ResizeD.AutoSize23.将 E-R 图转换到关系模式时，实体与联系都可以表示成（分数：2.00）A.属性B.关系C.键D.域24.有如下程序： Function F(a As Integer) b = 0 Stat

15、ic C b = b + 1 c = c + 2 F = a + b + c End Function Private Sub Command1_Click() Dim a As Integer a = 2 For i=1 To 3 Print F(a)； Next i End Sub 运行上面的程序，单击两次命令按钮，在窗体上输出结果为（分数：2.00）A.4 4 4B.4 5 6C.5 7 9D.11 13 1525.为了使文本框同时具有水平和垂直滚动条，应先将 MultiLine 属性设置为 True，然后再将 ScrollBars 属性设置为（分数：2.00）A.0B.1C.2D.32

16、6.在窗体上画两个文本框(其 Name 属性分别为了 ext1 和 Text2)和一个命令按钮(其 Name 属性为Command1)，然后编写如下事件过程： Private Sub Command1_Click() x = 0： n = 0 Do Until x = 30 x = (n + 2)* (n + 3) n = n + 1 Loop Text1Text = Str(n) Text2Text = Str(x) End Sub 程序运行后，单击命令按钮，在两个文本框中显示的值分别为（分数：2.00）A.2 和 30B.2 和 240C.3 和 50D.4 和 3027.下列叙述中正确的

17、是（分数：2.00）A.只有窗体才是 Visual Basic 中的对象B.只有控件才是 Visual Basic 中的对象C.窗体和控件都是 Visual Basic 中的对象D.窗体和控件都不是 Visual Basic 中的对象28.在窗体中添加一个命令按钮，名称为 Commandl，然后编写如下程序： Private Sub Command1_Click() Dim a As Integer，b As String，C As Integer a = 1234 : b = Str(a) c = Len(b) Print c End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是

18、（分数：2.00）A.0B.5C.6D.729.在窗体上画一个命令按钮，其名称为 Command1，然后编写如下事件过程： Private Sub Command1_Click() a = 0 For m=1 To 10 a = a + 1 b = 0 For j=1 To 10 a = a + 1 b = b + 2 Next j Next m Print a，b End Sub 程序运行时，单击命令按钮 Command1 后，窗体上显示的结果为（分数：2.00）A.10 20B.20 110C.110 20D.200 11030.在窗体上画一个命令按钮，然后编写如下事件过程： Option

19、 Base 1 Private Sub Command1 Click() Dim a a=Array(1， 2， 3， 4) j = 1 For i = 4 To 1 Step -1 s = s + a(i)* j i = j * 10 Next i Print s End Sub 运行上面的程序，单击命令按钮，其输出结果为（分数：2.00）A.4321B.12C.34D.123431.设已经建立如下表的菜单结构：（分数：2.00）A.标题B.名称C.层次D.数据库操作E.DbF.1G.添加记录H.TjI.2J.查询记录K.CxL.2M.按姓名查询N.XmO.3P.按学号查询Q.XhR.3S.

20、删除记录T.DeleteU.232.以下关于 Visual Basic 程序模块的描述正确的是（分数：2.00）A.标准模块中的所有过程可以在整个工程文件的范围内被调用B.窗体模块 Form1 中的过程可以调用其他窗体中被声明为 Public 的通用过程C.如果工程文件中包含 sub Main 过程，则运行该工程文件时，一定先执行 sub Main 过程D.如果工程文件中不包含 sub Main 过程，则程序从第一个创建的窗体开始运行33.以下合法的变量名是（分数：2.00）A.Len1B.LenC.6LenD.Lena34.关于结构化程序设计原则和方法的描述错误的是（分数：2.00）A.选用

21、的控制结构只准许有一个入口和一个出口B.复杂结构应该用嵌套的基本控制结构进行组合嵌套来实现C.不允许使用 GOTO 语句D.语言中没有的控制结构，应该采用前后一致的方法来模拟35.Visual Basic 预先设置好的，能够被对象识别的动作是（分数：2.00）A.方法B.事件C.对象D.属性二、B填空题/B(总题数：15，分数：30.00)36.如下图所示的二叉树，若按后序遍历，则其输出序列为U 【1】 /U。 （分数：2.00）填空项 1:_37.在长度为 n 的线性表中顺序查找元素 x 时，成功查找的平均查找长度为U 【2】 /U。（分数：2.00）填空项 1:_38.在面向对象的方法中，

22、一个对象请求另一个对象为其服务是通过发送U 【3】 /U来完成的。（分数：2.00）填空项 1:_39.软件开发环境是全面支持软件开发全过程的U 【4】 /U集合。（分数：2.00）填空项 1:_40.给出了数据库物理存储结构与物理存取方法称为数据库的U 【5】 /U。（分数：2.00）填空项 1:_41.响应某个事件后所执行的操作通过一段程序代码来实现，这样的一段程序代码叫做U 【6】 /U。（分数：2.00）填空项 1:_42.在程序执行闲置循环过程中，程序的控制权被系统占用。若要获得控制权，可以使用一个语句，这样用户可以在获得系统的控制权后进行其他操作，这个语句是U 【7】 /U。（分数

23、：2.00）填空项 1:_43.要求打开随机文件“c:/Example.txt”文件，文件号为 1，实现的语句是U 【8】 /U。（分数：2.00）填空项 1:_44.程序如下： Private Sub Form_Click() Const PI=3.14159 Dim r As Single，S As Single R=InputBox(“请输入圆的半径“，“输入数据“，“50“) S = PI*r*r Print “S=“；Format(S，“#，#.#“) End Sub 程序运行后，单击窗体，将显示一个输入对话框，输入数据35，单击“确定”按钮后，输出结果为U 【9】 /U。（分数：2

24、.00）填空项 1:_45.在窗体上画一个列表框，然后编写如下两个事件过程： Private Sub Form_Click() List1RemoveItem 1 List1Removeltem 3 List1RemoveItem 1 End Sub Private Sub Form Load() List1AddItem “ItemA“ List1AddItem “ItemB“ List1AddItem “ItemC“ List1AddItem “ItemD“ List1AddItem “ItemE“ End Sub 运行上面的程序，然后单击窗体，列表框中所显示的项目为U 【10】 /U。（

25、分数：2.00）填空项 1:_46.计时器事件之间的间隔通过U 【11】 /U属性设置。（分数：2.00）填空项 1:_47.下列过程的功能是：用来计算并输出 S=1+1/2+1/3+1/100 的值，请完善下列程序。 Furiction SumD (n As Integer)As Single s = 1 i = 1 Do i = i + 1 s = s + 1 / i Loop UntilU 【12】 /U SumD = s End Function Private Sub Form Click() sum1=SumD(100) Print “sum1=“； sum1 End Sub（分数

26、：2.00）填空项 1:_48.语句 Static x(7，8)As Double 定义了U 【13】 /U个元素。（分数：2.00）填空项 1:_49.下列程序运行后，在窗体上打印的结果是U 【14】 /U。 Private Sub test(a， b，c) a = a + 1： b = b + 2：C = C + 3 End Sub Private Sub Command1 Click() x = 1：v = 2：z = 3 Call test(x，y + 3， (z) Print “Main:“；x；y；z End Sub（分数：2.00）填空项 1:_50.编写如下通用过程： Sub

27、proc(By Val num As Long，ByRef ren As Long) Dim k As Long K = 1 num=Abs(num) Do While num k= k *(num Mod 10) num=num/ 10 Loop ren=k End Sub 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1 Click() Dim n As Long， r As Long n=InputBox(“请输入一个整数“) n = CLng(n) proc n，r Print r End Sub 程序运行后，单击命令按钮，在输入对话框中输入 3

28、45，输出结果是U 【15】 /U。（分数：2.00）填空项 1:_二级 VISUAL+BASIC 笔试 19 答案解析(总分：100.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.算法指的是（分数：2.00）A.计算机程序B.解决问题的计算方法C.排序算法D.解题方案准确而完整的描述 解析：分析 算法是指解题方案准确而完整的描述。算法不等于程序，也不等于计算方法，更不是排序算法。2.假定窗体的名称(Name 属性)为 Form1，则将窗体的标题设置为“等级考试”的语句为（分数：2.00）A.Form1=“等级考试“B.Caption=“等级考试“ C.Fo

29、rm1Text=“等级考试“D.Form1Name=“等级考试“解析：分析 Caption 属性用来定义窗体标题。启动 Visual Basic 或执行“工程”菜单中的“添加窗体”命令后，窗体使用的是默认标题(如 Form1、 Form2)。用 Caption 属性可以将窗体标题改为所需要的名字，该属性既可通过属性窗口设置，也可以在事件过程中通过程序代码设置。3.为了使标签覆盖背景，应将 BackStyle 属性设置为（分数：2.00）A.0B.1 C.TrueD.False解析：分析 BackStyle 属性可以取两个值，即 0 和 1。当值为 1 时，标签将覆盖背景：值为 0 时，标签为“

30、透明”。默认值为 1。4.在窗体上画一个名称为 Commandl 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim x As Integer，y As Integer x = 41： y = 54 Call sub1(x，y) x = x + 1 Print x； y End Sub Private Sub sub1(n As Integer， ByVal m As Integer) n=n Mod 10 m=m/10 End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是（分数：2.00）A.41 54B.2 54 C.1 3D.4

31、2 3解析：分析 在 Function(参数表列)过程中，“参数表列”指明了调用时传送给过程的参数类型和个数，每个参数的格式为： ByValByRef变量名()As 数据类型其中系统默认为 ByRef，它指明参数传送是以传地址进行的，实际参数变量的值会由于过程中对形参的操作而改变。而 ByVal 则不同，参数传送，是以传值传送的，实际参数变量的值不再由于过程中对形参的操作而改变，本题目中过程 sub1 的参数 n 是传地址引用，而参数 m 是传值引用，因此 x 的值改变，x=21/10+1=2；而 y 值不改变，仍为 54。答案为选项 B。5.击窗体中的对象后，Visual Basic 将显示

32、的窗口是（分数：2.00）A.工具箱B.项目(工程)窗口C.代码窗口 D.属性窗口解析：分析 可以按照下列所述的方式，来打开代码窗口：在工程窗口中，可以选择一个窗体或模块，然后选择“查看代码”按钮；在“窗体”窗口中，可以双击控件或窗体，也可以从“视图”菜单中选择“代码窗口”或按下 F7 键。6.在窗体上画一个名称为 Timer1 的计时器、一个名称为 Command1 的命令按钮和一个名称为 Labell 的标签。程序如下： Private Sub Command1_Click() Timer1Enabled=True Timer1Interval=1000 End Sub Private S

33、ub Timerl_timer() LabellCaption=Time End Sub 当运行程序后，单击命令按钮，将在标签中显示的内容为（分数：2.00）A.TimeB.TrueC.1000D.10：06：55 解析：分析 过程调用内在的 Time 函数来显示系统时间。此函数返回一个变体型数据，以日期/时间数值的形式表示当前时间。将它赋予某个字符串变量或属性时，比如赋予本例中的 Caption 属性时，VisualBasic 将用“控制面板”中指定的格式将其转换成一个字符串。若要用其他格式显示，可使用Format 函数。7.某线性表采用顺序存储结构，每个元素占 4 个存储单元，首地址为 2

34、00，则第 12 个元素的存储地址为（分数：2.00）A.248B.247C.246D.244 解析：分析 设线性表中第一个数据元素的存储地址 (指第一个字节的地址，即首地址)为 ADR(a1)，每个数据元素占 k 个字节，则线性表中第 i 个元素在计算机存储空间的存储地址为： ADR(ai)=ADR(a1)+(i-1)k 因此，ADR(a12)=200+(12-1)4=2448.在窗体(Name 属性为 Form1)上画两个文本框(其 Name 属性分别为 Text1 和 Text2)和一个命令按钮(Name属性为 Command1)，然后编写如下两个事件过程： Private Sub Co

35、mmand1_Click() A=Text1.Text+Text2.Text Print a End Sub Private SUb Form 胃 Load() Text1.Text= “ “ Text2.Text=“ “ End Sub 程序运行后，在第一个文本框(Text1)和第二个文本框(Text2)中分别输入 33 和44，然后单击命令按钮，则输出结果为（分数：2.00）A.77B.33+44C.3344 D.4433解析：分析 对于该题，初学者一般都会认为选项 A 是答案，这是因为还没有建立数值和字符的概念。在文本框中的内容，在形式上无论是数值还是字符，实际上它都是字符。本题中的加号

36、(+)对字符来讲是起到连接的作用，所以输出的是“3344”。9.一棵有 16 个结点的完全二叉树，对它按从上到下，从左至右给结点编号，则对于编号为 7 的结点 X，它的父结点及右子结点的编号分别为（分数：2.00）A.2，14B.2，15C.3，14D.3，15 解析：分析 根据完全二叉树性质 6，按从上到下，从左至右给结点编号，若 k1，则父结点编号为 INT(k/2)，所以第 7 号结点的父结点编号是 3。若 2kn，则编号为 k 的左子结点编号为 2k；否则该结点无左子结点(显然也没有右子结点)。若 2k+1n，则编号为 k 的右子结点编号为 2k+1；否则该结点无右子结点。因此编号为

37、7 的结点的右子结点编号为 15。10.在窗体中添加两个文本框，其名称分别为 Text1 和 Text2;两个标签，其名称分别为 Label1 和Label2。编写程序，使得程序运行后，在文本框 Text2 中输入小写字母，能转换为比此字母的 ASCII 码小4 的大写字母，结果显示在文本框 Text1 中。如输入“efg”，则输出的结果为“ABC”，能够实现上述功能的程序是（分数：2.00）A.Private Sub Form Load() Show Text1Text=“ “ Text2Text=“ “ Text2SetFocus End Sub Private Sub Text2_Key

38、Down(KeyCode As Integer，Shift As Intege Text1Text=Chr(KeyCode-4) End SubB.Private Sub Form_Load() Show Text1Text=“ “ Text2Text=“ “ Text2SetFocus End Sub Private Sub Text2_KeyDown(KeyCode As Integer，Shift As Intege Text1Text=Text1Text+Chr(KeyCode-4) End Sub C.Private Sub Form_Load() Show Text1Text=“

39、“ Text2Text=“ “ Text2SetFocus End Sub Private Sub Text2_Click(KeyCode As Integer，Shift As Intege Text1Text=Text1Text+Chr(KeyCOde-4) End SubD.Private Sub Form_Load() Show Text1Text=“ “ Text2Text=“ “ Text2SetFocus End Sub Private Sub Text2_Click(KeyCode As Integer，Shift As Intege Text1Text=Chr(KeyCode

40、-4) End Sub解析：分析 当在文本框 Text2 中输入小写字母时，能触发的是 KeyDown 事件，而不能触发 Click 事件，所以选项 C 和 D 是错误的。选项 A 的文本框中每次只能显示一个字符，而选项 B 是正确的答案。11.下面列出的条目中，哪些是数据库技术的主要特点 数据的结构化 数据的冗余度小 较高的数据独立性 程序的标准化（分数：2.00）A.、和 B.和C.、和D.都是解析：分析 数据库技术的主要特点有：数据的集成性；数据的高共享性与低冗余性：数据的独立性。其中数据的结构化是数据的集成性表现之一，因此选项 A 是正确答案。程序的标准化不是数据库技术的主要特点。12

41、.下列关于队列的叙述正确的是（分数：2.00）A.在队列中只能插入数据B.在队列中只能删除数据C.队列是先进先出的线性表 D.队列是先进后出的线性表解析：分析 队列是只能在表的一端进行插入并在另一端进行删除操作的线性表。队列的操作是按“先进先出”的原则进行的，因此队列又称先进先出或后进后出线性表。13.在窗体上画两个文本框(其名称分别为 Textl 和 Text2)和一个命令按钮(其名称为 Command1)，然后编写如下两个事件过程： Private Sub Command1_Click() Text1.Text=“Microsoft Visual Basic“ End Sub Privat

42、e Sub Text1_Change() Text2.Text=UCase(Text1.Text) End Sub 程序运行后，单击命令按钮，则在 Text2 文本框中显示的内容是（分数：2.00）A.Microsoft Visual BasicB.microsoft visual basicC.MICROSOFT VISUAL BASIC D.空字符串解析：分析 本题有两个事件过程，一个是命令按钮的 Click 事件过程，一个是文本框 Text1 的 Change事件过程，当单击命令按钮时，执行前一个事件过程，而当在文本框 Text1 中输入信息时，将执行该文本框的 Change 事件过程。

43、在命令按钮事件过程中，为文本框 Text1 的 Text 属性赋值，即在该文本框中显示字符串“Microsoft Visual Basic”，在这种情况下，将触发 Text1 文本框的 Change 事件，将文本框Text1 中的所有字母转换为大写字母，并在文本框 Text2 中显示出来。14.关于 Move 方法，下列叙述正确的是（分数：2.00）A.用来移动窗体和控件，不能改变其大小B.“对象”是窗体时，移动基准以屏幕左边界和上边界为准 C.Move 方法移动除计时器以外的所有标准控件D.“对象”是控件时，移动基准以屏幕左边界和上边界为准解析：分析 Move 方法的格式为： 对象Move

44、左边距离，上边距离，宽度，高度 Move 方法用来移动窗体和控件，并可改变其大小。其中“对象”可以是窗体以及除 Timer(计时器)、Menu(菜单)之外的所有控件，如果省略“对象”，则表示要移动的是窗体。“左边距离”、“上边距离”、“宽度”及“高度”均以 Tip 为单位。如果“对象”是窗体，则“左边距离”和“上边距离”均以屏幕左边界和上边界为准：如果“对象”是控件，则以窗体的左边界和上边界为准。15.下列有关测试的论述中，错误的是（分数：2.00）A.证明错误存在B.证明错误不存在C.发现程序中的错误 D.提供诊断信息解析：分析 软件测试是为了尽可能多的发现程序中的错误，尤其是发现至今尚未发

45、现的错误。16.假定有下面的程序段： For i=1 To 3 For j = 1 To i For k=j To 3 Print “i = “；i，“j=“；i，“k =“；k Next k Next j Next i 这是一个三重循环程序，在这个程序中，外层、中层和内层循环的循环次数是（分数：2.00）A.3、6 和 14 B.3、8 和 16C.3、4 和 12D.3、9 和 18解析：分析 在多重循环中，外层循环变化一次，内层循环从头到尾执行一遍。该题是一个三重循环，而且中层循环变量的终值和内层循环变量的初值是随上一层循环的循环变量变化而变化的，因此需要逐层加以计算后累加出各层的循环次

46、数。模拟计算机的计算过程，计算各层的循环次数为：外层循环：i=1 To 3，循环次数为 3：中层循环：由于 i 是中层循环的终值，当 i=1、 2、3 时，其循环次数分别为 1次、2 次、3 次，中层循环的循环总次数为 6：内层循环：由于 j 是内层循环的初值，j=1、1、2、1、2、3 时，其循环次数分别为 3 次、3 次、2 次、3 次、2 次、 1 次，内层循环的循环总次数为 14。17.设有如下变量声明 Dim timel As Date，为变量 time1 正确赋值的表达式是（分数：2.00）A.time1=#11:34:04# B.time1=Format(Time，“yy:mm:

47、dd“)C.time1=#“11:34:04“#D.fime1=Format(“hh:mm:ss“，Tim解析：分析 日期文字须以符号“#”括起来。用 Format 函数不能正确地表示出时间来。18.在窗体上画一个命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1 Click() Dim Arr1(12)As Integer， Arr2(3)As Integer Dim Sum As Integer Sum = 2 For i=1 To 12 Arrl(i)= i Next i For i=1 To 3 Arr2(i)= Arrl(i*i) Ne

48、xt i For i = 1 To 3 Sum = Sum + Arr2(i) Next i Print Sum End Sub 程序运行后，单击命令按钮，在窗体上的输出结果为（分数：2.00）A.16 B.24C.32D.36解析：分析 本题中定义了两个一维数组，分别为 Arr1 和 Arr2，由于使用了 Option Base 1 语句，因此其大小分别为 10 和 3，接着执行 3 个 For 循环。在第 1 个循环中，对 Arr1 数组赋初值，每个元素的值与其下标相同，即 Arrl(1)=1，Arrl(2)= 2。在第 2 个循环中，为 Arr2 数组的 3 个元素赋值，这 3个值分别为 Arrl 数组第 1、3、