VB常用算法代码.docVIP

实用标准文档 文案大全 Feb数列前18项 Option Base 1 Private Sub Form_Click() Dim Feb(18) As Integer, I As Integer Feb(1) = 1 Feb(2) = 1 For I = 3 To 18 Feb(I) = Feb(I - 1) + Feb(I - 2) Next For I = 1 To 18 Print Feb(I), If I Mod 5 = 0 Then Print Next End Sub 鞍点 Option Explicit Option Base 1 Private Sub Form_Click() Cls Dim A(4, 5) As Integer, I As Integer, J As Integer, K As Integer Dim Max As Integer, Min As Integer Dim Row As Integer, Col As Integer, Flag As Boolean Randomize For I = 1 To 4 For J = 1 To 5 A(I, J) = Rnd * 90 + 10 Print A(I, J); Next Print Next I = 1 Fl