电大计算机本科补修VisualBasic程序设计期末复习题.doc

资料内容仅供您学习参考，如有不当或者侵权，请联系改正或者删除。
《Visual Basic程序设计》( 开放本科补修) 课程期末复习
一、 单项选择题
1. 如果要设置窗体的标题栏, 应选择( B ) 属性。
A．Visible B．Caption C．Name D．Text
2. 要使命令按钮不响应用户生成的事件, 应设置命令按钮的( D ) 属性。
A．Visible B．Caption C．Enable D．Enabled
3. 要使标签能透出窗体的背景, 应设置标签的( A ) 属性。
A．BackStyle B．BorderStyle C．Appearance D．BackColor
4. 以下控件中, ( A ) 控件不会影响到界面设计效果。
A．计时器 B．文本框 C．标签 D．Line控件
5. 在Visual Basic中, 一般( B ) 属性用来设置字体的颜色。
A．FontColor B．ForeColor C．BackColor D．ShowColor
6. 在VB中断模式下, 可用调试窗口监视表示式和变量的值, 其中在( A ) 窗口中能够直接键入命令以显示命令所请求的信息。
A．立即 B.监视 C.本地 D.中断
7. 某计时器控件的interval属性为0时, 表示( A ) 。
A．计时器关闭计时 C．Timer事件的间隔时间为0毫秒
B．Timer事件的间隔时间为0秒 D．计时器启动计时
8. 在窗体Form1的Click事件过程中有以下语句:
Label1.Caption="Visual Basic"
若本语句执行之前, 标签控件的Caption属性为默认值, 则标签控件的Name属性和Caption属性在执行本语句之前的值分别为( B ) 。
A．Label和Label B．Label1和Label1
C．Label1和Visual Basic D．Label和Caption
9. ( C ) 控件不具有Caption属性。
A．Label B．Form C． TextBox D．CommandButton
10. 改变控件在窗体中的上下位置, 应设置控件的( A ) 属性。
A．Top B．Left C．Width D．Right
11. 文本框中选定的内容, 由下列( C ) 属性反映。
A．Text B．Caption C．Seltext D．SelLenght
12. 在Visual Basic中, 变量的默认类型是( D ) 。
A．String B．Integer C．Double D．Variant
13. 假设已定义Integer变量x、 y, 则以下赋值语句正确的是( C ) 。
A．x + 1 = y B．x := y C．y = x + y D．1 = x
14. \、 /、 Mod、 *四个算术运算符中, 优先级别最低的是( C ) 。
A．\ B．/ C．Mod D．*
15. 下列哪组语句能够将变量A、 B值互换( B ) 。
A．A=C : C=B : B=A B．A=A+B : B=A–B: A=A–B
C．A=B : B=A D．A=(A+B)/2 : B=(A - B)/2
16. 以下语句的输出结果是( C ) 。
Print Format (32548.5,”000,000.00”)
A．32548.5 B．32,548.5 C．032,548.50 D．32,548.50
17. 表示式4+5 \ 6 * 7 / 8 Mod 9 的值是 ( B ) 。
A．4 B．5 C．6 D．7
18. 函数Int(Rnd*10)是在( C ) 范围内的整数。
A．( 0, 10) B．(0,10] C．[0, 10) D．[0, 10]
19. 下面( A ) 运算符是算术运算符。
A．Mod B．Like C．And D．Not
20. 已知三个变量A、 B、 C, 判断A、 B、 C能否构成三角形的逻辑表示式为( B ) 。
A．A >= B And B >= C And A >= C
B．A + C >= B And A + B >= C And B + C >= A
C．A + C >= B Or A + B >= C Or B + C >= A
D．A + 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 If
A．0 B．1 C．2 D．不一定
22. 以下程序的输出结果是( C ) 。
Dim a, i%, sum%
a = Array(4, 3, 2, 1)
For i = 0 To 3
sum = sum + a(i)
Next i
Print sum
A．4 B．6 C．10 D．不一定
23. 在过程中定义的变量, 若希望在离开该过程后, 还能保存过程中局部变量的值, 则应使用( D ) 关键字在过程中定义局部变量。
A．Dim B．Public C．Private D．Static
24. 能经过( D ) 来删除列表框中的选择项。
A．List属性 B．Text属性 C．Clear方法 D．RemoveItem方法
25. ListBox中若没有任何条目选中, 其ListIndex属性值为( A ) 。
A．-1 B．0 C．1 D．任意
26. 可经过( C ) 属性判断ListBox列表框控件的项目总数目。
A．ListIndex B．ListText C．Listcount D．随机数
27. 列表框的( B ) 属性用于返回或设置列表框中各列表项的文本。
A．Selected B．List C．Text D．Caption
28. 设List1为列表框控件, List1.Clear中的Clear是( A ) 。
A．方法 B．对象 C．属性 D．事件
29. 以下( D ) 语句将删除列表框List1中的最后一项。
A．List1.RemoveItem List1.ListCount
B．List1.Clear
C．List1.List(List1.ListCount-1)= ""
D．List1.RemoveItem List1.ListCount-1
30. 若要把”XXX”添加到列表框List1中的第三项, 则可执行语句( B ) 。
A．List1.AddItem "XXX", 3 B．List1.AddItem "XXX", 2
C．List1.AddItem 3,"XXX" D．List1.AddItem 2,"XXX"
31. 用户能够经过设置菜单项的( C ) 属性值为False来使该菜单项失效。
A．Hide B．Visible C．Enabled D．Checked
32. 用户能够经过设置菜单项的( B ) 属性值设置为False来使该菜单项不可见。
A．Hide B．Visible C．Enabled D．Checked
33. 菜单编辑器中, 同层次的( B ) 属性值设置为相同, 才能够设置索引值。
A．Caption B．Name C．Index D．ShortCut
34. 每创立一个顶级菜单, 它的下面最多能够有( C ) 级子菜单。
A．1 B．3 C．5 D．6
35. 在设计菜单时, 为了创立分隔栏, 要在( B ) 中输入字符( -) 。
A．名称栏 B．标题栏 C．索引栏 D．显示区
36. 如果要在程序中显示一个弹出菜单, 需调用( D ) 方法。
A．Print B．Move C．Refresh D．PopupMenu
37. 当单击工具栏上的按钮, 会触发的事件是( A ) 。
A．ButtonClick B．Change C．Load D．KeyPress
38. 下列能够用来存储图像能够供其它控件使用的控件是( C ) 。
A．ToolBar B．StatursBar C． ImageList D．TreeView
39. 在Visual Basic中按文件的访问方式不同, 能够将文件分为( B ) 。
A．文本文件和数据文件 B．顺序文件、 随机文件和二进制文件
C．ASCII文件和二进制文件 D．数据文件和可执行文件
40. 检测文件是否结束的函数是( C ) 。
A．LOF() B．Len() C．EOF() D．Chr()
41. 要读出C盘根目录下的顺序文件stud.txt中的内容, 下列打开方式中( C ) 是正确的。
A．Open " C:\stud.txt" For Append As #1 B．Open " C:\stud.txt" For Random As #1
C．Open " C:\stud.txt" For Input As #1 D．Open " C:\stud.txt" For Output As #1
42. 随机文件使用( C ) 语句写数据。
A．Input# B．Write # C．Put D．Get
43. 随机文件使用( D ) 语句读数据。
A．Input# B．Write # C．Put D．Get
44. 程序运行时, 驱动器列表框下列( A ) 属性能返回磁盘驱动器的名称。
A．Drive B．DriveName C．Chgdrive D．Drives
45. 要用通用对话框控件显示标准的”字体”对话框, 应调用其( C ) 方法。
A．ShowOpen B．ShowColor C．ShowFont D．ShowSaveas
46. 改变驱动器列表框的Drive属性值将激活其( A ) 事件。
A．Change B．Scroll C．KeyDown D．KeyUp
47. 使用目录列表框的( B ) 属性能够返回或设置当前工作目录的完整路径( 包括驱动器盘符) 。
A．Drive B．Path C．Dir D．ListIndex
48. 在随机文件中( D ) 。
A．记录的内容是随机产生的 B．记录的长度是任意的
C．记录号是经过随机数产生的 D．能够经过记录号随机读取记录
49. 执行语句Open "C: Stud.txt" For Input As #2后, 系统( C ) 。
A．将内存数据存放在C盘当前文件夹下名为Stud.txt的文件中
B．将某个磁盘文件的内容写入C盘当前文件夹下名为Stud.txt的文件中
C．打开C盘当前文件夹下名为Stud.txt的文件, 用来读取文件内容
D．在C盘当前文件夹下建立名为Stud. txt的顺序文件
50. 下面对象中不能作为容器的是( B ) 。
A．窗体 B．Image控件 C．PictureBox控件 D．Frame控件
51. 要向图片框picP中加载”d:\hainan\zhiwu.bmp”图像文件, 应使用语句( C ) 。
A．Picture1.Picture=" d:\hainan\zhiwu.bmp"
B．Picture1.Picture=LoadPicture("d:\hainan\zhiwu.bmp")
C．picP.Picture=LoadPicture("d:\hainan\zhiwu.bmp")
D．picP.Picture=LoadPicture(d:\hainan\zhiwu.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, 300)
C．( 100, 100) 到( 500, 500) D．( 100, 100) 到( 400, 400)
55. RGB函数经过红、 绿、 蓝三基色混合产生某种颜色, 若使用三个滚动条分别输入三种基色, 为保证输入数值有效, 则应设置滚动条的( A ) 属性。
A．Max和Min B．Smallchange和 LargeChange
C．Scroll和Change D．Value
56. 如果在图片框上使用绘图方法绘制一个圆, 则图片框的( B ) 属性决定了该圆的颜色。
A．BackColor B．ForeColor C．FillColor D．DrawStyle
57. 键盘事件的执行顺序是( B ) 。
A．KeyPress, KeyDown, KeyUp B．KeyDown, KeyPress, KeyUp
C．KeyUp, KeyDown, KeyPress D．KeyUp, KeyPress, KeyDown
58. ADO控件属于ActiveX控件, 使用之前必须加载Microsoft ADO Data Conctrol 6.0( OLE DB) , 将ADO控件添加到工具箱中。添加ADO控件的菜单为( B ) 。
A．”工程”→”引用” B．”工程”→”部件”
C．”工具”→”选项” D．”工程”→”添加文件”
59. 利用ADO访问数据库, 首先要创立一个( A ) 对象, 用于建立和数据库的连接。
A．Connection对象 B．Recordset对象
C．Command对象 D．Object对象
60. SQL语言的Select语句中, 用于分组的语句为( B ) 。
A．where B．group by C．order by D．having
61. 以下四个控件, 不属于数据绑定控件的是( C ) 。
A．Text控件 B．DataGrid控件 C．Option控件 D．Label控件
62. 决定系统是否自动检测多媒体控件( MMControl) 各按钮的状态的属性是( B ) 。
A．Enable B．AutoEnable
C．PlayEnabled 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 ) 。
A．MMControl1.Visible= False
B．MMControl1.Visible= True
C．MMControl1.RecordVisible= False
D．MMControl1.RecordVisible= True
66. 在多媒体控件( MMControl) 中, DeviceType属性用于设置多媒体设备的类型, 如果将要播放的文件是CD歌曲, 应将DeviceType属性设置为( D ) 。
A．DigitalVideo B．WaveAudio C．AVIVideo D．CDAudio
67. Windows Media Player控件的UiMode属性, 表示播放器界面模式, 以下选项是播放器模式的属性值是( D ) 。
A．Full B．Mini C．None D．以上都是
68. 在Windows Media Player控件中, 决定播放文件是否全屏的属性是( A ) 。
A．FullScreen B．Full C．Screen D．stretchToFit
二、 填空题
1. 数学表示式cox2x+写成等价的Visual Basic表示式为 cos(x)^2+Sqr(x^2-y^2)/2 。
2. 数学表示式写成等价的Visual Basic表示式为 10^(1/2)*cos(50*3.14/180) 或者Sqr(10)*cos(50*3.14/180) 。
3. 数学式子对应的Visual Basic运算表示式是 : Sqr(s*(s-a)*(s-b)*(s-c)) 。
4. 将1£ x <12写成Visual Basic逻辑表示式 x>=1 And x<12 。
5. 已知a=3,b=4,c=5,表示式a>b and Not c>a Or c>b And c<a+b的值是 True 。
6. Left ("abcd",2)函数的返回值是 ab ; Right("abcd",2)函数的返回值是 cd 。
7. 在Visual Basic的转换函数中将数值转换为字符串的函数是 Str(x) ; 将数字字符串转换为数值的函数是 Val(x) ; 将字符转换为相应的ASCII码的函数是 Asc(x) 。
8. 有变量定义语句”Dim Str1,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 Basic中, 参数经过 按值传递 和 按地址传递 两种方式传送。
13. Visual Basic中变量依据其作用域不同能够分为过程级变量( 局部变量) 、 模块级变量和全局变量3类。过程级变量就是指在事件过程或通用过程内定义的变量, 它的作用域就是 其所在的过程 。模块级变量包括窗体级模块变量和标准模块级变量。窗体模块变量的作用域是 窗体内的所有过程 , 标准模块变量的作用域是 模块内的所有过程 。全局变量的作用域是 整个工程中所有的模块和所有的过程 。
14. 基本程序控制结构能够分为顺序结构、 选择 结构和 循环 结构3种。
15. 在Visual Basic语言中有三种形式的循环结构。其中, 若循环的次数能够事先确定, 可使用For循环; 若要求先判断循环进行的条件, 可使用 While 循环或 Do 循环。
16. Visual Basic一般用4种类型的文件保存, 分别是扩展名为 .frm 的窗体文件, 扩展名为 bas 的标准模块文件, 扩展名为 .cls 的类模块文件和扩展名为 .vbp 的工程文件。
17. Visual Basic程序开发有三种模式, 即 设计 模式、 运行 模式和 中断 模式。
18. Visual Basic中设置断点的按键是 F9 , 逐语句调试的语句是 F8 。
19. Visual Basic中的程序错误类型主要有编译错误、 实时错误 和 逻辑错误 三种。
20. Visual Basic应用程序即工程文件一般由三类模块组成, 即窗体模块、 标准模块和类模块。窗体模块包含 窗体 和 代码 两部分。 标准模块 完全由代码组成, 这些代码不与具体的对象相关联, 一般用来定义全局变量和公用过程和函数。 类模块 用于自定义类。
21. 在Visual Basic中将多重窗体程序中第一个被装载内存的窗体称为 启动窗体 。
22. 创立第一个按钮控件对象时, 系统自动为其”Name”属性分配一个名字, 该名字为 Command1 。
23. 为了在运行时把当前路径下的图形文件picturefile.jpg装入图片框Picture1, 所使用的语句为 Picture1. Picture = LoadPrcture(”picturefile.jpg”) 。
24. 在Visual Basic中, 每个菜单项都是一个图形控件对象, 因此它们也有一些与其它控件类似的属性, 标题 就相当于其它控件的Caption属性, 而 名称 就相当于Name属性。
25. 在Visual Basic菜单中设置显示一条分割线的操作是 在【菜单编辑器】的标题栏中, 输入一个”-” 。
26. 在Visual Basic中, 文件系统控件包括 驱动器列表框( DriveListBox) 、 目录列表框( DirListBox) 和文件列表框( FileListBox) 。三者协同操作能够访问任意位置的目录和文件, 能够进行文件系统的人机交互管理。
27. 每次重新设置驱动器列表框的Drive属性时, 都将引发 Change 事件。可在该事件过程中编写代码修改目录列表框的路径, 使目录列表框内容随之发生改变。
28. 对驱动器列表框来说, 每次重新设置驱动器列表框的 Drive 属性时, 将引发Change事件; 对目录列表框来说, 当 Path 属性值改变时, 将引发Change事件; 对于文件列表框, 重新设置的 Path 属性, 将引发Change事件。
29. 执行指令”Line (200,200) – Step (500,500)”后, CurrentX＝ 700 。
30. 执行指令”Line (200,200) – (500,500)”后, CurrentX＝ 500 。
31. 将图片框PictureBox的AutoSize属性设置成 Ture 时, 图片框能自动调整大小, 以适应其中的图片。
32. Label和TextBox控件用来显示和输入文本, 如果仅需要让应用程序在窗体中显示文本信息, 可使用 Label 控件; 若允许用户输入文本, 则应使用 TextBox 控件。
33. 按文件的存取方式, 可将文件分为顺序文件、 随机文件 和 二进制文件 。
34. ADO模型中一般可经过Connection对象的 Execute 方法执行增加、 删除、 修改操作。使用ADO模型时, 建立Recordset和Connection对象连接的属性是 ActiveConnection 。
35. ADO数据模型中一般可经过Connection对象的 Execute 方法对数据库中的基本表进行增加、 删除、 修改等不返回结果集的操作。
三、 程序阅读题
1. 阅读以下程序, 写出其功能。
Private Sub cmdWhy_Click()
' cmdWhy为命令按钮, lblHelloVB为标签, txtHelloVB为文本框
lblHelloVB .Caption = "为什么学VB"
txtHelloVB = "( 1) VB简单易学, 开发效率高, 通用性强, 用途广泛。" _
+ vbCrLf + vbCrLf + "( 2) VB是国内外最流行的程序设计语言之一, " _
+ "也是学习开发Windows应用程序首选的程序设计语言。"
End Sub
该程序功能: 单击cmdWhy按钮, 在lblHelloVB标签显示”为什么学VB”, 在txtHelloVB文本框显示以下内容:
1．VB简单易学, 开发效率高, 通用性强, 用途广泛。

2．VB是国内外最流行的程序设计语言之一, 也是学习开发Windows应用程序首选的程序设计语言。

2. 阅读以下程序, 写出其功能。
Private Sub cmdWhat_Click()
' cmdWat为命令按钮, lblHelloVB为标签, txtHelloVB为文本框
lblHelloVB .Caption = "VB能干什么"
txtHelloVB = " VB能快速实现用户界面的设计、 " _
+ "文字和图形图像的处理以及数据库的使用, 能开发多媒体、 数据库、 " _
+ "网络和图形等多方面的应用程序; 能够开发个人使用或小组" _
+ "使用的小工具、 大型企业应用系统以及遍及全球的分布式应用程序。"
End Sub
该程序功能: 单击cmdWhat按钮, 在lblHelloVB标签显示”VB能干什么”, 在txtHelloVB文本框显示以下内容:
VB能快速实现用户界面的设计、 文字和图形图像的处理以及数据库的使用, 能开发多媒体、 数据库网络和图形等多方面的应用程序; 能够开发个人使用或小组使用的小工具、 大型企业应用系统以及遍及全球的分布式应用程序。

3. 阅读以下程序, 写出其功能。
Private Sub cmdHow_Click()
' cmdHow为命令按钮, lblHelloVB为标签, txtHelloVB为文本框
lblHelloVB .Caption = "如何学好VB"
txtHelloVB = "( 1) 从实际应用程序的开发过程中学习VB程序设计。" _
+ vbCrLf + vbCrLf + "( 2) 学会分析问题和解决问题的思路、 " _
+ "算法设计和实现方法。" + vbCrLf + vbCrLf _
+ "( 3) 学会利用MSDN资源。" + vbCrLf + vbCrLf _
+ "( 4) 养成良好的编程习惯。"
End Sub
该程序功能: 单击cmdHow按钮, 在lblHelloVB标签显示”如何学好VB”, 在txtHelloVB文本框显示以下内容:
( 1) 从实际应用程序的开发过程中学习VB程序设计。

( 2) 学会分析问题和解决问题的思路算法设计和实现方法。

( 3) 学会利用MSDN资源。

( 4) 养成良好的编程习惯。
4. 阅读以下程序, 写出其功能。
Sub newQuestion()
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 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 Then
intOp1 = intOp1 - intOp1 Mod intOp2
End If
End Select
' lblQuestion为标签
lblQuestion.Caption = intOp1 & " " & strOprator & " " & intOp2 & " = "
End Sub
该程序是一个随机出题的过程。随机产生两个10以内的操作数, 随机产生一个操作符( +、 －、 ×、 ÷) 。如果是减法和除法时, 第一操作数小于第二操作数时交换两个操作数, 且如果是除法则同时减去两数相除所得的余数。最后在标签lblQuestion上显示题目。

5. 阅读以下程序, 写出其功能。
Public Function Avg_mark(MarkArray() As Single) As Single
Dim sngSum As Single, i As Integer , n As Integer
sngSum = 0
n = UBound(MarkArray)
For i = 0 To n
sngSum = sngSum + MarkArray(i)
Next i
Avg_mark = sngSum / n
End Function
该程序是一个求平均值的函数。以一个单精度的数组作为参数, 先求出数组元素的个数, 接着求出数组所有元素的和, 最后得出该数组的平均值。

6. 阅读以下程序, 写出其功能。
Public Function Max_Mark(MarkArray() As Single) As Single
Dim sngMax As Single , i As Integer , n As 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
该程序是一个求最大值的函数。以一个单精度的数组作为参数, 先求出数组元素的个数, 接着逐个比较, 求出数组元素的最大值。

7. 阅读以下程序, 写出其功能。
Public Function Pass_Mark(MarkArray() As Single) As Single
Dim intCount As Integer, i As Integer , n As Integer
intCount = 0
n = UBound(MarkArray)
For i = 0 To n
if MarkArray(i) >= 60 Then intCount = intCount + 1
Next i
Pass_Mark = intCount / n
End Function
该函数的功能是求一组数中大于等于60的数的比例。以一个单精度的数组作为参数, 先求出数组元素的个数, 接着逐个比较, 求出数组元素中大于等于60的数的个数, 最后求出其比例。

8. 阅读以下程序, 写出其功能。
Private Sub Sort_Mark(MarkArray() As Single)
Dim sngMtemp As Single
Dim i As Integer , n As Integer , k As Integer,j As Integer
n = UBound(MarkArray)
For i = 0 To n – 1
k = i
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
该过程的功能是把一组数按从大到小排序。以一个单精度的数组作为参数, 先求出数组元素的个数, 接着逐个比较, 求出数组元素中的最大值和第一个元素交换位置; 求出次大值和第二个元素交换位置; 依次类推, 完成从大到小排序。

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.Value
x = RGB(r, g, b)