vb.net循环加1,vb中循环语句
VB.NET 怎样编写使用Do While 循环输出1-10的阶乘,我是新手请加上文字说明,呵呵,谢谢各位了!
首先在窗体上画两个控件:TextBox1和Button1
十载的伊金霍洛网站建设经验,针对设计、前端、开发、售后、文案、推广等六对一服务,响应快,48小时及时工作处理。全网整合营销推广的优势是能够根据用户设备显示端的尺寸不同,自动调整伊金霍洛建站的显示方式,使网站能够适用不同显示终端,在浏览器中调整网站的宽度,无论在任何一种浏览器上浏览网站,都能展现优雅布局与设计,从而大程度地提升浏览体验。成都创新互联从事“伊金霍洛网站设计”,“伊金霍洛网站推广”以来,每个客户项目都认真落实执行。
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点击按钮一次,数值加一
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
怎样用循环结构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
完毕
我就能想起这些
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
编译后的结果是一样的
网页名称:vb.net循环加1,vb中循环语句
本文URL:http://pwwzsj.com/article/dsgoeog.html