神马品牌网期中考试数学质量分析:请教VB编程,望高手赐教!! 急~~
来源：百度文库 编辑：神马品牌网 时间：2024/04/27 18:57:02
VB编程:
编写一个金字塔，要询问建多少层。是向上建，还是向下建.若为N层,则每行打印2*N-1个"*".
请给予指导,谢谢.
编写一个金字塔，要询问建多少层。是向上建，还是向下建.若为N层,则每行打印2*N-1个"*".
请给予指导,谢谢.
可以分别在两个文本框中输入“方向”（F）（1向上，2向下）、“层数”（N），结果在一个文本框中（JZT）输出，设定一个按钮Comand1（开始输出）。
编程示例如下：我未设定两个文本框，直接对方向变量（F）和层数变量（N）进行赋值了，你可以自己再加上（程序已经调试通过）：
Option Explicit
Dim F As Long, N As Long
Dim I As Long, J As Long, A As Long, B As Long, C As Long
Dim CR As String, Tmp As String
Private Sub Form_Load()
F = 1: N = 9
A = 1: B = N: C = 1
CR = Chr(13) & Chr(10)
If F = 2 Then A = N: B = 1: C = -1
Text1.Text = ""
For I = A To B Step C
Tmp = ""
For J = 1 To 2 * I - 1
Tmp = Tmp & "*"
Next
Text1.Text = Text1.Text & Space(N - I) & Tmp & CR
Next
End Sub