2022年电大计算机本科_补修《Visual_Basic程序设计》期末_复习题 .pdf

《2022年电大计算机本科_补修《Visual_Basic程序设计》期末_复习题 .pdf》由会员分享，可在线阅读，更多相关《2022年电大计算机本科_补修《Visual_Basic程序设计》期末_复习题 .pdf（20页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、1 / 20 Visual Basic程序设计（开放本科补修）课程期末复习一、单项选择题1.如果要设置窗体的标题栏，应选择（ B ）属性。AVisible BCaption CName DText 2.要使命令按钮不响应用户生成的事件，应设置命令按钮的（ D ）属性。AVisibleB CaptionCEnableDEnabled 3.要使标签能透出窗体的背景，应设置标签的（ A ）属性。ABackStyleB BorderStyleC AppearanceDBackColor 4.以下控件中，（ A ）控件不会影响到界面设计效果。A计时器B文本框C标签D Line 控件5.在 Visual

2、Basic 中，一般（ B ）属性用来设置字体的颜色。AFontColor BForeColor CBackColor DShowColor 6.在 VB 中断模式下，可用调试窗口监视表达式和变量的值，其中在（A ）窗口中可以直接键入命令以显示命令所请求的信息。A立即B.监视C.本地D.中断7.某计时器控件的interval 属性为 0 时，表示（ A ）。A计时器关闭计时CTimer 事件的间隔时间为0 毫秒BTimer 事件的间隔时间为0 秒 D计时器启动计时8.在窗体 Form1 的 Click 事件过程中有以下语句：Label1.Caption=Visual Basic 若本语句执行之

3、前，标签控件的Caption 属性为默认值，则标签控件的Name 属性和Caption 属性在执行本语句之前的值分别为（ B ）。ALabel 和 Label BLabel1 和 Label1 CLabel1 和 Visual Basic DLabel 和 Caption 9.（ C ）控件不具有Caption 属性。ALabelB FormCTextBoxD CommandButton 10.改变控件在窗体中的上下位置，应设置控件的（ A ）属性。ATopBLeftC WidthD Right 11.文本框中选定的内容，由下列（ C ）属性反映。ATextBCaptionC SeltextD

4、 SelLenght 精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 1 页，共 20 页2 / 20 12.在 Visual Basic 中，变量的默认类型是（ D ）。AString BInteger CDouble DVariant 13.假设已定义Integer 变量 x、y，则以下赋值语句正确的是（ C ）。Ax + 1 = y Bx := y Cy = x + y D 1 = x 14.、/、Mod 、*四个算术运算符中，优先级别最低的是（ C ）。A B/ CMod D* 15.下列哪组语句可以将变量A、B 值互换（ B ）。AA=C

5、 : C=B : B=A BA=A+B : B=AB: A=A B CA=B : B=A DA=(A+B)/2 : B=(A - B)/2 16.以下语句的输出结果是（ C ）。Print Format (32548.5, “ 000,000.00”) A32548.5 B32,548.5 C032,548.50 D32,548.50 17.表达式 4+5 6 * 7 / 8 Mod 9 的值是 （ B ）。A4 B5 C6 D 7 18.函数 Int(Rnd*10) 是在（ C ）范围内的整数。A（ 0, 10）B(0,10 C0, 10）D 0, 10 19.下面（ A ）运算符是算术运算

6、符。AMod BLike CAnd DNot 20.已知三个变量A、B、C，判断 A、B、C 能否构成三角形的逻辑表达式为（ B ）。AA = B And B = C And A = C BA + C = B And A + B = C And B + C = A CA + C = B Or A + B = C Or B + C = A DA + C = B And A + B = C Or B + C = A 21.下面程序段运行后，显示的结果是（ B ）。Dim intX As Integer If intX Then Print intX Else Print intX + 1 End

7、If A0 B1 C2 D不一定22.以下程序的输出结果是（ C ）。Dim a, i%, sum% a = Array(4, 3, 2, 1) For i = 0 To 3 sum = sum + a(i) 精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 2 页，共 20 页3 / 20 Next i Print sum A4 B6 C10 D不一定23.在过程中定义的变量，若希望在离开该过程后，还能保存过程中局部变量的值，则应使用（ D ）关键字在过程中定义局部变量。ADim BPublic CPrivate D Static 24.能通过（

8、D ）来删除列表框中的选择项。AList 属性BText 属性CClear 方法D RemoveItem 方法25.ListBox 中若没有任何条目选中，其ListIndex 属性值为（ A ）。A-1 B0 C1 D任意26.可通过（ C ）属性判断ListBox 列表框控件的工程总数目。AListIndex BListText CListcount D随机数27.列表框的（ B ）属性用于返回或设置列表框中各列表项的文本。ASelected BListC TextDCaption 28.设 List1 为列表框控件，List1.Clear 中的 Clear 是（ A ）。A方法B对象C属性

9、D事件29.以下（ D ）语句将删除列表框List1 中的最后一项。AList1.RemoveItem List1.ListCount BList1.Clear CList1.List(List1.ListCount-1)= DList1.RemoveItem List1.ListCount-1 30.若要把“ XXX ”添加到列表框List1 中的第三项，则可执行语句（ B ）。AList1.AddItem XXX, 3 BList1.AddItem XXX, 2 CList1.AddItem 3,XXX DList1.AddItem 2,XXX 31.用户可以通过设置菜单项的（ C ）属性

10、值为False来使该菜单项失效。AHide BVisible CEnabled D Checked 32.用户可以通过设置菜单项的（ B ）属性值设置为False 来使该菜单项不可见。AHide BVisible CEnabled D Checked 33.菜单编辑器中，同层次的（ B ）属性值设置为相同，才可以设置索引值。ACaption BName CIndex DShortCut 34.每创建一个顶级菜单，它的下面最多可以有（ C ）级子菜单。A1 B3 C5 D 6 35.在设计菜单时，为了创建分隔栏，要在（ B ）中输入字符（-）。A名称栏B标题栏C索引栏D显示区精选学习资料 - -

11、 - - - - - - - 名师归纳总结 - - - - - - -第 3 页，共 20 页4 / 20 36.如果要在程序中显示一个弹出菜单，需调用（ D ）方法。APrint BMove CRefresh DPopupMenu 37.当单击工具栏上的按钮，会触发的事件是（ A ）。AButtonClick BChange CLoad DKeyPress 38.下列可以用来存储图像可以供其它控件使用的控件是（ C ）。AToolBar BStatursBar C ImageList DTreeView 39.在 Visual Basic 中按文件的访问方式不同，可以将文件分为（ B ）。A

12、文本文件和数据文件B顺序文件、随机文件和二进制文件CASCII 文件和二进制文件D数据文件和可执行文件40.检测文件是否结束的函数是（ C ）。ALOF() BLen() CEOF() DChr() 41.要读出 C 盘根目录下的顺序文件stud.txt 中的内容，下列打开方式中（C ）是正确的。AOpen C:stud.txt For Append As #1 B Open C:stud.txt For Random As #1 COpen C:stud.txt For Input As #1 DOpen C:stud.txt For Output As #1 42.随机文件使用（ C ）语

13、句写数据。AInput# BWrite # CPut DGet 43.随机文件使用（ D ）语句读数据。AInput# BWrite # CPut DGet 44.程序运行时，驱动器列表框下列（A ）属性能返回磁盘驱动器的名称。ADrive BDriveName CChgdrive D Drives 45.要用通用对话框控件显示标准的“字体”对话框，应调用其（ C ）方法。AShowOpen BShowColor CShowFont DShowSaveas 46.改变驱动器列表框的Drive 属性值将激活其（ A ）事件。AChange BScroll CKeyDown D KeyUp 47.

14、使用目录列表框的（ B ）属性可以返回或设置当前工作目录的完整路径（包括驱动器盘符）。ADrive BPath C Dir DListIndex 48.在随机文件中（ D ）。A记录的内容是随机产生的B记录的长度是任意的C记录号是通过随机数产生的D可以通过记录号随机读取记录精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 4 页，共 20 页5 / 20 49.执行语句 OpenC：Stud.txt For Input As #2 后，系统（ C ）。A将内存数据存放在C 盘当前文件夹下名为Stud.txt 的文件中B将某个磁盘文件的内容写入C 盘当

15、前文件夹下名为Stud.txt 的文件中C打开 C 盘当前文件夹下名为Stud.txt 的文件，用来读取文件内容D在 C 盘当前文件夹下建立名为Stud. txt 的顺序文件50.下面对象中不能作为容器的是（ B ）。A窗体BImage 控件CPictureBox 控件DFrame控件51.要向图片框picP 中加载“ d:hainanzhiwu.bmp ”图像文件，应使用语句（ C ）。APicture1.Picture= d:hainanzhiwu.bmp BPicture1.Picture=LoadPicture(d:hainanzhiwu.bmp) CpicP.Picture=Load

16、Picture(d:hainanzhiwu.bmp) DpicP.Picture=LoadPicture(d:hainanzhiwu.bmp) 52.执行 Form1.Scale（0, 10）-（10, -10）语句后， Form1 窗体坐标系x 轴和 y 轴的正方向是（ A ）。A向右和向上B向左和向下C向右和向下D向左和向上53.下列图形中不能使用Shape控件绘制的是（ B ）。A矩形B三角形C正方形D椭圆54.Line（100，100） -Step（400，400）将在窗体中的（ C ）画一条直线。A（ 200，200）到（ 400， 400） B（ 100，100）到（ 300，30

17、0）C（ 100， 100）到（ 500， 500） D（ 100，100）到（ 400，400）55.RGB 函数通过红、绿、蓝三基色混合产生某种颜色，若使用三个滚动条分别输入三种基色，为保证输入数值有效，则应设置滚动条的（ A ）属性。AMax 和 Min BSmallchange 和 LargeChange CScroll 和 Change DValue 56.如果在图片框上使用绘图方法绘制一个圆，则图片框的（B ）属性决定了该圆的颜色。ABackColor BForeColor CFillColor DDrawStyle 57.键盘事件的执行顺序是（ B ）。AKeyPress，Key

18、Down ，KeyUpB KeyDown ，KeyPress， KeyUp CKeyUp ，KeyDown ，KeyPressDKeyUp， KeyPress，KeyDown 58.ADO 控件属于ActiveX控件，使用之前必须加载Microsoft ADO Data Conctrol 6.0（OLE DB ），将 ADO 控件添加到工具箱中。添加ADO 控件的菜单为（ B ）。A“工程”“引用”B“工程”“部件”C“工具”“选项”D“工程”“添加文件”59.利用 ADO 访问数据库，首先要创建一个（ A ）对象，用于建立和数据库的连接。AConnection 对象BRecordset对象C

19、Command 对象DObject 对象精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 5 页，共 20 页6 / 20 60.SQL 语言的 Select 语句中，用于分组的语句为（ B ）。Awhere Bgroup by Corder by D having 61.以下四个控件，不属于数据绑定控件的是（ C ）。AText 控件BDataGrid 控件COption 控件 D Label 控件62.决定系统是否自动检测多媒体控件（MMControl ）各按钮的状态的属性是（ B ）。AEnable BAutoEnable CPlayEnabl

20、ed D以上答案都不正确63.将多媒体控件（MMControl ）的 Frames属性设为3，则以下叙述正确的是（ A ）。A指定 Back 或 Step命令后退或前进的帧数都为3 B只有 Back 命令后退的帧数为3 C只有 Step命令前进的帧数为3 D后退或前进的帧数都为6 64.多媒体控件（MMControl ）具有一组执行MCI 命令的下压式按钮。其中Record 按钮表示为（ B ）。A前一首B录制C弹出D播放65.为了使多媒体控件（MMControl ）中的录制按钮不显示，应添加代码（ C ）。AMMControl1.Visible= False BMMControl1.Visi

21、ble= True CMMControl1.RecordVisible= False DMMControl1.RecordVisible= True 66.在多媒体控件（MMControl ）中， DeviceType 属性用于设置多媒体设备的类型，如果将要播放的文件是CD 歌曲，应将DeviceType 属性设置为（ D ）。ADigitalVideo BWaveAudio CAVIVideo DCDAudio 67.Windows MediaPlayer 控件的 UiMode 属性，表示播放器界面模式，以下选项是播放器模式的属性值是（ D ）。AFull BMini CNone D以上都是

22、68.在 WindowsMediaPlayer 控件中，决定播放文件是否全屏的属性是（ A ）。AFullScreen BFull CScreen DstretchToFit 精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 6 页，共 20 页7 / 20 二、填空题1.数学表达式cox2x+2221yx写成等价的Visual Basic 表达式为 cos(x)2+Sqr(x2-y2)/2 。2.数学表达式050cos10写成等价的Visual Basic 表达式为 10(1/2)*cos(50*3.14/180) 或者 Sqr(10)*cos(5

23、0*3.14/180) 。3.数学式子)()(csbsass对应的 Visual Basic 运算表达式是：Sqr(s*(s-a)*(s-b)*(s-c) 。4.将 1 x =1 And xb and Not ca Or cb And ca+b 的值是 True。6.Left(abcd,2) 函数的返回值是 ab 。 Right(abcd,2) 函数的返回值是 cd 。7.在 Visual Basic 的转换函数中将数值转换为字符串的函数是Str(x) ；将数字字符串转换为数值的函数是Val(x) ；将字符转换为相应的ASCII 码的函数是Asc(x) 。8.有变量定义语句“Dim Str1,

24、Str2 As String *10 ”，其中Str1 变量的类型应为变体型，其中 Str2 变量的类型应为字符串型。9.数组的类型可以是基本数据类型，也可以是用户自定义的记录类型。如果省略类型说明，数组会被设置为默认的变体类型（Variant ）。数组中各个元素在定义时如果是数值类型就被默认初始化为0，如果是字符串类型就被初始化为空字符串。10.在 Visual Basic 中，数组默认的下标下界是0，如果希望从1 开始，可以使用Option Base n语句语句来设置。11.在缺省情况下，用Dim A(5,5) 语句声明二维数组后，数组A 的元素共有36 个。12.在 Visual Bas

25、ic 中，参数通过按值传递和按地址传递两种方式传送。13.Visual Basic 中变量依据其作用域不同可以分为过程级变量（局部变量）、模块级变量和全局变量3类。过程级变量就是指在事件过程或通用过程内定义的变量，它的作用域就是其所在的过程。模块级变量包括窗体级模块变量和标准模块级变量。窗体模块变量的作用域是窗体内的所有过程，标准模块变量的作用域是模块内的所有过程。全局变量的作用域是整个工程中所有的模块和所有的过程。14.基本程序控制结构可以分为顺序结构、选择结构和循环结构3 种。15.在 Visual Basic 语言中有三种形式的循环结构。其中，若循环的次数可以事先确定，可使用 For 循

26、环；若要求先判断循环进行的条件，可使用While 循环或 Do 循环。16.Visual Basic 一般用 4 种类型的文件保存，分别是扩展名为.frm 的窗体文件，扩展名为bas的标准模块文件，扩展名为.cls 的类模块文件和扩展名为.vbp 的工程文件。精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 7 页，共 20 页8 / 20 17.Visual Basic 程序开发有三种模式，即设计模式、运行模式和中断模式。18.Visual Basic中设置断点的按键是 F9 ，逐语句调试的语句是 F8 。19.Visual Basic中的程序错误

27、类型主要有编译错误、实时错误和逻辑错误三种。20.Visual Basic 应用程序即工程文件通常由三类模块组成，即窗体模块、标准模块和类模块。窗体模块包含窗体和代码两部分。标准模块完全由代码组成，这些代码不与具体的对象相关联，一般用来定义全局变量和公用过程和函数。类模块用于自定义类。21.在 Visual Basic 中将多重窗体程序中第一个被装载内存的窗体称为启动窗体。22.创建第一个按钮控件对象时，系统自动为其“Name”属性分配一个名字，该名字为Command1。23.为了在运行时把当前路径下的图形文件picturefile.jpg 装入图片框Picture1，所使用的语句为 Pict

28、ure1. Picture = LoadPrcture(“picturefile.jpg”)。24.在 Visual Basic 中，每个菜单项都是一个图形控件对象，所以它们也有一些与其他控件类似的属性，标题就相当于其他控件的Caption 属性，而名称就相当于Name 属性。25.在 Visual Basic 菜单中设置显示一条分割线的操作是在【菜单编辑器】的标题栏中，输入一个 “ -” 。26.在 Visual Basic 中，文件系统控件包括驱动器列表框（DriveListBox ）、 目录列表框（ DirListBox ）和文件列表框（FileListBox ）。三者协同操作可以访问任

29、意位置的目录和文件，可以进行文件系统的人机交互管理。27.每次重新设置驱动器列表框的Drive 属性时，都将引发 Change 事件。可在该事件过程中编写代码修改目录列表框的路径，使目录列表框内容随之发生改变。28.对驱动器列表框来说，每次重新设置驱动器列表框的 Drive 属性时，将引发Change事件；对目录列表框来说，当 Path 属性值改变时，将引发Change事件；对于文件列表框，重新设置的 Path 属性，将引发Change事件。29.执行指令“ Line(200,200) Step(500,500)”后， CurrentX 700 。30.执行指令“ Line(200,200)

30、(500,500)”后， CurrentX 500 。31.将图片框 PictureBox 的 AutoSize 属性设置成 Ture 时，图片框能自动调整大小，以适应其中的图片。32.Label 和 TextBox 控件用来显示和输入文本，如果仅需要让应用程序在窗体中显示文本信息，可使用 Label 控件；若允许用户输入文本，则应使用TextBox 控件。33.按文件的存取方式，可将文件分为顺序文件、随机文件和二进制文件。34.ADO 模型中一般可通过Connection 对象的 Execute 方法执行增加、删除、修改操作。使用 ADO 模型时，建立Recordset和 Connectio

31、n 对象连接的属性是ActiveConnection 。35.ADO 数据模型中一般可通过Connection 对象的 Execute 方法对数据库中的基本表进行增加、删除、修改等不返回结果集的操作。精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 8 页，共 20 页9 / 20 三、程序阅读题1.阅读以下程序，写出其功能。Private Sub cmdWhy_Click() cmdWhy 为命令按钮，lblHelloVB为标签， txtHelloVB为文本框lblHelloVB.Caption = 为什么学VB txtHelloVB = （1）V

32、B 简单易学，开发效率高，通用性强，用途广泛。 _ + vbCrLf + vbCrLf + （2）VB 是国内外最流行的程序设计语言之一， _ + 也是学习开发Windows 应用程序首选的程序设计语言。 End Sub 该程序功能：单击cmdWhy 按钮，在lblHelloVB标签显示“为什么学VB”，在 txtHelloVB 文本框显示以下内容：1 VB 简单易学，开发效率高，通用性强，用途广泛。2 VB 是国内外最流行的程序设计语言之一，也是学习开发Windows 应用程序首选的程序设计语言。2.阅读以下程序，写出其功能。Private Sub cmdWhat_Click() cmdWa

33、t 为命令按钮，lblHelloVB为标签， txtHelloVB 为文本框lblHelloVB .Caption = VB能干什么 txtHelloVB = VB能快速实现用户界面的设计、 _ + 文字和图形图像的处理以及数据库的使用，能开发多媒体、数据库、 _ + 网络和图形等多方面的应用程序；可以开发个人使用或小组 _ + 使用的小工具、大型企业应用系统以及遍及全球的分布式应用程序。 End Sub 该程序功能：单击cmdWhat 按钮，在lblHelloVB标签显示“VB 能干什么”，在txtHelloVB 文本框显示以下内容：VB 能快速实现用户界面的设计、文字和图形图像的处理以及数

34、据库的使用，能开发多媒体、数据库网络和图形等多方面的应用程序；可以开发个人使用或小组使用的小工具、大型企业应用系统以及遍及全球的分布式应用程序。3.阅读以下程序，写出其功能。Private Sub cmdHow_Click() cmdHow 为命令按钮， lblHelloVB为标签， txtHelloVB为文本框lblHelloVB .Caption = 如何学好VB txtHelloVB = （1）从实际应用程序的开发过程中学习VB 程序设计。 _ + vbCrLf + vbCrLf + （2）学会分析问题和解决问题的思路、 _ + 算法设计和实现方法。 + vbCrLf + vbCrLf

35、_ + （3）学会利用MSDN 资源。 + vbCrLf + vbCrLf _ + （4）养成良好的编程习惯。 End Sub 精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 9 页，共 20 页10 / 20 该程序功能：单击cmdHow 按钮，在lblHelloVB标签显示“如何学好VB”，在 txtHelloVB 文本框显示以下内容：（1）从实际应用程序的开发过程中学习VB 程序设计。（2）学会分析问题和解决问题的思路算法设计和实现方法。（3）学会利用MSDN 资源。（4）养成良好的编程习惯。4.阅读以下程序，写出其功能。Sub newQue

36、stion() Dim intOp1 As Integer, intOp2 As Integer,intTemp As Integer Dim strOprator As String Dim intOpratorNum As Integer Randomize intOp1 = Int(10 * Rnd + 1) intOp2 = Int(10 * Rnd + 1) intOpratorNum = Int(4 * Rnd + 1) Select Case intOpratorNum Case 1 strOprator = +: intAnswer = intOp1 + intOp2 Case

37、 2 strOprator = : If intOp1 intOp2 Then intTemp = intOp1: intOp1 = intOp2: intOp2 = intTemp End If intAnswer = intOp1 - intOp2 Case 3 strOprator = : intAnswer = intOp1 * intOp2 Case 4 strOprator = If intOp1 intOp2 Then intTemp = intOp1: intOp1 = intOp2: intOp2 = intTemp End If If intOp1 Mod intOp2 0

38、 Then intOp1 = intOp1 - intOp1 Mod intOp2 End If End Select lblQuestion 为标签lblQuestion.Caption = intOp1 & & strOprator & & intOp2 & = End Sub 该程序是一个随机出题的过程。随机产生两个10 以内的操作数，随机产生一个操作符（+、 、 ）。如果是减法和除法时，第一操作数小于第二操作数时交换两个操作数，且如果是除法则同时减去两数相除所得的余数。最后在标签 lblQuestion 上显示题目。5.阅读以下程序，写出其功能。精选学习资料 - - - - - - -

39、 - - 名师归纳总结 - - - - - - -第 10 页，共 20 页11 / 20 Public Function Avg_mark(MarkArray() As Single) As Single Dim sngSum As Single, i As Integer , nAs Integer sngSum = 0 n = UBound(MarkArray) For i = 0 To n sngSum = sngSum + MarkArray(i) Next i Avg_mark = sngSum / n End Function 该程序是一个求平均值的函数。以一个单精度的数组作为参

40、数，先求出数组元素的个数，接着求出数组所有元素的和，最后得出该数组的平均值。6.阅读以下程序，写出其功能。Public Function Max_Mark(MarkArray() As Single) As Single Dim sngMax As Single ,i As Integer , nAs Integer sngMax = 0 n = UBound(MarkArray) For i = 0 To n If MarkArray(i) sngMax Then sngMax = MarkArray(i) Next i Max_Mark = sngMax End Function 该程序是

41、一个求最大值的函数。以一个单精度的数组作为参数，先求出数组元素的个数，接着逐个比较，求出数组元素的最大值。7.阅读以下程序，写出其功能。Public Function Pass_Mark(MarkArray() As Single) As Single Dim intCount As Integer, i As Integer , nAs Integer intCount = 0 n = UBound(MarkArray) For i = 0 To n if MarkArray(i) = 60 Then intCount = intCount + 1 Next i Pass_Mark = in

42、tCount / n End Function 该函数的功能是求一组数中大于等于60 的数的比例。以一个单精度的数组作为参数，先求出数组元素的个数，接着逐个比较，求出数组元素中大于等于60 的数的个数，最后求出其比例。8.阅读以下程序，写出其功能。Private Sub Sort_Mark(MarkArray() As Single) Dim sngMtemp As Single Dim i As Integer , nAs Integer , k As Integer,j As Integer n = UBound(MarkArray) For i = 0 To n 1 k = i 精选学习

43、资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 11 页，共 20 页12 / 20 For j = i + 1 To n If MarkArray(j) MarkArray(k) Then k = j Next j sngMtemp = MarkArray(k) MarkArray(k) = MarkArray(i) MarkArray(i) = sngMtemp Next i End Sub 该过程的功能是把一组数按从大到小排序。以一个单精度的数组作为参数，先求出数组元素的个数，接着逐个比较，求出数组元素中的最大值和第一个元素交换位置；求出次大值和第二

44、个元素交换位置；依次类推，完成从大到小排序。9.阅读以下程序，写出其功能。Private Sub changecolor() Dim r As Integer, g As Integer,b As Integer Dim x As Long hsbRed、 hsbGreen和 hsbBlue 为水平滚动条hsbRed.Min=0: hsbGreen.Min=0 : hsbBlue.Min=0 hsbRed.Max=255: hsbGreen.Max=255 : hsbBlue.Max=255 r = hsbRed.Value g = hsbGreen.Value b = hsbBlue.Val

45、ue x = RGB(r, g, b) frmMain.BackColor = x End Sub 该过程的功能是用红色、绿色、蓝色三个滚动条调节窗体底色。先把红色、绿色、蓝色三个滚动条的Min 属性设置为0、Max 属性设置为255，接着用取出三个滚动条的Value 属性值，用RGB 函数产生一个由红、绿、蓝三个Value 属性值混合而成的新颜色，并作为窗体底色。10.阅读以下程序，写出其功能。Public ADOcn As Connection Public Sub Main() Dim strAccess As String strAccess=Provider=Microsoft.Je

46、t.OLEDB.4.0。Data Source=d:xs.mdb If ADOcn Is Nothing Then Set ADOcn = New Connection ADOcn.Open strAccess End If frmMain.Show frmMain为窗体End Sub 该段程序的功能是建立数据库的连接。实现与D 盘根目录下的文件名为xs.mdb 的 Access数据库的连接，同时显示frmMain 窗体。精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 12 页，共 20 页13 / 20 11.阅读以下程序，写出其功能。Publi

47、c ADOcn As Connection Public ADOrs As New Recordset Private Sub cmdAdd_Click() Dim strSQL As String 文本框 txtNo 、txtName 和组合框cboSex、cboClass 分别用来输入学号、姓名、性别和班级strSQL = select * from 学生表 where 学号 = + txtNo.Text + ADOrs.Open strSQL, ADOcn If Not ADOrs.EOF Then MsgBox 该记录已经存在，不能继续增加！, vbCritical + vbOKOnl

48、y ADOrs.Close Exit Sub End If strSQL = insert into 学生表 (学号 ,姓名 ,性别 ,班级 ) strSQL = strSQL + values( + txtNo.Text + , + txtName.Text + , strSQL = strSQL + + cboSex.Text + ,txtClass.Text + ) ADOcn.Execute strSQL End Sub 该段程序的功能是把一个学生记录插入到学生表中。首先查找数据表中是否存在文本框txtNo 中输入的学号，如果存在则不增加；如果不存在，则把该学生的信息记录插入学生表中。

49、四、程序设计题1.编写一个程序。程序初始界面如图1 左图所示，设“学习目的”、“学习方法”和“退出”命令按钮的名称定义为cmdAim 、cmdWay 和 cmdExit ，标签控件的名称定义为 lblContent 。单击“学习目的”按钮，显示如图1的中图所示；单击“学习方法”命令按钮，显示如图1 的右图所示；单击“退出”按钮时，退出程序。图 1 Private Sub cmdAim_Click() lblContent.Caption = 开发 Windows 应用程序 End Sub Private Sub cmdWay_Click() lblContent.Caption = 从实际应用

50、程序的开发过程中学习VB End Sub 精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 13 页，共 20 页14 / 20 Private Sub cmdExit_Click() End End Sub 2.设计一个简单的加法程序，程序界面设计如图2 所示。设第一操作数、第二操作数和计算结果文本框的名称分别定义为txtFirstNum 、txtSecondNum 和 txtSum，“计算”命令按钮的名称定义为cmdSum。图 2 Private Sub cmdSum_Click() txtSum.Text = Val(txtFirstNum.T