作业帮 > 综合 > 作业

VB用单循环显示有规律图形,呈三角形.1 222 33333 4444444

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/06 16:07:52
VB用单循环显示有规律图形,呈三角形.1 222 33333 4444444
Private Sub Command1_Click() Dim n '定义一个n,可以变成自己输 n = 5 For i = 1 To n s1$ = i & i & i & i & i & i & i & i & i & i & i & i & i & i & i & i '定义一个由i组成的字符串,长度 应该为2*n个以上 s$ = Space(n - i + 1) & Mid(s1,1,2 * i - 1) & Space(n - i + 1) '得到一个前面空格,中间取i,后面取空格的字符串 Print s '输出s Next i End Su