十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
首先在窗体上画两个控件: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,反之则不然。