求程序问题：vb数字金字塔，输入一个n（n>0,n<10）,打印金字塔的形式，从a开始逐行递增在递减回到塔底
例如在文本框中输入5，单击command则在form上显示下面图形：
a
bbb
ccccc
ddddddd
fffffffff
ddddddd
ccccc
bbb
a
大家现在的答案做得有点不合要求，具体的就是把下面这个程序里面的数字变成字母就好了
Dim i As Integer
Dim j As Integer
Dim n As Integer
Private Sub Command1_Click()
Form1.Cls
n = Val(Text1.Text)
If n <= 0 Or n >= 10 Then
MsgBox "输入范围错误，请输入0—10之间的整数", , "输入错误"
Text1.Text = ""
End If
For i = 1 To n
Print Tab(10 - i);
For j = 1 To i * 2 - 1
Print Trim(Str(i));
Next j
Next i
For i = n - 1 To 1 Step -1
Print Tab(10 - i);
For j = 2 * i - 1 To 1 Step -1
Print Trim(Str(i));
Next j
Next i
End Sub
Private Sub Form_Load()
End Sub
希望大家能给个合符题意的，要换了数字图形就变 并且之前输入出现的图形不会再出现
并且图形最准确形状为回答者q490097855发的那张图一样
按照老板要求,我改了一下
Private Sub Command1_Click()
Cls
b = Val(Text1.Text)
For i = -b + 1 To b - 1
Print Tab(Abs(i) + 1);
Print String(((b - Abs(i)) * 2 - 1), Chr(96 + Abs(b) - Abs(i)))
Next i
End Sub
Private Sub Form_Load()
Text1.Text = ""
End Sub
帮你改了下,这下要给分吧。这么简单！浪费我不少时间！晕
Dim j As Integer
Dim n As Integer
Private Sub Command1_Click()
Form1.Cls
n = Val(Text1.Text)
If n <= 0 Or n >= 10 Then
MsgBox "输入范围错误，请输入0—10之间的整数", , "输入错误"
Text1.Text = ""
End If
For i = 1 To n
Print Tab(10 - i);
For j = 1 To i * 2 - 1
Print Chr(96 + i);
Next j
Next i
For i = n - 1 To 1 Step -1
Print Tab(10 - i);
For j = 2 * i - 1 To 1 Step -1
Print Chr(96 + i);
Next j
Next i
Print Chr(96)
End Sub
Dim J
Dim K As Integer
Private Sub Command1_Click()
TF = True
K = 1
J = InputBox("请输入数字: ")
If J <> "" And IsNumeric(J) = True Then
If TF = True Then
For i = 1 To J
While K < i * 2
Print Chr(96 + i);
K = K + 1
Wend
K = 1
Next i
TF = False
End If
If TF = False Then
For i = J - 1 To 1 Step -1
While K < i * 2
Print Chr(96 + i);
K = K + 1
Wend
K = 1
Next i
End If
End If
End Sub
aaa = Val(InputBox("数字", "123"))
For i = -aaa To aaa
Print Space(Abs(i) + 2) & String(aaa - Abs(i), Chr(96 + Abs(aaa) - Abs(i)))
Next i
End Sub
求程序问题:vb数字金字塔,输入一个n(n>0,n<10),打印金字塔的形式,从a...
Dim j As Integer Dim n As Integer Private Sub Command1_Click()Form1.Cls n = Val(Text1.Text)If n <= 0 Or n >= 10 Then MsgBox "输入范围错误，请输入0—10之间的整数", , "输入错误"Text1.Text = ""End If For i = 1 To n Print Tab(10 - i);For j = 1 To i *...
求完整编程(打印数字金字塔)
编写程序以实现打印数字金字塔。程序流程如下：1. 定义三个变量a, b, n，分别表示循环计数器、空格数量和行数。2. 输入n值，即金字塔的行数。3. 使用外层循环控制行数，从1到n。4. 内层循环控制每行中数字的打印位置，从1到当前行数a。5. 每次循环打印数字b，并在其后空格。6. 再使用内层循...
用Win-TC编程序功能是输入n(0<n<10)后,输入一个数字金字塔。
两个for循环 一个控制输出行数 一个控制输出数字
用python打印数字金字塔
num=eval(input('请输入一个整数：'))print('数字金字塔显示如下：')level= 1 #金字塔的高度即层数 while level <= num:kk=1 #每一层长度的计数 t=level length=2*t-1 while kk<=length:if kk==1:if kk==length:print(format(t,str(2*num-1)+'d'),'\\n')break 要形成金字塔型，...
打印数字金字塔的PASCAL程序
1.WHILE循环的执行形式 WHILE 布尔表达式 DO 语句 例如：k:=10;WHILE k>0 DO BEGIN Writeln (k);k:=k-1 END;其中 (1)WHIlE 和DO是PASCAL保留关键字，是WHILE循环语句的组成部分。(2)保留关键字DO后面的“语法”只能是一条语句，称为“循环体”；如果循环 体中需要包含多个语句则应该如上例...
vfp打印数字金字塔。 clear\/input"input n(1-9):" to n\/for i=
do while .t.clear input"input n(1-9):" to n if BETWEEN(n,1,9)exit endif enddo for i=1 to n for j=1 to i ??ALLTRIM(STR(i))endfor ?endfor 输入结果：1 22 333 4444 55555 ...
编写程序,打印如下所示的“数字金字塔 相同的一样 就要下面这样_百度...
所要的程序已经完成，请采纳：include<stdio.h> void main(){ int n,i,j;scanf("%d",&n);for(i=1;i<=n;i++){ for(j=1;j<=n-i;j++)printf(" ");for(j=1;j<=i;j++)printf("%d ",i);printf("\\n");} }
编写一个函数,其功能是输出数字金字塔,要求用递归方法来解决。_百度...
include <stdio.h>int N;void py( int n ){if ( n > 0){int i;py( n-1 ); \/\/先输出前边的数for(i=0;i<N-n;i++ ) \/\/输出前导空格，这里N是全局变量，表示最大的数printf(" ");for(i=1;i<n;i++ ) \/\/1到n-1printf("%d",i );for(;i>=1;i-- )printf("%d",...
求一道题,c语言的,关于数字金字塔的
如b=a+c，所以b>a,b>c，即b至少大于a、c两个数，所以此位置为2 d=e+b=(f+c)+(c+a)，即d至少大于e、b、f、c、e五个数，所以此位置为5 同理推出其他位置的至少大于其他数的个数，结果如上图所示 这样的情况下，可以肯定的得出k=15 而：g≥10，且l≥10，即g和l的取值为10,11,...
c语言程序输出数字金字塔
int n;\/\/这个就是定义的你需要输出的行数int i,j;printf("please input the n: ");scanf("%d",&n);\/\/输入需要输出的行数for(i=0;i<n;i++){for(j=0;j<2*(n-1-i);j++) printf(" ");for(j=0;j<=i;j++) printf("%d",j+1);for(j=0;j<2*i-1;j++) printf(" ");for(j=...
