一道VB+算法!我新手!想不出

来源：百度知道 编辑：UC知道 时间：2024/06/20 22:40:53
VB编一道这样的题!我新手!!编不出
***1
**121
***1
**121
*12321
**121
***1
**121
*12321
1234321
*12321
**121
***1
**121
*12321
**121
***1
**121
***1
*为空格
Private Sub Form_Click()
Dim n%, m%: n = 1: m = 3
For i = 1 To 5
For j = n To m
Print Tab(Abs(j - Abs(Abs(i - 3) - 4)) + Abs(Abs(i - 3) + 1));
For s = 1 To m - 2 * Abs(j - (1 + m) \ 2)
Print Trim(Abs(Abs(s - Abs(Abs(j - Abs(Abs(i - 3) - 4)) - Abs(Abs(i - 3) - 4))) - Abs(Abs(j - Abs(Abs(i - 3) - 4)) - Abs(Abs(i - 3) - 4))));
Next s
Print
Next j
n = 2
If i < 3 Then
m = m + 2
Else
m = m - 2
End If
Next i
End Sub

我是我写的!!!请问!!还有其他简单的做法吗?

Option Explicit

Private Sub Command1_Click()
Dim a(100, 100) As Integer
Dim i As Integer
Dim j As Integer

If IsNumeric(Text1.Text) = False Then
MsgBox "请在文本框输入要显示的行数（1-99）", vbInformation, "提示"
Text1.SetFocus
Else

For i = 1 To Text1.Text
For j = 1 To i
a(i, j) = 1
Next
Next

For i = 2 To Text1.Text
For j = 1 To i
a(i, j) = a(i - 1, j) + a(i - 1, j - 1)
Next
Next

For i = 1 To Text1.Text
Print Space(CStr(Text1.Text) - i);
For j = 1 To i
Print CStr(a(i, j)) + Space(1);
Next
Print
Next

For i = Text1.Text - 1 To 1 Step -1