vb.net循环加1,vb中循环语句

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

相关问答

Q1: vb.net点击按钮一次，数值加一

dim a as integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

a = a + 1

Label1.Text = a.ToString

End Sub

Q2: 怎样用循环结构vb计算1加到100结果显示在

是指这个吗?(变量定义我就不写了，都是integer或者long,结果是p)

1,for…next结构:

For i=1 to 100

p=p+i

next

2,do…loop结构

第一种:

i=1

do while i=100

p=p+i

i=i+1(如果是.net的话可以改成i+=1)

loop

第二种:

i=1

do

p=p+1

i=i+1(或i+=1)

loop until i100

3，while…wend结构

其实和do while差不多

i=1

While i=100

p=p+1

i=i+1(或i+=1)

wend

完毕

我就能想起这些

Q3: vb.net 的循环 for next 中next后面什么时候加循环变量i 什么时候不加？

可以加 可以不加 VB.NET编辑器很人性化 都是自动完成的 在以前VB语法中是需要加的 在.NET中 即使是在多层嵌套循环中 只要每个For 都对应一个Next 后面加不加变量现在都一样 也就是说 For i = 1 To 100

Next

与 For i = 1 To 100

Next i

编译后的结果是一样的