vB l中 用 WHILE 来做 121 12321 1234321 金字塔求答!急要用WHILE!

来源:学生作业帮助网 编辑:作业帮 时间:2024/11/29 18:56:24
vB l中 用 WHILE 来做 121 12321 1234321 金字塔求答!急要用WHILE!
xJ@_ I%v#E]ʤubHcqiݸ,@&շ4bfwwfĜ!x+_0<}Tr^]q~ݗŢ|ʫU7R0Tt!OR>cʅ!ѥJ`-0NaG7\9YʣAT+A'^S LA1,6kW8Ull\ɚh$ن_Ukёw!;$l)LdJGc66MXd?

vB l中 用 WHILE 来做 121 12321 1234321 金字塔求答!急要用WHILE!
vB l中 用 WHILE 来做 121 12321 1234321 金字塔求答!急要
用WHILE!

vB l中 用 WHILE 来做 121 12321 1234321 金字塔求答!急要用WHILE!
Private Sub Command1_Click()
Dim i, a As Integer, b As String
Do
a =4
Loop While a < 2 Or a > 9
For i = 1 To a
b = ""
For j = 1 To (i - 1) * 2 + 1
b = b & IIf(j > i, CStr(i * 2 - j), CStr(j))
Next
Print Space(a + 1 - i) & b
Next
End Sub