Question

VB编程实现以下图像，求解、

Answer 1

 

 

Private Sub Form_Click()

Dim m As Integer, n As Integer

For i = 1 To 10 / 2

m = 64 + i

n = m

For j = i To 10 / 2 - 1

Print " ";

Next j

For j = 1 To 2 * i - 1

Print Chr(m);

Next j

Print

Next i

For i = 1 To 10 / 2

n = n + 1

For j = 1 To i

Print " ";

Next j

For j = 1 To 2 * (10 / 2 - i) - 1

Print Chr(n);

Next j

Print

Next i

End Sub

 

 

 

Answer 2

Private Form_click()
Dim i as byte, j as byte,a as integer, s as string
for i= 1 to 9
s=""
if i>5 then a=19-2*i else a=2*i-1
for j=1 to a
s=s+chr(64+i)
next j
print space((9-a)/2)+s
next i
End sub