【计算机类职业资格】计算机二级(VB)11及答案解析.doc

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

1、计算机二级(VB)11 及答案解析(总分：1765.00，做题时间：90 分钟)一、选择题(每小题 2 分，共 70 分) 下列各(总题数：25，分数：1750.00)1.下面的程序的运行结果是( )。 a=1 b=1 Do a=a2 b= b + 1 Loop Until b5 Print “k=“；a；Spc(4)；“b=“；b + a （分数：70.00）A.ComputerB.什么都没有C.* * * * * * * *D.程序出错2.下列程序段的执行结果为（ ）。 a=75 If a60 Then I=1 If a70 Then I=2 If a80 Then I=3 If aA.I

2、=1B.I=2C.I=3D.I=43.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click() Dim c As Integer, d As Integer d = 0 c = 6 x = Array(2, 4, 6, 8, 10, 12) For i = 1 To 6 If x(i) c Then d = d + x(i) c = x(i) Else d = d - c End If Next Print d End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为_。（分数：70

3、.00）A.10B.16C.12D.204.以下关于 KeyPress 事件过程中参数 KeyAscii 的叙述中正确的是_。 （分数：70.00）A.KeyAscii 参数是所按键的 ASCII 码B.KeyAscii 参数的数据类型为字符串C.KeyAscii 参数可以省略D.KeyAscii 参数是所按键上标注的字符5.下列程序段的执行结果为（ ）。 a=3 b=1 For I=1 To 3 f=a + b a=b b=f Print f Next I （分数：70.00）A.4 3 6B.4 5 9C.6 3 4D.7 2 86.设 x=4,y=6，则以下不能在窗体上显示出“a=10“

4、的语句是_。 （分数：70.00）A.Print A=x+yB.Print “A=“;x+yC.Print “A=“+str(x+y)D.Print “A=“ End Sub 程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上显示的内 容是_。 （分数：70.00）A.Visual BasicB.程序设计C.Visual Basic 程序设计D.a 程序设计18.设有如下程序： Option Base 1 Private Sub Command1_Click( ) Dim a(10) As Integer Dim n As Integer n=InputBox(“输入数据”)

5、If n_19.执行下面的程序后，输出的结果是( )。 K=1 For j=1 To 4 X=X - 1: y=0 For k=1 To 4 X=X + 1: y=y + 1 Next k Next j Print X；y （分数：70.00）A.1 4B.13 4C.12 8D.20 620.有如下程序段，该程序段执行完后，执行循环的次数是( )。 total=0 Counter=1 Do Print Counter total=total + Counter Print total Counter=Counter+1 If total10 Then Exit Do End If Loop

6、While Counter =10 （分数：70.00）A.5B.10C.15D.2021.使用语句 Dim A(2) As Integer 声明数组 A 之后，以下说法正确的是（ ）。（分数：70.00）A.public void static main(String args ) . B.void public static main(String args ) . C.static public void main(String args ) . D.以上都不正确22.用来设置文本框有无滚动条的属性是（ ）。（分数：70.00）A.在 File1 中的 Change 事件中，输入 Fil

7、e1Path=Dir1PathB.在 Dirl 中的 Change 事件中，输入 File1Path=Dir1PathC.在 File1 中的 Change 事件中，输入 Dir1Path=File1PathD.在 Dir1 中的 Change 事件中，输入 Dir1Path=File1Path23.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command_Click( ) S=0 Do s=(s + 1) * (s +2) Number=Number+1 Loop Until S=30 Print Number，S End Sub 程序运行后，输出的结果是( )

8、。 （分数：70.00）A.2 3B.3 182C.5 12D.10 2024.以下关于图片框控件的说法中，错误的是（ ）。 （分数：70.00）_25.单击命令按钮时，下列的执行结果为( )。 Private Sub Command1_Click() Dim x As Integer，y As Integer x=86：y=29 Call Proc(x，y) Print x；y End Sub Public Sub Proc(n As Integer，ByVal m As Integer) n=n Mod 10 m=m Mod 10 End Sub （分数：70.00）A.PictureBo

9、x 和 DataB.Frame 和 ImageC.PictureBox 和 FrameD.Image 和 Data26.树是结点的集合，它的根结点数目是( )。（分数：-1.00）A.有且只有 1 个B.1 或多于 1 个C.0 或 1 个D.至少 2 个27.结构化程序设计主要强调的是( )。（分数：-1.00）A.程序的规模B.程序的效率C.程序设计语言的先进性D.程序易读性28.n 个顶点的强连通图的边数至少有( )。（分数：-1.00）A.n-1B.n(n-1)C.nD.n+129.为了避免流程图在描述程序逻辑时的灵活性，提出了用方框图来代替传统的程序流程图，通常也把这种图称为( )。

10、（分数：-1.00）A.PAD 图B.N-S 图C.结构图D.数据流图30.下列叙述中正确的是( )。（分数：-1.00）A.线性表是线性结构B.栈与队列是非线性结构C.线性链表是非线性结构D.二叉树是线性结构31.树是结点的集合，它的根结点数目是( )。（分数：-1.00）A.有且只有 1 个B.1 或多于 1 个C.0 或 1 个D.至少 2 个32.索引属于( )。（分数：-1.00）A.模式B.内模式C.外模式D.概念模式33.下列说法中，不属于数据模型所描述的内容的是( )。（分数：-1.00）A.数据结构B.数据操作C.数据查询D.数据约束34.最常用的一种基本数据模型是关系数据模

11、型，它的表示应采用( )。（分数：-1.00）A.树B.网络C.图D.二维表35.下列有关数据库的描述，正确的是( )。（分数：-1.00）A.数据库是一个 DBF 文件B.数据库是一个关系C.数据库是一个结构化的数据集合D.数据库是一组文件三、填空题（每空 2 分，共 30 分）(总题数：10，分数：30.00)36.在窗体上添加一个文本框控件 Info，画一个命令按钮，当单击命令按钮显示“保存文件”对话框，设置该对话框可用于保存文本文件(默认)和可执行文件(exe)，然后在文本控件中显示保存的文件名。 Private Sub Command1_Click1 CommonDialog1Fil

12、ter= 2 CommonDialog1FilterIndex= 3 CommonDialog1ShowSave InfoText= 4 End Sub （分数：3.00）填空项 1:_37.窗体上有两个按钮，则执行程序后按键盘 Cancel 键的输出结果是 1。 Private Sub Command1 _ Click2 Print“北京“； End Sub Private Sub Command2 _ Click3 Print“南京“； End Sub Private Sub Form _ Load4 Command2CancelTrue Command1Cancel=True End S

13、ub （分数：3.00）填空项 1:_38.在 KeyPress 事件过程中，KeyAscii 是所按键的 1 值。（分数：3.00）填空项 1:_39.数据结构分为逻辑结构和存储结构，循环队列属于 1 结构。（分数：3.00）填空项 1:_40.把窗体的 KeyPreView 属性设置为 True，并编写如下两个事件过程： Private Sub Form_KeyDown(KeyCode As Integer，Shift As Integer) Print KeyCode End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Print

14、 KeyAscii End Sub 程序运行后，如果按下 B 键，则在窗体上输出的数值是 1 和 2。 （分数：3.00）填空项 1:_41.在有下面一个程序段从文本框中输入数据，如果该数据满足条件，除以 6 余 2，脓以 5 余 3，则输出否则，特焦点定位在文本框中，并清除文本框的内容。 Private Sub Command1_Click1 num=Val(Text1Text) If 2Then Print num Else Text1Text=“ “ 3 End If End Sub （分数：3.00）填空项 1:_42.将 C 盘根目录下的图形文件 moon.jpg 装入图片框 Pic

15、ture1 的语句是 1。（分数：3.00）填空项 1:_43.用户可以用 1 语句定义自己的数据类型。（分数：3.00）填空项 1:_44.在窗体上画 1 个命令按钮，其名称为 Command1，然后编写如下事件过程： Private Sub Command1_Click1 Dim arr(1 To 100) As Integer For i = 1 To 100 arr(i) = Int(Rnd * 1000) Next i Max = arr(1) Min = arr(1) For i = 1 To 100 If 2 Then Max = arr(i) End If If 3 Then

16、Min = arr(i) End If Next i Print “Max=“; Max, “Min=“; Min End Sub 程序运行后，单击命令按钮，将产生100 个 1000 以内的随机整数，加入数组 arr 中，然后 查找并输出这 100 个数中的最大值 Max 和最小值Min，请填空。 （分数：3.00）填空项 1:_45.下述语句段在运行时的显示结果是 1。 Cis x=1034 + 8 Print Len(x) （分数：3.00）填空项 1:_46.当数据的物理结构(存储结构、存取方式等)改变时，不影响数据库的逻辑结构，从而不至于引起应用程序的变化，这是指数据的 1。 （分数

17、：-1.00）填空项 1:_47. 1 是一种信息隐蔽技术，目的在于将对象的使用者和对象的设计者分开。（分数：-1.00）填空项 1:_48.在面向对象的程序设计中，类描述的是具有相似性质的一组 1。（分数：-1.00）填空项 1:_49.在面向对象的设计中，用来请求对象执行某一处理或回答某些信息的要求称为 1。（分数：-1.00）填空项 1:_50.数据库系统阶段的数据具有较高独立性，数据独立性包括物理独立性和 1 两个含义。（分数：-1.00）填空项 1:_计算机二级(VB)11 答案解析(总分：1765.00，做题时间：90 分钟)一、选择题(每小题 2 分，共 70 分) 下列各(总题

18、数：25，分数：1750.00)1.下面的程序的运行结果是( )。 a=1 b=1 Do a=a2 b= b + 1 Loop Until b5 Print “k=“；a；Spc(4)；“b=“；b + a （分数：70.00）A.ComputerB.什么都没有C.* * * * * * * * D.程序出错解析：程序中添加注释语句是为了提高程序的可读性，一般格式为： Rem 注释内容或注视内容；注释语句是非执行语句，仅对程序的有关内容起注释作用，它不被解释和编译，故选项 A)和选项 B)没有错误；任何字符都可以在注释行中作为注释内容，注释语句通常放在过程、模块的开头作为标题用，也可放在执行语

19、句(单行或者复合语句行)的后面，但不可以放在续行符的后面，所以选项 c)没有错误；所以本题的正确答案是选项 D)。2.下列程序段的执行结果为（ ）。 a=75 If a60 Then I=1 If a70 Then I=2 If a80 Then I=3 If aA.I=1B.I=2C.I=3D.I=4 解析：此题为 If Then 结构的条件语句，如果 a60，则 I=1 如果 a 70，则 I=2；如果 a80，则 I=3；如果 a3.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click()

20、 Dim c As Integer, d As Integer d = 0 c = 6 x = Array(2, 4, 6, 8, 10, 12) For i = 1 To 6 If x(i) c Then d = d + x(i) c = x(i) Else d = d - c End If Next Print d End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为_。（分数：70.00）A.10B.16C.12 D.20解析：Array 函数是为数组赋值，而 Option Base 1 是用来设置数组下标是从 1 开始。本题中，由于刚开始 c 的值为 6，故前三个数组值

21、不大于 c，执行三次 d = d-c，d=-18；而后三个数组值都大于 c，执行三次 d = d+ x(i)，d=-18+8+10+12=12。4.以下关于 KeyPress 事件过程中参数 KeyAscii 的叙述中正确的是_。 （分数：70.00）A.KeyAscii 参数是所按键的 ASCII 码 B.KeyAscii 参数的数据类型为字符串C.KeyAscii 参数可以省略D.KeyAscii 参数是所按键上标注的字符解析：KeyPress 事件的 KeyAscii 参数返回用户所按键的 ASCII 码，类型为整型；它不是按键上的字符；并且 KeyAscii 参数不可以省略。5.下列程

22、序段的执行结果为（ ）。 a=3 b=1 For I=1 To 3 f=a + b a=b b=f Print f Next I （分数：70.00）A.4 3 6B.4 5 9 C.6 3 4D.7 2 8解析：本题考查的是 For 循环结构语句，现在看程序段是如何运行的。 开始 a=3，b=1。For 循环中步长缺省值为 1，循环变量 I 的初值为 1，终值为 3，所以此循环结构可以循环 3 次。 第一次循环后，结果为：f=4，a=1，b=4 第二次循环后，结果为：f=5，a=4，b=5 第三次循环后，结果为：f=9，a=5，b=9 所以每循环一次，便输出 f 当前值，循环 3 次即便输出

23、 3 个 f 值分别为 4，5，9。 6.设 x=4,y=6，则以下不能在窗体上显示出“a=10“的语句是_。 （分数：70.00）A.Print A=x+y B.Print “A=“;x+yC.Print “A=“+str(x+y)D.Print “A=“ End Sub 程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上显示的内 容是_。 （分数：70.00）A.Visual BasicB.程序设计C.Visual Basic 程序设计 D.a 程序设计解析：因为程序一运行，文本框 Text1 获得焦点，按下“a”键后，执行 Text1_KeyDown 事件，在窗体上显 示

24、“Visual Basic”；这时再单击窗体，则触发 Form_MouseUp 事件，在窗体上显示“程序设计”。18.设有如下程序： Option Base 1 Private Sub Command1_Click( ) Dim a(10) As Integer Dim n As Integer n=InputBox(“输入数据”) If n_解析：19.执行下面的程序后，输出的结果是( )。 K=1 For j=1 To 4 X=X - 1: y=0 For k=1 To 4 X=X + 1: y=y + 1 Next k Next j Print X；y （分数：70.00）A.1 4B.

25、13 4 C.12 8D.20 6解析：本题是一个多重循环语句，是 ForNext 结构的两重迭用，根据 “拨皮法”，一层一层分析可知，最后 x=13，y=4。20.有如下程序段，该程序段执行完后，执行循环的次数是( )。 total=0 Counter=1 Do Print Counter total=total + Counter Print total Counter=Counter+1 If total10 Then Exit Do End If Loop While Counter =10 （分数：70.00）A.5 B.10C.15D.20解析：本题考查 DoLoop While

26、语句，共执行了 5 次，total=1+2+3+4 +510。21.使用语句 Dim A(2) As Integer 声明数组 A 之后，以下说法正确的是（ ）。（分数：70.00）A.public void static main(String args ) . B.void public static main(String args ) . C.static public void main(String args ) . D.以上都不正确解析：javap.exe 是 Java 类的分解器，即对class 文件提供字节代码的反汇编，并打印。默认时，打印类的公共域、方法、构造方法、静态初值

27、。注意：javacexe，Java 的编译器，能将源文件编译成字节码文件；jdbexe，Java 调试器如编译器返回程序代码错误，可用它对程序调试，它是解释器的拷贝；jdbdocexe，Java 文档生成器，对 Java 源文件和包以 HTML 格式产生文档。22.用来设置文本框有无滚动条的属性是（ ）。（分数：70.00）A.在 File1 中的 Change 事件中，输入 File1Path=Dir1PathB.在 Dirl 中的 Change 事件中，输入 File1Path=Dir1Path C.在 File1 中的 Change 事件中，输入 Dir1Path=File1PathD.

28、在 Dir1 中的 Change 事件中，输入 Dir1Path=File1Path解析：菜单控件的主要属性有：Caption、Name、Index、Enabled、Visible 等，其中 Enabled 和 Visible属性值为逻辑值，Visible 属性用于表示菜单项是否可见，Enabled 属性用于表示菜单项是否可用。当Enabled 属性值为 False 时，表示菜单项当前不可 用，属性值为 True 时，表示菜单项可用。23.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command_Click( ) S=0 Do s=(s + 1) * (s +2)

29、 Number=Number+1 Loop Until S=30 Print Number，S End Sub 程序运行后，输出的结果是( )。 （分数：70.00）A.2 3B.3 182 C.5 12D.10 20解析：在该题中，考查的知识点是 DoLoop Until 语句，Number 记录循环次数，S=30 为控制语句，当Number=1 时，s=2；当 Number=2 时，s=12；当 Number =3 时，s=18230，故结束运行。24.以下关于图片框控件的说法中，错误的是（ ）。 （分数：70.00）_解析：25.单击命令按钮时，下列的执行结果为( )。 Private

30、Sub Command1_Click() Dim x As Integer，y As Integer x=86：y=29 Call Proc(x，y) Print x；y End Sub Public Sub Proc(n As Integer，ByVal m As Integer) n=n Mod 10 m=m Mod 10 End Sub （分数：70.00）A.PictureBox 和 DataB.Frame 和 ImageC.PictureBox 和 Frame D.Image 和 Data解析：在 Visual Basic 中有两类过程，一类是系统提供的内部函数和事件过程； 另一类是

31、用户根据自己的需要定义的，供事件过程的多次调用，而第二类过程中，我们现 在涉及最多的是子过程。它们的共同点都是完成某种特定功能的一组程序代码；不同的 是函数是带有返回值的特殊过程，所以函数过程定义时有返回值的类型说明。 26.树是结点的集合，它的根结点数目是( )。（分数：-1.00）A.有且只有 1 个 B.1 或多于 1 个C.0 或 1 个D.至少 2 个解析：树是一个或多个结点组成的有限集合，其中一个特定的结点称为根，其余结点分为若干个不相交的集 合。每个集合同时又是一棵树。树有且只有 1 个根结点。27.结构化程序设计主要强调的是( )。（分数：-1.00）A.程序的规模B.程序的效

32、率C.程序设计语言的先进性D.程序易读性 解析：结构化程序设计方法的主要原则可以概括为自顶向下、逐步求精、模块化及限制使用 goto 语句，总的来说可使程序结构良好、易读、易理解、易维护。28.n 个顶点的强连通图的边数至少有( )。（分数：-1.00）A.n-1B.n(n-1)C.n D.n+1解析：在有向图中，若任意两个顶点都连通，则称该图是强连通图，这样的有向图的形状是环状，因而至少应有 n 条边。29.为了避免流程图在描述程序逻辑时的灵活性，提出了用方框图来代替传统的程序流程图，通常也把这种图称为( )。（分数：-1.00）A.PAD 图B.N-S 图 C.结构图D.数据流图解析：常见

33、的过程设计工具有：程序流程图，N-s 图、PAD 图和 HIPO 图。其中，为了避免流程图在描述程序逻辑时的灵活性，提出了用方框图来代替传统的程序流程图，通常也把这种图称为 N-S 图。30.下列叙述中正确的是( )。（分数：-1.00）A.线性表是线性结构 B.栈与队列是非线性结构C.线性链表是非线性结构D.二叉树是线性结构解析：线性表是一种线性结构，数据元素在线性表中的位置只取决于它们自己的序号，即数据元素之间的相对位置是线性的；栈、队列、线性链表实际上也是线性表，故也是线性结构；树是一种简单的非线性结构。31.树是结点的集合，它的根结点数目是( )。（分数：-1.00）A.有且只有 1

34、个 B.1 或多于 1 个C.0 或 1 个D.至少 2 个解析：树是一个或多个结点组成的有限集合，其中一个特定的结点称为根，其余结点分为若干个不相交的集 合。每个集合同时又是一棵树。树有且只有 1 个根结点。32.索引属于( )。（分数：-1.00）A.模式B.内模式 C.外模式D.概念模式解析：内模式(Internal Schema)又称物理模式(Physical Schema)，它给出了数据库物理存储结构与物理存取方法，如数据存储的文件结构、索引、集簇及 hash 等存取方式与存取路径。33.下列说法中，不属于数据模型所描述的内容的是( )。（分数：-1.00）A.数据结构B.数据操作C

35、.数据查询 D.数据约束解析：数据模型所描述的内容有 3 个部分，它们是数据结构、数据操作和数据约束。其中，数据模型中的数据结构主要描述数据的类型、内容、性质，以及数据库的联系等；数据操作主要是描述在相应数据结构上的操作类型与操作方式。34.最常用的一种基本数据模型是关系数据模型，它的表示应采用( )。（分数：-1.00）A.树B.网络C.图D.二维表 解析：关系数据模型用统一的二维表结构表示实体及实体之间的联系(即关系)。35.下列有关数据库的描述，正确的是( )。（分数：-1.00）A.数据库是一个 DBF 文件B.数据库是一个关系C.数据库是一个结构化的数据集合 D.数据库是一组文件解析

36、：数据库(Database，简称 DB)是数据的集合，它具有统一的结构形式并存放 统一的存储介质内，是多种应用数据的集成，并可被各个应用程序所共享。数据库中的数据具有“集成”、“共享”的特点。三、填空题（每空 2 分，共 30 分）(总题数：10，分数：30.00)36.在窗体上添加一个文本框控件 Info，画一个命令按钮，当单击命令按钮显示“保存文件”对话框，设置该对话框可用于保存文本文件(默认)和可执行文件(exe)，然后在文本控件中显示保存的文件名。 Private Sub Command1_Click1 CommonDialog1Filter= 2 CommonDialog1Filte

37、rIndex= 3 CommonDialog1ShowSave InfoText= 4 End Sub （分数：3.00）填空项 1:_ （正确答案：“文本文件(*txt)|*.txt|可执行文件(exe)|*exe*”）解析：要设置通用对话框可用于保存文本文件和 Word 文档，需要设置通用对话框的 Filter 属性值，在这里应该填写的是“文本文件(*txt)|*txt|可执行文件(exe)| *.exe”；在文件类型栏内通过下拉列表选择要显示的文件类型，而最初默认显示的文件类型(过滤器)可以由 FilterIndex 属性来指定，该属性是一个整数。用 Filter 属性设置多个过滤器后，

38、每个过滤器都有一个值，第一个过滤器的值为 1，第二个过滤器的值为 2，用 FilterIndex 属性可以指定作为默认显示的过滤器，对于本题要想使文本文件为默认的类型，只需设置 FilterIndex 属性值为 1 即可；选择了需要保存的文本文件或 Word 文档后，应该让文件的文件名显示在文本框中，因此需要将通用对话框中选择的文件赋给文本控件，即将对话框的FileTitle 属性值赋给文本框的 Text 属性。37.窗体上有两个按钮，则执行程序后按键盘 Cancel 键的输出结果是 1。 Private Sub Command1 _ Click2 Print“北京“； End Sub Pri

39、vate Sub Command2 _ Click3 Print“南京“； End Sub Private Sub Form _ Load4 Command2CancelTrue Command1Cancel=True End Sub （分数：3.00）填空项 1:_ （正确答案：北京）解析：窗体中只能有一个 CommandButton 控件为取消按钮。当一个 CommandButton 控件的 Cancel 属性被设置为 True 时，窗体中其他 CommandButton 控件的 Cancel 属性自动地被设置为 False。当 CommandBuuon控件的 Cancel 属性被设置为

40、True，而且当前窗体处于活动状态时，按 Cancel 键可以触发该按钮 Click事件，而不管该控件是否获得焦点。本题开始时 Command2 的 Caned 属性为 True，但随后由于 Command1的该属性变为 True， Command 2 的 Cancel 属性变为 False，因此按 Cancel 键后执行 Command1 _ Click事件。38.在 KeyPress 事件过程中，KeyAscii 是所按键的 1 值。（分数：3.00）填空项 1:_ （正确答案：ASCII）解析：当按下键盘上的某个键时，触发 KeyPress 事件过程，该事件用到的 KeyAscii 作为

41、参数，此参数是一个预定义的变量，执行 KeyPress 事件过程时，KeyAscii 是所按键的 ASCII 码。 39.数据结构分为逻辑结构和存储结构，循环队列属于 1 结构。（分数：3.00）填空项 1:_ （正确答案：逻辑）解析：所谓数据的逻辑结构，是指反映数据元素之间逻辑关系的数据结构；而数据的逻辑结构在计算机存 储空间中的存放形式称为数据的存储结构（也称数据的物理结构）。在数据的存储结构中，不仅要存放各数 据元素的信息，还需要存放各数据元素之间的前后件关系的信息。而所谓循环队列，就是将队列存储空间 的最后一个位置绕到第一个位置，形成逻辑上的环状空间，供队列循环使用。所以循环队列不需要

42、存放元 素之间的前后件关系，故它属于逻辑结构。40.把窗体的 KeyPreView 属性设置为 True，并编写如下两个事件过程： Private Sub Form_KeyDown(KeyCode As Integer，Shift As Integer) Print KeyCode End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Print KeyAscii End Sub 程序运行后，如果按下 B 键，则在窗体上输出的数值是 1 和 2。 （分数：3.00）填空项 1:_ （正确答案：66）解析：KeyDown 事件是返回的是键盘

43、的直接状态，返回的是“键”，所以当按字母“B”时KeyDown 得到的 KeyCode 码与按字母键“b”是相同的，所以程序输出为 66；当按下键盘上的某个键时将发生KeyPress，KeyPress 并不反映键盘的直接状态，当按下字母“B”时，与按下字母“b”时，对 KeyPress来说，所得到的 ASCII 码是不样的，KeyPress 事件用来识别按键的 ASCII 码，所以按下“B”键，KeyAscii 的值为 98。41.在有下面一个程序段从文本框中输入数据，如果该数据满足条件，除以 6 余 2，脓以 5 余 3，则输出否则，特焦点定位在文本框中，并清除文本框的内容。 Private

44、 Sub Command1_Click1 num=Val(Text1Text) If 2Then Print num Else Text1Text=“ “ 3 End If End Sub （分数：3.00）填空项 1:_ （正确答案：num Mod6=2 And num Mod 5=3）解析：程序调用了 Val-|_|-函数从文本框中的得到数据。本题中先通过 Val-|_|-函数得到一个整数，进行条件判断，如果满足条件 num Mod 6=2 And num Mod 5=3 则输出 num；否则，将清空文本框，焦点落在文本框中，应使用语句 TextSetFocus。 42.将 C 盘根目录下

45、的图形文件 moon.jpg 装入图片框 Picture1 的语句是 1。（分数：3.00）填空项 1:_ （正确答案：Picture1.picture=loadpicture(“c:/moon.jpg”)）解析：43.用户可以用 1 语句定义自己的数据类型。（分数：3.00）填空项 1:_ （正确答案：TyPe）解析：用户可以用 TyPe 语句来定义数据类型，格式是： Type 数据类型名 数据类型元素名 As类型名 数据类型元素名 As 类型名 EndType 其中“数据类型名”是要定义的数据类型的名字，其命名规则和变量的命名规则相同；“数据类型元素名”也遵守相同的规则，且不能是数组名；“类型名”可以是任何基本数据类型，也可以是用户定义的类型。 44.在窗体上画 1 个命令按钮，其名称为 Command1，然后编写如下事件过程： Private Sub Command1_Click1 Dim arr(1 To 100) As Integer For i = 1 To 100 arr(i) = Int(Rnd * 1000) Next i Max = arr(1) Min = arr(1) For i = 1 To 100 If 2 Then Max = arr(i) End If If 3 Then Min = arr(i) End