浙江省计算机vb二级机试详解.docVIP

实验一 省二级VB考试模拟机试（一） 程序调试【1】 在考生文件夹的paper子文件夹下有modify2.bas文件。 功能： 1模块中的Bubblesort过程是冒泡排列法。 2GenerateData过程产生10个[1，20]之间互不相同的随机整数。 3Swap过程交换两个变量的数值。 要求： 新建工程，将模块加入到该工程中进行调试。 注意： 只要修改标出出错位置的下面那一条语句即可，其余代码不要改动。新建工程文件名为：modify2.vbp。 Private Const n = 10 Private a(1 To n) As Integer BubbleSort过程是冒泡排序 Swap过程交换两个变量数值 GenerateData过程产生10个[1，20]之间互不相同的随机整数 Public Sub BubbleSort() Dim i As Integer, j As Integer i = 1 Do For j = i + 1 To n If a(j) a(i) Then ******* 1 ********* Swap (a(j), a(i)) End If Next j i = i + 1 ******* 2 ******* Loop While i = n Form1.Print 排序结果 For i = 1 To n Form1.Print a(i); Next i End Sub Public Sub GenerateData() Dim i As Integer Dim j As Integer Dim b As Boolean For i = 1 To n b = False Do While Not b a(i) = Int(20 * Rnd + 1) b = True ******* 3 ******* For j = 1 To i If a(i) = a(j) Then b = False Exit For End If Next j Loop Form1.Print a(i) Next i End Sub ******** 4 ******** Public Sub Swap(ByVal a As Integer, ByVal b As Integer) Dim temp As Integer temp = a a = b b = temp End Sub 解题思路： 1过程调用的两种格式：（1）利用Call语句调用；（2）省略Call及括号的省略格式。 2 BubbleSort过程是冒泡排序，其基本思想是：共有n个位置，依次从该位置以后的数中挑选最大的数放置在该位置。具体步骤为：数组的第一位数和其后所有的数（从第二个到最后一个数）依次比较，如果遇到比第一个数大的数，则交换位置；比较结束时，最大的数就被交换到第一个位置。随后是第二个数依次和其后的所有的数比较，遇到大数就交换，比较结束第二大的数就位于第二个位置。……当n个位置的数都挑选好时，排序完成。 注意：外层循环是Do循环，循环次数应是n次，其循环条件应该是什么？ 3 GenerateData过程是产生10个[1，20]之间互不相同的随机整数。基本的外层循环是循环n次，目的是生成n个随机整数。但是由于题目要求生成的整数互不相同，所以需要嵌套一个Do循环，如果生成的第i个数不符号要求，就继续生成该数。为了检测某数是否与之前的数相同，需要在Do循环中再嵌套一个For循环，在该循环中拿刚生成的数依次和之前的数比较，如果有相等的就跳出检测循环，继续生成该数。 注意：在第三层嵌套的For循环中，是拿a(i)依次和位于其前的每一个数比较，而不能和其自身比较。因为a(i)和a(i)比较的结果肯定相等，导致程序进入死循环。 4理解参数传递的两种方式：按值传递和按地址传递。 相关界面： 程序设计【1】 加法器程序的设计： （1）窗体上有三个文本框，上面两个用于输入加数，单击“=”按钮，将前两个文本框中的数字和显示在下面的一个文本框中。 （