[计算机类试卷]国家二级VB机试（选择题）模拟试卷126及答案与解析.doc

1、国家二级 VB机试（选择题）模拟试卷 126 及答案与解析 一、选择题 1 下列数据结构中，能够按照 “先进后出 “原则存取数据的是 ( )。 （ A）循环队列 （ B）栈 （ C）队列 （ D）二叉树 2 下列数据结构中，属于非线性结构的是 ( )。 （ A）循环队列 （ B）带链队列 （ C）二叉树 （ D）带链栈 3 软件设计中模块划分应遵循的准则是 ( )。 （ A）低内聚低耦合 （ B）高内聚低耦合 （ C）低内聚高耦合 （ D）高内聚高耦合 4 在软件开发中，需求分析阶段产生的主要文档是 ( )。 （ A）可行性分析报告 （ B）软件需求规格说明书 （ C）概要设计说明书 （ D）

2、集成测试计划 5 数据流图中带有箭头的线段表示的是 ( )。 （ A）控制流 （ B）事件驱动 （ C）模块调用 （ D）数据流 6 在软件开发中，需求分析阶段可以使用的工具是 ( )。 （ A） N S图 （ B） DFD图 （ C） PAD图 （ D）程序流程图 7 耦合性和内聚性是对模块独立性度量的两个标准。下列叙述中正确的是 ( )。 （ A）提高耦合性降低内聚性有利于提高模块的独立性 （ B）降低 耦合性提高内聚性有利于提高模块的独立性 （ C）耦合性是指一个模块内部各个元素间彼此结合的紧密程度 （ D）内聚性是指模块间互相连接的紧密程度 8 数据库应用系统中的核心问题是 ( )。

3、（ A）数据库设计 （ B）数据库系统设计 （ C）数据库维护 （ D）数据库管理员培训 9 在 E R图中，用来表示实体联系的图形是 ( )。 （ A）椭圆形 （ B）矩形 （ C）菱形 （ D）三角形 10 有三个关系 R、 S和 T如下：则关系 T是由关系 R和 S通过某种操作得到，该操作为 ( )。 （ A）选择 （ B）投影 （ C）交 （ D）并 11 以下叙述中错误的是 ( )。 （ A）标准模块文件的扩展名是 .bas （ B）标准模块文件是纯代码文件 （ C）在标准模块中声明的全局变量可以在整个工程中使用 （ D）在标准模块中不能定义过程 12 （ A） 1 （ B） 0 （

4、 C） 3 （ D）出现错误提示 13 设 a 4， b 5， c 6，执行语句 Print a b And b c后，窗体上显示的是( )。 （ A） True （ B） False （ C）出错信息 （ D） 0 14 执行下列语句： strInput InputBox(“请输入字符串 “， “字符串对话框 “， “字符串 “) 将显示输入对话框。此时如果直接单击 “确定 “按钮，则变量 strInput的内容是( )。 （ A）请输入字符串 （ B）字符串对话框 （ C）字符串 （ D）空字符串 15 以下变量名中合法的是 ( )。 （ A） x2 1 （ B） print （ C） s

5、tr_n （ D） 2x 16 把数学表达式 表示为正确的 VB表达式应该是 ( )。 （ A） (5x 3)/(2y 6) （ B） （ C） （ D） (x*5 3)/(y*2 6) 17 下面是求最大公约数的函数的首部： Function gcd(ByVal x As Integer， ByVal y As Integer)As Integer 若要输出 8、 12、 16这 3个数的最大公约数，下面正确的语句是 ( )。 （ A） Print gcd(8,12)， gcd(12,16)， gcd(16,8) （ B） Print gcd(8,12,16) （ C） Print gcd(

6、8)， gcd(12)， gcd(16) （ D） Print gcd(8， gcd(12,16) 18 若在窗体模块的声明部分声明了如下自定义类型和数组： Private Type rec Code As Integer Caption As String End Type Dim arr(5)As rec 则下面的输出语句中正确的是 ( )。 （ A） Print arr.Code(2)， arr.Caption(2) （ B） Print arr.Code， arr.Caption （ C） Print arr(2).Code， arr(2).Caption （ D） Print Cod

7、e(2)， Caption(2) 19 为把圆周率的近似值 3.14159存放在变量 pi中，应该把变量 pi定义为 ( )。 （ A） Dim pi As Integer （ B） Dim pi(7)As Integer （ C） Dim pi As Single （ D） Dim pi As Long 20 （ A） 30 （ B） 31 （ C） 49 （ D） 48 21 设窗体上有一个列表框控件 List1，含有若干列表项。以下能表示当前被选中的列表项内容的是 ( )。 （ A） List1.List （ B） List1.ListIndex （ C） List1.Text （ D）

8、 List1.Index 22 在窗体上画一个文本框 (名称为 Text1)和一个标签 (名称为 Label1)，程序运行后，在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数。以下可以实现上述操作的事件过程是 ( )。 （ A） Private Sub Text1_Change() Label1.Caption Str(Len(Text1.Text) End Sub （ B） Private Sub Text1_Click() Label1.Caption Str(Len(Text1.Text) End Sub （ C） Private Sub Text1_Change() L

9、abel1.Caption Text1.Text End Sub （ D） Private Sub Label1_Change() Label1.Caption Str(Len(Text1.Text) End Sub 23 设窗体上有名称为 Option1的单选按钮，且程序中有语句： If Option1.Value True Then 下面语句中与该语句不等价的 是 ( )。 （ A） If Option1.Value Then （ B） If Option1 True Then （ C） If Value True Then （ D） If Option1 Then 24 设窗体上有 1个

10、水平滚动条，已经通过属性窗口把它的 Max属性设置为 1，Min属性设置为 100。下面叙述中正确的是 ( )。 （ A）程序运行时，若使滚动块向左移动，滚动条的 Value属性值就增加 （ B）程序运行时，若使滚动块向左移动，滚动条的 Value属性值就减少 （ C）由于滚动条的 Max属性值小 于 Min属性值，程序会出错 （ D）由于滚动条的 Max属性值小于 Min属性值，程序运行时滚动条的长度会缩为一点，滚动块无法移动 25 为了对多个控件执行操作，必须选中这些控件。下列不能选中多个控件的操作是 ( )。 （ A）按住 Alt键，不要松开，然后单击每个要选中的控件 （ B）按住 Sh

11、ift键，不要松开，然后单击每个要选中的控件 （ C）按住 Ctrl键，不要松开，然后单击每个要选中的控件 （ D）拖动鼠标画出一个虚线矩形，使所选中的控件位于这个矩形内 26 在窗体上画一个文本框，其名称为 Text1，为了在程序运行后隐藏该文本框，应使用的语句为 ( )。 （ A） Text1.Clear （ B） Text1.Visible False （ C） Text1.Hide （ D） Text1.Enabled False 27 设窗体上有一个标签 Label1和一个计时器 Timer1， Timer1的 Interval属性被设置为 1000， Enabled属性被设置为 T

12、rue。要求程序运行时每秒在标签中显示一次系统当前时间。以下可以实现上述要求的事件过程是 ( )。 （ A） Private Sub Timer1_Timer() Label1.Caption True End Sub （ B） Private Sub Timer1_Timer() Label1.Caption Time$ End Sub （ C） Private Sub Timer1_Timer() Label1.Interval 1 End Sub （ D） Private Sub Timer1_Timer() For k 1 To Timer1.Interval Label1.Capti

13、on Timer Next k End Sub 28 窗体上有一 个名称为 CD1的通用对话框控件和由四个命令按钮组成的控件数组Command1，其下标从左到右分别为 0、 1、 2、 3，窗体外观如图所示。命令按钮的事件过程如下： Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 CD1.Action 1 Case 1 CD1.ShowSave Case 2 CD1.Action 5 Case 3 End End SelectEnd Sub对上述程序，下列叙述中错误的是 ( )。 （ A）单击 “打开

14、“按钮，显示打开文件的对话框 （ B）单击 “保存 “按钮，显示保存文件的对话框 （ C）单击 “打印 “按钮，能够设置打印选项，并执行打印操作 （ D）单击 “退出 “按钮，结束程序的运行 29 用来设置文字字体是否斜体的属性是 ( )。 （ A） FontUnderline （ B） FontBold （ C） FontSlope （ D） FontItalic 30 窗体上有一个名称为 Timer1的计时器控件，一个名称为 Shape1的形状 控件，其 Shape属性值为 3(Circle)。编写程序如下： Private Sub Form_Load() Shape1.Top 0 Tim

15、er1.Interval 100 End Sub Private Sub Timer1_Timer() Static x As Integer Shape1.Top Shape1.Top 100 x x 1 If x Mod 10 0 Then Shape1.Top 0 End If End Sub 以下关于上述程序的叙述中，错误的 是 ( )。 （ A）每执行一次 Timer1_Timer事件过程， x的值都在原有基础上增加 1 （ B） Shape1每移动 10次回到起点，重新开始 （ C）窗体上的 Shape1由下而上移动 （ D） Shape1每次移动 100 31 现有如下程序： P

16、rivate Sub Command1_Click() s 0 For i 1 To 5 s s f(5 i) Next Print s End Sub Public Function f(x As Integer) If x 10 Then t x 1 Else t x 2 End If f t End Function 运行程序，则窗体上显示的是 ( )。 （ A） 38 （ B） 49 （ C） 61 （ D） 70 32 窗体上有一个名称为 Picture1的图片框控件，一个名称为 Label1 的标签控件，如图所示。 现有如下程序： Public Sub display(x As C

17、ontrol) If TypeOf x Is Label Then x Caption “计算机等级考试 “ Else xPicture LoadPicture(“pic.jpg“) End IfEnd SubPrivate Sub Label1_Click() Call display(Label1)End SubPrivate Sub Picture1_Click() Call display(Picture1)End Sub对以上程序，下列叙述中错误的是 ( )。 （ A）程序运行时会出错 （ B）单击图片框，在图片框中显示一幅图片 （ C）过程中的 x是控件变量 （ D）单击标签，在标

18、签中显示一串文字 33 设有如下通用过程： Public Function Fun(xStr As String)As String Dim tStr As String， strL As Integer tStr “ strL Len(xStr) i 1 Do While i strL / 2 tStr tStr & Mid(xStr， i， 1)& Mid(xStr， strL i 1， 1) i i 1 Loop Fun tStr End Function 在窗体上画一个名称为 Command1的命令按钮。然后编写如下的事件过程： Private Sub Command1_Click()

19、 Dim S1 As String S1 “abcdef“ Print UCase(Fun(S1) End Sub 程序运行后，单击命令按钮，输出结果是 ( )。 （ A） ABCDEF （ B） abcdef （ C） AFBECD （ D） DEFABC 34 某人为计算 n！ (0n 12)编写了下面的函数过程： Private Function fun(n As Integer)As Long Dim p As Long p 1 For k n 1 To 2 Step 1 p p * k Next k fun p End Function 在调试时发现该函数过程产生的结果是错误的，程序

20、需要修改。下面的修改方案中有 3种是正确的，错误的方案是 ( )。 （ A）把 p 1改为 p n （ B）把 For k n 1 To 2 Step 1 改为 For k 1 To n 1 （ C）把 For k n 1 To 2 Step 1 改为 For k 1 To n （ D）把 For k n 1 To 2 Step 1 改为 For k 2 To n 35 窗体上的三个命令按钮构成名称为 Command1的控件数组。如图所示。程序如下： Private Sub Command1_Click(Index As Integer) If Index 1 Then Print“计算机等级

21、考试 “ End If If Index 2 Then Print Command1(2).Caption End IfEnd Sub运行程序，单击 “命令按钮 2“，则如下叙述中正确的是 ( )。 （ A） Print Command1(2).Caption语句有错 （ B）在窗体上显示 “命令按钮 2“ （ C）在窗体上显示 “命令按钮 3“ （ D）在窗体上显示 “计算机等级考试 “ 36 下面程序的执行结果是 ( )。 Private Sub Command1_Click() a 0 k 1 Do While k4 x k k a k k 1 Print x； Loop End Sub

22、 A) 1 4 27 B) 1 1 1 C) 1 4 9 D) 0 0 0 （ A） 1 4 27 （ B） 1 1 1 （ C） 1 4 9 （ D） 0 0 0 37 设有如图所示窗体和以下程序： Private Sub Command1_Click() Text1.Text “Visual Basic“End SubPrivate Sub Text1_LostFocus() If Text1.Text“BASIC“Then Text1.Text “ Text1.SetFocus End IfEnd Sub程序运行时，在 Text1文本框中输入 “Basic“(如图所示 )，然后单击 Co

23、mmand1按钮，则产生的结果是 ( )。 （ A）文本框中无内容，焦点在文本框中 （ B）文本框中为 “Basic“，焦点在文本框中 （ C）文本框中为 “Basic“，焦点在按钮上 （ D）文本框中为 “Visual Basic“，焦点在按钮上 38 窗体上有一个名称为 Command1的命令按钮，其事件过程如下： Private Sub Command1_Click() x “VisualBasicProgramming“ a Right(x， 11) b Mid(x， 7， 5) c MsgBox(a ， ， b) End Sub 运行程序后单击命令按钮。以下叙述中错误的是 ( )。

24、（ A）信息框的标题是 Basic （ B）信息框中的提示信息是 Programming （ C） c的值是函数的返回值 （ D） MsgBox的使用格式有错 39 在窗体上画一个名称为 Command1的命令按钮，再画两个名称分别为 Label1、Label2的标签，然后编写如下程序 代码： Private X As Integer Private Sub Command1_Click() X 5： Y 3 Call proc(X， Y) Label1.Caption X Label2.Caption Y End Sub Private Sub proc(a As Integer， ByVa

25、l b As Integer) X a * a Y b b End Sub 程序运行后，单击命令按钮，则两个标签中显示的内容分别是 ( )。 （ A） 25和 3 （ B） 5和 3 （ C） 25和 6 （ D） 5和 6 40 在窗体上画一个名为 Command1的命令按钮，然后编写以下程序： Private Sub Command1_Click() Dim M(10)As Integer For k 1 To 10 M(k) 12 k Next k x 8 Print M(2 M(x) End Sub 运行程序，单击命令按钮，在窗体上显示的是 ( )。 （ A） 6 （ B） 5 （ C

26、） 7 （ D） 8 41 下列叙述中 正确的是 ( )。 （ A）程序执行的效率与数据的存储结构密切相关 （ B）程序执行的效率只取决于程序的控制结构 （ C）程序执行的效率只取决于所处理的数据量 （ D）以上说法均错误 42 下列与队列结构有关联的是 ( )。 （ A）函数的递归调用 （ B）数组元素的引用 （ C）多重循环的执行 （ D）先到先服务的作业调度 43 对下列二叉树 进行前序遍历的结果为 ( )。 （ A） DYBEAFCZX （ B） YDEBFZXCA （ C） ABDYECFXZ （ D） ABCDEFXYZ 44 个栈的初始状态为空。现将元素 1， 2， 3， A，

27、B， C依次入栈，然后再依次出栈，则元素出栈的顺序是 ( )。 （ A） 1， 2， 3， A， B， C （ B） C， B， A， 1， 2， 3 （ C） C， B， A， 3， 2， 1 （ D） 1， 2， 3， C， B， A 45 下面属于白盒测试方法的是 ( )。 （ A）等价类射分法 （ B）逻辑覆盖 （ C）边界值分析法 （ D）错误推测法 46 下面对对象概念描述正确的是 ( )。 （ A）对象间的通信靠消息传递 （ B）对象是名字和方法的封装体 （ C）任何对象必须有继 承性 （ D）对象的多态性是指一个对象有多个操作 47 软件设计中模块划分应遵循的准则是 ( )。

28、（ A）低内聚低耦合 （ B）高耦合高内聚 （ C）高内聚低耦合 （ D）以上说法均错误 48 下面描述中不属于数据库系统特点的是 ( )。 （ A）数据共享 （ B）数据完整性 （ C）数据冗余度高 （ D）数据独立性高 49 数据库设计过程不包括 ( )。 （ A）概念设计 （ B）逻辑设计 （ C）物理设计 （ D）算法设计 50 有三个关系 R、 S和 T如下： 则由关系 R和 S得到 关系 T的操作是 ( )。 （ A）皂签连接 （ B）交 （ C）投影 （ D）并 51 下面操作中，不能正确保存正在编辑的工程的是 ( )。 （ A）鼠标右键单击 “工程资源管理器窗口 ”中该工程的图

29、标，在弹出的菜单中选“保存工程 ” （ B）单击 “文件 ”菜单，在下拉菜单中选 “保存工程 ” （ C）单击 “工程 ”菜单，在下拉菜单中选 “保存工程 ” （ D）直接单击工具栏上的 安钮 52 下面为单精度实型 (即单精度浮点型 )变量的是 ( )。 （ A） x$ （ B） x& （ C） x! （ D） x# 53 语句： Print Int(Rnd*5+20)的输出不可能是 ( )。 （ A） 20 （ B） 22 （ C） 24 （ D） 25 54 设变量 x的值是 845，则下面语句的输出是 ( )。 Print x 100+(x Mod 100) 10+x Mod 10 （

30、 A） 17 （ B） 548 （ C） 845 （ D） 485 55 有下面的程序段： x=InputBox(”字符串 ”， ”输入 ”， ”请输入 ”) Print x 如果执行上面程序段时没有从键盘输入任何内容就直接按了回车 键，则输出内容是( )。 （ A）字符串 （ B）输入 （ C）请输入 （ D）空白 (即未输出任何内容 ) 56 在下面语句或函数中，不能描述选择结构的是 ( )。 （ A） If语句 （ B） IIf函数 （ C） Select Case语句 （ D） While语句 57 如果要在语句： a=Array(1， 2， 3， 4， 5)的前面声明变量 a，则正确

31、的声明是( )。 （ A） Dim a(4) As Integer （ B） Dim a(5)As Variant （ C） Dim a(1 To 5) As Integer （ D） Dim a As Variant 58 在 VB中，函数过程与子程序过程的区别之一是 ( )。 （ A）函数过程必须有参数，而子程序过程可以没有 （ B）函数过程的参数传递只采用值传递，而子程序过程只采用地址传递 （ C）在程序中，子程序过程调用的代码可以写在表达式中，而函数过程不能 （ D）函数过程有返回值，而子程序过程没有 59 设有以下定义语句： Private Type point x As Integ

32、er y As Integer End Type Dim a As point 下面语句中正确的是 ( )。 （ A） a=12 （ B） a x=12 （ C） point=12 （ D） point x=12 60 下面关于 VB数据文件的叙述中错误的是 ( )。 （ A） VB数据文件不包括 VB的窗体文件 （ B） VB应用程序可以用随机方式读写数据文件 （ C） VB应用程序在读写数据文件之前，必须用 Open语句打开该文件 （ D） VB应用程序不能把一个二维表格中的数据存入文件 61 为使文本框具有初始值 “VB”，在设计阶段正确的操作是 ( )。 （ A）选中该文本框，在属性窗

33、口中把 Text属性的值改为 “VB” （ B）选中该文本框，在属性窗口中把 Caption属性的值改为 “VB” （ C）双击该文本框，在弹出的窗口中输入 “VB” （ D）单击该文本框，在该文本框中直接输入 “VB” 62 下列控件中，不响应 Click事件的是 ( )。 （ A）框架 （ B）标签 （ C）图像框 （ D）形状 63 下面关于命令按钮的叙述中错误的是 ( )。 （ A）命令按钮 上可以显示图片 （ B）命令按钮上的文字就是其 Caption属性的值 （ C）在程序运行过程中，不能改变命令按钮的标题 （ D）运行程序时，当命令按钮获得焦点后，按下 Enter键也能激活它的

34、Click事件 64 设窗体上有一个名称为 Check1的复选框，并有下面程序代码： Private Sub Checki_MouseDown(Button As Integer， X As Single， Y As Single) Check1 Value=1 End Sub 根据上面的事件过程， 可以得出结论 ( )。 （ A）鼠标单击该复选框，复选框的标题被改为 “1” （ B）鼠标右键单击该复选框，可以选中该复选框 （ C）鼠标左键单击该复选框，它被选中，右键单击它，取消选中 （ D）鼠标右键单击该复选框，它被选中，左键单击它，取消选中 65 设窗体上有 1个名称为 HScroll1的

35、水平滚动条，其 Max、 Min属性分别设置为100、 1；有 2个名称分别为 Optionl、 Option2的单选按钮，其标题分别为 “30”、 “50”；还有下面程序代码： Private Sub Option1_Click() HScroll1=Val(Option1 Caption) End Sub Private Sub Option2_Click() HScroll1=Val(Option2 Caption) End Sub 程序运行时，单击 Option2单选按钮，则滚动条上滚动框的位置是 ( )。 （ A）在最左边 （ B）在最右边 （ C）在中间 （ D）在中间偏左的位置

36、66 设窗体上有一个名称为 List1的列表框，并有若干列表项 。下面语句中不能在所有列表项之后追加一个列表项的是 ( )。 （ A） List1 List(List1 ListCount)=“VB程序 “ （ B） List1 List(List1 ListCount-1)=“VB程序 “ （ C） List1 AddItem“VB程序 “ （ D） List1 Addhem“VB程序 “， Listl ListCount 67 设窗体上有一个名称为 Timer1的计时器控件，其 Interval属性被设置为 500，Enabled属性被设置为 True；还有一个名称为 Text1的文本框和

37、 下面的事件过程： Private Sub Timer1_Timer() Static x As Long x=x+1 Text1=x End Sub 程序运行一段时间后，文本框中显示的是 100，则表示 ( )。 （ A）程序已经运行了 100秒 （ B）程序已经运行了 100毫秒 （ C）程序已经运行了 50秒 （ D）文本框到窗体左边框的距离是 100 68 有下面事件过程： Private Sub Form_MouseMove(Button As Integer， Shift As Integer， X As Single，Y As Single) If Button=2 Then F

38、orm1 PSet(X， Y) PSet方法可以在 X， Y处画一个点 End If End Sub 程序运行后，产生的效果是 ( )。 （ A）在窗体上每单击鼠标左键一次，就在鼠标位置处画一个点 （ B）按着鼠标左键，移动鼠标，可在窗体上画出鼠标的运动轨迹 （ C）按着鼠标右键，移动鼠标，可在窗体上画出鼠标的运动轨迹 （ D）不按任何鼠标键，移动鼠标，可在窗体上画出鼠标的运动轨迹 69 下面关于控件数组的叙述中正确的是 ( )。 （ A）控件数组中所有控件的名称相同，但其 Index属性值各不相同 （ B）控件数组中所有控件的名称相同，但其 Value属性值各不相同 （ C）控件数组中每个元

39、素都是独立的控件，因此都有各自的事件过程 （ D）上述都是错误的 70 下面关于菜单的叙述中正确的是 ( )。 （ A）为了使得选中一个菜单项就可以执行某种操作 ，要为它的 Click事件过程编写执行该操作的代码 （ B）同一级菜单中的菜单项不能同名，但不同级菜单中的菜单项可以同名 （ C）只能使用鼠标右键把弹出式菜单弹出来 （ D）弹出式菜单中的菜单项不能再有自己的子菜单 71 有下面程序代码： Private Sub Command1_Click() For k=5 To 1 Step-1 x=k+x*10 Next k Print x End Sub 程序运行后，单击命令 按钮 Comm

40、andl，输出结果是 ( )。 （ A） 12345 （ B） 54321 （ C） 15 （ D） 150 72 有下面程序代码： Private Sub Command1_Click() a=3 s=0 For k=1 To 5 s=s+a Mod k a=a+k Next k Print s End Sub 程序运行后，单击命令按钮 Command1，输出结果是 ( )。 （ A） 15 （ B） 13 （ C） 4 （ D） 1 73 有下面程序代码： Private Sub Command1_Click() Dim sign As Integer sign=1 a=1 b=2 For

41、 k=1 To 5 c=a+sign*b a=b b=c Print C； sign=-sign Next k End Sub 程序运行后，单击命令按钮 Command1，输出结果是 ( )。 （ A） 3 -1 2 -3 -1 （ B） 3 5 8 13 21 （ C） -1 1 -2 -1 -1 （ D） 3 4 5 6 7 74 有下面程序代码： Private Sub Command1_Click() Dim a As String a=“COMPUTER“ n=search(a， “T“) Print IIf(n=0， “未找到 “， n) End SUd Private Funct

42、ion search(str As String， ch As String)As Integer For k=1 To Len(str) c=Mid(str， k， 1) If c=ch Then search=k Exit Function End If Next k search=0 End Funcfion 程序运行后，单击命令按钮 Command1，输出结果是 ( )。 （ A） 0 （ B） 8 （ C） 6 （ D）未找到 75 有下面程序代码： Private Sub Command1_Click() a=Array(1， 2， 3， 4， 5， 6， 7， 8， 9， 10)

43、 n=UBound(a) For k=0 To UBound(a) 2 Print a(k)*a(n)； n=n-1 Next k End Sub 程序运行后，单击命令按钮 Commandl，输出结果是 ( )。 （ A） 2 6 12 20 30 （ B） 2 12 20 56 90 （ C） 30 28 24 18 10 （ D） 10 18 24 28 30 76 有下面程序代码： Private Sub Command1_Click() Dim x As Integer， s As Integer x=1 For k=1 To 3 x=x+1 proc x s=s+x Next k P

44、rint s End Sub Private Sub proc(ByVal a As Integer) Static x As Integer x=x+1 a=a+x End Sub 程序运行后，单击命令按钮 Command1，输出结果是 ( )。 （ A） 6 （ B） 9 （ C） 15 （ D） 19 77 窗体上有 1个 Timerl计时器， 1个 Shape1形状控件，还有下面程序代码： Dim flag As Boolean Private Sub Form_Load() flag=True Timer1 Enabled=True Timer1 Interval=1000 End

45、Sub Private Sub Timer1_Timer() If flag Then Shape1 Height=Shape1 Height*2 Shape1 Width=Shape1 Width*2 Else Shape1 Height=Shape1 Height*0 5 Shape1 Width=Shape1 Width*0 5 End If flag=Not flag End Sub 执行程序所产生的效果是 ( )。 （ A） Shape1形状的尺寸在缩小到原来一半和恢复原状这 2种状态间切换，每秒切换一次 （ B） Shape1形状的尺寸在扩大到原来 2倍和恢复原状这 2种状态间切换

46、，每秒切换一次 （ C） Shape1形状的尺寸在缩小到原来一半和扩大到原来 2倍这 2种状态间切换，每秒切换一次 （ D） Shape1形状的尺寸会不断扩大 78 有下面程序代码： Option Base 1 Private Sub Command1_Click() Dim a(10)As Integer， x， b x=InputBox(“请输入一个多位整数 “) For k=1 To Len(x) b=Mid(x， k， 1) a(Val(b)+1)=a(val(b)+1)+1 Next k For k=1 To 10 Print a(k)； Next k End Sub 程序运行时，单击命令按钮 Command1，输入 2355270224，则输出是 ( )。