13518219792
首先在窗体上画两个控件：TextBox1和Button1
创新互联成立于2013年，先为港口等服务建站，港口等地企业，进行企业商务咨询服务。为港口企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。
TextBox1用来输入需要计算那个数的阶乘
双击Button1进入输入代码，代码如下
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim Factorial As Integer = 1 '定义一个变量用来记录阶乘的结果
Dim count As Integer '定义一个变量用来记录需要计算那个数的阶乘
Dim i As Integer = 1 '定义一个数用来循环
count = Int(Val(Me.TextBox1.Text)) '把TextBox1的值赋值给count
Do While i = count '下面开始计算阶乘
Factorial = Factorial * i '计算阶乘
i += 1 '自增1
Loop
MessageBox.Show(Int(Val(Me.TextBox1.Text)) "的阶乘是：" Factorial, "完成", MessageBoxButtons.OK) '弹出计算结果
Catch ex As Exception '出错提示
MessageBox.Show(Err.Description, "出错了", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
1、while用作连词时，表示“在…(过程)中，在…期间”。常用来引导时间状语从句，当主句的主语和while所引导的从句的主语一致时。
2、while从句中的主语、谓语往往可以省去。
3、while还可引导让步状语从句，意思是“虽然，尽管”，含有对比意味。
4、while表示对比关系时，意思是“而，然而”。
5、when引导的从句作“当…时”或“每逢…”解，从句中的动作既可以和主句中的动作同时发生，也可以在主句的动作之前或之后发生。
扩展资料
近义词：as
读音：英 [æz , əz] 美 [æz , əz]
释义：像，如同，作为。
语法：as用作连词时，可以用来表示时间，译为“正当…的时候，随着…，边…边…”，引导时间状语从句。主句可以是主动句，也可以是被动句。当两个主语的动作是同时发生的时候，主句和从句的谓语动词都可以用进行时态或一般式，无论动作长短。
例句：
He has worked as a diplomat in the US, Sudan and Saudi Arabia
他曾任驻美国、苏丹和沙特阿拉伯的外交官。
while为条件循环，for为计数循环。一般情况下，WHILE可替代FOR，反之则不然。
