2009年9月全国计算机等级考试二级VB笔试试题及答案
全国计算机二级《VB》练习题及答案
全国计算机二级《VB》练习题及答案全国计算机二级《VB》练习题及答案9月计算机等级考试将于9月23日-26日举行,目前处于紧张的备考阶段,以下是店铺搜索整理的一份全国计算机二级《VB》练习题及答案,供参考练习,预祝考生们考出自己理想的成绩!想了解更多相关信息请持续关注我们店铺!1.双击窗体中的对象后,VB将显示的窗口是(C)(单)A.工具箱B.项目(工程)窗口C.代码窗口D.属性窗口2.下述选项中,VB的程序设计方法是(B)(单)A.面向对象、顺序驱动B.面向对象、事件驱动C.面向过程、事件驱动D.面向过程、顺序驱动3.在VB中,要将一个窗体装载到内存进行变量初始化等预处理,但没有显示该窗体,应使用的方法或语句是(C)(单)A.ShowB.UnloadC.LoadD.Hide4.文本框的默认属性是(B)(单)A.CaptionB.TextD.Top5.标签默认属性是(A)(单)A.CaptionD.Top6.执行以下程序段:a$="abbacddcba"For I=6 To 2 Step -2X=Mid(a,I,I)Y=Left(a,I)z=Right(a,I)z=Ucase(X&Y&z)Next IPrint z输出结果为(B)(单)A.ABAB.BBABBAC.ABBABAD.AABAAB7.在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:Option Base 1Private Sub Command1_Click( )Dim a As Varianta=Array(1,2,3,4,5)Sum=0For I=1 To 5Sum = sum+a(I)Next Ix=Sum/5For I =1 To 5If a(I)>x Then Print a(I);End Sub程序运行后,单击命令按钮,在窗体上显示的内容是(D)(单)A.1 2B.1 2 3C.3 4 5D.4 58.假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Model2组成。
2009年全国计算机等级考试二级VB笔试试题(1)-中大网校
2009年全国计算机等级考试二级VB笔试试题(1)总分:100分及格:60分考试时间:90分一、单项选择题(每小题2分,共70分)(1)设在菜单编辑器中定义了一个菜单项,名为menu1。
为了在运行时显示该菜单项,应使用的语句是A. menu1.Enabled=TrueB. menu1.Enabled=FalseC. menu1.Visible=TrueD. menu1.Visible=False(2)以下合法的Visual Basic标识符是A. DoWhileB. DoC. 56dD. A#BC(3)数据结构作为计算机的一门学科,主要研究数据的逻辑结构、对各种数据结构进行的运算,以及()。
A. 数据的存储结构B. 计算方法C. 数据映象D. 逻辑存储(4)以下语句正确的是()。
A. CommonDialoFilter=All Files i*.*I Pictures(*.bmp)|*.bmpB. CommonDialoFliter="All FileS"|"*.*"|"Pictures(*.bnlp)|"*.bmp"C. CommonDialoFilter=="All Files|*.*|Pictures(*.bmp)|*.bmp"D. CommonDialoFilter={ All Files |*.*| Pictures(*.bmp)|*.bmp}(5)下述关于数据库系统的叙述中正确的是A. 数据库系统中数据的一致性是指数据类型一致B. 数据库系统比文件系统能管理更多的数据C. 数据库系统减少了数据冗余D. 数据库系统避免了一切冗余(6)软件凋试的目的是()。
A. 发现错误B. 改正错误C. 改善软件的性能D. 挖掘软件的潜能(7)在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下程序:程序运行后,如果单击命令按钮,则在文本框中显示的内容是A. 0B. 14C. zD. Str(z)(8)Visual Basic 6.0变量名Num@的类型是()。
计算机等级考试二级VB笔试模拟试卷1(含答案)
计算机等级考试二级VB笔试试卷(含参考答案)一、选择题((1)—(20)每小题2分,(21)—(30)每小题3分,共70分)(1) 设窗体上有一个文本框,名称为text1,程序运行后,要求该文本框不能接受键盘输入,但能输出信息,以下属性设置正确的是:A)text1.maxlength=0 B)text1.enabled=flaseC)text1.visible=flase D)text1.width=0(2) 以下能在窗体Form1的标题栏中显示“VisualBasic窗体"的语句是A) ="VisualBasic窗体"B) Form1.Title="VisualBasic窗体"C) Form1.Caption="VisualBasic窗体"D) Form1.Text="VisualBasic窗体”(3) 在窗体上画一个名称为Text1的文本框,然后画一个名称为HScroll1的滚动条,其Min 和Max属性分别为0和100。
程序运行后,如果移动滚动框,则在文本框中显示滚动条的当前值,如图所示:以下能实现上述操作的程序段是A) Private Sub HScroll_Change()Text1.Text=HScroll1.ValueEnd SubB) Private Sub HScroll_Click()Text1.Text=HScroll1.ValueEnd SubC) Private Sub HScroll_Change()Text1.Text=HScroll.CaptionD) Private Sub HScroll_Click()Text1.Text=HScroll.CaptionEnd Sub(4) 设菜单中有一个菜单项为"Open"。
若要为该菜单命令设计访问键,即按下Alt及字母O 时,能够执行"Open"命令,则在菜单编辑器中设置“Open"命令的方式是A) 把Caption属性设置为&OpenB) 把Caption属性设置为O&penC) 把Name属性设置为&OpenD) 把Name属性设置为O&pen(5) 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()x=InputBox("Input")Select Case xCase 1,3Print "分支 1"Case Is >4Print "分支 2"Case ElsePrint "Else 分支 "End SelectEnd Sub程序运行后,如果在输入对话框中输入2,则窗体上显示的是A)分支1 B)分支2 C) Else分支 D) 程序出错(6) 以下关于MsgBox的叙述中,错误的是A) MsgBox函数返回一个整数B) 通过MsgBox函数可以设置信息框中图标和按钮的类型C) MsgBox语句没有返回值D) MsgBox函数的第一个参数是一个整数,该参数只能确定对话框中显示的按钮数量(7)在窗体上画一个名称为Timer1的计时器控件,要求每隔0.5秒发生一次计时器事件,则以下正确的属性设置语句是A)Timer1.InterVal=0.5 B) Timer1.Interval=5C) Timer.Interval=50 D) Timer1.Interval=500(8) 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()Static x As IntegerClsFor i=1 To 2y=y+xx=x+2NextPrint x,yEnd Sub程序运行后,连续三次单击Command1按钮后,窗体上显示的是A) 4 2 B) 12 18 C) 12 30 D) 4 6(9) 以下关于多重窗体程序的叙述中,错误的是A)用Hide方法不但可以隐藏窗体,而且能清除内存中的窗体B)在多重窗体程序中,各窗体的菜单是彼此独立的C)在多重窗体程序中,可以根据需要指定启动窗体D)对于多重窗体程序中,而且单独保存每个窗体(10)以下关于文件的叙述中,错误的是A)顺序文件中的记录一个接一个地顺序存放B)随机文件中记录的长度是随机的C)执行打开文件的命令后,自动生成一个文件指针D)LOF函数返回给文件分配的字节数(11) 以下叙述中错误的是A)事件过程是响应特定事件的一段程序B)不同的对象可以具有相同名称的方法C)对象的方法是执行指定操作的过程D)对象事件的名称可以由编程者指定(12) 以下合法的Visual Basic标识符是A) ForLoop B) Const C) 9abc D) a#x(13) 当一个复选框被选中时,它的Value属性的值是A) 3 B) 2 C) 1 D) 0(14) 表达式 5 Mod 3+3\5*2的值是A) 0 B) 2 C)4 D) 6(15) 设x=4,y=8,z=7,以下表达式的值是x<y And (Not y>z) Or z<xA) 1 B) -1 C) True D) False(16) 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()a$="VisualBasic"Print String(3,a$)End Sub程序运行后,单击命令按钮,在窗体上显示的内容是A) VVV B) Vis C) sic D) 11(17) 设有如下程序段:x=2For i=1 To 10 Step 2Next运行以上程序后,x的值是A) 26 B) 27 C) 38 D) 57(18) 以下叙述中错误的是A) 在KeyPress事件过程中不能识别键盘的按下与释放B) 在KeyPress事件过程中不能识别回车键C) 在KeyDown和KeyUp事件过程中,将键盘输入的"A"和"a"视作相同的字母D) 在KeyDown和KeyUp事件过程中,从大键盘上输入的"1"和从右侧小键盘上输入的"1"被视作不同的字符资料来源:东方教育网全国计算机等级考试频道 (19) 执行如下两条语句,窗体上显示的是a=9.8596Print Format(a,"$00,00.00")A) 0,009.86 B) $9.86 C) 9.86 D) $0,009.86(20)在窗体上画一个名称为CommandDialog1的通用对话框,一个名称为Command1的命令按钮。
2009年全国计算机等级考试二级VB笔试试题
第一套客观题第一题:是非题(共10分,每项1分)1. ActiveX部件是可以重复使用的编程代码和数据。
A.对B.错2. 窗体的Enabled属性设为False时,窗体题的按钮、文本框控件就不会对用户的操作做出反应。
A.对B.错3. 每一个控件实质上都是一个微型程序。
AA.对B.错4. 在程序运行过程中,变量中的值不会改变,而常量中的值会被改变。
A.对B.错5. 用Dim语句声明变量时,VB系统不仅为变量分配相应数据类型的内在空间,而且还为变量赋所需的初值。
A.对B.错6. 定义菜单项时,可以不设置分隔线的菜单项控件名称。
A.对B.错7. 在事件驱动的应用程序中,代码是按照预定的路径执行的。
A.对B.错8. 函数调用时,实际参数与形式参数在数量必须完全一致。
A.对B.错9. 每个菜单项都是一个控件,与其他控件一样也有自己的属性和事件。
A.对B.错10. 通用过程可以放在标准模块中,也可以放在窗体模块中。
A.对B.错第二题、单选题(共45分,每项1.5分)11. 要判断“命令按钮”是否被鼠标单击,应在“命令按钮”的事件中判断。
CA.ChangB.KeyDownC.ClickD.KeyPress12. InputBox函数的返回值的类型为 B 。
A.数值B.字符串C.逻辑值D.日期值13. 要想在过程调用后返回两个结果,下面的过程定义语句合法的是A。
A.Sub Proc1(ByVal n,Byval m)B.Sub Proc1(ByVal n, m)C.Sub Proc1(n,Byval m)D.Sub Proc1(n, m)14. 下面关于打印对话框属性的说法错误的是 C 。
A.Copies属性指定打印的份数。
B.HDC属性指定分配给打印机的句柄,用来识别对象的设备环境。
C.FromPage属性指定要打印文档的页范围。
使用该属性时必须把Flags属性设置为1。
D.Max和Min属性用来显示FromPage和ToPage的范围,其中Min指定允许的起始页码,Max指定允许的最后页码。
2009年全国计算机等级考试二级VB语言模拟试卷
2009年全国计算机等级考试二级VB语言模拟试卷(三)1 在窗体上有1个名为Cd1的通用对话框,为了在运行程序时打开保存文件对话框,则在程序总应使用的语句是A)Cd1.Action=2B)Cd1.Action=1C)Cd1.ShowSave=TureD)Cd1.ShowSave=02 下面关于菜单的叙述中错误的是A)各级菜单中的所有菜单项的名称必须唯一B)同一子菜单中的菜单项名称必须唯一,但不同子菜单中的菜单项名称可以相同C)弹出式菜单也用菜单编辑器编辑D)同一子菜单中的菜单项名称必须唯一,不同子菜单中的菜单项名称不可以相同3 已知有下面的过程Private Sub proc1(a As Integer,b As String,Optional x As Boolean)……End Sub正确调用此过程的语句是A)Call procl(5)B)Call proc1 5,”abc”,FalseC)proc1(12,”abc”,True)D)proc1 5, “abc4 在窗体上有一个文件名称为Text1的文本框和1个名称为Command1的命令按钮,要求在程序执行时,每单击命令按钮一次,文本框向右移动一定距离。
下面能够正确实现上述功能的程序是A)Private Sub Command1_Click()Text1.Left=100End SubB) Private Sub Command1_Click()Text1.Left= Text1.Left-100End SubC)Private Sub Command1_Click()Text1.Move.Text.Left+100End SubD) Private Sub Command1_Click()Text1.Move.Text.LeftEnd Sub5 某人创建了1个工程,其中的窗体名称为Form1;之后又添加了1个名为Form2的窗体,并希望程序执行时先显示Form2窗体,那么,他需要做的工作是A)在工程属性对话框中把“启动对象”设置为Form2B)在Form1的Load事件过程中加入语句Load Form2C)在Form2的Load事件过程中加入语句Form2.ShowD)在Form2的TabIndex属性设置为1,把Form1的TabIndex属性设置为26 计算1+3+5+……+99的值,某人编程如下k=1s=0While k<=99k=k+2 : s=s+kWendPrint s在调试时发现运行结果有错误,需要修改。
2009年3、9月全国计算机等级考试二级VB笔试试题及答案
2009年3月28日全国计算机等级考试VB考试卷一、选择题1.下列叙述中正确的是A. 栈是“先进先出”的线性表B. 队列是“先进后出”的线性表C. 循环队列是非线性结构D. 有序线性表既可以采用顺序存储结构,也可以采用链式存储结构考核知识点:(1) 数据结构答案:D分析:栈是“先进后出”的线性表;队列是“先进先出”的线性表;循环队列是线性结构2.支持子程序调用的数据结构是A. 栈B. 树C. 队列D. 二叉树考核知识点:(1) 数据结构具体应用答案:A分析:栈是“先进后出”的线性表,栈具有记忆作用3.某二叉树有5个度为2的结点,则该二叉树中叶子结点数是A. 10B. 8C. 6D. 4考核知识点:(1) 二叉树的性质答案:C分析:二叉树的性质:度为0的结点(即叶子结点)总是比度为2的结点多一个4.下列排序方法中,最坏情况下比较次数最少的是A. 冒泡排序B. 简单选择排序C. 直接插入排序D. 堆排序考核知识点:(1) 常用算法的时间复杂度答案:D分析:交换类排序法:(1)冒泡排序法,需要比较的次数为n(n-1)/2;(2)快速排序法。
插入类排序法:(1)简单插入排序法,最坏情况需要n(n-1)/2次比较;(2)希尔排序法,最坏情况需要O(n1.5)次比较。
选择类排序法:(1)简单选择排序法,最坏情况需要n(n-1)/2次比较;(2)堆排序法,最坏情况需要O(nlog2n)次比较5.软件按功能可以分为:应用软件、系统软件和支撑软件(或工具软件)。
下面属于应用软件的是A. 编译程序B. 操作系统C. 教务管理系统D. 汇编程序考核知识点:(1) 软件的分类答案:C分析:编译程序、操作系统和汇编程序都属于系统软件6.下面叙述中错误的是A. 软件测试的目的是发现错误并改正错误B. 对被调试的程序进行“错误定位”是程序调试的必要步骤C. 程序调试通常也称为DebugD. 软件测试应严格执行测试计划,排除测试的随意性考核知识点:(1) 软件测试与调试的区别答案:A分析:软件测试的目的是发现错误,而改正错误不属于软件测试的目的,属于调试的目的7.耦合性和内聚性是对模块独立性度量的两个标准。
2009年VB省二级笔试试题及答案
安徽省2009年VB省二级笔试试题及答案一、单项选择题(每题1分,共40分)1、在计算机领域中,MIPS通常用来描述计算机的( )A)运算速度B)内存容量C)分辨率D)主频2、下面属于计算机输出设备的是( )A)显示器B)鼠标C)键盘D)扫描仪3、微型计算机在工作中突然断电,则( )中的信息全部丢失。
A)硬盘B)RAM C)ROM D)光盘4、若X是二进制1011,Y是十进制13,Z是十六进制1D,则X、Y、Z从大到小的顺序是( )。
(X、Y、Z都是无符号数)A)Z YX B)Y Z X C)XYZ D)ZXY5、在Windows中,下面关于删除文件的描述错误的是( )。
A)U盘上的文件删除后,不能从回收站中还原B)可以不经过回收站直接将文件删除C)可以将文件先复制到回收站,需要时再将其从回收站还原D)利用“清空回收站”选项可以把回收站中的文件全部删除6、下面关于E-mail功能的描述中,错误的是( )A)在发电子邮件时,可以同时发送给多人B)在发电子邮件时,可以发送附件C)在接收电子邮件时,可以将附件下载到本地计算机上D)在接收电子邮件时,必须将附件下载到本地计算机上7、为减少多媒体数据所占存储空间,常采用( )技术。
A)高速缓冲B)数据压缩C)多通道D)流媒体8、,cn中的“http”指的是( )。
A)计算机主机域名B)文件传输协议C)超文本传输协议D)TCP/IP协议9、下面关于计算机病毒的描述中,正确的是( )。
A)计算机病毒不能感染安装了杀毒软件的计算机系统B)计算机病毒只能通过网络传播C)计算机病毒不能感染加密或压缩后的文件D)计算机病毒可以通过U盘进行传播10、下面系统软件中,最核心的是( )A)编译系统B)语言处理系统C)操作系统D)数据库管理系统11、在Visual Basic 6.0的设计模式下,双击窗体上的某个控件,打开的窗口是( )A)工程资源管理窗口B)代码窗口C)属性窗口D)工具箱窗口12、以下叙述错误的是( )A)打开一个工程文件时,系统自动装入与该工程有关的窗体、标准模块等文件B)程序运行时,双击一个窗体,则触发该窗体的Dblclcik事件C)Visual Basic应用程序只能以解释方式执行D)事件可以由用户触发,也可以由系统触发13、以下不属于Visual Basic6.0系统的文件类型是( )A).Frm B).Bas C).Cpp D).Vbp14、在Visual Basic 6.0中编写代码,如果要强制显示声明变量,可在窗体模块或标准模块的声明中加入语句( )A)Option Explicit B)Option Compare C)Option Base 0 D)Option Base 115、下列选项中( )不是Visual Basic常量A“Good Luck” B)PI C)1.5E-03 D)16.341216、以下声明语句中错误的是( )A)Const varl=123 B)Dim varl=”abc”C)Public varl As Integer D)Static varl As Integer17、骰子是一个正六面体,分别用1~6代表其六个面,掷一次骰子出现的数可表示为( )A)Int(Rnd*6+1) B) Int(Rnd*6) C) Int(Rnd*7) D) Int(Rnd(6)+1)18、声明变量n为整型,执行语句n=4.5后,( )。
计算机二级考试VB考试题及答案
计算机二级考试VB考试题及答案计算机二级考试VB考试题及答案为了使广大考生在备战计算机等级考试时,更快的掌握相应知识点,下面是店铺搜索整理的计算机二级考试VB考试题及答案,供参考练习,预祝考生们考出自己理想的成绩!计算机二级考试VB考试题及答案1、窗体中有一个名称为txtSpeed的文本框,一个名称为hsbSpeed的滚动条。
以下程序:Private Sub hsbSpeed_Change( )txtSpeeD.Text = hsbSpeeD.ValueEnd Sub当单击滚动条hsbSpeed右端的箭头时,以下说法不正确的是(B) (单)A.此时会触发change事件B.此时不会触发change事件C.在文本框中显示了滚动条滑块所在位置的值D.此时不会触发scroll事件2.利用窗体中的滚动条HScroll1改变窗体的背景色,可以这样编写代码:Private Sub HScroll1_Change( )R= HScroll1.Valueform1.BackColor = RGB(R,int(Rnd*256),int(Rnd*256))End Sub以下说法不正确的是(C) (单)A.窗体的背景色是一个随机的颜色B.RGB函数取得到的颜色有256*256*256种C.表达式int(Rnd*256)取得随机数的范围为0-256之间的整数D.表达式int(Rnd*256)取得随机数的范围为0-255之间的整数3.窗体中有一个名称为Slider1的可选择性刻度滑块控件,一个名称为text1的文本框,如下程序:Private Sub Slider1_change( )Text1.FontSize =【Slider1.value】End Sub当拖动滑块时,以上程序实现用Slider控件设置文本框中的字体大小的功能。
4.窗体中有一个名称为Slider1的可选择性刻度滑块控件,一个名称为text1的文本框,如下程序:Private Sub Slider1_change( )Text1.【Fontsize】 = slider1.valueEnd Sub当拖动滑块时,以上程序实现用Slider控件设置文本框中的字体大小的功能。
2009年全国计算机等级考试二级VB笔试试题(3)-中大网校
2009年全国计算机等级考试二级VB笔试试题(3)总分:100分及格:60分考试时间:90分一、单项选择题(每小题2分,共70分)(1)下列说法错误的是A. 标准模块也称程序模块文件,扩展名是.basB. 标准模块由程序代码组成C. 标准模块只用来定义一些通用的过程D. 标准模块不附属于任何一个窗体(2)以下各项,可以作为V isual Basic变量名的是()。
A. BookB. 2_SeekC. 123.58D. Book-1(3)以下关系表达式中。
其值为False的是A. ”BCD”>”bCD”B. ”you”<>”we”C. ”BASIC”=UCase(”Basic”)D. ”double”>”doub”(4)结构化程序设计的3种结构是:()A. 顺序结构、选择结构、转移结构B. 分支结构、等价结构、循环结构C. 多分支结构、赋值结构、等价结构D. 顺序结构、选择结构、循环结构(5)程序设计方法要求在程序设计过程中()。
A. 先编制出程序,经调试使程序运行结果正确后再画出程序的流程图B. 先编制出程序,经调试使程序运行结果正确后再在程序中的适当位置处加注释C. 先画出流程图,再根据流程图编制出程序,最后经调试使程序运行结果正确后再在程序中的适当位置处加注释D. 以上三种说法都不对(6)在窗体上嚼一个命令按钮(其NAME属性为cmdFinD.,然后编写如下代码:运行上面的程序,单击命令按钮.其输出结果是A. 26B. 3678C. 5678D. 8765(7)数据处理的最小单位是A. 数据B. 数据元素C. 数据项D. 数据结构(8))以下叙述中,不准确的描述是A. Shift参数是KeyDown事件发生时,Shift、Ctrl和Ah三个键的状态B. KeyDown事件的参数与KcyUp事件的参数一致C. KeyCode参数与Keyt’tess事件的KeyAscii参数是一样的D. KeyDoven事件的参数不能省略(9)对下列二叉树进行后序遍历的结果是()。
2009年秋至2010年秋江苏省计算机二级VB考试真题及参考答案
2009秋VB考试真题及参考答案第一部分:计算机基础知识1.下列关于个人移动通信的叙述中,错误的是____A.第1代个人移动通信(简称1G)采用的通信技术是数字通信技术B.目前广泛使用的GSM手机采用的通信技术属于第2代移动通信技术(简称2G)C.第3代移动通信技术(简称3G)将无线通信与互联网、多媒体通信相结合D.3G有多个国际技术标准,其中也有我国自主制定的3G技术标准。
2.在下列有关集成电路的叙述中,正确的是2。
A.现代集成电路所使用的半导体材料都是硅B.所有的集成电路都是数字集成电路C.Moore定律认为单块集成电路的集成度平均每年翻一番D.Intel公司微处理器产品Core 2 Duo,其集成度已高达数千万个电子元件3.与十六进制数AB等值的八进制数是3 。
A. 253B.254C.171D.1724.在下列有关PC机CPU的叙述中,错误的是4。
A.CPU中包含几十个甚至上百个寄存器,用来临时存放数据、指令和控制信息B.所有PC机的CPU都具有相同的指令系统,因而PC机可使用相同的软件C.一台计算机至少包含1个CPU,也可以包含2个、4个、8个甚至更多个CPUD.Intel公司是国际上研制和生产CPU的主要公司,我国也能生产CPU5.在下列有关PC机主板上部件的叙述中,错误的是5 。
A.BIOS保存在主板上的一个闪存中,其内容在关机后通常不会改变B.CMOS中保存有用户设置的开机口令,关机后主板上的电池继续给CMOS供电C.启动CMOS设置程序可以重新设置CMOS中的数据,该程序是BIOS的组成部分D.网卡通常集成在主板上,由主板上独立的IC实现其功能,与芯片组无关6.从PC机存储器的层次结构来看,下列存储器中存取速度最快的是6 。
A.Cache存储器B.RAM和ROMC.寄存器D.硬盘和优盘7.在下列4种PC机常用I/O接口中,数据传输速率最高的是7。
A.PS/2B.SATAC.IEEE-1394bB 2.08.在下列有关I/O操作、I/O总线和I/O接口的叙述中,错误的是8。
2009年9月全国计算机等级考试二级VB笔试试题及答案
2009年9月全国计算机等级考试二级VB笔试试题及答案一、选择题(每小题2分,共70分)1.下列数据结构中,属于非线性结构的是()。
A. 循环队列B.带链队列C.二叉树D.带链栈答案C解析树均是非线性结构2. 下列数据结构中,能够按照”先进后出”原则存取数据的是()。
A. 循环队列B.栈C.队列D.二叉树答案 B 解析:栈是先进后出或后进先出的线性表3. 对于循环队列,下列叙述中正确的是()。
A.队头指针是固定不变的B.队头指针一定大于队尾指针C.队头指针一定小于队尾指针D.队头指针可以大于队尾指针,也可以小于队尾指针答案D解析:如果队头指针大于队尾指针说明队列已经循环存放数据了,如果队头指针小于队尾指针说明没有进行循环存放4. 算法的空间复杂度是指()。
A.算法在执行过程中所需要的计算机存储空间B.算法所处理的数据量C.算法程序中的语句或指令条数D.算法在执行过程中所需要的临时工作单元数答案A解析:算法的空间复杂度是指执行算法所需要的内存空间,包括算法程序所占空间,输入的初始数据所占空间和执行过程中所需要的额外空间.5. 软件设计中划分模块的一个准则是()。
A. 低内聚低耦合B. 高内聚低耦合C. 低内聚高耦合D. 高内聚高耦合答案B解析:模块内部各元素之间的联系要紧密,高内聚,模块间的连接的紧密程度要低,低耦合,这样可以提高模块的独立性.6.下列选项中不属于结构化程序设计原则的是()。
A.可封装B.自顶向下C.模块化D.逐步求精答案A7.软件详细设计产生的图如下该图是( ).A.N-S图B. PAD图C. 程序流程图D.E-R图答案C8.数据库管理系统是()。
A. 操作系统的一部分B.在操作系统支持下的系统软件C.一种编译系统D.一种操作系统答案B9.在E-R图中,用来表示实体联系的图形是()。
A.椭圆形B.矩形C.菱形D .三角形答案C10.有三个关系R,S,T 如下:RST其中关系T由关系R和S通过某种操作得到,该操作称为()。
全国计算机二级考试《VB》操作试题及答案
全国计算机二级考试《VB》操作试题及答案全国计算机二级考试《VB》操作试题及答案一、基本操作题(1)请在名称为Forml的窗体上添加一个名称为H1的水平滚动条,并在属性窗口中设置它的属性值,使其满足下列要求:它的最小刻度值为1,最大刻度值为100,在程序运行时,用鼠标单击滚动条上滚动框以外的区域(不包括两边按钮),滚动框移动10个刻度。
再在滚动条下面画两个名称分别为L1和L2的标签,并分别显示1和100,运行时的窗体如图所示。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjtl.vbp,窗体文件名为sjtl.frm。
(2)在名称为Forml的窗体上添加两个名称分别为Textl和Text2的文本框,初始内容均为空;再建立一个下拉菜单,菜单标题为“操作”,名称为M1,此菜单下含有两个菜单项,名称分别为Copy和Clear,标题分别为“复制”、“清除”,请编写适当的事件过程,使得在程序运行时,单击“复制”选项菜单,则把Textl中的内容复制到Text2中,单击“清除”选项菜单,则清除Text2中的内容(即在Text2中填入空字符串)。
运行时的窗体如图所示。
要求在程序中不得使用任何变量,每个事件过程中只能写一条语句。
注意:存盘时必须存放在考生文件夹下,工程文件名为sit2.vbp,窗体文件名为sjt2.frm。
二、简单应用题(1)在考生文件夹F有一个工程文件sjt3.vbp,窗体上已经有一个标签Labell,请添加一个单选按钮数组,名称为Opl,含三个单选按钮,它们的Index 属性分别为0、1、2,标题依次为“飞机”、“火车”、“汽车”,再添加一个名称为Textl的文本框。
窗体文件中已经给出了Opl的Click事件过程,但不完整,要求去掉程序中的注释符,把程序中的?改为正确的内容,使得在程序运行时单击“飞机”或“火车”单选按钮时,在Textl中显示“我坐飞机去”或“我坐火车去”,单击“汽车”单选按钮时,在Text1中显示“我开汽车去”,如图所示。
2009年全国计算机等级考试二级VB笔试试题
D 标记:[暂不确定答案] 第 6 题 下列叙述中正确的是 A.线性表是线性结构 B.栈与队列是非线性结构 C.线性链表是非线性结构 D.二叉树是线性结构 本题答案:
A B C D 标记:[暂不确定答案] 第 7 题 以下叙述中错误的是 A.打开一个工程文件时,系统自动装入与该工程有关的窗体、标准模块等文件 B.保存 Visual Basic 程序时,应分别保存窗体文件及工程文件 C.事件可以由用户引发,也可以由系统引发 D.Visual Basic 应用程序只能以解释方式执行 本题答案: A B C D 标记:[暂不确定答案] 第 8 题 下列操作可以打开立即窗口的是 A.Ctrl+D B.Ctrl+F C.Ctrl+G D.Ctrl+E 本题答案: A B C
程序运行后,单击命令按钮,并输入一个字符串,例如 abcde,则要求在窗体上按如下格式 显示: a bc cde de e 则在下划线处应填人的内容为 A.Right(C,i) B.Mid(c,i,i) C.Mid(c,i,1) D.Left(C,i) 本题答案:
A B C D 标记:[暂不确定答案] 第 26 题 )如果一个工程含有多个窗体及标准模块,则以下叙述中错误的是 A.如果工程中含有 Sub Main 过程,则程序一定首先执行该过程 B.不能把标准模块设置为启动模块 C.用 Hide 方法只是隐藏一个窗体.不能从内存中清除该窗体 D.任何时刻最多只有一个窗体是活动窗体 本题答案: A B C
A B C D 标记:[暂不确定答案] 第 16 题 如下事件过程:
运行时在输入框内输入变量 x 的值为 15,输出结果为 A.0 B.15 C.25 D.30 本题答案:
A B C D 标记:[暂不确定答案] 第 17 题 用树形结构来表示实体之间联系的模型称为 A.关系模型 B.层次模型 C.网状模型 D.数据模型 本题答案: A B
计算机二级VB考试题及答案
计算机二级VB考试题及答案计算机二级VB考试题及答案「篇一」1.以下程序段运行的结果为(B)(单)Private Sub Form_ClickMyDate = #7/21/1997#Print Format(MyDate, "m/d/yy")Print Format(MyDate,"yyyy年m月dd日")End SubA.7/21/97 1997年7月21日B.7-21-97 1997年7月21日C.97/7/21 1997年7月21日D.7/21/97 97年7月21日2.以下程序段运行的结果为(B)(单)Private Sub Form_ClickMyTime = #9:21:30 PM#MyDate = #7/21/1997#Print Tab(2); Format(MyDate, "mmmm-yy")Print Tab(2); Format(MyTime, "hh:mm:ss A/P")End SubA.July-97 9:21:30 PB.July-97 09:21:30 PC.07-97 9:21:30 PD.July-97 9:21:303.以下程序段运行的结果为(C)(单)Private Sub Form_ClickMyDate = #7/21/1997#Print Format(MyDate, "dddd,mmmm,dd,yyyy")End SubA.21,07,1997B.21,07,21,1997C.Monday,July,21,1997D.Monday,07,21,19974.在窗体中建立一个文本框text1和一个命令按钮command1,编写下面程序:Private Sub Text1_LostFocusIf Not IsNumeric(Text1) ThenMsgBox "帐号有非数字字符错误"Text1.Text = ""Text1.SetFocuselseMsgBox "帐号正确"End IfEnd Sub当在text1文本框中输入字符"abc"之后,单击命令按钮,结果为(B)(单)A.显示对话框,提示信息为"帐号正确"B.显示对话框,提示信息为"帐号有非数字字符错误"C.程序出错D.没有任何提示5.在窗体中建立一个文本框text1和一个命令按钮command1,编写下面程序:Private Sub Text1_LostFocusIf Not IsNumeric(Text1) ThenMsgBox "帐号有非数字字符错误"Text1.Text = ""Text1.SetFocuselseMsgBox "帐号正确"End IfEnd Sub当在text1文本框中输入数字123456之后,单击命令按钮,结果为(A)(单)A.显示对话框,提示信息为"帐号正确"B.显示对话框,提示信息为"帐号有非数字字符错误"C.程序出错D.没有任何提示6.在窗体中建立一个文本框text1和一个命令按钮command1,编写下面程序:Private Sub Command1_ClickDim I As IntegerIf Text1.Text <> "Gong" ThenI = MsgBox("密码错误", 5 + vbExclamation, "输入密码")If I <> 4 ThenEndElseText1.Text = ""Text1.SetFocusEnd IfElseMsgBox "密码帐号正确!"End IfEnd Sub若在text1中输入字符串"Gong",则程序运行结果为(A)(单)A.显示对话框,提示"密码帐号正确!"B.显示对话框,提示"密码错误"C.程序出错D.没有任何提示7.在窗体中建立一个文本框text1和一个命令按钮command1,编写下面程序:Private Sub Command1_ClickDim I As IntegerIf Text1.Text <> "Gong" ThenI = MsgBox("密码错误", 5 + vbExclamation, "输入密码")If I <>4 ThenEndElseText1.Text = ""Text1.SetFocusEnd IfElseMsgBox "密码帐号正确!"End IfEnd Sub若在text1中输入字符串"gong",则程序运行结果为(B)(单)A.显示对话框,提示"密码帐号正确!"B.显示对话框,提示"密码错误"C.程序出错D.没有任何提示8.在窗体中建立一个文本框text1和一个命令按钮command1,编写下面程序:Private Sub Command1_ClickDim I As IntegerIf Text1.Text <> "Gong" ThenI = MsgBox("密码错误", VbRetryCancle + vbExclamation, "输入密码")If I <> 4 ThenEndElseText1.Text = ""Text1.SetFocusEnd IfMsgBox "密码帐号正确!"End IfEnd Sub若在text1中输入字符串"123",显示"密码错误"对话框,关于此对话框描述正确的是(A)(单)A.显示对话框中有“重试”按钮B.显示对话框中有“确定”按钮C.显示对话框中有“是”按钮D.以上说法都不正确9.在窗体中建立三个文本框,名称分别为text1、text2和text3,还有一个名称为label1的标签,一个名称为command1的命令按钮,编写如下代码:Private Sub Command1_ClickDim x, y, z, t!x = Text1y = Text2z = Text3If x < y Thent = xx = yy = tEnd IfIf y < z Thent = yz = tIf x< y Thent = xx = yy = tEnd IfEnd IfLabel1.Caption = x & "," & y & "," & zEnd Sub当在文本框text1、text2 和 text3 中分别输入5、3和8,则标签显示的结果为(C)(单)A.3,5,8B.5,3,8C.8,5,3D.3.8.510.以下程序段:Private Sub Form_LoadDim Nop As Integer, Op As String * 1Num1 = 3Num2 = 2Nop = val(Inputbox("请输入1-4之间的整数"))Select Case NopCase 1Op = "+"Result = Num1 + Num2Case 2Op = "-"Result = Num1 - Num2Case 3Op = "×"Result = Num1 * Num2Case 4Op = "÷"Result = Num1 / Num2End SelectLabel1= Num1 & Op & Num2 & "=" & ResultEnd Sub窗体运行后,输入1,则label1的标题显示结果为(A)(单)A.3+2=5B.3-2=1C.3×2=6D.3÷2=1.511.以下程序段:Private Sub Form_LoadDim Nop As Integer, Op As String * 1Num1 = 3Num2 = 2Nop = val(Inputbox("请输入1-4之间的整数"))Select Case NopCase 1Op = "+"Result = Num1 + Num2Case 2Op = "-"Result = Num1 - Num2Case 3Op = "×"Result = Num1 * Num2Case 4Op = "÷"Result = Num1 / Num2End SelectLabel1= Num1 & Op & Num2 & "=" & ResultEnd Sub窗体运行后,输入2,则label1的标题显示结果为(B)(单)A.3+2=5B.3-2=1C.3×2=6D.3÷2=1.512.以下程序段:Private Sub Form_LoadDim Nop As Integer, Op As String * 1Num1 = 3Num2 = 2Nop = val(Inputbox("请输入1-4之间的'整数"))Select Case NopCase 1Op = "+"Result = Num1 + Num2Case 2Op = "-"Result = Num1 - Num2Case 3Op = "×"Result = Num1 * Num2Case 4Op = "÷"Result = Num1 / Num2End SelectLabel1= Num1 & Op & Num2 & "=" & ResultEnd Sub窗体运行后,输入3,则label1的标题显示结果为(C)(单) A.3+2=5B.3-2=1C.3×2=6D.3÷2=1.513.以下程序段:Private Sub Form_LoadDim Nop As Integer, Op As String * 1Num1 = 3Num2 = 2Nop = val(Inputbox("请输入1-4之间的整数")) Select Case NopCase 1Op = "+"Result = Num1 + Num2Case 2Op = "-"Result = Num1 - Num2Case 3Op = "×"Result = Num1 * Num2Case 4Op = "÷"Result = Num1 / Num2End SelectLabel1= Num1 & Op & Num2 & "=" & ResultEnd Sub窗体运行后,输入4,则label1的标题显示结果为(D)(单)A.3+2=5B.3-2=1C.3×2=6D.3÷2=1.514.以下程序段的作用是(A)(单)Private Sub Picture1_ClickDim asci As Integer, i As Integeri = 0For asci = 32 To 126Picture1.Print Tab(7 * i + 2); Chr(asci); "="; asci;i = i + 1If i = 7 Then i = 0: Picture1.PrintNext asciA.打印ASCII码表,一行7个表达式B.打印九九乘法表,一行7个表达式C.打印ASCII码表,一行8个表达式D.以上说法都不正确15.我国现在人口有13亿,按人口增长0.8%计算,多少年后我国人口将超过26亿。
2009年全国计算机等级考试二级VB笔试试题(2)-中大网校
2009年全国计算机等级考试二级VB笔试试题(2)总分:100分及格:60分考试时间:90分一、单项选择题(每小题2分,共70分)(1)设有如下的记录类型则正确引用该记录类型变量的代码是(2)下面程序段,运行后的结果是Private Sub Command1_Click()A. t=18B. t=24C. t=30D. t=32(3)以下关于变量作用域的叙述中,正确的是A. 窗体中凡被声明为Private的变量只能在某个指定的过程中使用B. 全局变量必须在标准模块中声明C. 模块级变量只能用Private关键字声明D. 模块级变量只能用Public关键字声明(4)在用通用对话框控件建立“打开”或“保存”文件对活框时.如果需要指定文件列表框所列出的文件类型是文本文件(即txl文件),则正确的描述格式是A. ”text(*.txt)|*.txt”B. ”文本文件()txt |()txt”C. ”text()txt||(*)lxt”D. ”text()txt(*)txt”(5)单击命令按钮时,下列程序的执行结果是A. 23 47B. 10 36C. 22 44D. 24 50(6)在窗体上画一个名称为Dirl的目录列表框,一个名称为File1的文件列表框。
当改变当前目录列表框时,文件列表框应该与之同步改变。
没置两个控件同步的命令放在一个事件过程中.这个事件过程是A. Drivel_ChangeB. Drivel_ClickC. Dirl_ChangeD. Dirl_Click(7)在窗体上画一个名称为Commandl的命令按钮,然后编写如下事件过程:程序运行后,单击命令按钮,如果输入3,则在窗体上显示的内容是A. 3B. 4C. 5D. 6(8)有如下程序:(9)下列语句不能实现循环100次的是()(10)若菜单项前面没有内缩符号“…”,表示该菜单项是()。
A. 子菜单项B. 主菜单项C. 下拉式菜单D. 弹出式菜单(11)在窗体上画一个名称为Commandl的命令按钮,然后编写如下程序:程序运行后,单击命令按钮,窗体上显示的是(12)下列数据结构中具有记忆作用的是()。
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
2009年9月全国计算机等级考试二级VB 笔试试题及答案[ 录入者:NCRE100 | 时间:2009-10-08 13:10:02 | 作者:NCRE100| 来源:全国计算机等级考试网 | 浏览:5842次 ]核心提示:一、选择题(每小题2分,共70分) 一、选择题 1.下列数据结构中,属于非线性结构的是( )。
A. 循环队列 B.带链队列C.二叉树 D.带链栈答案 C 解析 树均是非线性结构 2. 下列数据结构中,能够按照”先进后出”原则存取数据的是( )。
A.循环队列 B.栈 C.队列 D...一、选择题(每小题2分,共70分)一、选择题1.下列数据结构中,属于非线性结构的是( )。
A. 循环队列B.带链队列C.二叉树D.带链栈答案 C解析 树均是非线性结构2. 下列数据结构中,能够按照”先进后出”原则存取数据的是( )。
A. 循环队列B.栈C.队列D.二叉树答案B解析:栈是先进后出或后进先出的线性表3. 对于循环队列,下列叙述中正确的是()。
A.队头指针是固定不变的B.队头指针一定大于队尾指针C.队头指针一定小于队尾指针D.队头指针可以大于队尾指针,也可以小于队尾指针答案D解析:如果队头指针大于队尾指针说明队列已经循环存放数据了,如果队头指针小于队尾指针说明没有进行循环存放4. 算法的空间复杂度是指()。
A.算法在执行过程中所需要的计算机存储空间B.算法所处理的数据量C.算法程序中的语句或指令条数D.算法在执行过程中所需要的临时工作单元数答案A解析:算法的空间复杂度是指执行算法所需要的内存空间,包括算法程序所占空间,输入的初始数据所占空间和执行过程中所需要的额外空间.5. 软件设计中划分模块的一个准则是()。
A. 低内聚低耦合B. 高内聚低耦合C. 低内聚高耦合D. 高内聚高耦合答案B解析:模块内部各元素之间的联系要紧密,高内聚,模块间的连接的紧密程度要低,低耦合,这样可以提高模块的独立性.6.下列选项中不属于结构化程序设计原则的是()。
A.可封装B.自顶向下C.模块化D.逐步求精答案A7.软件详细设计产生的图如下该图是( ).A.N-S图B. PAD图C. 程序流程图D.E-R图答案C8.数据库管理系统是()。
A. 操作系统的一部分B.在操作系统支持下的系统软件C.一种编译系统D.一种操作系统答案B9.在E-R图中,用来表示实体联系的图形是()。
A.椭圆形B.矩形C.菱形D .三角形答案C10.有三个关系R,S,T 如下:RST其中关系T由关系R和S通过某种操作得到,该操作称为()。
A.选择B.投影C. 交D. 并答案D解析:T是由S表或R表中的元素组成的(11)以下变量名中合法的是C)str_n(12)把数学表达式表示为正确的VB表达式应该是D)(x*5+3)/(y*2-6)(13)下面有关标准模块的叙述中,错误的是A)标准模块不完全由代码组成,还可以有窗体(14)下面控件中,没有Caption属性的是C)组合框(15)用来设置文字字体是否斜体的属性是D)FontItalic(16)若看到程序有如下事件过程,则可以肯定的是,当程序运行时Private SubClick_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)Print "VB Program"End SubD)用鼠标左键或右键单击名称为“Click”的控件时,执行此过程(17)可以产生30-50(含30到50)之间的随机整数的表达式是A)Int(Rnd*21+30)(18)在程序运行时,下面的叙述中正确的是C)只装入而不显示窗体,也会执行窗体的Form_Load事件过程(19)窗体有名称为Command1的命令按钮和名称为Text1的文本框Private Sub Command1_Click()Text1.Text = "程序设计"Text1.SetFocusEnd SubPrivate Sub Text1_GotFocus()Text1.Text = "等级考试"End Sub运行以上程序,单击命令按钮后B)文本框中显示的是“等级考试”,且焦点在文本框中(20)设窗体上有名称为Option1的单选按钮,且程序中有语句:If Option.Value=True Then下面语句中与该语句不等价的是C)If Value=True Then(21)设窗体上有1个水平滚动条,已经通过属性窗口把它的Max属性设置为1,Min属性设置为100,下面叙述中正确的是A)程序运行时,若使滚动条向左移动,滚动条的Value属性值就增加(22)有如下过程代码:Sub var_dim()Static numa As IntegerDim numb As Integernuma = numa + 2numb = numb + 1Print numa; numbEnd Sub连续3次调用var_dim过程,第3次调用时的输出是C)6 1(23)在窗体上画1个命令按钮,并编写如下事件过程:Private Sub Command1_Click()For i = 5 To 1 Step -0.8Print Int(i);Next iEnd Sub运行程序,单击命令按钮,窗体上显示的内容为A)5 4 3 2 1 1(24)在窗体上画1个命令按钮,并编写如下事件过程:Private Sub Command1_Click()Dim a(3, 3)For m = 1 To 3For n = 1 To 3If n = m Or n = 4 - m Thena(m, n) = m + nElsea(m, n) = 0End IfPrint a(m, n);Next nPrintNext mEnd SubB)2 0 40 4 04 0 6(25)设有如下函数过程:Function fun(a As Integer, b As Integer) Dim c As IntegerIf a < b Thenc = a: a = b: b = cEnd Ifc = 0Doc = c + aLoop Until c Mod b = 0fun = cEnd Function若调用函数fun时的实际参数都是自然数,则函数返回的是B)a、b的最小公倍数(26)窗体上有1个名称为Text1的文本框;1个名称为Timer1的计时器控件,其Interval属性为5000,Enabled属性值是True。
Timer1的事件过程如下:Private Sub Timer1_Timer()Static flag As IntegerIf flag = 0 Then flag = 1flag = -flagIf flag = -1 ThenText1.ForeColor = &HFF& '&HFF&为红色ElseText1.ForeColor = &HC000& '&HC000&为绿色End IfEnd Sub以下叙述中正确的是C)程序执行后,文本框的文字每5秒改变一次颜色(27)为计算1+2+2^2+2^3+2^4+…+2^10的值,并把结果显示在文本框Text1中,若编写如下事件过程:Private Sub Command1_Click()Dim a%, s%, k%s = 1a = 2For k = 2 To 10a = a * 2s = s + aNext kText1.Text = sEnd Sub执行此事件过程后发现结果是错误的,为能够得到正确结果,应做的修改是D)同时进行B)、C)两种修改(28)标准模块中有如下程序代码:Public x As Integer, y As IntegerSub var_pub()x = 10: y = 20End Sub在窗体上有1个命令按钮,并有如下事件过程:Private Sub Command1_Click()Dim x As IntegerCall var_pubx = x + 100y = y + 100Print x; yEnd SubB)100 120(29)设a,b都是自然数,为求a除以b的余数,默认编写了以下函数:Function fun(a As Integer, b As Integer)While a > ba = a - bWendfun = aEnd Function在调试时发现函数是错误的,为使函数能产生正确的返回值,应做的修改是D)把While a>b改为While a>=b(30)下列关于通用对话框CommonDialog1的叙述中,错误的是A)只要在“打开”对话框中选择了文件,并单击“打开”按钮,就可以将选中的文件打开(31)在利用菜单编辑器设计菜单时,为了把组合键“Alt+X”设置为“退出(X)”菜单项的访问键,可以将该菜单项的标题设置为B)退出(&X)(32)在窗体上画1个命令按钮和1个文本框,其名称分别为Command1和Text1,再编写如下程序:Dim ss As StringPrivate Sub Text1_KeyPress(KeyAscii As Integer)If Chr(KeyAscii) <> "" Then ss = ss + Chr(KeyAscii)End SubPrivate Sub Command1_Click()Dim m As String, i As IntegerFor i = Len(ss) To 1 Step -1m = m + Mid(ss, i, 1)NextText1.Text = UCase(m)End Sub程序运行后,在文本框中输入“Number 100”,并单击命令按钮,则文本框中显示的是D)001REMBUN(33)窗体的左右两端各有1条直线,名称分别为Line1、Line2;名称为Shape1的圆靠在左边的Line1直线上(见图);另有1个名称为Timer1的计时器控件,其属性值为True。
要求程序运行后,圆每秒向右移动100,当圆遇到Line2时则停止移动。
为实现上述功能,某人把计时器的Interval属性设置为1000,并编写了如下程序:Private Sub Timer1_Timer()For k = Line1.X1 To Line2.X1 Step 100If Shape1.Left + Shape1.Width < Line2.X1 ThenShape1.Left = Shape1.Left + 100End IfNext kEnd Sub运行程序时发现圆立即移动到右边的直线处,与题目要求的移动方式不符。