Question

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

各位大佬，拜托了，急急急

Answer 1

• 启动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条件时，程序也是继续。