dim i
创新互联公司专业为企业提供绿园网站建设、绿园做网站、绿园网站设计、绿园网站制作等企业网站建设、网页设计与制作、绿园企业网站模板建站服务,10余年绿园做网站经验,不只是建网站,更提供有价值的思路和整体网络服务。
for i=2 to 1
msgbox("*")
next
语法没问题,这应该在winform里面能够调试成功,显示运行框,但是在web application里面就不能出现弹出信息框了,在网页上要出现,建议用response.write("scriptalert('***')/script").
for i=100 to 1 这样的语句在VB9.0后是支持的。楼下的,不要天天抱着VB6啃。
dim sSum as long
for i=1 to 100
if i mod 2 =1 then
sSum=sSum + i
endif
next i
msgbox "1、100的奇数和为:" sSum,"提示"
==========================================
Sum 是关键字,是个系统函数
sSum 只是一个变量,晕,可以改成别的。
你对For循环的理解是完全错误的!
For循环的代码应修改为:
For i = 0 To un
ListBox2.Items.Add(ListBox1.Items(i))
Next
就这三行就行了!i的值会自动递增的,再放i=i+1不但多余,而且会使i的值按0、2、4、6……递增,这样的话ListBox1的第1、3、5……项就被跳过了!另外,i的值是肯定不会大于un的,所以if i=un then是完全多余的。
Continue For
类似的还有
Continue While
就是你需要的.
跳过后面的内容,执行下一次循环.
For i As Integer = 1 To 8
Dim TC As CheckBox = Me.Controls("ComboBox" i)
If TC.Checked Then
TextBox1.Text = TextBox1.Text "," TC.Checked.ToString()
End If
Next
当前名称:vb.netfor语句 vbnetfor循环
当前URL:https://www.cdcxhl.com/article2/hgiiic.html
成都网站建设公司_创新互联,为您提供ChatGPT、静态网站、企业建站、、网站导航、网站改版
声明:本网站发布的内容(图片、视频和文字)以用户投稿、用户转载内容为主,如果涉及侵权请尽快告知,我们将会在第一时间删除。文章观点不代表本网站立场,如需处理请联系客服。电话:028-86922220;邮箱:631063699@qq.com。内容未经允许不得转载,或转载时需注明来源: 创新互联