VB第六章作業.docVIP

VB第六章作业 系别：化学与化工系 班级：1120473 学号：32 姓名：鲁鑫 第六章作业 求斐波那契数列的前二十项 代码： Private Sub Form_Click() Dim a(1 To 20) As Integer Dim i As Integer a(1) = 1 a(2) = 1 For i = 3 To 20 a(i) = a(i - 1) + a(i - 2) Next i Print a(1) Print a(2) For i = 3 To 20 Print a(i) Next i End Sub 找出一个mXn数组的“鞍点”。所谓“鞍点”是指一个在本行中值最大，在本列中值最小的数组元素。若找到了“鞍点”，则输出“鞍点”的行号和列号，若数组不存在“鞍点”，则输出“鞍点不存在” 截图