VB 第六章作业.doc

《VB 第六章作业.doc》由会员分享，可在线阅读，更多相关《VB 第六章作业.doc（9页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

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

2、。若找到了“鞍点”，则输出“鞍点”的行号和列号，若数组不存在“鞍点”，则输出“鞍点不存在”截图修改属性Text1.multiline=trueText2.Locked=true代码：Private Sub Command1_Click()Text2.Text = Dim a() As SingleDim max, min As SingleDim i, j, s, jnd As IntegerDim m, n As Integerm = UBound(Split(Text1.Text, vbCrLf) + 1n = UBound(Split(Split(Text1.Text, vbCrLf)(

3、0), ,) + 1ReDim 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 T

4、o 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 Sub3. 利用在程序运行时产生控件数组，构成一个国际象棋棋盘。当单击棋格，显示对应的序号，并且将所有棋格颜色变反截图修改属性Label1.Index=0代码：Private Sub Form_Load() Label1(0).Width = 500 Label

5、1(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).Lef

6、t = 0 Label1(i).Top = Label1(i - 1).Top + Label1(i - 1).Height Else Label1(i).Left = Label1(i - 1).Left + Label1(i - 1).Width Label1(i).Top = Label1(i - 1).Top End If If (i + 8) 8) Mod 2 0 And i Mod 2 = 0 Then Label1(i).BackColor = vbWhite Else If (i + 8) 8) Mod 2 = 0 And i Mod 2 0 Then Label1(i).Ba

7、ckColor = vbWhite Else Label1(i).BackColor = vbBlack End If End If Next iEnd SubPrivate Sub Label1_Click(Index As Integer) For i = 0 To 63 If Label1(i).BackColor = vbWhite Then Label1(i).BackColor = vbblace Else Label1(i).BackColor = vbWhite End If Label1(i).Caption = Label1(Index).Caption = Index + 1 Next iEnd Sub