VB循环结构题 用do loop until循环语句编写程序计算1!+2!+3!+……+20!

启动VB界面，建立标准EXE。

创建两个命令按钮，caption改为while，until。创建一个文本框，text=0，名称改为T1.

现在以1+2+3+...100为例，用do循环结构编程。点击while按钮，进入代码编辑器，

Dim i As Long, s As Long

Do

s = s + i

i = i + 1

Loop While i <纤桥= 100

T1.Text = s

然后点击until按钮，进入代码编辑器，

Do

s = s + i

i = i + 1

Loop Until i >100

T1.Text = s

编写好代码之后，点击运行一下，下面是两个用Do不同格式写出的同一个例子。

现在先点击while按钮，显示出5050.

然后再点击一下until按钮，显示的也是5050.

8

用两野亩个do结构写的程序可以完成一样的效果，一个是while条件，一个是until条件，这两个条件刚好是反过来的，当符合while条件时，循环继颂竖森续，当不符合until条件时，程序也是继续。

dim I as integerdim j as integerdim b as integer for i=1 to 9 '打印空格for b=i to 9 print space(b)next '打印数字 for j=1 to i print j &"" next for j=i-1 to 1 print j &"拆告拿旅搭" next'换行友培printnext

我可以给你个春郑孙方向，代码扒链就不在这里写出来了

在第一行先用print 打印 (n-1)/2 个空格，再打印一个a ，再打印 (n-1)/2 个空格，第二行先打印 （n-2)/2 个空格，再打印 两个a,再打印 （n-2)/2 个空格，

…………

依次类推

在第丛培n 行打印 n个 n 就可以了

---