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

来源：学生作业帮编辑：灵鹊做题网作业帮分类：综合作业时间：2024/04/27 16:44:59

VB编程,数字菱形以及字符菱形
如图,编写以下程序,最好能说明下每个变量的作用,

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

VB编程,数字菱形以及字符菱形 C语言编程,数字组成菱形,大神进来瞧一瞧菱形用GUIDE编程打印用数字构成的菱形图案,菱形上半部分的行数n( 1 菱形菱形菱形(菱形) C语言编程:打印空心数字菱形,求救啊,搞了半天还是搞不出来 VFP编程:输出星号构成的菱形. vb流程图中长方形、菱形、各代表什么意义用C语言编程输出*号排列成的菱形用java编程：输出一个用*号组成的菱形!* *** ***** *** * C语言编程,字母组成的菱形图案