郑州大学现代远程教育Visual Basic程序设计课程学习指导书.pdf

郑州大学现代远程教育Visual Basic程序设计课程学习指导书塑毡Iff建1第一章Visual Basic程序设计概述（-）本章学习目标理解程序设计语言的概念，VB的功能和作用。熟练掌握Visual Basic的启动和 退出方法，学会使用IDE集成开发环境中标题栏、菜单栏、工具栏和窗体窗口、属性 窗口、资源管理器窗口和代码窗口，了解工具箱窗口的作用。（二）本章重点、要点VB的启动和退出、工程的概念、VB集成开发环境的操作：窗口和工具栏的作用。（三）练习题1.退出Visual Basic的快捷键是。A.Ctrl+Q B.Shift+QC.Alt+Q D.Ctrl+Alt+Q2.窗体设计器是用于设计。A.应用程序的界面 B.对象的属性C.应用程序的代码 D.窗体的代码3.启动Visual Basic后,VB为用户建立的第一个窗体是A.Forml B.FormC.窗体1 D.窗体4.启动Visual Basic后,VB为用户新建立的工程的名字是。A.窗体1 B.工程1C.窗体 D.工程5.工程资源管理器窗口包含的文件类型有 种。A.1 B.2C.3 D.46.如果VB环境中缺少某个窗口，一般应从主菜单 的下拉菜单中找到相应的激活命令。A.编辑 B.文件C.调试 D.视图7.能够通过标准工具栏打开的窗口是 oA.代码窗口 B.设计器窗口远联教同学院网络管理中心9.10.C.属性窗口8.窗体文件的扩展名D.窗体布局窗口A.上asB.vbpC.exeD.frm工程文件的扩展名_OA.comB.vbpC.exeD.basVisual Basic的编程机制是_OA.面向过程B.面向对象C.事件驱动D.可视化第二章VB可视化编程基础（-）本章学习目标理解结构化程序设计的思想，面向对象的程序设计。掌握类、对象、属性、方法、事件和控件等概念。熟练掌握创建一个VB应用程序的过程，能运用IDE中的工具使 用控件及对控件的事件编程，理解事件驱动的思想。（二）本章重点、要点面向对象的有关名词，使用VB创建一个应用程序的全过程，各种窗口的使用,基本控件以及方法、属性的使用。（三）练习题1.使用VB建立一个应用软件的全过程有哪些步骤？。2.保存VB文件，至少要保存几个文件？应先保存什么文件？3.工程文件，窗体文件，标准模块文件，类模块文件的文件名的扩展名分别是什么？4.用代码对窗体中的控件设置属性值，这些代码应该放在什么事件中？5.运行程序有几种方法？各是什么？6.从代码窗口返回到设计窗体窗口（VB集成开发环境）有几种方法？7.输入代码忘记属性值时怎么办？8.在代码窗口输入代码时，输入控件的名称及圆点后，出现下拉列表后，如何输入方法 或属性？9.窗体、标签、命令按钮、文本框的默认属性分别是什么？10.在输入代码时，如何从属性列表和方法列表中快速输入属性及方法？Dwmm Um tjaw f*远醒教网学院网络曾理中心第三章VB语言基础(一)本章学习目标本章是VB编程的基本要求，一定要熟练掌握基本数据类型、常量、变量、运算 符、表达式等基本概念和规则。学会并能运用一些常用函数。(二)本章重点、要点编写VB程序的基本要求，记住并熟练掌握基本数据类型及对应的关键字，常量 和变量的定义与使用、各类运算符的写法和使用、VB表达式的规则。一些常用的内部 函数要学会使用。(三)练习题1.VB定义了哪儿种数据类型？变量有哪几种数据类型？常量有哪儿种数据类型？2.如果希望使用变量x来存放数据765432.123456,应该将变量x声明为何种类型?3.VB共有几种表达式？根据什么确定表达式的类型？4.在VB中，对于没有赋值的变量，系统默认值是什么？5.VB算术表达式a/(b+c/(d+e/Sqr(f)的数学表达式是什么？6.函数Int(Rnd(0)*10)属于哪个范围内的整数？7.顺序结构的特点是什么？8.Rem和单撇号有什么不同？9.试述Tab()和Space。两个函数的区别？10.试述Int()和Fix()两个函数的区别?第四章VB控制结构(一)本章学习目标本章主要讲述VB的三种基本语句结构：顺序结构、选择结构、循环结构。这是 VB编程的基本要求，也是本门课程的重点内容。要求熟练掌握这三种基本结构的语法(包括各种变化)，能准确写出各种语句结构执行的步骤，能熟练运用该语句进行编远联教同学院网络管理中心程，不出现语法错误。同时，应熟练掌握一些常用的算法。常用算法：累加、连乘 求素数、穷举法、递推法和最大、小值的求法等。（二）本章重点、要点VB的顺序结构、选择结构、循环结构的语法和常用算法。在VB中，实现循环 的语句有三种：For-Next循环（计数循环）、While-Wend循环（当循环）和Do-Loop 循环（Do循环）。在这三种循环语句中，进行不同的组合，可以形成多种格式的语句。（三）练习题1.通过键盘输入若干数，当输入。时结束输入（0不参加计算），计算并输出这些数的平 均值。2.从1开始计算奇数的平方倒数之和，要求最后一项刚好小于0.0001。3.输出如图所示的图形。4.输入30个字符，统计其中字符A,B,C的个数（不分大小写），连续输入三个字符Q,则结束程序。5.求 1!+2!+3!+n!6.求出Fibonacci（斐波那契）数列的前20项。Fibonacci（斐波那契）数列的规律 是：前2项为0和1,其余各项为该项前2项之和，BP 0,1,1,2,3,5,8,13。7.打印九九乘法表。8.输入两个正整数，求其最小公倍数和最大公约数。9.找出1000以内所有的个位数为3素数，并统计其个数。10.对于下面所示的分数序列：远联教同学院网络管理中心1 2 3.5._8_ 132，3，5，8，13，21，求出该序列的前10项的和，并打印出第10项。第五章数组和自定义类型(-)本章学习目标本章理解VB的数组的概念及数组的作用、熟练掌握数组的声明方法、VB数组的 基本操作、能运用数组进行编程，掌握一些常用算法的编程思想，学会选择法和起泡 排序法。(二)本章重点、要点VB的数组的概念、VB静态数组及声明、VB动态数组及声明、VB数组的基本操作、选择法排序和起泡法排序，利用数组进行编程的一些常用算法。(三)练习题1.将一个一维数组a(9)中各元素值按行的顺序放入二维数组b(3X3)o2.用随机数函数产生10个40内的整数，使用选择排序法从小到大排序3.生成下列二维数组，且按下列格式输出。3 4 5 67 8 9 1011 12 13 1415 16 17 184.将一个一维数组反序放置。例如：a=(67,89,76,98,66),反序放置后，a=(66,98,76,89,67)5.有一个mXn矩阵，找出最大元素值及其最大元素值所在的行、列位置。6.将矩阵m(n,n)主对角线和次对角线上的元素置为1,其余元素置为0。7.将一个二维数组a(m,n)按行顺序将每个元素放入一个一维数组b(mXn)。8.将用inputbox。输入的一个数插入到一个按递增排列的有序数列中，插入后该数列仍然 有序。9.有一个无序数组，删去与第一个元素值相同的其他元素值，删除后其他元素的值前移。远联教同学院网络管理中心第六章过程（-）本章学习目标本章熟练掌握函数过程的定义与调用，熟练掌握子过程的定义与调用，学会参数 传递方式：传值和传址，理解变量、过程的作用域，理解递归定义和思想，能运用递 归进行编程。（二）本章重点、要点函数过程和子过程的定义与调用，参数的传递方式：传值和传址，变量、过程的 作用域，递归等概念。（三）练习题1.函数过程有什么不足？2.子过程与函数过程区别有哪些？3.函数的参数传递时，什么是传址方式？4.函数的参数传递时，什么是传值方式5.什么是变量、过程的作用域？6.过程的作用域有哪几个级别？其对应的关键字是什么？7.在VB中，变量有哪些级别？如何定义？8.什么是递归？请举例说明。9.设计递归时应遵循哪些原则？第七章用户界面设计（一）本章学习目标理解控件的作用。能运用常用控件进行编程。（二）本章重点、要点VB中可使用的控件分为三类：标准控件、ActiveX控件和可插入对象。远联教同学院网络管理中心标准控件（也称内部控件），VB启动后出现在工具箱中的控件，共有20个，既不能添 加，也不能删除。这些控件由VB的.exe文件提供。AcitveX控件，在以前的版本中称为OLE控件或定制控件，是AcitveX部件的一部分,AcitveX部件是可以重复使用的编程代码和数据，是山用AcitveX技术创建的一个或多个 对象所组成。AcitveX 部件通常分为四种:AcitveX 控件、AcitveX DLL、AcitveX EXE 和 AcitveX 文档。AcitveX部件是扩展名为.OCX的独立文件，通常存放在Windows的system文件夹 中。使用AcitveX控件之前必须加载。大多数AcitveX控件的属性可以简单地在其属性页 中设置。可插入对象是指Windows应用程序的对象，也可以添加到工具箱中，具有与标准控件 类似的属性，可以同标准控件一样使用。单选按钮和复选框、框架、列表框和组合框、滚动条和Slide控件、时钟、ProgrcssBar 控件、UpDown控件、Animation控件、SSTab控件、鼠标器和键盘（三）练习题1.VB中可使用的控件分为哪几类？2.框架有什么作用？3.列表框的作用是什么？4.组合框有哪儿种类型？5.时钟控件的作用如何？6.鼠标事件有哪些？7.键盘事件有哪些？各自的作用如何？8.Animation控件有什么用处？9.怎样设置鼠标光标的形状？10.SSTab控件的Click事件过程有什么特点？第八章数据文件（一）本章学习目标学会文件的概念，学会文件的作用，学会文件的分类，熟练掌握文件的读写操作 方法、了解并能运用常用的文件操作语句和函数。熟练掌握用文件进行数据存储的方 法。（二）本章重点、要点文件的概念，文件的作用，文件的分类，文件的读写操作方法、常用的文件操作语句和函数。近联数月学院 同络if理中心（三）练习题1.什么是文件？2.根据访问模式，文件可分为哪些种类？请说出其特点。3.若要对文件进行访问，需要经过哪几个步骤？4.打开一个顺序文件时一，有哪几种打开的模式？都有什么作用？5.读顺序文件时，有哪几种命令可以使用？命令的格式和作用各是什么？6.LOF（）和EOF（）都有什么作用？7.已知有一个数据文件data,dat,请编写程序将data,dat中的数据复制到文件 student,dat 中去。8.已知一个学生信息的文本文件为student,dat,学生信息包括：姓名（字符型），专业（字符型），年龄（整型），分数（整型）编写程序，找出其中分数最高的和分数最低的学生并输出其记录到文件HL.TXT中去。9.已知一个学生信息的文本文件为student.dat,学生信息包括：姓名（字符型），专业（字符型），年龄（整型），分数（整型）编写程序，统计出其中不及格的学生人数并输出。10.已知一个学生信息的文本文件为student,dat,学生信息包括：姓名（字符型），专业（字符型），年龄（整型），分数（整型）编写程序，查找姓名为“王军”的学生并输出其记录。远醒教网学院网络曾理中心参考答案第一章Visual Basic程序设计概述1.C 2.A 3.A4.B 5.D 6.D 7.C 8.D 9.B 10.C第二章VB可视化编程基础1.具体过程如下(1)在窗体上建立用户窗口(界面)对象。(2)分别对对象设置属性。(3)分别对对象事件的过程编程且完成代码输入。(4)运行程序和调试程序。(5)保存程序。2.至少保存2个文件，先保存窗体文件，后保存工程文件。3.vbp,.frm,.上as,.4.应该放在窗体装入(Form_Load)事件中5.三种：方法一是执行工具辿中的启动按钮；方法二是选取菜单中的“运行/启动”命令;方法三是直接按F5键。6.至少5种方法：点击窗体窗口；选择菜单栏的viewobject;shift+F7;点击资源管理器中 的窗体按钮；单击工程资源管理器中的窗体名称(如：formDo7.在代码窗口输入代码时，控件的名称及圆点输入后，系统自动出现属性及方法的下拉 列表，可以帮助使用者快速输入。8.输入方法或者属性关键字的首字母进行初选，再用鼠标或者光标键细选，然后双击鼠 标左键或者单击空格键。9.标签、命令按钮、文本框、图形图像框的默认属性分别为：caption、caption text和 pictureo10.可以先输入属性或方法的首字母，然后找到需要的属性及方法并选择，用鼠标双击或 击空格键即可完成输入。远醒教网学院网络曾理中心第三章VB语言基础1.VB6.0定义了 13种数据类型，分别是整数、长整数、单精度浮点型、双精度浮点型、货币型、字节型、变长字符串、定长字符串、布尔型、日期型、对象型、可变类型(数值)、可变类型(字符)。变量的数据类型有：数值型(整型、长整型、单精度浮点型、双精度浮点型、货币型 和字节型)、字符串(变长字符串和定长字符串)、布尔型、日期型、对象型、可变数据类 型(数值和字符)。常量的数据类型有：字符串常量、数值常量(整型、长整型、单精度浮点型、双精度 浮点型、货币型和字节型)、布尔常量、日期常量。2.应该使用双精度数Double类型。3.VB有5种类型的表达式，分别是：算术表达式、字符串表达式、关系表达式、布尔表 达式和日期表达式，VB根据表达式的运算符来确定表达式的类型。4.在VB中，当使用声明语句建立一个变量后，系统自动将数值类型的变量赋初值0,变 长的字符串被初始化为一个零长度的字符串(”“)，而定长的字符串则用空格填充。Variant 变量被初始化为Emptyo将布尔型的变量初始化为False。5.写成的数学表达式为-6.(0,10)7.顺序结构是一种线性结构，在这种结构中，各操作块按照各自某种顺序依次执行。8.Rem命令及命令后的说明文字要求独占一行，Rem和注释文字间一定要加一个空格，如 果非要使用Rem命令将注释语句写在某条语句后，则需在Rem前使用英文“：”号；而单 撇号没有上述限制。9.Tab()函数是绝对定位函数，总是从左边界开始；Space。函数能从当前输出位置起输 出若干空格(形成一段空距)。Fix(x)函数无论对正数或负数都是去掉小数部分，取整数部分(符号不变)，如：Fix(9.l)=Fix(9.9)=9,Fix(-9.l)=Fix(-9.9)=-9；而 Int(x)函数返回的是不超过 x 的最 大整数，如：Int(9.l)=Int(9.9)=9,Int(-9.l)=Int(-9.9)=-10o第四章VB控制结构Private Sub Command2_Click()Dim Sum As Single,Count As Integer,Vai As SingleSum=0，M吐多髓普黑Count=-1Vai=1While Vai 0Vai=InputBox(“请输入一个数:&Chr(13)&Chr(10)&”输入 0 结束程序!”)Sum=Sum+Vai Count=Count+1WendIf Count 0 ThenPrint While-Wend 循环：，共输入了；Count个数，平均值为：；Sum/CountEnd IfEnd Sub2.Private Sub Form_Click()Dim N as Integer,Sum as Single,Term as SingleN=1Sum=0DoTerm=1/(N*N)Sum=Sum+Term N=N+2Loop Until Term 0.0001Print”运算结果为:;SumPrint”最后一项的值为：；Term End SubPrivate Sub Command1_C1ick()Print Tab(18)双循环的结果”For i=1 To 10Print Tab(25-i);For j=lT o2*i-lPrintNext jPrintNext iEnd Sub思考：代码段中倒数第三行的语句Print的作用是什么？语句Print Tab(25-i);的作用是什么？特别体会其中的25的含义。Private Sub Command2_Click()Print Tab(18);单循京的结果，M吐多髓普黑For i=1 To 10Print Tab(25-i);String(2*i-1,*)Next iEnd Sub双循环方式中的内循环被字符串函数String(2*i-1,*)所替代。对于字符 串函数，如果能熟练掌握，对程序设计具有很大的帮助。Private Sub Command1_Click()Dim ACount As Integer,BCount As Integer,Dim CCount As Integer,QCount As IntegerDim CH As String*1ACount=0BCount=0CCount=0QCount=0For I=1 To 30CH=InputBox(请输入一个字符！&Chr(13)&Chr(10)+连续输入三个字 符Q,可结束程序，字符统计)CH=UCase(CH)If CH=Q Then QCount=QCount+1 Else QCount=0If QCount=3 ThenMsgBox 连续输入了三个字符Q,结束输入，注意Exit ForEnd IfSelect Case CHCase A”ACount=ACount+1Case BBCount=BCount+1 c 小Case CCCount=CCount+1End SelectNext ITextl.Text=ACount:Text2.Text=BCount:Text3.Text=CCountEnd SubPrivate Sub Form_Click()Dim N As Integer,I As IntegerN=InputBox(请输入一个数正整数N：)factorial=1Sum=0远醒数目学院同给管理中心For I=1 To Nfactorial=factorial*ISum=Sum+factorialNext IPrint 小于自然数；N;的自然数阶乘之和为：，Sum End SubPrivate Sub Form_Click()a=0 b=1Print a,b,For i=1 To 9 a=a+b b=a+b Print a,b,If i Mod 2=1 Then PrintNext iEnd Sub 运行结果见图：7.Private Sub Form_Click()For i=1 To 9For j=1 To iPrint Tab(11*(j-1);j;i;Str(i*j);Next jPrintNext iEnd Sub 运行结果如下图所示：8.编写了两个按扭的事件程序。“求最大公约数”按扭的过程为：Dim A As Integer,B As Integer,N As Integer,M As Integer,R As Integer Private Sub Commandl_Click()M=Vai(Textl.Text)N=Vai(Text2.Text)A=M B=N If N=0 Then Exit Sub R=M Mod N Do While R 0 M=N N=R R=M Mod NLoopLabel3.Caption=NEnd Sub“求最小公倍数”按扭的过程为：Private Sub Command2_Click()If N 0 Then Label4.Caption=A*B/N End Sub 运行界面可参阅图。说明：该设计运行时，如果要求最小公倍数，需要先按“求最大公约数”的按扭,远联教同学院网络管理中心求出最大公约数后方可按“求最小公倍数”的按扭。9.窗体的Click事件过程为：Private Sub Form_Click()n=0For i=3 To 1000 Step 2 prime=1 x=2 m=Int(Sqr(i)While x a(j)Then i=j 保存位置，先不交换数据Next jd=a(k):a(k)=a(i):a(i)=d，j循环结束根据记下的位置交换数据 Print a(k);Next kPrint a(10)End Sub3.方法一：Option Base 1Private Sub Form_Load()Dim m&(4,4),i%,j%For i=1 To 4For j=1 To 4m(i,j)=(i-l)*4+j+2Print Spc(5-Len(Str(m(i,j);m(i,j);Next jPrintNext iEnd Sub方法二：Option Base 1Private Sub Form_Load()Dim m&(4,4),i%,%,n%n=3For i=1 To 4For j=1 To 4m(i,j)=nPrint Spc(5-Len(Str(m(i,j);m(i,j);n=n+1Next jPrintNext iEnd Sub4.程序如下：Option Base 1Private Sub Form_Load()Dim a(),ba=Array(2,3,5,7,9,15,17,19,22)n=UBound(a)For k=1 To n/2通口网收孝瑞也懿b=a(k)a(k)=a(n+1-k)a(n-k+1)=bNext kFor k=1 To nPrint a(k);Next kEnd Sub程序如下：Option Base 1Private Sub Form_Load()Dim a(),m%,n%,i%,j%m=InputBox(input m)n=InputBox(input n)ReDim a(m,n)RandomizeFor i=1 To mFor j=1 To na(i,j)=Int(Rnd*100)Print a(i,j);Next jPrintNext iMax=a(l,1)h=1:1=1 For i=1 To mFor j=1 To nIf Max a(i,j)Then H=i:l=jEnd IfNext jNext iPrint a(h,1);h,1End Sub6.程序如下：Option Base 1Private Sub Form_Load()Dim a%(),m%,i%,j%m=InputBox(input m)ReDim a(m,m)For i=1 To ma(i,i)=1a(i,m-i+1)=1Next iFor i=1 To mFor j=1 To mPrint a(i,j);Next jPrintNext iEnd Sub程序如下：Option Base 1Private Sub Form_Load()Dim a%(2,4),b%(8),i%,j%,n%n=1For i=1 To 2For j=1 To 4a(i,j)=InputBox(input number)b(n)=a(i,j)n=n+1Next jNext iFor i=1 To 8Print b(i);Next iEnd Sub程序如下：ption Base 1Private Sub Form_Load()Dim a(),i%,j%,k%,n%a=Array(53,59,67,89,90,95)n=(UBound(a)+1)ReDim Preserve a(n)k=InputBox(iuput x)For i=1 To n-1If k a(i)Then Exit For Next iForj=n To i+1 Step-1 a(j)=a(j-l)Next ja(i)=kFor i=1 To nPrint a(i);Next iEnd Sub9.远联教同学院网络管理中心程序如下：Option Base 1Private Sub Form_Load()Dim a(),i%,j%,k%,n%,kk%a=Array(66,66,67,90,87,66,90,67,66)n=UBound(a)i=2Do While i MouseDown MouseUp 和 MouseMove。7.键盘事件有KeyPress KeyUp和KeyDown。其中KeyUp和KeyDown所接收到的信息 与KeyPress接收到的不完全相同。KeyUp和KeyDown能检测到KeyPress不能检测到的功 能键、编辑键和箭头键。KeyPress接收到的是用户通过键盘输入的ASCH码字符。8.Animation控件只能播放无声的AVI文件，不能播放含有声音数据的AVI文件。9.鼠标光标的形状通过MousePointer属性来设置，该属性可以在属性窗口中设置，也可以在程序代码中设置。MousePointer的属性是一个整数，可以取015。10.SSTab控件用来制作含有选项卡的对话框。SSTab控件具有特殊的Click事件过程，其参数previoustab标识先前为活动的选项卡。另外，在当前活动的选项卡上单击不会触 发Click事件，只有当单击其他的选项卡时才发生该事件。远醒教网学院网络曾建中心第八章数据文件1.文件是存储在外部介质上数据的集合。2.文件是记录的集合。可分为下列三种：顺序访问模式：顺序文件，记录可长可短；按顺序依次把记录写入文件；按顺序依次把记 录读出来。随机访问模式：随机文件，记录的长度相同；随机文件可以直接访问文件中的任意一个记 录，根据记录号访问。二进制访问模式：二进制文件（可认为记录长度为1）。直接把二进制码存放在文件中。3.需要进行三个步骤：打开文件、对文件进行操作和关闭文件。4.有三种打开的模式可以选择：OUTPUT：对文件进行写操作；INPUT：对文件进行读操作；APPEND：把数据追加到文件末尾。5.有三种命令语句可以使用：INPUT#文件号,变量列表把读出的每个数据项分别存放到所对应的变量。LINE INPUT#文件号，字符串变量读一行到变量中，主要用来读取文本文件。INPUTS（读取字符数,#文件号）随意读取字符6.LOF（文件号）：返回文件的长度（总字节数）。EOF（文件号）：返回读写位置。指针在文件尾时，EOF函数为T rue,否则为False。7.Private Sub Form_Load（）Dim char As ByteDim FileNuml,FileNum2 as IntegerFileNuml=FreeFile 打开源文件Open C:DATA.DAT For Binary As#FileNumlFileNum2=FreeFile 打开目标文件Open C:STUDENT.DAT For Binary As#FileNum2Do While Not EOF（FileNuml）Get#FileNuml,char 从源文件读出一个字节Put#FileNum2,char 将一个字节写入目标文件LoopClose#FileNumlClose#FileNum2End SubPrivate Sub Form_Click()Dim name$,spe$,age%,score%Dim hname$,hspe$,hage%,hscore%Dim lname$,lspe$,lage%,Iscore%Open c:student.dat For Input As#1Open c:HL.TXT For Output As#2Hscore=-1Lscore=-1Do While Not EOF(l)Input#1,name,spe,age,scoreIf scorehscore thenHname=NameHspe=SpeHage=AgeHscore=ScoreEnd IfIf scoreLscore thenLname=NameLspe=SpeLage=AgeLscore=ScoreEnd IfLoopWrite#2,Hname,Hspe,Hage,HscoreWrite#2,Lname,Lspe,Lage,LscoreClose#1,#2End SubPrivate Sub Form_Click()Dim name$,spe$,age%,score%,Count%Open c:student.dat For Input As#1Count=0Do While Not EOF(l)Input#1,name,spe,age,scoreIf score60 then Count=Count+lLoopPrint 不及格的人数为：，Count通口网收孝瑞也懿Close#1End Sub10.Private Sub Form_Click()Dim name$,spe$,age%,score%Open c:student.dat For Input As#1Do While Not EOF(l)Input#1,name,spe,age,scoreIf name=王军thenPrint name,spe,age,score Exit DoEnd IfLoopClose#1End Sub麻网上多髓修?Visual Basic）课程考试模拟试卷一、单项选择题（每题1分，共70分，请将正确答案写入表格中）1.退出Visual Basic的快捷键是。A.Ctrl+Q B.Shift+QC.Alt+Q D.Ctrl+Alt+Q2.窗体设计器是用于设计 oA.应用程序的界面 B.对象的属性C.应用程序的代码 D.窗体的代码3.启动Visual Basic后,VB为用户建立的第一个窗体是。A.Forml B.FormC.窗体1 D.窗体二、简答题（每题5分，共10分）1.若要对文件进行访问，需要经过哪几个步骤？2.打开一个顺序文件时，有哪几种打开的模式？都有什么作用？三、编程题（每题10分，共20分）1.写程序计算一个正整数的所有因子的和。2.编写程序，用双循环结构输出下列三角形:*