十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
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