Visual Basic综合训练题.docVIP

Visual Basic程序设计 综合训练题 目 录 综合题一（素数算法） 3 综合题二（查找算法） 4 综合题三（排序算法） 5 综合题四（求最值算法） 6 综合题五（矩阵操作） 7 综合题六（随机文件操作） 8 参考代码 9 综合题一（素数算法） 9 综合题二（查找算法） 10 综合题三（排序算法） 11 综合题四（求最值算法） 13 综合题五（矩阵操作） 14 综合题六（随机文件操作） 15 综合题一（素数算法） 设计一个界面如下图所示，其窗体上有一个文本框和一个命令按钮。 实现功能为： 在文本框中输入一个任意数，单击“判断”按钮进行素数判断。若是素数则将文本框中输入的值保存在文件in1.txt中并提示保存成功，否则提示“该数不是素数”。 提示： 判断数a是否为素数，利用可能被整除的数(2~)与a进行取余运算（mod），若余数为零，就为非素数；当所有可能被整除的数都使得余数不为零，a就是素数。 综合题二（查找算法） 一个包含姓名的顺序文件name.txt，一个姓名独占一行（如下图所示）。编写程序实现对name.txt中姓名的查找。 程序界面 利用列表框显示读出的所有姓名，在查找内容中输入姓或姓名，单击“查找”按钮，在查找结果中显示 name.txt文件中的姓名 提示： 1. 顺序文件的读写操作，在打开文件时有所区别，读文件时用for input，写文件时用for output； 2. 在读文件时，将读到的姓名存放在数组中方便后续查找算法的实现； 3. 查找的方法可从第一个数组元素开始与“查找内容”进行比较，若考虑“查找内容”可以是同姓的所有姓名，注意在条件判断时使用取字符串函数（left）； 4. 有多个姓名满足查找内容时，其查找结果须连接显示在文本框中，用“”字符串连接符。 综合题三（排序算法） 随机产生10个数（0～99），按下面要求进行排序操作。 采用比较交换法将上述随机数按从小到大进行排列； 将（1）的结果利用选择排序法按从大到小进行排序，并计算比较和数据交换的次数； 将（2）的结果利用冒泡排序法从小到大进行排序，同样计算比较和数据交换的次数。 提示：三种排序算法的相同点在排序的趟数都为n-1(n个的数)次，在算法中主要包含比较和交换代码，不同的点是比较的交换代码的位置不一样，选择排序法中需利用最值算法。 综合题四（求最值算法） 一个简易的成绩评定程序，根据评委们给出的成绩，按去掉一个最高分和一个最低分，求平均分的方法求选手的成绩。 参考界面如下： 成绩评定程序界面，其中显示评委成绩的为text控件数组 提示： 1. 最高分和最低分的计算利用求最值的算法，为了易于编写程序，可考虑使用文本框控件数组； 2. 评委的分数可以利用随机函数获得一个区域值； 3. 选手最后的成绩可以考虑保留1位小数（int(分数*10)/10或int(分数*10+0.5)/10，后者考虑了四舍五入）。 综合题五（矩阵操作） 利用For循环产生一个九九乘法表的计算结果，按下列要求输出： 按矩阵方式输出完整的九九乘法表； 上三角输出九九乘法表； 交换行列，按交换后的位置输出。 提示： 1. 类似上图这种矩阵操作，我们通常采用二维数组，利用两重循环，控制二维数组元素的行值和列值，每行输出完毕后需换行，并且需考虑定位情况（利用tab函数或format格式函数）； 2. 参考界面中的输出在图片框中实现，所以在输出语句print前需加上图片框对象名。 综合题六（随机文件操作） 建立一个随机文件，编写程序实现对随机文件的读、写和修改操作。 参考界面如下： “文件”菜单 读文件 修改记录时提示输入记录号 提示： 1. 操作随机文件时，需使用自定义数据类型，如上图所示，学生记录中包含学号，姓名和年龄，可通过自定义数据类型定义（type…end type）；随机文件的读写模式都为for random或Private Sub Command1_Click() Dim intnum As Integer intnum = Val(Text1.Text) intnum接收文本框中输入的值 求素数算法，将所有可能被整除的数与intnum进行取余运算 若余数为零，说明intnum不是素数，循环结束，此时循环变量的值在2～sqr(intnum)范围内 若intnum是素数，则For循环是因为循环变量i超过Sqr(intnum)，不再满足循环条件而退出。 For i = 2 To Sqr(intnum) If intnum Mod i = 0 Then Exit For Next i 下面对循环变量进行判断，得出