最新VB程序设计试题及答案(一)

1、学习-好资料1. VB6.0是一种面向B的编程环境。VB程序设计试题及答案(一)一、单选题(A)机器(B)对象(C)过程(D)应用 2.要使FormI窗体的标题栏显示“欢迎彳更用VB”,以下 D 语句是正 确的。(C) Do While Loop环至少执行一次和Do Loop Until循环可能不执行(D) Do While Loop环可能不执行和Do Loop Until循环至少执行一次11.以下 B 是正确的 ForNex也吉构。(A) For x=1 To Step 10(B) For x=3 To -3 Step -3更多精品文档(A) Forml.Caption=欢迎使用 VB

2、9;(B) Forml.Caption='欢迎"更用 VB'(C) Forml.Caption=欢迎彳£ 用 VB(D) Forml.Caption="欢®£用 VB"3 .若要使命令按钮不可操作，要对 A 属性进行设置。(A) Enabled(B)Visible(C) Backcolor(D)Caption4 .如果在窗体上已经创建了一个文本框对象TextI,可以通过C 事件获得输入键值的ASCII码。Next x(C) For x=1 To 10re:Next xIf i=10 Then GoTO re12.如下数

3、组声明语句，BNext x(D) For x=3 to 10 step 3Next y是正确的(A) Change(C) KeyPress5 .下面 A 是合法的变量名。(A) X_yz (B)123ab。6 .以下关系表达式中，其值为(A) "ABC">"AbC”(B) LostFocus(D) GotFocus(C) integer (D) X-YFalse 的是 A 。(C) "BASIC"=UCase("basic)7.为了给x、y、z三个变量赋初值(B)"女">"男"(D)

4、"123"<"23"1 ,下面正确的赋值语句是A(A) x=1:y=1:z=1(B) x=1,y=1,z=1(C) x=y=z=1(D)xyz=18 . VB提供了结构化程序设计的三种基本结构，三种基本结构是D o(A)递归结构、选择结构、循环结构(B)选择结构、过程结构、顺序结构(C)过程结构、输入输出结构、转向结构(D)选择结构、循环结构、顺序结构9 .下面If语句统计满足性别为男、职称为副教授以上、年龄小于40(A) Dim a3,4 As Integer(B) Dim a(3,4) As Integer(C) Dim a(n,n) As I

5、nteger(D) Dim a(3 4) As Integer13.下列语句中(假定变量n有值)是 A o(A) Dim a( ) As IntegerReDim a(n)(C) Dim a( ) As IntegerReDim a(3, 4)ReDim Preserve a(4, 4)14.要想从子过程调用后返回两个结果,是 C o(A) Sub f2(ByVal n%, ByVal m%)m%)(C) Sub f1(n%, m%)15.设有如下程序段：Public Sub F1(n%)n=3*n+4,能正确声明可变长数组的(B) Dim a( ) As IntegerReDim a(n)

6、As String(D) Dim a(10) As IntegerReDim a(n+10)下面子过程语句说明合法的(B) Sub f1(n%, ByVal(D) Sub f1(ByVal n%, m%)岁条件的人数，不正确的语句是D(A) If sex="男"And age=4O And InStr(duty,"教授")>O Then n=n+l(B) If sex="男"And age=4O And (duty="教授"Or duty=”副教授")Then n=n+l(C) If sex= &q

7、uot; And age=4O And Right(duty , 2)="教授"Then n=n+l(D) If sex="男"And age=4O And duty="教授"And duty="副教授"Then n=n+l10.下列关于Do- Loop循环结构执行循环次数自描述正确的是D(A) Do While oop循环和 Do Loop Until循环至少都执行一次(B) Do While Loolp和 Do Loop Until循环可能都不执行End SubPrivate Sub Command1_Clic

8、k()Dim n%, m%n=3m=4调用F1语句End Sub则在Command1_Click事件中有效的调用语句是B(A) Call F1(n+m)(B) Call F1(m)(C) CallF1(5)(D) Call F1(m+5)16 .用来设置粗体字的属性是C 。(A) FontItalic(B) FontName (C)FontBold(D) FontSize17 .假定定时器的Interval属性为1000 , Enabled属性为True,调用下 面的事件过程，程序运行结束后变量x的值为 D 。Dim x As IntegerSub Timer1_Timer()For i=1

9、to 10x=x+1Next iEnd Sub(A) 1000(B) 10000(C) 10(D)以上都不对18 .在下列关于通用对话框的叙述中，错误的是B 。(A) CommonDialog1.ShowFon胆示 字体”对话框(B)在打开"或 另存为"对话框中，用户选择的文件名可以经FileTitle属性返回(C)在打开"或另存为"对话框中，用户选择的文件名机器路径可以经FileName属性返回(D)19 .当用户按下并且释放一个键后会触发KeyPress KeyUp和KeyDown事件，这三个事件发生的顺序是C 。(A) KeyPress KeyDo

10、wn、KeyUp(B) KeyDown. KeyUp KeyPress(C) KeyDown. KeyPress KeyUp(D)没有规律20 .在下面关于顺序文件的描述中，正确的是 C 。(A)顺序文件中每行的长度都是相同的。(B)可以通过编程对文件中的某行方便地进行修改(C)数据以ASCII码的形式存放在文件中，所以可通过记事本打开(D)文件的组织结构复杂21 .随机文件是因为C 。(A)文件中的内容是通过随机数产生的(B)文件中的记录号通过随机数产生的(C)可对文件中的记录根据记录号随机地读/写(D)文件的每条记录的长度是随机的22 .从磁盘上读入一个文件名为"ct1.txt顺

11、序文件，如下 A 正确。(A) F= "tC.txt ”Open F For Input As #1(B) F= "tc.txt ” Open "F" For Input As #2(C) Open"tc.txt " For Input As #1(D) Open c:t1.txt For Input As #223 .坐标度量单位可由通过来D 改变。(A)Drawstyle 属性(B) DrawWidth 属性(C) Scale方法(D) ScaleMode 属性24 .指令 “Circle (1000, 1000), 500, 8

12、6, -3”将绘制 A 。(A)画圆(B)椭圆(C)圆弧(D)扇形25 .用ADO数据控件建立与数据源的链接，设置操作过程按A 顺序进行。选择数据源连接方式；选择数据库类型；指定数据库文件名；指定记录源(A)(B)(C)(D)二、填空题1 . VB是建立在 BASIC语言基础上的可见化编程语言或编程环境。2 .在窗体上已建立多个控件如Text1、Label1、Command1,若要程序一运行时焦点就定位在Command1控件上，应对 Command1控件设置TabIndex属性的值为0。3 .在 VB 中，1234、123456&、1.2346E+5、1.2346D+5 这 4 个常数

13、分 别表示 整形、长整形 、 单精度、双精度 类型4.表示x是5的倍数或是9的倍数的逻辑表达式为x mod 5 = 0 or xmod 9=0。5 .数组声明时下标下界默认为0,利用 Opation Base 1 语句可以使下标为1。6 .传地址方式是当过程被调用时，形参和实参共享存储单元。7,窗体中的模块级变量应在窗口模块段声明，它作用于该窗体的全局范围。8 .当用户单击滚动条的空白处时，滑块移动的增量值由 LargeChange 属性决定。9 .如果菜单标题的某个字母前输入一个"&符号，那么该字母就成了热键字母；如果建立菜单时在标题文本框中输入一个"-(减号)

14、符号，那么显示时形成一个分隔符。10 .使用 Scale方法可以自定义坐标系。11 .使用Line方法画矩形，不许在指令中使用关键字B 12,使用 SQL语句设置 ADO控件的 RecordSource属性，这CommandType属性需要设置成1(adCmdText)或者(adCmdUnknown) 。13 .为了显示一个窗体，所使用的方法为 show;而为了隐藏一个窗体，所使用的方法为_Hide。14 .如果要将某个命令按钮不显示，则可将_Visible 属性设置为False15 .在VB中窗体文件的扩展名为 .FRM。三、编程应用题1 .程序阅读，写出下列程序的运行结果。Private

15、Sub Command1_Click()Dim a, i%, min%, imin%, sum%, t% a=Array(26, 43, 61, 87, 33, 19, 37, 59, 76, 69) min=a(0): imin=0: sum=a(0)For i=1 to UBound(a)sum=sum+a(i)If a(i)< min Then min=a(i): imin=iNext it=a(0): a(0)=a(imin): a(imin)=tPrint sum; a(0)End Sub输出结果：510 192 2)Private Sub Command1_Click()Di

16、m ch as String*1 ch=1 8"If UCase(ch)>= " A" And UCase<= Z" ThenVB程序设计试题及答案(二)一、单选题1 . VB6.0集成开发环境不包括 A 窗口。(A) DOS界面窗口(B)窗体窗口(C)代码窗口(D)属性窗口2 .有程序代码如下：CTex1.Text=" Tex1.Text "贝ij Tex1、Text、" Tex1.Text "分别代表(A)对象、值、属性(B)对象、万法、属性(C)对象、属性、值(D)属性、对象、值3 .下面关于对象

17、的描述中，A 是错误的。(A)对象就是自定义结构变量(B)对象代表正在创建的系统中的一个实体(C)对象是一个特征和操作的封装体(D)对象之间的信息传递是通过消息进行的4 .要使某控件在运行时不可显示，应对 B属性进行设置。(A) EnabIed(C) Backco lor5 .与数学表达式 对应，不正确的(A) a*b/(3*c*d)(C) a*b/3/c/d6 . InputBox函数返回值的类型是(A)整型数值(B)字符串7 .下面正确的赋值语句是C(B) Visible(D) CaptionVB算术表达式是 D 。(B) a/3*b/c/d(D) a*b/3*c*dB 。(C)变体 (D

18、)数值或字符串(B) y= *r*r(A) x+y=30(C) y=x+30(D) 3y=x8 .下面程序段运行后，显示的结果是C 。Dim xIf x Then Print x Else Print x+1(A)l (B)O (C)-1(D)显示出错信息9 .下面程序段，运行后显示的结果是A 。Dim xx=Int(Rnd)+5Select Case xCase 5 Print "优秀" Case 4Print “良好"Case 3Print '通过"CaseE ElsePrint '不通过"EndSelect(A)优秀(B)

19、良好(C)通过(D)不通过10.下列循环结构能正常结束循环的是C 。(A) i=5(B) i=1DoDoi=i+1i=i+2Loop Until i<0Loop Until i=10(C) i=10(D) i=6DoDoi=i+1i=i-2Loop Until i>0Loop Until i=111.下面的程序段的运行结果为多少？DPrivate Sub Command1_Click() For i=1 to 5 n=0For j=i to 5 n=n+1Next j Next i Print n End Sub(A) 10(B) 5(C) 15(D) 112.要分配存放如下矩阵的

20、数据，C 数组声明语句能实现(不浪费空间)。1.12.2 3.34.45.5 6.67.7 8.8 9.9(A) Dim a(9) As Single(B) Dim a(3,3) As Single(C) Dim a(-1 to 1,-5 to -3) As Single(D) Dim a(-3 to -1, 5 to 7) As Integer13.在窗体的通用声明段自定义了数据类型Students,下列 A 定义方式是正确的。(A) Private Type StudentsName As Sting*10Sting*10Studno As IntegerIntegerEnd Type(C

21、) Type StudentsName String*10Sting*10Studno IntegerIntegerEnd Type14.下面子过程说明合法的是D(A) Sub f1(ByVal n%()Integer(C) Function f1%(f1%)15.下面过程运行后显示的结果是(B) Type StudentsName AsStudno AsEnd Students(D) Type StudentsName AsStudno AsEnd Type(B) Sub f1(n%) As(D) Function f1(ByVal n%)c 。Private Sub F1(m%, ByVa

22、l m%) n=n Mod 10 m=m10End SubPrivate Sub Command1_Click() Dim x%, y% x=12: y=34Call F1(x, y) Print x, yEnd Sub(A) 2 34(B) 12 34(C) 2 3(D) 12 316 .下列控件中，没有 Caption属性的是 D 。(A)框架(B)列表框(C)复选框(D)单选按钮17 .在用菜单编辑器设计菜单时，必须输入的项有B 。(A)快捷键(B)标题(C)索引(D)名称18 .以下正确的语句是D 。(A) CommonDialog1.Filter=AllFiles|*.*|Pictu

23、res(*.Bmp)|(*.Bmp)(B) CommonDialog1.Filter= " AllFiles " | " *.* " | " Pictures(*.Bmp) " | "(*.Bmp)(C) CommonDialog1.Filter= " AllFiles|*.*|Pictures(*.Bmp)|(*.Bmp) ”(D) CommonDialog1.Filter=AllFiles|*.*|Pictures(*.Bmp)|(*.Bmp)19 .如果Form1是启动窗体，并且 Form1的Load事件过程

24、中有语句Form2.Show,则程序启动后 D 。(A)发生一个运行时错误(B)发生一个编译错误(C)在所有的初始化彳弋码运行后Form1是活动窗体(D)在所有的初始化彳弋码运行后Form2是活动窗体20 .按存储信息的形式分类，文件可以分为(A)顺序文件和随机文件(C)程序文件和数据文件21 .下面关于随机文件的描述不正确的是(A)每条记录的长度必须相同(B) 一个文件中记录号不必唯一B 。(B) ASCII文件和二进制文件(D)磁盘文件和打印文件B 。(C)可通过编程对文件中的某条记录方便地修改(D)文件的组织结构比顺序文件复杂22 .为了建立一个随机文件，其中每一天记录由多个不同数据类型

25、的数据项组成，应使用C(A)记录类型(B)数字(C)字符串类型(D)变体类型23 .当使用Line方法画直线后，当前坐标在。C(A) (0, 0)(B)直线起点(C)直线终点(D)容器的中心24 .命令按钮、单选按钮、复选框上都有Picture属性，可以在控件上显示图片，但需要通过属性B 来控制(A) Appearance(B) Style(C) DisabledPicture(D) DownPicture25.设置 ADO数据才5件 RecordSource属性为数据库中的单个表名，则CommandType属性需设置为B 。(A) adCmdText(B) adCmdTable(C) adC

26、mdStoreProc(D) adCmdUnknown二、填空题1 .对文本框的ScroHBarsR性设置为2 (有垂直滚动条)， 但没有垂直滚动条显示，是因为没有将 MultiLine 属性设 置为True。2对命令按钮的Picture属性装入.bmp图形文件后，选项按 钮上并没有显示所需的图形，原因是没有将 Style 属性设 置为 1 (Graphical 。3 . Int(-3.5)、Int(3.5)、Fix(-3.5)、Fix(3.5)、Round(-3.5) Round(3.5) 的值分别为 4、3、-3、3、-4 、4 o4 .若定义一维数组为：Dim a(N to M),则该数

27、组的元素为 M-N+1 个。5 .按如下要求书写函数过程定义的首语句，即Function MyF(aas int,b(n)as int)定义语句，要求为：形参有两个 a为整型，b为一位整型数组，函数过程名为 MyF,函数返回值为 逻辑型。6 .滚动条产生 Change事件是因为 Value 值改变了。7 .如果要每隔 15s产生一个计时器事件，则 Interval属性应设置 为 15000。8 .在VB中，除了可以指定某个窗体作为启动对象之外，还可以指 定Main子过程 作为启动对象。9 .用Show方法显示自定义对tS框时，如果Show方法后带vbModal 参数就将窗体作为模式对话框显示。

28、10 .容器的实际可用高度和宽度由右 和上属性确定。11 .使用Circle方法正向采用 逆时针方向。12 .启动窗体时，为了初始化窗体中的各控件，可选作窗体的load 事件。13 .结构化程序设计中，三种基本结构是一分支结构 、_顺序结构 和循环结构。三、编程应用题1.程序阅读(1)Private Sub Command1_Click() Dim x() As Integer Dim n%, i% n = 10ReDim x(n - 1)x(0) = 1x(1) = 1For i = 2 To n - 1x(i) = x(i - 1) + x(i - 2)Next iFor i = 0 To

29、 n - 1Print x(i),If (i + 1) Mod 5 = 0 Then Print NextEnd Sub输出结果：(1) 1238132134(2) Public Function f(m%, n%)Do While m< >nDo While m> n: m=m-n: LoopDo While m< n: n=n-m: LoopLoop f=mEnd FunctionPrivate Command1_Click() Print f(24, 18)End Sub输出结果：6(3)Public x as IntegerPrivate Sub Fomr_Cl

30、ick()Dim x as Integerx=10print 11 x=" ;x End Sub输出结果：x=102.补充程序(1)以下是冒泡法排序的程序，要求将数组里的数按升序排列，将其补 充完整。Private Sub Command1_Click()Dim a(), iMin%, n%, i%, j%, t%a = Array(8, 6, 9, 3, 2, 7)n = ubound(a) '获得数组的下标上界For i = 0 To n - 1For j = 0 To n-i-1If a(j)>a(i) Thent = a(j): a(j) = a(j + 1):

31、 a(j + 1) = tEnd IfNext jNext iFor i = 0 To nPrint a(i);Next iEnd Sub(2)用递归的方法求n!Private Sub Command1_Click()Print "fac(4)=" fac(4)End SubPublic Function fac As IntegerIf n = 1 Thenfac = 1ElseFac=fac*nEnd IfEnd FunctionVB程序设计试题及答案(三)一、单选题(B) BorderStyle (D) BackstyleC ,它是应用程序的基石，(B)命令按钮(D)

32、标签Enter键，应在文本框的 D事件中判断。(B)KeyDown1 . Visual Basic是一种面向对象的可视化程序设计语言，采取了 A 的编程机制。(A)事件驱动(B)按过程顺序执行(C)从主程序开始执行(D)按模块顺序执行2 .若要使标签控件显示时不覆盖其背景内容，要对D属性进行设置。(A) Backcolor(C) Forecolor3 .在Visual Basic中最基本的对象是是其他控件的容器。(A)文本框(C)窗体4 .要判断在文本框是否按下(A) Change(C) Click(D)KeyPress5 .数学表达式 3Vx<lQ4 VB中的逻辑表达式为D(A) 3&

33、lt;=x<10(B) 3<=x AND x>10(C) x>=3 Or x<10(D) x>=3 AND x<106 . Rnd函数不可能为下列B 值。(A) 0(B) 1(C) 0.1234(D) 0.00057.赋值t§句：a=123+Mid("123456” , 3, 2)执行后，a变量中的值是 D o(A) ”12334”(B) 123(C) 12334(D) 1578 .对于t§句If x=l Then y=l,下列说法正确的是C 。(A) x=l和y=l均为赋值语句(B) x=l和y=l均为关系表达式(C)

34、x=l为关系表达式，y=l为赋值语句(D) x=l为赋值语句，y=l为关系表达式9 .下面程序段表示求两个数中的大数，D 不正确。(A) Max=IIf(x>y, x, y)(B) If x>y Then Max=x ElseMax=y(C) Max=x(D) Ify>=x Then Max=yIf y>=x Then Max=yMax=x10 .当在文本框中输入ABCD介字符时，窗体上显示的是C 。Private Sub Text1_Change()Print Text1;End Sub(A) ABCD (B) A (C) AABABCABCD (D) ABABCAB

35、CDABCD11 .下列哪个程序段不能分别正确显示1!、2!、3!、4!的值 B 。(A) For i=1 to 4(B) For i=1 to 4n=1For j=1 to iFor j=1 to In=1n=n*jn=n*jNext jNext jPrint nPrint nNext INexti(C) n=1(D) n=1For j=1 to4j=1n=n*jDoWhilej<=4Print nn=n*jNext jPrint nj=j+1 Loop 12.如下数组声明语句，则数组a包含元素的个数有A 。Dim a(3, -2 to 2, 5)(A) 120(B) 75(C) 60

36、(D) 1313 .以下程序的输出结果是D 。Dim aa=Array(1, 2, 3, 4, 5, 6, 7)For i=Lbound(a) to Ubound(a)a(i)=a(i)*a(i)Next iPrint a(i)(A) 49(B) 0(C)不确定 (D)程序出错14 .在过程中定义的变量，若希望离开该过程后，还能保存过程中局部变量的值，则应使用关键字D 在过程中定义局部变量。(A) Dim (B) Private (C) Public (D) Static15 .如下程序，运行的结果是B 。Dim a%, b%, c%Public Sub p1(x%, y%)Dim c%x=2

37、*x: y=y+2: c=x+yEnd SubPublic Sub p2(x%, ByVal y%)Dim c%x=2*x: y=y+2: c=x+yEnd SubPrivate Sub Command1_Click()a=2: b=4: c=6Call p1(a, b)Print"a=”; a;" b=”; b;"c=”; cCall p2(a, b)Print"a=”; a;" b=”; b;"c=”; cEnd Sub(A) a=2b=4 c=6(B)a=4 b=6c=10a=4b=6 c=10a=8 b=8c=16(C) a=

38、4b=6 c=6(D)a=4 b=6c=14a=8b=6 c=6a=8 b=8c=616.复选框的Value属性为1时，表示B o(A)复选框未被选中(B)复选框被选中(C)复选框内有灰色的勾(D)复选框操作有误17.下面关于菜单的说法中，错误的是B 。(A)每个菜单项都是一个控件与其他控件一样也有自己的属可重定义坐标系。(B) DrawWidth 属性(D) ScaleMode 属性C属性决定。(B) AutoRedraw,(D) ForeColor, BorderColor性和事件(B)除了 Click事件之外，菜单项还能响应其他的，如DbClick 事件(C)菜单项的快捷键不能任意设置(

39、D)在程序执行时，如果菜单项的Enabled属性为False则 该菜单项变成灰色，不能被用户选择18 .下面关于多重窗体的叙述中，正确的是B o(A)作为启动对象的Main子过程中能放在窗体模块中(B)如果启动对象是Main子过程，则程序启动时不加载任何 窗体，以后由该过程根据不同情况决定是否加载或加载哪一 个窗体(C)没有启动窗体，程序不能执行(D)以上都不对19 .当用户将焦点移到另一个应用程序时，当前应用程序的活动窗体将 D ° (A)发生 DeActivate 事件(B)发生LostFocu事件(C)发生 DeActivate和 LostFocu涛件(D) DeActivat

40、e和LostFocu事件都不发生20 .顺序文件是因为D o(A)文件中的数据按每行的长度从小到大排序好的(B)文件中的数据按某个关键数据项从大到小进行排序(C)文件中的数据按某个关键数据项从小到大进行排序(D)数据按进入的先后顺序存放的，读出也是按原写入的先后顺序读出21 .文件号最大可取值为B o(A) 255(B) 511(C) 512(D) 25622 .Print #1, STR$1 中的 Print是 A。(A)文件的写语句(B)在窗体上显示的方法(C)子程序名(D)以上均不是23 .以下的属性和方法中C(A)Drawstyle 属性(C) Scale方法24.封闭图形的填充方式由

41、下列(A) DrawStyle, DrawModeClipControls(C) FillStyle, FillColor25.下列字符串中，D 不包含在ADO数据控件的ConnectionStringl性中。(A) Microsoft Jet 4.0 OLE DB Provider(B) Data Source=C:Mydb.mdb(C) Persist Security Info=False(D) 2-adCmdTable二、填空题1 .在代码窗口对窗体的 BorderStyle MaxButton属性进行了 设置，但运行后没有效果，原因是这些属性在运行时设计是无效的 。2在文本框中，通过

42、 SelStart 属性能活得当前插入点所 在的位置。3.表达式 Ucase(Mid( "abcdefgh”，的笛是 CDEF 。4,已知 a=3.5, b=5.0, c=2.5, d=True,贝U表达式：a>=0 And a+c>b+3 Or Not d 的值是 False 。5 .要获得动态数组的上界通过UBound函数，下界通过 LBound 函数。6 .由Array函数建立的数组，其变量类型必须 是 variant 类型。7 . VB中的变量按其作用域分为全局变量、模块变量和局部变量 变量。8复选框的Value 属性设置为2Grayed时，变成灰色，禁止用户选择

43、。9 .滚动条响应的重要事件有Scroll和Change10 .假定有一个通用对话框控件CommonDialog1,除了用COmmonDialog1.Action=3S示颜色对话框之外，还可以 用 showcolor 方法显示。11 .窗体Form1的左上角坐标为(-200, 250),窗体Form1的 右下角的坐标为(300,-150),则X轴的正向向 右 ,丫轴 的正向向 上 。12 .使用Circle方法画扇形，起始角、终止角取值范围为 02兀 。13 .在运行状态改变ADO数据控件的数据源连接属性后，必 须使用Refresh 方法激活这些变化。14 . VB中工程文件的扩展名为vbg

44、o15 .如果在窗体上已经创建了一个文本框对象Text1,可以通过Keypress事件获得输入键值的 ASCII码。16 . VB中对象的三要素是 属性、事件 和方 法 。三、编程应用题1 .程序阅读(1) Private Sub Command1_Click()Dim s as String, i% s=" abcd"For i=Len(s) to 1 step -1Print Mid(s, i, 1)Next iEnd Sub输出结果：dcba(2)Sub Swap1(ByVal x%, ByVal y%) Dim t%t = x: x = y: y = tEnd Su

45、bSub Swap2(ByRef x%, ByRef y%)Dim t%t = x: x = y: y = tEnd SubSub Command1_Click()Dim a%, b% a = 10: b = 20Print ”调用Swap1前a和b的值为:"a; bCall Swap1(a, b)Print ”调用Swap1后按传值方式 a和b的值 为："a; ba = 10: b = 20Call Swap2(a, b)Print ”调用Swap2后按传地址方式 a和b的值 为："a; bEnd Sub输出结果调用Swap1前a和b的值为：10 20调用Swap1后按传值方式 a和b的值为：10 20调用Swap2后按传地址方式 a和b的值为：20 10Private Sub Command1_Click()Dim x%, y%, z%x=242: y=44z=x*yDo Until x=yIf x>y Then x=x-y Else y=y-xLoopPrint x, z/x End Sub输出结果：224842 .补充程序(1)以下是求118之间某个数的阶乘的程序， 具体的数值 n由滚动条 HScroll1获得，结果显示在窗体下部的两个Label标签里。补充完整如下程序。Priv