VB编程基础练习 附源码.docVIP

很有意思的两个VB编程题，都是基础算法。很训练能力，原创源码。这类题难就难在要找出图形规律 单击窗体显示相应图形 Private Sub Form_Click() Dim ss(7, 7) As String Dim i, j As Integer For i = 0 To 7 For j = 0 To 7 If i = 0 Or j = 0 Or i = 7 Or j = 7 Then ss(i, j) = 1 ElseIf i = j Or i + j = 7 Then ss(i, j) = 2 Else ss(i, j) = End If Next j Next i For i = 0 To 7 For j = 1 To 7 ss(i, 0) = ss(i, 0) ss(i, j) Next j Next i For i = 0 To 7 Print ss(i, 0) Next i End Sub Private Sub Form_Click() Dim i, j, k, m As Integer Dim h As Integer Dim ss(4, 4) As String k = 0 ss(0, 0) = 1 For k = 1 To 4 h = 0 j = k m = k For i = 0 To k If h = 0 Then ss(m, j - m) = Val(ss(0, m - 1) + 1) h = 1 Else ss(m, j - m) = Val(ss(m + 1, j - m - 1) + 1) End If m = m - 1 Next i Next k For i = 0 To 4 For j = 1 To 4 ss(i, 0) = ss(i, 0) ss(i, j) Next j Next i For i = 0 To 4 Print ss(i, 0) Next i End Sub