VB编程,数字菱形以及字符菱形

发布网友

我来回答

共2个回答

热心网友

Dim n%, st$ 'st为控制所显示字符或数字变量
n = InputBox("请输入数字菱形行数，必须为奇数", "数字菱形")
m = (n + 1) / 2
For i = 1 To m
    st = Chr(Asc(i))
   Print Tab(m + 1 - i); String(2 * i - 1, st),
Next
For i = m + 1 To n
   st = Chr(Asc(i))
   Print Tab(i - m + 1); String(2 * (n - i) + 1, st),
Next
n = InputBox("请输入字符行数，必须为奇数", "字符菱形")
m = (n + 1) / 2
For i = 1 To m
If i Mod 2 = 0 Then st = "B" Else: st = "A"
   Print Tab(m + 1 - i); String(2 * i - 1, st),
Next
For i = m + 1 To n
    If i Mod 2 = 0 Then st = "B" Else: st = "A"
   Print Tab(i - m + 1); String(2 * (n - i) + 1, st),
Next

热心网友

假设输入的是x
for i=1 to x
for j=1 to i
? i;
next j
?
next i
大概是这个意思，你再修改一下