VB复习资料有答案

1、、填空题1、一个工程可以包括多种类型的文件，其中，扩展名为.frm 的文件表示【窗体】文件 .2、复选框【 Value 】属性设置为 2Grayed 时，变成灰色，禁止用户选择.3、 声明单精度常量P1代表3. 14159的语句为Const Pl=3. 14159.4、大于X的最小整数的 VB表示形式为【Int(x)+D .5、列表框中项目的序号是从【 0开始的 .6、根据访问模式文件分成顺序文件、随机文件、【二进制文件.7、可以通过【文件菜单中的【退出命令退出 Visual Basic.8、设 x=2, y=4, a=4, b=6, 表达式 (a>x Xor b<x) OR x&

2、lt;y IMP y<b 的结果为 True.9、列表框 (ListBox) 显示【列表，用户可以从中选择一个或多个项目.10、文件列表框的 Path 与目录列表框的 Path 都表示 当前路径 .11、执行下面的程序段后，a的值为【20】，b的值为【300.a=300b=20a=a+bb=aba=ab12、已知 a=3. 5, b=5. 0, c=2. 5, d=True,则表达式 : a>=0 AND a+c>b+3 OR NOT d 的值是 False.13、下面程序运行后输出的结果是【 7】 .x=Int (Rn (D) +3If x"2>8 Then

3、 y=x"2+lIf x'2=9 Then y=x'22If x"2<8 Then y x ”3Print y14、表达式 "A"Like "A" 的值为 False.15、整型变量 x 中存放了一个二位数，要将二位数交换位置，例如 ， 13 变成 31, 实现的表达式是 【 (x Mod 10) * 10 + x10.16、若使文本框内能接受多行文本，则要设置【MultiLine 】属性的值为 True.17、执行下面的程序段后，s的值为【10】s = 5For i = 2. 5 To 5. 1 Step 0.

4、 6 s = s+1 Next i18、 滚动条控件主要支持两个事件，它们是scroll和change事件.19、 若定义一维数组为：Dim a(N To M),则该数组的元素为珈-N+I】个.20、 控件数组的名字由 Name 属性决定 , 而数组中每个元素由 Index 属性指定 .21、X=2：Y=8：PRINT X+Y=10 的结果是 True .22、当程序运行时，要求窗体中的文本框呈现空白，则在设计时，把此文本框的【Text 】属性设置 成空白 .23、 VB中，变量的声明可分为两种方法：【静态】数组和动态数组.24> Alignment 属性设置为 1, 单选按钮和复选框的

5、标题显示在左边 .25、在一条 Dim 语句中可以声明多个变量，如 Dim strVar, intVar, sngVar As Integer,则strVar、intVar 与 sngVar 的数据类型分别是Variant、Variant 和Integer .26、声明单精度常量 g( 重力加速度 )代表 9. 8 可写成【 const g=9.8 .27、窗体上有一标签，要使标签中显示红色的字符 , 应该对标签的 ForeColor 属性进行设置28、表达式 937 MOD 2*3 的值是 5.29、列表框控件不支持 Click 事件 , 但支持【 dblclick 】事件 .30、 设x为

6、一个两位数，将x个位数和十位数交换后所得两位数VB的表达式是【(x mod 10) *10 + int (x/10).31、 在定义有10个元素的整型静态数组a时，可以定义为【dim a(9) as integer ;也可以在通用部分添加 Option Base 1 语句，并定义为【 dim a(l to 10) as integer.32、用 Circle 方法画扇形，起始角、终止角取值范围为【在 0 -2 n 】 .33、Circle 方法正向采用【逆时针方向】时针方向 .34、要获得列表框 List 数组的元素总个数通过【 ListCount 】属性 .35、滚动条产生 Change 事

7、件是因为【 Value 】值改变了 . 滚动条响应的重要事件有 Scroll 和 Change.36、如果要使用命令按钮表面显示文字 "退岀(X)"(在字符X之下加下划线)，则其Caption属性37、38、39、40、41、42、43、44、45、46、47、48、49、50、51、二、1、2、设 置为【退出 (&X) 】 .一个工程可以包括多种类型的文件，其中，扩展名为 .vbp 的文件表示【工程】文件VB 6. 0 的基本表达式包括算术表达式、关系表达式和【逻辑】表达式 .由 For k=35 to 0 step 3:next k 循环语句控制的循环次数是0

8、.VisualBasic6. 0 用于开发【WINDOWS环境下的应用程序.当 x=2 时，语句 if x=2 then Print x=2 的结果值是 True.如果：l=12:J=3:l=int(-8. 6)+lJ+13/3 MOD 5,贝U I 值是1.表达式 1 and 0 的值【 False 】 .设 X$ ="abcl23456" 贝 "a"+str$ (val (right (X$, 4)的值是 a3456 .表达式 Fix(-21. 68) + Int (-12. 02)的值为 -56 .当 x=2 时，语句 if x=2 then Pr

9、int x=2 的结果值是 True .表达式 (-3) And 8 的值为 True .设 a="Good morning", 语句 Left (a, 3) 值为 Goo , Mid (a, 8, 4) 值为 rnin 在VB中,若要将字符串"12345"转换成数字值应使用的类型转换函数是val .当 x=2 时，语句 if x=2 then Print x=2 的结果值是 True .String (3, "abc") 的结果为 aaa.选择题复选框的 Value 属性为 1 时，表示 _B_.A: 复选框未被选中B: 复选框被选

10、中C:复选框内有灰色的勾D:复选框操作方式”错误”在程序代码中修改滚动条的 value 属性时将激发滚动条的 (A) 事件.A:changeB:scrollC:dragdropD:gotfocus3、假设在图片框 Pictruel 中装入一个图形，为了清除该图形 (不删除图片框 ) ，应采用的正确 方法 是: BA：选择图片框，然后按Delete键.B: 执行语句 Pictruel. Pictrue=LoadPictrue("")C:执行语句Pictruel. Pictrue=""D：选择图片框，在属性窗口选择Pictruel属性，然后安回车键4、Pri

11、nt Day併2000-10X5#)语句显示的结果是DA:2000-10-15B:2000C:10D:155、当事件能被触发时， () 就会对该事件作出响应 .AA: 对象B: 程序C:控件D:窗体6、属性窗口只能在 使用 .AA: 设计时B: 编译时C:运行时D:以上都不对7、Rnd 函数不可能产生的 () 值. BA:0B:1C:0. 1234D:. 000058、工程资源管理器窗口中包含的文件类型有()种.CA:2B:3C:4D:59、表达式 25. 28Mod6. 99 的值是 (). CA:1B:5C:4D: 出错10、下列的逻辑表达式中不正确的是 ()B.A:A<B AND

12、C=DB:X<Y<ZC:l>2 AND 3>1D:X>Y AND 1=211、能够获得一个文本框中被选取文本的内容的属性是().CA:TextB:LengthC:SelTextD:SelStart12、一个菜单项是不是一个分隔条，由() 属性决定 B.A: Name ( 名称 )B:CaptionC:EnabledDivisible第 6 题(2.0 分)题号 :344513、下面 4 项中合法的字符常数是 ().BA:ABC$B: ABCC:'ABC'D:ABC() 属性 . C14、将命令按钮Commandl设置为缺省的活动按钮可修改该控制件的

13、A:EnabledB:ValueC:DefaultD:Cancel15、以下能判断是否到达文件尾的函数是 ()D.A:BOFB:LOCC:LOFD:EOF16、以下各表达式中，计算结果为 0 的是 O.DA:INT(12.4)+INT(-12.6)B:CINT(12. 4)+CINT(-12. 6)C:FIX(13. 6)+FIX(-12.6)Visual Basic 的工作状态可分为设计、D:FIX(12.4)+FIX(-12.6)17、作为一个给编辑、编译、运行与一体的集成环境，中断、和 () 三种模式 .A：开发B: 运行C: 插入断点D: 逐句跟踪18、执行了下面的程序：Sub For

14、m_Click()For i=l To 6 Listl. Additem iNextFor i=l To 3Listl.Removeitem iNextEnd Sub 列表框中的数据项为 DA:l, 5, 6B:2, 4, 6C:4, 5,6D:l,3,5属性值19、为使计时器控件每隔5 秒钟产生一个计时器事件 (Timer 事件 ) ，则应 D 将其 Interval设置为 ().A:5B:500C:300D:5000 20 、组合框有三种风格 ,它们由 Style 属性所决定，其中为下拉列表框时 ,Style 属性值应为 0.CA:0B:1C:2D:321、以下关于过程及过程参数的描述中，

15、错误的是 ().CA: 过程的参数可以是控件名称B: 用数组作为过程的参数时，使用的是传地址方式C: 按传值方式传送参数时，有可能会改变实际参数的值 .D: 窗体可以作为过程的参数第 6 题(2.0 分)题号 :320722、设 a="Visual Basic ”,下面使 b="Basic ” 的语句是 C .A :b 二 Left (a, 8, 12)B:b=Left (a, 8, 5)did (a, 8, 5)D:b=Right (a, 5, 5)23、下列可缩放图片的属性是 ().CA:autosizeB:pictureC:stretchD:01eDrawMode24

16、、改变控件在窗体中的上下位置应修改控件的() 属性 A.A:TopB:LeftC:WideD:Height25、执行指令 Line (1200, 1200) -Step (1000, 500), B 后 , CurrentX=AA:2200B:1200C:1000D:170026、在下列说法中，正确的是.DA：通过适当的设置，可以在程序运行期间，让时钟控件显示在窗体上B: 在列表框中不能进行多项选择C:在列表框中能够将项目按字母顺序从大到小排列D: 框架也有 Click 和 DblClick 事件27> Integer 类型的数据由 字节组成 . BA:1B:2C:3D:428、VB的过

17、程有三种，它们是 ()A.A:事件过程、子过程和函数过程B:Sub 过程、 Function 过程和 Property 过程C:事件过程、函数过程和属性过程D:Sub 过程、函数过程和通用过程29、常量 2. 7856E-6 的类型是 B.A:整型B: 实型C:字符型D：双精度30、inputBox 函数返回值的类型为 (). BA: 数值B: 字符串C:变体D:数值或字符串(视输入的数据而定), 必不可少的.C31、在VB集成环境创建 VB应用程序时，除了工具箱窗口、窗体窗口、属性窗口外 窗 口是 0.CA: 窗体布局窗口B: 立即窗口C: 代码窗口D:监视窗口32、在 Visual Bas

18、ic 中最基本的对象是 () ，它是应用程序的基石，是其他控件的容器A: 文本框B :命令按钮C:窗体D:标签33、下面是 0 合法的字符常数 .BA:ABC$B:"ABC”C:'ABC'D:ABC34、以下属于合法的数组元素是 0.CA:x8B:xAC:x(3)D:x635、变量未赋值时，数值型变量的值为 (). AA:0B: 空C:1D: 无任何值36、组合框控件是将 () 组合成一个控件 . AA: 列表框控件和文本框控件B：标签控件和列表框控件C: 标签控件和文本框控件D:复选框控件和选项按钮控件37、 数学关系3Wx<10表示成正确的 VB表达式为BA

19、:3<=x<10B:3<=x AND x<10C:x>=3 OR x<10D:3<=x AND <1038、控件是 ().AA: 建立对象的工具B: 设置对象属性的工具C：编写程序的编辑器D: 建立图形界面的编辑窗口39、每个窗体对应一个窗体文件，窗体文件的扩展名是 ().C A:.basB:.cisC:. frmD:. vbp40、下列 () 是窗体的扩展名 A.A: frmB:basC: cisD:dll41、下面关于顺序文件的描述正确的是 DA: 文件中按每条记录的记录号从小到大排序好B: 文件中按每条记录的长度从小到大排序好C: 文件中按

20、记录的某关键数据项从大到小的顺序排序D:记录按进入的先后顺序存放，读岀也是按原写入的先后顺序读42、要获得当前驱动器应使用驱动器列表框的哪个属性 ()B. A:PathB:DriveC:DirD:Patten43、以下叙述中错误的是 O.CA：打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件B: 保存 VisualBasic 程序时，应分别保存窗体文件及工程文件C:VisualBasic 应用程序只能以解释方式执行D: 事件可以由用户引发，也可以由系统引发44、按文件的组织方式分有 AA: 顺序文件和随机文件B:ASCII 文件和二进制文件C：程序文件和数据文件D：磁盘文件和

21、打印文件45、 表达式 print Len(trim(" abed ")&"123”) 的结果是 BA:9B:7C:abedD:12346、下列不属于代码窗口的是 ().DA: 对象下拉式列表框B: 过程下拉式列表框C:代码框D :属性列表框47、下面关于顺序文件的描述正确的是 CA : 每条记录的长度必须相同B : 可通过编程对文件中的某条记录方便地修改C：数据只能以ASCII码形式存放在文件中，所以可通过文本编辑软件显示D: 文件的组织结构复杂48、下面关于顺序文件的描述正确的是 CA : 每条记录的长度必须相同B：可通过编程对文件中的某条记录方便地修

22、改C：数据只能以ASCII码形式存放在文件中，所以可通过文本编辑软件显示D ：文件的组织结构复杂49、下列有关控件数组与一般控件的区别的叙述中，最合理的是AA： 控件数组一定由多个同类型的控件组成，一般控件只有一个控件;B：控件数组的Index为0,而一般控件的Index为空；C： 控件数组的 Index 为 1, 而一般控件的 Index 为 0;D:控件数组的建立通过Dim语句声明，而一般控件不必声明.50、双击窗体的任何地方，可以打开的窗口是 (). AA: 代码窗口B：属性窗口C: 工程管理窗口D：以上3个选项都不对51、选择和循环结构的作用是 (). AA：控制程序的流程B :提高程

23、序的运行速度C：便于程序的阅读D：方便程序的调试52、不能通过 () 来删除列表框中的选项 . DA：List 属性B： Remove Item 方法C： Clear 方法D：Test 属性53、 表达式 4+5 6 * 7 / 8 Mod 9的值是 ().BA：4B：5C：6D：754、当一个工程含有多个窗体时，其中的启动窗体是 O.DA： 启动 Visual Basic 时建立的窗体B： 第一个添加的窗体C：最后一个添加的窗体D:在'工程属性“对话框中指定的窗体55、在下面关于窗体事件的叙述中，错误的是 CA：用Hide方法不但可以隐藏窗体，而且可以清除内存中的窗体B： 在多重窗体

24、的程序中，各窗体的德菜单是彼此独立的C： 对于多重窗体，需要单独保存每个窗体D：Resize 事件在窗体的大小有所改变时被触发 56、下列方法中可用于列表框动态添加数据 的是 (). BA： addB：additemC：addlistD：removeitem0属性.D57、将通用对话框类型，设置为字体对话框，可修改该控件的A:fontB:filenameC:filterD:action58、用下面语句定义的数组的元素个数是() CDim A (-2 To 4) As IntegerA:6B:5C:7D:859、不管一个对象的属性如何设置，程序运行时始终都能接收焦点的 方法是 (). DA：用T

25、ab键B: 用鼠标C：用方向键D：不能实现60、 下面关于多重窗体的叙述中，正确的是AA: 作为启动对象的 Main 子过程只能放在窗体模块内B：如果启动对象是 Main子过程，则程序启动时不加载任何窗体，以后由该过程根据不同情 况 决定是否加载及加载哪一个窗体C: 没有启动窗体，程序不能执行D: 以上都不对61、以下正确的描述是 : B在 Visual Basic 应用程序中A：过程的定义可以嵌套，但过程的调用不能嵌套B :过程的定义不可以嵌套 , 但过程的调用能嵌套C：过程的定义过程的调用均可以嵌套D: 过程的定义过程的调用均不可以嵌套62、MSGBO函数中有4个参数，其中必须写明的参数是

26、 ().CA: 指定对话框中显示按钮的数目B: 设置对话框标题C: 提示信息D：所有参数都是可选的 63、每建立一个窗体，工程管理器窗口中就会增加一个().BA: 工程文件B: 窗体文件C: 程序模块文件D: 类模块文件64、下列不能用 commondialog 控件调用的对话框是 (). DA:open/saveB:helpC:fontD:search65、将数据项"China ”添加到列表框(Listl)中成为第一项应使用的语句是()。AA:Listl.Additem" China" , 0B:Listl. Addltem ,z China" , 1

27、C:Listl. Additem 0, " China ”D:Listl. Additem 1, " China ”66、Sub过程与Function过程最根本的区别是DA:Sub 过程可以有参数 , Function 过程不可以B: Function 过程可以有参数，Sub过程不可以C: 两种过程参数的传递方式不同D:Sub 过程的过程名不能返回值，而 Function 过程能通过过程名返回值67、下列控件中，没有 Caption 属性的是 BA:框架B: 列表框C:复选框D:单选按钮68、Line (100, 100) -Step (400, 400) 将在窗体 ()

28、画一直线 . CA: (200, 200) 到 (400, 400)B: (100, 100) 到(300, 300)C: (100, 100) 到 (500, 500)D: (100, 100) 到(400, 400)69、下面关于随机文件的描述不正确的是 BA: 每条记录的长度必须相同B: 一个文件中记录号不必惟一C : 可通过编程对文件中的某条记录方便地修改D : 文件的组织结构比顺序文件复杂70、 下面正确的赋值语句是CA:x+y=30B:y 二丸 *r*rC:y=x+30D:3y=x71、在程序代码中修改滚动条的value 属性时将激发滚动条的 () 事件 .AA:change B:

29、scrollC:dragdropD:gotfocus72、窗体设计器是用来设计(). BA：应用程序的代码段B: 应用程序的界面C:对象的属性D：对象的事件73、以下的 vb 常量中非法的是 (). BA:"Good Luck B:PIC:.OO15D:16. 341274、 运行下面程序后，在窗体中显示的是. DPrivate Sub FormClick() a$ 二 * ":b$二 $ For k=l To 3x$=String$(Len(a$)+k, b$) Print x$; Next k Print End SubA:* * *B:*$*$*$C:l*$2*$3*

30、$D:$75、当输入 4 时，以下程序的输出结果是 . BPrivate Sub Commandl_Click() x=InputBox(x)If x"2 15 Then y=l/x If x"2>15 Then y=x"2+l Print yEnd SubA:4B:17C:18D:2576、表达式 Len( 123 程序设计 ABC ) 的值是 AA:10B:14C:20D:1777、简单组合框的 style 值为 (). BA:0B:1C:2D:378、当一个对象 (如窗体或图片框 ) 被移动或改变大小之后，或当一个覆盖该窗体被移开之后， 如果要保持该所

31、画图形的完整性，可以选择触发 () 事件来完成图形的重画工作 . AA:PaintB:LoadC:ClickD:Active79、下列不属于代码窗口的是 (). DA: 对象下拉式列表框B: 过程下拉式列表框C:代码框D: 属性列表框80、下列对象中没有焦点属性的是 (). BA: 命令按钮控件B: 窗口控件C: 文本框控件D: 单选框控件81、用下面语句定义的数组的元素个数是 () CDim A (-2 To 4) As IntegerA:6B:5C:7D:8 82 、 InputBox 函数返回值的类型是 (). BA: 整型数值B：字符串C：变体D：数值或字符串83、 以下不具有 Pic

32、ture 属性对象是 (). DA： 窗体B： 图片框C： 图像框D：文本框 84、 复选框的 Value 属性为 1时,表示 . BA: 复选框未被选中B: 复选框被选中C：复选框内有灰色的勾D：复选框操作方式”错误”85、要使 Forml 窗体的标题栏显示" 欢迎使用 VB”,以下语句正确的是(). DA:Forml. Caption="欢迎使用VB”B: Forml. Caption='欢迎使用VB 'C: Forml. Caption=欢迎使用VBD: Forml. Caption="欢迎使用VB”86、表达式 16/4-2'5*8

33、/4MOD52 的值为 BA:14B:4C:20D:287、以下的 vb 常量中非法的是 (). B A: "Good Luck ”B:PIC:.OO15D:16. 341288、单击滚动条的滚动箭头时 , 产生的事件是 ().A:ClickB:ScrollC:ChangeD:Move89、 形状控件所显示的图形不可能是(). DA: 圆B: 椭圆C: 圆角正方形D: 等边三角形90、 以下叙述错误的是：BA: 下拉式菜单和弹出式菜单都用菜单编辑器建立False, 则菜单项不可见B: 如果把一个菜单项的 Enabled 属性设置为C：除分隔线外，所有菜单项都能接收Click事件D:

34、内缩符号由 4 个点组成，它表明菜单项所在的层次92在窗体Forml的Click事件过程中有以下语句：C的Name属性和Label1. Caption= Visual Basic ” 若本语句执行之前，标签控件的 Caption 属性为默认值，则标签控件 Caption 属性在执行本语句之前的值分别为 ().A: Labe1、"Label ”B: "Label 1、 Visual Basic ”C:"Label1 、 "Label1 D:"Caption ” 、 "Label ”93、 要把一个命令按钮设置成无效, 应设置其哪一属性值

35、 (). BA:VisibleB:EnabledC:DefaultD:Cancel94、执行语句 For i=l To 3:i=i+l:Next i后，变量 i 的值是 (). CA:3B:4C:5D:695、以下的属性和方法中 , 可重定义坐标系的是 CA:Drawstyle 属性B:DmwWidth 属性C: Scale 方法D: Seal eMode 属性96、 在窗体上画一个名称为TxtA 的文本框，然后编写如下事件过程：Private Sub TxtA_KeyPress(Keyascii as integer)End Sub若焦点位于文本框中，则能够触发 KeyPress 事件的操作

36、是： DA: 单击鼠标 eB: 双击文本框C:鼠标划过文本框D：按下键盘上的某个键三、程序填空功能：以下程序段分别以子过程和函数来计算某级数部分和 级数公式如图1所示。Function jishul (x!, eps#) As DoubleDim n%, s#, t# n = 1: s = 0: t = 1 Do While (Abs(t) >= eps)I *SPACE*?s =t =n =Loo ps + t t * x / nn + 1jishulEnd FunctionSub jishu2(s#, x!, eps#)Dim n%, t# n=l: s = 0: t = 1Do W

37、hile (Abs(t) >= eps) s = s + t tLoopEnd SubPrivate Sub Command1_Click()Dim fl#, f2# fl = jishul (2#, 0. 000001) '*SPACE*? jishu2 (f2, 2#, 0. 000001)Print fl =； fl, f2 二；f2 End Sub功能：本程序段将一个十进制整数m转换成r (2 16)进制字符串方法：将m不断除r取余数，直到商为零，以反序得到结果。caFunction TranDec$(ByVai m%, ByVai r%)Dim StrDtoR$Dim

38、iB%, mr%StrDtoR =""Do While m <> 0*mr = ?SPACE*m Mod rIf mr = 10 Then*SPACE*StrDtoR = Chr(mr - 10 +【？】)& StrDtoR65ElseStrDtoR = mr & StrDtoREnd IfLoopTranDec = StrDtoREnd FunctionPrivate Sub Commandl_click()Dim m0%, r0%, i%mO = Vai(Textl. Text)rO = Vai (Text2. Text)If rO <

39、 2 Or rO > 16 Theni = MsgBoxC 输入的 R 进制数超出范围， vbRetryCancel)If i = vbRetry ThenText2. Text 二Text2. SetFocusElseEndEnd IfEnd IfLabel3. Caption =转换成 & rO & 进制数I*SPACE*rOText3. Text = TranDec(mO, ? )End Sub3、以下程序段用于计算若干个数字的最大公约数。Option Base 1Private Function gcd(ByVai m%, ByVai n%) As Integer

40、 If m < n Then t = m: m = n: n = t Dor = m Mod nIf r = 0 Then Exit DoLoopI*SPACE*gcdPrivate Sub Command1_C1ick()Dim a() As Integern 二 InputBox ( ，z 输入 n)ReDim a(n)For i = 1 To na(i) = InputBox ( ， z 输入数据 )Next inl = a(l)For i = 2 To nml = a(i)mn = gcd (ml, nl)If mn = 1 Then Exit For Else nl = mn

41、Next iI*SPACE*mnPrint ?End Sub4、， ' 功能：求表达式 s=x/2!+x"3/4!+.? +x" (2n-l)/(2n) ! 的值 , ' 并在窗体上输出Private Sub Form_Click() Dim x As SingleDim n As Integer Dim sum As Single x = Vai (InputBox( integer/ 7)*Z/ Please input x Value:z ，) n 二 Vai (InputBox( /z Please input aSPACE*s (n, x)sum

42、=【 ？】Print s=； sumEnd SubFunction s(n As Integer, x As Single) As SingleDim i As Single, t As Long s = 0For i = 1 To nt = 1For j = 1 To 2 * i*? Next jI*SPACE*S = S + X " (?)/ t Next i End Function5 ' 功能：用 Circle 方法在图片框正中画出许多不同颜色的同心圆 ' 且不能画出图片框。Private Sub Picturel_Click() Dim CX, CY, Ra

43、dius, Limit ScaleMode 二 3I*SPACE*CX= ?Picturel. ScaleWidth / 2CY = Picturel. ScaleHeight / 2*SPACE*Limit 二 CX*SPACE*For Radius = 0 To ?Picturel. Circle (CX, CY), Radius, RGB(Rnd * 255, Next RadiusLimitRnd * 255, Rnd* 255)End Sub功能：以下程序段采用冒泡法对数组元素进行排序。Option Base 1Private Sub Command1_C1ick()7 Print

44、/z 冒泡法排序数据变化过程Print 8, 6, 9, 3, 2, 7Print Dim iA(l To 10) n = 6 iA(l) = 8: iA(2)= 6: iA(3) 二 9: iA(4) = 3: iA(5) = 2: iA(6) =I*SPACE*For i = 1 To ? Step 1n-1For j = n To ? Step -1 If iA(j) < iA(j - 1) Then t iA(j) = iA(j - 1)iA(j)*SPACE*If CX > CY Then Limit = CY Else ?iA(j - 1) = ?1Next jPrin

45、t i=； i; Spc(i * 3 - 3);For k = i To nPrint iA(k);Next kPrintNext iEnd Sub7 ' 功能：以下程序段用于计算n 的阶乘： n! o (1! =1)Public Function fac(n As Integer) As Integer*SPACE*If n = ? Thenfac = 1ElseI*SPACE*facn * fac( 【？】 )nlEnd IfEnd FunctionPrivate Sub Command1_C1ick 0Print fac(4)=" fac(4) End Sub8、 &#

46、39; ' 功能：以下程序段实现的功能是：查找一数列中是否存在某数字 x,' 若数列中存在该数字，则输出其出现的次数，否则输出不存在信息。I*SPACE*a()Private Function Search( ? As Integer, ByVai key, n%) As Boolean Dim i%Search 二 FalseFor i = LBound(a) To UBound(a)If Key = a(i) Then*Search = True?Next iEnd FunctionPrivate Sub FormClick()Dim x As Integer, k As

47、IntegerDim b (10) As IntegerFor i = 0 To 10b(i) = Int(Rnd * 70) + 20Print b(i);Next iPrint x = VaKlnputBoxC 输入待查找数据 )If Search (b, x, k) ThenI*SPACE*Print x; 在数列中出现； ?; 次ElsePrint x; 未在数列中出现End IfEnd Sub功能：窗体上建立了两个文本框 TextK 输入字符串 ） 及 Text2（ 转换结果 ） ，一个命令按钮 Command 1 （ 清除 ） 录入 Textl 内容时，将录入内容大写字母转为小写，

48、 小写转为大写。Private Sub Commandl_Click() Textl. Text = Text2. Text = Textl. SetFocus End SubPrivate Sub Textl_KeyPress(KeyAscii As Integer) Dim s As String * 1I*SPACE*s = ? (KeyAscii)ChrSelect Case sI*SPACE*Case A ? Zs 二 LCase (s) Case a lo z ?Case Else , s 二 *End Select*SPACE*To s =UCase (s)Text2.Text

49、= Text2. Text + sEnd Sub四、程序改错1 ,题目：该程序的功能是求岀100到200之间的全部素数，并且按每行4个、每个数据之间有10个空格的格 式输岀Option ExplicitPrivate Sub Form_Click()Dim k As Integer, i As Integer, j As Integer k =0For i = 100 To 200*F0UND*For j = 2*F0UND*Print i; Tab(10); k = k*F0UND*If k Mod 5=0 Then Print ;End IfNext iEnd SubPrint i ;Sp

50、ace (10);If k Mod 4 = 0Forj = 1 To i- 1If i Mod j = 0 Then Exit For Next jIf j 二 i Then2、''题目：下面的程序用来产生并输岀图示的杨辉三角。,1111211331146411510105Option ExplicitPublic Sub readin(a() As Integer, n As Integer)Dim i, j As IntegerFor i = 1 To nI *F0UND*a(i, n) = 1a(i, 1) = 1Next iFor i = 3 To nI * ikin

51、*For j = 2 To i - 1For j = 2 To na(i, j) = a(i - 1, j) + a(i - 1, j - 1)Next jNext iEnd SubPublic Sub printf(a() As Integer, n As Integer) Dim i, j As IntegerFor i = 1 To nI*F0UND*For j = 1 To nPrint Tab(5 * j + 10) ; a(i, j);Next jPrintFor j = 1 To iNext iPrintEnd SubPrivate Sub Form_Click()Dim x (10, 10) As IntegerCall readin(x(), 6)Call printf (x(), 6)End Sub3、 ' ' 题目：本程序的功能是随机产生的 10 个两位正整数，并进行递减排序。Option ExplicitPrivate