VB程序设计试题及答案
vb程序设计试题(含答案)
第一套试题一、选择题（每题2分，共30分）1.在VB环境中，工程文件的扩展名是( C )（A）.frm （B）.bas （C）.vbp （D）.frx2.下面4项中不属于面向对象系统三要素的是( A )（A）变量（B）事件（C）属性（D）方法3. \、/、Mod、*这4个算述运算符中，优先级别最低的是( C )（A）\ （B）/ （C）Mod （D）*4.要使Print方法在Form_Load事件中起作用，要对窗体的( C )属性进行设置（A）BackColor （B）ForeColor（C）AutoRedraw （D）Caption5.不论何控件，共同具有的属性是( B )（A）Text （B）Name（C）ForeColor （D）Caption6.要使Form1窗体的标题栏显示“欢迎使用VB”，以下语句正确的是( D ) （A）Form1.Caption=“欢迎使用VB”（B）Form1.Caption=ˊ欢迎使用VBˊ（C）Form1.Caption=欢迎使用VB （D）Form1.Caption=〞欢迎使用VB〞7.VB提供了结构化程序设计的3种基本结构，这3种基本结构是( D )（A）递归结构，选择结构，循环结构（B）选择结构，过程结构，顺序结构（C）过程结构，输入、输出结构，转向结构（D）选择结构，循环结构，顺序结构8.给变量赋值a=123+MID(“123456”,3,2)，a变量中的值是( D )（A）“12334”（B）123 （C）12334 （D）1579.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是( D )（A）If sex=“男”And age＜40 And InStr(duty,“教授”)＞0 Then n=n+1 （B）If sex=“男”And age＜40 And (duty=“教授”Or duty=“副教授”) Then n=n+1（C）If sex=“男”And age＜40 And Right(duty,2)= “教授” Then n=n+1 （D）If sex=“男”And age＜40 And duty=“教授”And duty=“副教授” Then n=n+110.若要清除列表框的所有内容，可用来实现的方法是( C )（A）RemoveItem （B）Cls（C）Clear （D）以上均不可以11.要使时钟控件Timer1的Timer事件不起作用，以下正确的语句是( B ) （A）Timer1.Visible=False （B）Timer1.Enabled=False（A） Timer1.Interval=1000 （D）Timer1.Index=012.引用列表框(List1)最后一个数据项应使用的语( B )(A)List1.List(List1.ListCount) (B)List1.List(List1.ListCount-1)(C)List1.List(ListCount) (D)List1.List(ListCount-1)13.如下数组声明语句，正确的是( B )（A）Dim a[3,4]As Integer （B）Dim a(3,4)As Integer（C）Dim a(n,n) As Integer （D）Dim a(3,4)As Integer14.下面子过程语句说明合法的是(A、D )（A）Sub f1(ByVal n%) （B）Sub f1(n%)As Integer（C）Function f1%(f1%) （D）Function f1(ByVal n%)15.假定有如下的命令按钮(名称为Command1)事件过程：Private Sub Command1_Click()x=InputBox("输入："，"输入整数")MsgBox"输入的数据是：”，，”输入数据："+xEnd Sub16.程序运行后，单击命令按钮，如果从键盘上输入整数10，则以下叙述中错误的是( A )（A）x的值是数值10 （B）输入对话框的标题是“输入整数”（C）信息框的标题是“输入数据：10”（D）信息框中显示的是“输入的数据是：”二、填空题（每题2分，共20分）1、当进入VB集成环境后，发现没有显示“工具箱”窗口，应选择视图菜单的工具箱选项，使“工具箱”窗口显示。
专升本vb程序设计试题及答案
专升本vb程序设计试题及答案一、选择题（每题2分，共20分）1. 在VB中，以下哪个关键字用于声明类模块中的方法？A. FunctionB. SubC. PropertyD. Class答案：B2. VB中的单精度浮点数类型是什么？A. IntegerB. SingleC. DoubleD. Long答案：B3. 如果想要在VB中实现多态，可以使用哪种机制？A. 继承B. 接口C. 重载D. 封装答案：B4. 在VB中，以下哪个控件可以用于显示图像？A. LabelB. PictureBoxC. TextBoxD. ComboBox答案：B5. VB中的“Option Explicit”语句的作用是什么？A. 声明变量类型B. 强制变量声明C. 定义常量D. 创建对象实例答案：B6. 在VB中，如何实现一个事件处理程序？A. 使用Sub过程B. 使用Function过程C. 使用Property过程D. 使用Handles关键字答案：D7. 如果要使一个变量在多个窗体之间共享，应该使用哪种变量作用域？A. PublicB. PrivateC. FriendD. Protected答案：A8. 在VB中，以下哪个不是标准的控件属性？A. NameB. TextC. VisibleD. Color答案：D9. VB中的“With”语句用于什么目的？A. 初始化对象B. 创建对象实例C. 链式调用同一对象的多个属性或方法D. 定义对象的生命周期答案：C10. 在VB中，以下哪个不是Visual Basic Power Packs控件？A. LineB. OvalC. ShapeD. DataGrid答案：D二、填空题（每空2分，共20分）11. VB中的“_____”关键字用于定义一个类。
答案：Class12. 当需要在VB中捕获并处理异常时，可以使用“_____”语句。
答案：Try...Catch13. 在VB中，一个窗体的标题可以通过“_____”属性来设置。
vb程序设计试题及答案
vb程序设计试题及答案一、选择题（每题2分，共20分）1. 在VB中，下列哪个选项是正确的数据类型？A. IntegerB. DoubleC. StringD. All of the above答案：D2. VB中用于声明变量的关键字是？A. DimB. DeclareC. SetD. All of the above答案：A3. 在VB中，下列哪个选项是正确的循环语句？A. ForB. DoC. WhileD. All of the above答案：D4. VB中用于打开文件的函数是？A. OpenB. CloseC. WriteD. Read答案：A5. 在VB中，下列哪个选项是正确的条件语句？A. If...ThenB. Select CaseC. Do WhileD. All of the above答案：A6. VB中用于创建新窗体的语句是？A. Form.ShowB. Form.NewC. Form.CreateD. Form.Open答案：A7. VB中用于声明常量的关键字是？A. ConstB. DimC. StaticD. Option答案：A8. 在VB中，下列哪个选项是正确的数组声明？A. Dim arr(5) As IntegerB. Dim arr() As IntegerC. Dim arr As IntegerD. Dim arr(5) As String答案：A9. VB中用于结束程序的语句是？A. EndB. ExitC. CloseD. All of the above答案：B10. VB中用于捕获异常的语句是？A. Try...CatchB. On ErrorC. CatchD. All of the above答案：B二、填空题（每题2分，共20分）1. 在VB中，声明一个名为myVar的变量，其类型为字符串，应该使用语句________。
答案：Dim myVar As String2. VB中，用于定义一个名为myFunction的函数，返回值为整数，应该使用语句________。
专升本vb程序设计试题及答案
专升本vb程序设计试题及答案一、选择题（每题2分，共20分）1. 在Visual Basic中，以下哪个关键字用于声明变量？A. DimB. SubC. FunctionD. Const答案：A2. 下列哪个选项是Visual Basic中的单行注释符号？A. //B. /* */C. 'D. ' '答案：C3. 在Visual Basic中，下列哪个函数用于计算数组中元素的个数？A. UBoundB. LBoundC. CountD. Len答案：A4. 如果要创建一个名为“Form1”的窗体，应该使用哪个关键字？A. FormB. SubC. FunctionD. Class5. 在Visual Basic中，下列哪个选项是正确的事件处理程序的声明方式？A. Sub Form1_Click()B. Sub Form1_Click(ByVal sender As Object, ByVal e As EventArgs)C. Function Form1_Click()D. Function Form1_Click(ByVal sender As Object, ByVal e As EventArgs)答案：B6. 下列哪个选项是Visual Basic中的逻辑运算符？A. AndB. OrC. NotD. All of the above答案：D7. 在Visual Basic中，哪个关键字用于退出当前的Sub过程？A. ExitB. EndC. ReturnD. Stop答案：A8. 在Visual Basic中，下列哪个选项是正确的条件语句？A. If...ThenB. Do...LoopC. For...NextD. Switch...Case9. 在Visual Basic中，下列哪个选项用于创建一个标签控件？A. LabelB. TextBoxC. ButtonD. ComboBox答案：A10. 在Visual Basic中，下列哪个选项用于创建一个文本框控件？A. LabelB. TextBoxC. ButtonD. ComboBox答案：B二、填空题（每题2分，共20分）1. 在Visual Basic中，使用________关键字可以声明一个常量。
VB程序设计 习题及答案第4章 选择结构程序设计
第4章选择结构程序设计4．1 写出数学式|x|<2.5×10-2对应的Visual Basic表达式。
【答案】x<2.5e-2 and x>-2.5e-24．2 逻辑运算符And、Or和Not的优先级最高的是哪一个。
【答案】Not4．3 已知 W=10 X=9 Y=8 Z=7 ，求下列表达式的结果。
(1) W>X And Y<=Z OR X>Y(2) X>Z Or W=Y AND Y<X(3) Not (W>Y And X=Z)(4) Not (Y<>X Or W*3>Z)【答案】(1) True(2) True(3) True(4) False4．4 写出下列十进制整数逻辑运算的结果：(1) X = 23 And 14(2) X = 23 Or 14(3) X = -1 And 19(4) X = -1 Or 10(5) X = Not -1【答案】(1) 6(2) 31(3) 19(4) -1(5) 04．5 已知变量X和Y的值分别为5、6，编写程序，交换变量X和Y的值。
【参考答案】程序代码设计Private Sub Form_Click()x = 5: y = 6t = x: x = y: y = tForm1.Print "x="; x, "y="; yEnd SubPrivate Sub Form_Load()Form1.AutoRedraw = TrueForm1.Print "x = 5", "y = 6"Form1.Print "单击窗体交换x,y的值"图4-1 程序运行结果End Sub程序运行结果如图4-1所示：4．6 从键盘输入一个学生的三科成绩，计算总分，并找出最高分。
【参考答案】（1）用户界面设计（2）控件属性设置（略）（3）程序代码设计Private Sub Command1_Click()g1 = Val(Text1.Text)g2 = Val(Text2.Text)g3 = Val(Text3.Text)Var = (g1 + g2 + g3) / 3g = g1If g < g2 Then g = g2If g < g3 Then g = g3Text4.Text = VarText5.Text = gEnd Sub图4-2 程序运行结果程序运行结果如图4-2所示。
VB程序设计练习题附加答案
《VB程序设计》综合复习资料第一章Visual Basic程序设计概述一、填空题1、Visual Basic是一种面向__对象________的可视化程序设计语言，采取了事件驱动________的编程机制。
2、在VB中工程文件的扩展名是vbp__________，窗体文件的扩展名是___frm_________，标准模块文件的扩展名是__bas_________。
3、执行“工程”菜单下的_部件_________命令，可选择并添加ActiveX控件。
4、Visual Basic 6.0用于开发__ WINDOWS ________环境下的应用程序。
二、选择题1、下面不是VB工作模式的是（C）A．设计模式B．运行模式C．汇编模式D．中断模式2、可视化编程的最大优点是（C）A．具有标准工具箱B．一个工程文件由若干个窗体文件组成C．不需要编写大量代码来描述图形对象D．所见即所得3、下列不能打开属性窗口的操作是（C ）A．执行“视图”菜单中的“属性窗口”命令B．按F4键C．按Ctrl+TD．单击工具栏上的“属性窗口”按钮4、下列可以打开立即窗口的操作是（D）A．Ctrl+D B．Ctrl+E C．Ctrl+F D．Ctrl+G5、Visual Basic的编程机制是（D）A．可视化B．面向对象C．面向图形D．事件驱动三、简答题1、代码窗口主要包括哪几部分？2、在工程资源管理器窗口中，主要列出了哪三类文件？3、窗体布局窗口的主要用途是什么？4、VB的基本特点是什么？5、怎样理解可视化设计？6、怎要理解事件驱动编程？第二章简单的VB程序设计一、填空题1、设置是否可以用Tab键来选取命令按钮，应该用__ Tabstop ____________属性。
2、一个控件在窗体的位置由_______和________属性决定，其大小由__________和_________属性决定。
3、利用对象的属性setfocus可获得焦点，对于一个对象，只有其visible属性和____________属性为true，才能接受焦点。
VB程序设计试题 及 参考答案
VB程序设计及参考答案一、单选题（共20分，每小题1分）1、要改变控件的宽度，应修改该控件的（）属性。
（A）TOP （B）width （C）Left （D）Height2、将命令按钮Command1设置为不可见，应修改该命令按钮的（）属性。
（A）Visible （B）Value （C）Caption （D）Enabled3、（）对象具有clear方法。
（A）图片框（B）窗体（C）复选框（D）列表框4、启动VB后，就意味着要建立一个新（）。
（A）窗体（B）文件（C）工程（D）程序5、下列（）对象不具有Clear方法。
（A）列表框（B）组合框（C）剪贴框（D）图片框6、组合框有三种风格，它们由Style属性所决定，其中为简单组合框时，Style 属性值应为（）（A）0 （B）1 （C）2 （D）37、下列可调整图片框的大小以适合图片的属性是（）（A）Stretch （B）autosize （C）picture （D）oledropmode 8、要想清除文本框中的内容则可利用（）进行。
（A）Caption （B）Text （C）Clear （D）Cls9、在文本框控件中将Text的内容全部显示为所定义的字符的属性是（）。
（A）Password （B）PasswordChar（C）需要编程来实现（D）以上都不是10、Visual Basic是一种面向对象的程序设计语言，所采用的编程机制是（）。
（A）从主程序开始执行（B）按过程顺序执行（C）事件驱动（D）按模块顺序执行11、下列四项中合法的变量名是（）。
（A）a-bc （B）a_bc （C）4abc （D）integer12、无论何种控件，共同具有的属性是（）（A）Text （B）Name （C）Caption （D）ForeColor13、有程序代码如下：Text1.Text = "Visual Basic程序设计"则Text1、Text ，和"Visual Basic程序设计"分别代表（）。
VB程序设计试题与答案解析
VB程序设计试题1.多窗体程序是由多个窗体组成，在缺省情况下，VB在应用程序执行时，总是把（）指定为启动窗体。
A.不包含任何控件的窗体B. 设计时的第一个窗体C. 包含控件最多的窗体D. 命名为Frm1的窗体2. 应用程序打包后，其包文件的后缀为（）。
A. .exeB. .cabC. .txtD. .ocx3.当一个工程中含有多个窗体时，其中的启动窗体是（）。
A. 启动VB时创建的第一个窗体B. 第一个添加的窗体C. 最后一个添加的窗体D. 在“工程属性”对话框中指定的窗体4.能够改变标签Label控件显示标题的属性是（）。
A.CapionB. NameC. ClickD. Text5.下面关于工程的概念中错误的是（）。
A.Visual Basic 的工程是相关应用程序文件的集合B. Visual Basic 的工程实际上为了管理构成应用程序的所有文件C. 一个大的Visual Basic应用程序才能构成一个工程D. 建立只有一个窗口的应用程序，会生成多个程序文件，也称为一个工程6.将一个VB程序保存在磁盘上，至少会产生的文件是（）。
A..doc、.txtB. .txt、.exeC. .vbp、.frmD. .bat、.frm B.7.一个VB应用程序可以包含几个vbp文件（）8.A. 1个 B. 2个 C. 可以没有 D. 不受限制9.8.当运行程序时，系统自动执行启动窗体的（）事件过程。
A.LoadB. ClickC. UnloadD. GotFocus9. 对于定时器（Timer）控件,设置其定时是否开启的属性是（）A. IndexB. TagC. EnabledD. Left10.启动VB后，就意味着要建立一个新（）。
A.窗体B. 程序C. 文件D. 工程11.假定已在窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先应执行的操作是（）A.单击窗体上没有控件的地方B. 单击任一个控件C. 不执行任何操作D. 双击窗体的标题栏12.下面各种高级语言中，不是面向对象程序设计语言的是（）。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
VB程序设计试题及答案（三）一、单选题1. Visual Basic是一种面向对象的可视化程序设计语言，采取了 A 的编程机制。
(A) 事件驱动(B) 按过程顺序执行(C) 从主程序开始执行(D) 按模块顺序执行2. 若要使标签控件显示时不覆盖其背景内容，要对 D 属性进行设置。
(A) Backcolor (B) BorderStyle(C) Forecolor (D) Backstyle3. 在Visual Basic中最基本的对象是 C ，它是应用程序的基石，是其他控件的容器。
(A) 文本框(B) 命令按钮(C) 窗体(D) 标签4. 要判断在文本框是否按下Enter键，应在文本框的 D 事件中判断。
(A) Change (B)KeyDown(C) Click (D)KeyPress5. 数学表达式3≤x<l0在VB中的逻辑表达式为 D 。
(A) 3<=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. 赋值语句:a=123+Mid("123456"，3，2)执行后，a变量中的值是 D 。
(A) "12334" (B) 123 (C) 12334 (D) 1578. 对于语句If x=l Then y=l，下列说法正确的是 C 。
(A) x=l和y=l均为赋值语句(B) x=l和y=l均为关系表达式(C) 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 Else Max=y(C) Max=x (D) Ify>=x Then Max=yIf y>=x Then Max=y Max=x10.当在文本框中输入“ABCD”4个字符时，窗体上显示的是 C 。
Private Sub Text1_Change( )Print Text1;End Sub(A) ABCD (B) A (C) AABABCABCD (D) ABABCABCDABCD11.下列哪个程序段不能分别正确显示1！、2！、3！、4！的值 B 。
(A) For i=1 to 4 (B) For i=1 to 4n=1 For j=1 to iFor j=1 to I n=1n=n*j n=n*jNext j Next jPrint n Print nNext I Next i(C) n=1 (D) n=1For j=1 to4 j=1n=n*j Do While j<=4Print n n=n*j Next j Print nj=j+1Loop12.如下数组声明语句，则数组a包含元素的个数有 A 。
Dim a(3, -2 to 2, 5)(A) 120 (B) 75 (C) 60 (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*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=2 b=4 c=6 (B) a=4 b=6 c=10a=4 b=6 c=10 a=8 b=8 c=16(C) a=4 b=6 c=6 (D) a=4 b=6 c=14a=8 b=6 c=6 a=8 b=8 c=616.复选框的Value属性为1时，表示 B 。
(A) 复选框未被选中(B) 复选框被选中(C) 复选框内有灰色的勾(D) 复选框操作有误17.下面关于菜单的说法中，错误的是 B 。
(A) 每个菜单项都是一个控件，与其他控件一样也有自己的属性和事件(B) 除了Click事件之外，菜单项还能响应其他的，如DbClick事件(C) 菜单项的快捷键不能任意设置(D) 在程序执行时，如果菜单项的Enabled属性为False，则该菜单项变成灰色，不能被用户选择18.下面关于多重窗体的叙述中，正确的是 B 。
(A) 作为启动对象的Main子过程中能放在窗体模块中(B) 如果启动对象是Main子过程，则程序启动时不加载任何窗体，以后由该过程根据不同情况决定是否加载或加载哪一个窗体(C) 没有启动窗体，程序不能执行(D) 以上都不对19.当用户将焦点移到另一个应用程序时，当前应用程序的活动窗体将 D 。
(A) 发生DeActivate事件(B) 发生LostFocus事件(C) 发生DeActivate和LostFocus事件(D) DeActivate和LostFocus事件都不发生20.顺序文件是因为 D 。
(A) 文件中的数据按每行的长度从小到大排序好的(B) 文件中的数据按某个关键数据项从大到小进行排序(C) 文件中的数据按某个关键数据项从小到大进行排序(D) 数据按进入的先后顺序存放的，读出也是按原写入的先后顺序读出21.文件号最大可取值为 B 。
(A) 255 (B) 511 (C) 512 (D) 25622.Print #1, STR$1中的Print是 A 。
(A) 文件的写语句(B) 在窗体上显示的方法(C) 子程序名(D) 以上均不是23.以下的属性和方法中 C 可重定义坐标系。
(A)Drawstyle属性(B) DrawWidth属性(C) Scale方法(D) ScaleMode属性24.封闭图形的填充方式由下列 C 属性决定。
(A) DrawStyle, DrawMode (B) AutoRedraw, ClipControls(C) FillStyle, FillColor (D) ForeColor, BorderColor25.下列字符串中， D 不包含在ADO数据控件的ConnectionString属性中。
(A) Microsoft Jet 4.0 OLE DB Provider(B) Data Source=C:\Mydb.mdb(C) Persist Security Info=False(D) 2-adCmdT able二、填空题1．在代码窗口对窗体的BorderStyle、MaxButton属性进行了设置，但运行后没有效果，原因是这些属性在运行时设计是无效的。
2．在文本框中，通过SelStart 属性能活得当前插入点所在的位置。
3．表达式Ucase(Mid(“abcdefgh”, 3, 4))的值是CDEF 。
4．已知a=3.5，b=5.0，c=2.5，d=True，则表达式：a>=0 And a+c>b+3 Or Not d的值是False 。
5．要获得动态数组的上界通过UBound 函数，下界通过LBound 函数。
6．由Array函数建立的数组，其变量类型必须是variant 类型。
7．VB中的变量按其作用域分为全局变量、模块变量和局部变量变量。
8．复选框的Value 属性设置为2——Grayed时，变成灰色，禁止用户选择。
9．滚动条响应的重要事件有Scroll 和Change。
10．假定有一个通用对话框控件CommonDialog1，除了用COmmonDialog1.Action=3显示颜色对话框之外，还可以用showcolor 方法显示。
11．窗体Form1的左上角坐标为(-200, 250)，窗体Form1的右下角的坐标为(300, -150)，则X轴的正向向右，Y轴的正向向上。
12．使用Circle方法画扇形，起始角、终止角取值范围为0~2π。
13．在运行状态改变ADO数据控件的数据源连接属性后，必须使用Refresh 方法激活这些变化。
14．VB中工程文件的扩展名为vbg 。
15．如果在窗体上已经创建了一个文本框对象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 SubSub 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 10(3)Private 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/xEnd Sub输出结果:22 4842.补充程序(1) 以下是求1～18之间某个数的阶乘的程序，具体的数值n由滚动条HScroll1获得，结果显示在窗体下部的两个Label标签里。