[2018年最新整理]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数组的“鞍点”。所谓“鞍点”是指一个在本行中值最大，在本列中值最小的数组元素。若找到了“鞍点”，则输出“鞍点”的行号和列号，若数组不存在“鞍点”，则输出“鞍点不存在” 截图 修改属性 Text1.multiline=true Text2.Locked=true 代码： Private Sub Command1_Click() Text2.Text = Dim a() As Single Dim max, min As Single Dim i, j, s, jnd As Integer Dim m, n As Integer m = UBound(Split(Text1.Text, vbCrLf)) + 1 n = UBound(Split(Split(Text1.Text, vbCrLf)(0), ,)) + 1 ReDim a(m, n) For i = 1 To m For j = 1 To n a(i, j) = Split(Split(Text1.Text, vbCrLf)(i - 1), ,)(j - 1) Next j Next i For i = 1 To m max = a(i, 1) min = a(i, 1) For j = 1 To n If a(i, j) max Then max = a(i, j) jnd = j min = max End If Next j If min = a(i, 1) Then jnd = 1 End If For s = 1 To m If a(s, jnd) min Then min = a(s, jnd) End If Next s If max = min Then Text2.Text = i jnd Exit For End If Next i If Text2.Text = Then Text2.Text = 鞍点不存在 End If End Sub 利用在程序运行时产生控件数组，构成一个国际象棋棋盘。当单击棋格，显示对应的序号，并且将所有棋格颜色变反 截图 修改属性 Label1.Index=0 代码： Private Sub Form_Load() Label1(0).Width = 500 Label1(0).Height = 500 Label1(0).BackColor = vbWhite Label1(0).Top = 0 Label1(0).Left = 0 Form1.Width = 4500 Form1.Height = 5000 Dim i As Integer For i = 1 To 63 Load Label1(i) Label1(i).Width = Label1(0).Width Label1(i).Height = Label1(0).Height Label1(i).Visible = True If i Mod 8 = 0 Then Label1(i).Left = 0 Label1(i).Top = Label1(i - 1).Top