高考问答电脑蓝屏igdkmd64.sys:在VB环境下怎样在屏幕上显示以下图形？
来源：百度文库 编辑：高考问答 时间：2024/04/29 12:02:32
*
* *
* * *
* *
*
* *
* * *
* *
*
最简单的是使用字符串函数，例如
Dim N As Integer, I As Integer, Str1 As String
Dim Str2 As String
N = 3: Str1 = "*********"
For I = 1 To 2 * N - 1
If I <= N Then
Str2 = Left(Str1, I)
Else
Str2 = Left(Str1, N * 2 - I)
End If
Print Str2
Next
Dim N As Integer, i As Long
N = 3
For i = 1 To 2 * N - 1
Print String$(IIf(i <= 3, i, 2 * N - i), "*")
Next