189 8069 5689
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