vb.net循环do VB 循环

Vb.net中有多种do循环语句,貌似都是一样的,为什么弄那么多?

do ... loop

成都创新互联公司提供高防物理服务器租用、云服务器、香港服务器、成都服务器托管

do while ... loop

do until ... loop

do ... loop while

do ... loop until

各有不同作用,有的先处理再判断,有的先判断再处理

VB.NET 怎样编写使用Do While 循环输出1-10的阶乘,我是新手请加上文字说明,呵呵,谢谢各位了!

首先在窗体上画两个控件:TextBox1和Button1

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

vb.net do循环

你确信只循环一次吗?我看不像,在最后添加上一句msgbox jishu1,多半显示3。

是在第二块代码中有问题,你应该把chaxun4 = xlsheet.Range("l1").Value + 2分别放到两个条件句中初始chaxun4变量。

因为上一个Do Until atmbianhaop = xlsheet.Range("B" chaxun4).Value 循环退出后,下一个循环一开始就符合退出条件了,所以循环没有进行了。


当前名称:vb.net循环do VB 循环
浏览路径:http://pwwzsj.com/article/hejjjo.html