1、二级 VISUAL+BASIC 笔试 67 及答案解析(总分：94.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.某算法的空间花费 s(n)=100nlog2n+0.5 logn+ 1000n+2000，其空间复杂度为_ 。（分数：2.00）A.0(1)B.0(C.0(n1.5)D.0(nlog22.要使一个文本框具有垂直滚动条，则应_ 。（分数：2.00）A.将其 Multiline 设置为 True，同时将 scrollbars 属性设置为 0B.将其 Multiline 设置为 True，同时将 scrollbars 属性设置为 1C.将其 Multi
2、line 设置为 True，同时将 scrollbars 属性设置为 2D.将其 Multiline 设置为 True，同时将 scrollbars 属性设置为 33.在窗体上画一个命令按钮，然后编写如下事件过程： Prevate Sub Command1_ Click() x=0 Do Until x=-1 a= InputBox(“请输入 A 的值”) a= Val (A) b=InputBox(“请输入 B 的值”) b=Val (b) x=InputBox(“请输入 x 的值”) x=Val (x) a=a+ b+ x Loop Print a End Sub 程序运行后，单击命令按钮
3、，依次在输入对话框中输入 5、4、3、2、1、-1，则输出结果为_ 。（分数：2.00）A.2B.3C.14D.154.下列符号常量的声明中，_ 是不合法的。（分数：2.00）A.Const a As Single =1.1B.Const d As Integer =“12”C.Const b As Double = Sin(1)D.Const c As String = “OK”5.下列程序段的执行结果为_。S= 0: T= 0: U=0For X = 1 To 3 For Y = 1 To X For Z = Y To 3 S= S +1 Next Z T=T+1 Next Y U=U+1
4、Next XPrint S; T;U（分数：2.00）A.3 6 14B.14 6 3C.14 3 6D.16 4 36.单击一次命令按钮之后，下更程序代码的执行结果为_ 。 Public Sub Proc(a() As Integer) Static i As Integer Do a(i) = a(i) + a(i + 1) i=i+1 Loop While i 2 End Sub Private Sub Command1_Cliek() Dim m As Integer Dim i As Integer Dim x(10) As Integer For i = 0 To 4 x(i) =
5、 i + 1 Next i For i = 1 To 2 Call Proc (x) Next i For i = 0 To 4 Print x(i); Next i End Sub（分数：2.00）A.3 4 7 5 6B.3 5 7 4 5C.1 2 3 4 5D.1 2 3 5 77.下列程序段的执行结果是_。 i=0 For j = 10 To 19 Step 3 i=i+1 Next j Print I（分数：2.00）A.4B.5C.3D.68.为使图像框的大小自动适应图像的大小，则应_ 。（分数：2.00）A.将其 Autosize 属性值设置为 TrueB.将其 Autosiz
6、e 属性值设置为 FalseC.将其 Stretch 属性值设置为 TrueD.将其 Stretch 属性值设置为 False9.下面_ 机制允许对一个函数名给出多个函数定义。（分数：2.00）A.封装性B.继承性C.函数重载D.多态性10.数据库逻辑设计阶段分为_ 。（分数：2.00）A.收集和分析、建立 ER 模型、数据库模式设计B.模型设计和应用程序设计C.概念设计、逻辑设计、物理设计D.设计，建立 ER 模型和模式设计11.用二维表来表示实体及实体之间联系的数据模型称为_ 。（分数：2.00）A.实体联系模型B.层次模型C.网状模型D.关系模型12.当将 E-R 模型转换为关系模型时，
7、对于两实体间 m: n 联系，必须对“联系”单独建立_ ，用来联系双方实体。（分数：2.00）A.一个实体B.一个属性C.一个指针D.一个关系13.执行下列程序段时，分别在输入框中输入 2、4、6，则执行结果是_。 Dim A(4) As Integer Dim B(4) As Integer For i = 0 To 2 A(i + 1) = Val (InputBox (“请输入数据”) B(3 - i) = A(i + 1) Next i Print B(i)（分数：2.00）A.2B.4C.6D.814.栈和队列_ 。（分数：2.00）A.共同之处在于二者都是先进先出的特殊的线性表B.
8、共同之处在于二者都是先进后出的特殊的线性表C.共同之处在于二者都只允许在顶端执行删除操作D.没有共同之处15.23 有如下程序段，该程序段循环的次数是_。 Dim i As Integer Dim j As Integer Dim k As Integer k=0 For i = 0 To 10 Step 3 For j = 1 To 5 If j 3 Then k = k + 4: Exit For k=k+1 Print k Next j If i 8 Then Exit For Next i（分数：2.00）A.9B.10C.11D.1216.如果只允许在列表框中每次只能选择一个列表项时
9、，则应将其 Multiselect 属性设置为_ 。（分数：2.00）A.0B.1C.2D.317.在程序代码中清除图片框 Picture1 中的图形的正确语句是_ 。（分数：2.00）A.Picture1. picture=“”B.Picture1picture=Loadpicture (“ ”)C.Picture1. image=“”D.Picture1. picture=Null18.下列程序段执行后，执行的结果是_ 。 Dim M(10) Dim N(10) i=3 For j = 1 To 5 M(j) = j N(i) = 2 * i + j Next j Print N(i);
10、M(i)（分数：2.00）A.12 4B.11 3C.3 11D.10 219.假定已在窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先应执行的操作是_。（分数：2.00）A.单击窗体上没有控件的地方B.单击任一个控件C.不执行任何操作D.双击窗体的标题栏20.要使一个标签透明且不具有边框，则应_ 。（分数：2.00）A.将其 BackStyle 属性设置为 0，BorderStyle 属性设置为 0B.将其 BackStyle 属性设置为 0，BorderStyle 属性设置为 1C.将其 BackStyle 属性设置为 1，BorderStyle 属性设置为
11、0D.将其 BackStyle 属性设置为 1，BorderStyle 属性设置为 121.结构程序设计的 3 种结构是_ 。（分数：2.00）A.顺序结构、选择结构、转移结构B.分支结构，等价结构，循环结构C.多分支结构赋值结构、等价结构D.顺序结构、选择结构、循环结构22.若深度为 5 的完全二叉树的第 5 层有 3 个叶结点，则该二叉树一共有_ 个结点。（分数：2.00）A.15B.16C.17D.1823.下列程序执行后，执行的结果是_ 。 Dim M(2) For i = 1 To 2 M(i) = 0 Next i k=2 For i = 1 To k For j = 1 To k
12、 M(j) = M(i) + 1 Print M(k): Next j Next I（分数：2.00）A.1234B.0123C.0223D.234524.某窗体中有如图所示的各种控件： （分数：2.00）A.文本框B.框架C.命令按钮D.复选框25.表达式 2*32+2*8/4+32 的值为_ 。（分数：2.00）A.64B.31C.49D.2226.“软件危机”产生的主要原因是_ 。（分数：2.00）A.软件日益庞大B.开发方法不当C.开发人员编写程序能力差D.没有维护好软件27.编写如下事件过程: Private Sub Form_ MouseDown (Button As Intege
13、r, Shift As Integer, X As Single, Y As Single) If Shift = 6 And Button = 2 Then Print “Hello” End If End Sub 程序运行后，为了在窗体上输出“Hello”，应在窗体上执行以下_ 操作。（分数：2.00）A.同时按下 Shift 键和鼠标左按钮B.同时按下 Shift 键和鼠标右按钮C.同时按下 Ctrl、Alt 键和鼠标左按钮D.同时按下 Ctrl、Alt 键和鼠标右按钮28.下列程序执行后，分别输入 5，10，则输出的结果是_ 。 a= InputBox (“请输入数据” End Sub
14、 Private Sub Command1_ Click () Test 2 End Sub（分数：2.00）A.23 47B.5 11C.10 22D.23 2930.如果要在任何新建的模块中自动插入 option Explicit 语句，则应采用下列_ 操作步骤。（分数：2.00）A.在“工具”莱单中选取“选项”命令，打开“选项”对话框，单击“编辑器”选项卡，选中“要求变量声明”选项B.在“编辑”菜单中执行“插入文件”命令。C.在“工程”菜单中执行“添加文件”命令。D.以上操作均不对31.分层 DFD 图是一种比较严格又易于理解的描绘方式，它的顶层图的作用在于_ 。（分数：2.00）A.描
15、绘了系统的实现细节B.表明了被开发系统的范围以及它和周围环境的数据交换关系C.描绘了系统的抽象D.描绘了软件实现的作者和绘制的时间32.窗体中有 3 个按钮 Command1、Command2 和 Command3，该程序的功能是当单击按钮 Command1 时，按钮2 可用，按钮 3 不可见，正确的程序是 Private Sub Command1_Click() Command2. Visible=False Command3. Enabled=True End Sub Private Sub Commnd1_Click() Command2. Visible=False Command3.
16、 Enabled=False End Sub Private Sub Command1_Click() Command2. Enabled=True Command3. Visible=False End Sub Private Sub Command1_Click() Command2. Visible=True Command3. Enabled=True End Sub（分数：2.00）A.B.C.D.33.下列程序段的执行结果是_。 option base 1 private eommand1_c1ick () Dim A(10) Dim E(5) For i = 1 To 10 A(
17、i) = i Next i For j = 1 To 5 B(j) = j * 20 Next j A(5) = B(2) Print “A(5)=”; A(5) End sub（分数：2.00）A.A(5)=20B.A(5)=30C.A(5)=40D.A(5)=5034.下列程序段的执行结果是_。 i=4 j:5 Do i=i+1 j=j+2 Loop Until i = 7 Print “j=”; j（分数：2.00）A.j=10B.j=11C.j=12D.j=1335.以下叙述中正确的是_ 。（分数：2.00）A.窗体的 Name 属性指定窗体的名称，用来标识一个窗体B.窗体的 Name
18、 属性的值是显示在窗体标题栏中的文本C.可以在运行期间改变对象的 Name 属性的值D.对象的 Name 属性值必须在运行时设置，不能在设计时设置。二、B填空题/B(总题数：12，分数：24.00)36.深度为 n(n0)的二叉树最多有U 【1】 /U个结点。（分数：2.00）填空项 1:_37.目前，有两种重要的高级语言，分别是结构化程序和U 【2】 /U。（分数：2.00）填空项 1:_38.对象还有操作，用于改变对象的状态，对象及其操作就是对象的U 【3】 /U。（分数：2.00）填空项 1:_39.结构化分析方法的基本思想是采用U 【4】 /U方法，分析整个系统，有效的控制系统开发的复
19、杂性。（分数：2.00）填空项 1:_40.数据库管理系统(DBMS)是数据库的机构，通常由数据定义语言、数据控制语言，U 【5】 /U和一些实用程序四部分组成。（分数：2.00）填空项 1:_41.下面程序段的输出结果是U 【6】 /U。 p = 0 s = 0 Do p = p + 2 s = s + p Loop While p11 Print “s=”; s（分数：2.00）填空项 1:_42.下面程序段的输出结果是U 【7】 /U。 For X=1.5 To 5 Step 1.5 Print X； Next X（分数：2.00）填空项 1:_43.以下程序段的作用是首先按降序输入 1
20、0 个数到数组 Y 的前 10 个元素中，又输入一个 YO 插入到数组 Y中，插入 YO 后 Y 中的数据仍按降序排列。请补充完该程序_。 Dim Y(1 To 11) For i =1 To 10 Y(i) = Val(InputBox(“请输入 Y(i)：”) Next i X = Val(InputBox (“请输入 x：”) For i = 10 To 1 Step -1 IfU 【8】 /UThen Y(i + 1) = X Exit For End If Y (i + 1) =Y(i) Next i Print Y(10) For i =1 To 11 Print Y(i) Nex
21、t I（分数：2.00）填空项 1:_44.有如下过程： Sub SS(ByVal X，ByRef Y，Z) X=X + 1 Y=Y + 1 Z=Z + 1 End Sub 执行该过程的事件过程如下： Private Sub Command1_Click() A = 1 B = 2 C = 3 Call SS(A，B，C) Print A；B；C End Sub 则该程序的执行结果是U 【9】 /U。（分数：2.00）填空项 1:_45.把窗体的 KeyPreview 属性设置为 True，并编写如下两个事件过程： Private Sub Form_KeyDown (KeyCode As In
22、teger，Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form_KeyPress(KeyAseii As Integer) Print KeyAscii End Sub 程序运行后，如果将 CapsLock 键锁定在大写的状态，这时按下 A 键时，则：在窗体上输出的输出结果为U 【10】 /U和U 【11】 /U。（分数：2.00）填空项 1:_46.以下程序代码使用二维数组 A 表示矩阵，实现单击命令按钮 Command1 时使矩阵的两条对角线上的元素值全为 1，其余元素值全为 0，请补充完该程序。 Private Su
23、b Command1_click() Dim A(4，4) For I=1 To 4 For J= 1 To 4 U【12】 /U=1 Next I U 【13】 /U U 【14】 /U Next J For i=1 To 4 For j=1 To 4 Print A(i，j)： Next j Print Next I End Sub（分数：2.00）填空项 1:_47.在 Visual Basic 中按文件的访问方式不同，可以将文件分为顺序文件，随机文件和U 【15】 /U。（分数：2.00）填空项 1:_二级 VISUAL+BASIC 笔试 67 答案解析(总分：94.00，做题时间：9
24、0 分钟)一、B选择题/B(总题数：35，分数：70.00)1.某算法的空间花费 s(n)=100nlog2n+0.5 logn+ 1000n+2000，其空间复杂度为_ 。（分数：2.00）A.0(1)B.0(C.0(n1.5)D.0(nlog2 解析：2.要使一个文本框具有垂直滚动条，则应_ 。（分数：2.00）A.将其 Multiline 设置为 True，同时将 scrollbars 属性设置为 0B.将其 Multiline 设置为 True，同时将 scrollbars 属性设置为 1C.将其 Multiline 设置为 True，同时将 scrollbars 属性设置为 2 D.
25、将其 Multiline 设置为 True，同时将 scrollbars 属性设置为 3解析：3.在窗体上画一个命令按钮，然后编写如下事件过程： Prevate Sub Command1_ Click() x=0 Do Until x=-1 a= InputBox(“请输入 A 的值”) a= Val (A) b=InputBox(“请输入 B 的值”) b=Val (b) x=InputBox(“请输入 x 的值”) x=Val (x) a=a+ b+ x Loop Print a End Sub 程序运行后，单击命令按钮，依次在输入对话框中输入 5、4、3、2、1、-1，则输出结果为_ 。
26、（分数：2.00）A.2 B.3C.14D.15解析：4.下列符号常量的声明中，_ 是不合法的。（分数：2.00）A.Const a As Single =1.1B.Const d As Integer =“12” C.Const b As Double = Sin(1)D.Const c As String = “OK”解析：5.下列程序段的执行结果为_。S= 0: T= 0: U=0For X = 1 To 3 For Y = 1 To X For Z = Y To 3 S= S +1 Next Z T=T+1 Next Y U=U+1Next XPrint S; T;U（分数：2.00）
27、A.3 6 14B.14 6 3 C.14 3 6D.16 4 3解析：6.单击一次命令按钮之后，下更程序代码的执行结果为_ 。 Public Sub Proc(a() As Integer) Static i As Integer Do a(i) = a(i) + a(i + 1) i=i+1 Loop While i 2 End Sub Private Sub Command1_Cliek() Dim m As Integer Dim i As Integer Dim x(10) As Integer For i = 0 To 4 x(i) = i + 1 Next i For i = 1
28、 To 2 Call Proc (x) Next i For i = 0 To 4 Print x(i); Next i End Sub（分数：2.00）A.3 4 7 5 6B.3 5 7 4 5 C.1 2 3 4 5D.1 2 3 5 7解析：7.下列程序段的执行结果是_。 i=0 For j = 10 To 19 Step 3 i=i+1 Next j Print I（分数：2.00）A.4 B.5C.3D.6解析：8.为使图像框的大小自动适应图像的大小，则应_ 。（分数：2.00）A.将其 Autosize 属性值设置为 TrueB.将其 Autosize 属性值设置为 FalseC
29、.将其 Stretch 属性值设置为 TrueD.将其 Stretch 属性值设置为 False 解析：9.下面_ 机制允许对一个函数名给出多个函数定义。（分数：2.00）A.封装性B.继承性C.函数重载D.多态性 解析：10.数据库逻辑设计阶段分为_ 。（分数：2.00）A.收集和分析、建立 ER 模型、数据库模式设计B.模型设计和应用程序设计 C.概念设计、逻辑设计、物理设计D.设计，建立 ER 模型和模式设计解析：11.用二维表来表示实体及实体之间联系的数据模型称为_ 。（分数：2.00）A.实体联系模型B.层次模型C.网状模型D.关系模型 解析：12.当将 E-R 模型转换为关系模型时
30、，对于两实体间 m: n 联系，必须对“联系”单独建立_ ，用来联系双方实体。（分数：2.00）A.一个实体B.一个属性C.一个指针D.一个关系 解析：13.执行下列程序段时，分别在输入框中输入 2、4、6，则执行结果是_。 Dim A(4) As Integer Dim B(4) As Integer For i = 0 To 2 A(i + 1) = Val (InputBox (“请输入数据”) B(3 - i) = A(i + 1) Next i Print B(i)（分数：2.00）A.2 B.4C.6D.8解析：14.栈和队列_ 。（分数：2.00）A.共同之处在于二者都是先进先出
31、的特殊的线性表B.共同之处在于二者都是先进后出的特殊的线性表C.共同之处在于二者都只允许在顶端执行删除操作 D.没有共同之处解析：15.23 有如下程序段，该程序段循环的次数是_。 Dim i As Integer Dim j As Integer Dim k As Integer k=0 For i = 0 To 10 Step 3 For j = 1 To 5 If j 3 Then k = k + 4: Exit For k=k+1 Print k Next j If i 8 Then Exit For Next i（分数：2.00）A.9B.10C.11D.12 解析：16.如果只允许
32、在列表框中每次只能选择一个列表项时，则应将其 Multiselect 属性设置为_ 。（分数：2.00）A.0 B.1C.2D.3解析：17.在程序代码中清除图片框 Picture1 中的图形的正确语句是_ 。（分数：2.00）A.Picture1. picture=“”B.Picture1picture=Loadpicture (“ ”) C.Picture1. image=“”D.Picture1. picture=Null解析：18.下列程序段执行后，执行的结果是_ 。 Dim M(10) Dim N(10) i=3 For j = 1 To 5 M(j) = j N(i) = 2 *
33、i + j Next j Print N(i); M(i)（分数：2.00）A.12 4B.11 3 C.3 11D.10 2解析：19.假定已在窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先应执行的操作是_。（分数：2.00）A.单击窗体上没有控件的地方 B.单击任一个控件C.不执行任何操作D.双击窗体的标题栏解析：20.要使一个标签透明且不具有边框，则应_ 。（分数：2.00）A.将其 BackStyle 属性设置为 0，BorderStyle 属性设置为 0B.将其 BackStyle 属性设置为 0，BorderStyle 属性设置为 1 C.将其 Ba
34、ckStyle 属性设置为 1，BorderStyle 属性设置为 0D.将其 BackStyle 属性设置为 1，BorderStyle 属性设置为 1解析：21.结构程序设计的 3 种结构是_ 。（分数：2.00）A.顺序结构、选择结构、转移结构B.分支结构，等价结构，循环结构C.多分支结构赋值结构、等价结构D.顺序结构、选择结构、循环结构 解析：22.若深度为 5 的完全二叉树的第 5 层有 3 个叶结点，则该二叉树一共有_ 个结点。（分数：2.00）A.15B.16C.17D.18 解析：23.下列程序执行后，执行的结果是_ 。 Dim M(2) For i = 1 To 2 M(i)
35、 = 0 Next i k=2 For i = 1 To k For j = 1 To k M(j) = M(i) + 1 Print M(k): Next j Next I（分数：2.00）A.1234B.0123C.0223 D.2345解析：24.某窗体中有如图所示的各种控件： （分数：2.00）A.文本框B.框架C.命令按钮D.复选框 解析：25.表达式 2*32+2*8/4+32 的值为_ 。（分数：2.00）A.64B.31 C.49D.22解析：26.“软件危机”产生的主要原因是_ 。（分数：2.00）A.软件日益庞大 B.开发方法不当C.开发人员编写程序能力差D.没有维护好软件
36、解析：27.编写如下事件过程: Private Sub Form_ MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single) If Shift = 6 And Button = 2 Then Print “Hello” End If End Sub 程序运行后，为了在窗体上输出“Hello”，应在窗体上执行以下_ 操作。（分数：2.00）A.同时按下 Shift 键和鼠标左按钮B.同时按下 Shift 键和鼠标右按钮C.同时按下 Ctrl、Alt 键和鼠标左按钮D.同时按下 Ctrl、Alt 键和鼠标右按
37、钮 解析：28.下列程序执行后，分别输入 5，10，则输出的结果是_ 。 a= InputBox (“请输入数据” End Sub Private Sub Command1_ Click () Test 2 End Sub（分数：2.00）A.23 47 B.5 11C.10 22D.23 29解析：30.如果要在任何新建的模块中自动插入 option Explicit 语句，则应采用下列_ 操作步骤。（分数：2.00）A.在“工具”莱单中选取“选项”命令，打开“选项”对话框，单击“编辑器”选项卡，选中“要求变量声明”选项 B.在“编辑”菜单中执行“插入文件”命令。C.在“工程”菜单中执行“添
38、加文件”命令。D.以上操作均不对解析：31.分层 DFD 图是一种比较严格又易于理解的描绘方式，它的顶层图的作用在于_ 。（分数：2.00）A.描绘了系统的实现细节B.表明了被开发系统的范围以及它和周围环境的数据交换关系 C.描绘了系统的抽象D.描绘了软件实现的作者和绘制的时间解析：32.窗体中有 3 个按钮 Command1、Command2 和 Command3，该程序的功能是当单击按钮 Command1 时，按钮2 可用，按钮 3 不可见，正确的程序是 Private Sub Command1_Click() Command2. Visible=False Command3. Enabl
39、ed=True End Sub Private Sub Commnd1_Click() Command2. Visible=False Command3. Enabled=False End Sub Private Sub Command1_Click() Command2. Enabled=True Command3. Visible=False End Sub Private Sub Command1_Click() Command2. Visible=True Command3. Enabled=True End Sub（分数：2.00）A.B.C. D.解析：33.下列程序段的执行结果
40、是_。 option base 1 private eommand1_c1ick () Dim A(10) Dim E(5) For i = 1 To 10 A(i) = i Next i For j = 1 To 5 B(j) = j * 20 Next j A(5) = B(2) Print “A(5)=”; A(5) End sub（分数：2.00）A.A(5)=20B.A(5)=30C.A(5)=40 D.A(5)=50解析：34.下列程序段的执行结果是_。 i=4 j:5 Do i=i+1 j=j+2 Loop Until i = 7 Print “j=”; j（分数：2.00）A.
41、j=10B.j=11 C.j=12D.j=13解析：35.以下叙述中正确的是_ 。（分数：2.00）A.窗体的 Name 属性指定窗体的名称，用来标识一个窗体 B.窗体的 Name 属性的值是显示在窗体标题栏中的文本C.可以在运行期间改变对象的 Name 属性的值D.对象的 Name 属性值必须在运行时设置，不能在设计时设置。解析：二、B填空题/B(总题数：12，分数：24.00)36.深度为 n(n0)的二叉树最多有U 【1】 /U个结点。（分数：2.00）填空项 1:_ （正确答案：2 n-1）解析：37.目前，有两种重要的高级语言，分别是结构化程序和U 【2】 /U。（分数：2.00）填
42、空项 1:_ （正确答案：面向对象程序设计）解析：38.对象还有操作，用于改变对象的状态，对象及其操作就是对象的U 【3】 /U。（分数：2.00）填空项 1:_ （正确答案：行为）解析：39.结构化分析方法的基本思想是采用U 【4】 /U方法，分析整个系统，有效的控制系统开发的复杂性。（分数：2.00）填空项 1:_ （正确答案：面向数据流）解析：40.数据库管理系统(DBMS)是数据库的机构，通常由数据定义语言、数据控制语言，U 【5】 /U和一些实用程序四部分组成。（分数：2.00）填空项 1:_ （正确答案：数据操纵）解析：41.下面程序段的输出结果是U 【6】 /U。 p = 0 s
43、 = 0 Do p = p + 2 s = s + p Loop While p11 Print “s=”; s（分数：2.00）填空项 1:_ （正确答案：s=42）解析：42.下面程序段的输出结果是U 【7】 /U。 For X=1.5 To 5 Step 1.5 Print X； Next X（分数：2.00）填空项 1:_ （正确答案：1.5 3 4.5）解析：43.以下程序段的作用是首先按降序输入 10 个数到数组 Y 的前 10 个元素中，又输入一个 YO 插入到数组 Y中，插入 YO 后 Y 中的数据仍按降序排列。请补充完该程序_。 Dim Y(1 To 11) For i =1
44、 To 10 Y(i) = Val(InputBox(“请输入 Y(i)：”) Next i X = Val(InputBox (“请输入 x：”) For i = 10 To 1 Step -1 IfU 【8】 /UThen Y(i + 1) = X Exit For End If Y (i + 1) =Y(i) Next i Print Y(10) For i =1 To 11 Print Y(i) Next I（分数：2.00）填空项 1:_ （正确答案：X Y(i)）解析：44.有如下过程： Sub SS(ByVal X，ByRef Y，Z) X=X + 1 Y=Y + 1 Z=Z +
45、 1 End Sub 执行该过程的事件过程如下： Private Sub Command1_Click() A = 1 B = 2 C = 3 Call SS(A，B，C) Print A；B；C End Sub 则该程序的执行结果是U 【9】 /U。（分数：2.00）填空项 1:_ （正确答案：1 3 4）解析：45.把窗体的 KeyPreview 属性设置为 True，并编写如下两个事件过程： Private Sub Form_KeyDown (KeyCode As Integer，Shift As Integer) Print Chr(KeyCode) End Sub Private S
46、ub Form_KeyPress(KeyAseii As Integer) Print KeyAscii End Sub 程序运行后，如果将 CapsLock 键锁定在大写的状态，这时按下 A 键时，则：在窗体上输出的输出结果为U 【10】 /U和U 【11】 /U。（分数：2.00）填空项 1:_ （正确答案：10 A 11 65）解析：46.以下程序代码使用二维数组 A 表示矩阵，实现单击命令按钮 Command1 时使矩阵的两条对角线上的元素值全为 1，其余元素值全为 0，请补充完该程序。 Private Sub Command1_click() Dim A(4，4) For I=1 To 4 For J= 1 To 4 U【12】 /U=1 Next I U 【13】 /U U 【14】 /U Next J For i=1 To 4 For j=1 To 4 Print A(i，j)： Next j Print Next I End Sub（分数：2.00）填空项 1:_
