VB实验任务13.docVIP

实验任务13 课程名称：程序设计基础VB 实验名称——实验十三 数组（3）、过程（1） 一、实验目的： 1．掌握数组的声明和数组元素的引用 2．掌握定长数组和动态数组的使用 3．掌握数组的基本操作算法 4．掌握过程的定义和调用 二、实验内容（包括实验要求 题目 、实验步骤、程序清单、运行情况）： 实验报告上写实验1、3代码，课外实验做好也可以写。 实验1找一个n m的二维数组的“鞍点”。“鞍点”是指它在本行中数值最大，在本列中数值最小。也可能在一个数组中找不到鞍点。输出鞍点的行、列号，如无鞍点则输出“无鞍点”。 分析：可以仿照本章例题，利用查找和最值算法，对于矩阵的每一行完成以下操作：先求出每行的最大值，以及所在的列，然后根据此最大值所在的列，判断最大值是否是所在列的最小值，若是，表示此数是要找的鞍点，则输出鞍点的行、列号。若遍历所有行没有找到鞍点，则输出“鞍点元素不存在”。 参阅课本求出每行的最大值，以及所在的列，顺序查找，实现判断最大值是否是所在列的最小值 Option Base 1 Private Sub form_Click Dim a As Integer, i As Integer, j As Integer Dim maxvr As Integer, col As Integer, find As Boolean n InputBox 请输入矩阵行数： m InputBox 请输入矩阵列数： Print n * m 矩阵 For i 1 To n For j 1 To m a i, j Int Rnd * 9 + 1 Print a i, j ; Next j Print Next i For i 1 To n Col 1 For j 2 To m If maxvr a i, j Then maxvr a i, j : col j End If Next j For j 1 To n If Then Exit For Next j If j n Then Print 存在鞍点a i , col a i, col find True End If Next i If Then Print 鞍点元素不存在 End Sub 实验2实验书7-10 编程实现首先生成一个由小到大已排好序的整数数组，再输入一个数据，单击“插入”按钮会自动把这个数据插入到原数组适当的位置，并保持数组的有序性。程序运行界面如图a所示。（参看习题集P14317题） 实验3实验7-9 利用随机函数生成一组数存放在数组中，把该数组的值显示在图形框中，然后将下标为奇数的数组元素从数组中删除，再把新数组显示在另一个图形框中，程序运行界面如图a所示。 a b 实验4 弄清楚过程调用的程序执行流程，建议人工执行一遍，之后利用单步调试工具，进一步验证。注意观察过程定义和调用的格式，并分析说明函数的功能 Private Sub form_click Dim n As Integer n Val InputBox 请输入一个整数: Print n; ; If n 0 Then Print -; n Abs n Call fun n Print End Sub Private Sub fun n As Integer Dim k As Integer, r As Integer For k 2 To Int Sqr n r n Mod k Do While r 0 Print k; n n \ k : r n Mod k If n 1 Then Print *; Loop Next k If n 1 Then Print n End Sub 实验5 参考例题：课本习题2编写度转换成弧度的函数，在窗体事件中调用验证其正确性。 Const pi 3.14159 Private Sub Form_Click Dim Angle As Single, radian As Single Angle Val InputBox 请输入要转换的角度值: radian conversion Angle ‘调用函数conversion实现角度转换成弧度 MsgBox 角度 Angle 对应的弧度为 Format radian, 0.00 End Sub Private Function conversion n As Single As Single ‘函数conversion的定义 conversion n * pi / 180 ‘将计算结果赋予函数名 End Function 实验6求1000以内的孪生素数。孪生素数是一对