Option ExplicitPrivate Sub Command1_Click()
Dim s As String * 1
Dim strT$()
Dim n As Integer, i As Integer, j As Integer, t As Integer
s = UCase(Text1)
n = Val(Text2)
ReDim strT(n)
For i = 1 To n
For j = 1 To 2 * i - 1
t = Asc(s) + j - 1
If (t >= Asc("A") And t <= Asc("Z")) Then
strT(i) = strT(i) & Chr(t)
Else
strT(i) = strT(i) & Chr(t - 26)
End If
Next j
Picture1.Print Tab(15 - i); strT(i)
Next iEnd Sub是个类似的题,你运行看看!
Private Sub Command1_Click()
Dim s As String
Dim i As Integer
Dim j As Integer
For i = 1 To 5
s = ""
For j = 1 To 9 - (i - 1) * 2
s = s & Chr(Asc("A") + j - 1)
Next
Print Space(i - 1) & s
NextEnd Sub