用VB.NET的FOR语句怎么编写1到100所有奇数的和啊 ！！！马上要考试了 急！！！

dim sSum as long

成都创新互联专注于企业网络营销推广、网站重做改版、秀英网站定制设计、自适应品牌网站建设、HTML5建站、成都商城网站开发、集团公司官网建设、成都外贸网站建设公司、高端网站制作、响应式网页设计等建站业务，价格优惠性价比高，为秀英等各大城市提供网站开发制作服务。

for i=1 to 100

if i mod 2 =1 then

sSum=sSum + i

endif

next i

msgbox "1、100的奇数和为：" sSum,"提示"

==========================================

Sum 是关键字，是个系统函数

sSum 只是一个变量，晕，可以改成别的。

vb点虐 在for语句中怎么不用goto来直接跳转到next i？

从你的例子来看你要实现的功能是

在

i=0

到

10

中

如果

i=3

就跳过

msgbox

("ok")

指令，否则执行该指令。

你可从另一方面来考虑。程序可以这样写:

dim

i

as

integer

for

i=0

to

10

if

i3

then

msgbox

("ok")

end

if

next

i

vb点虐 求个for循环的写法

你先新建一个控制台应用程序，然后全部复制就行了，用 Ctrl + F5 调试

Module Module1

Sub Main()

Dim temp As String = "*"

Dim i, j As Short

For i = 1 To 5 Step +2

For j = 1 To i

Console.Write("{0} ", temp)

Next j

Console.WriteLine("")

Next i

Console.ReadLine()

End Sub

End Module

其实你这样不就好了

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

Dim a As String = "*" vbCrLf "* * *" vbCrLf "* * * * *"

MessageBox.Show(a)

End Sub

多方便

vb点虐 for循环

dim i

for i=2 to 1

msgbox("*")

next

语法没问题，这应该在winform里面能够调试成功，显示运行框，但是在web application里面就不能出现弹出信息框了，在网页上要出现，建议用response.write("scriptalert（'***'）/script").

for i=100 to 1 这样的语句在VB9.0后是支持的。楼下的，不要天天抱着VB6啃。

分享名称：vb点虐 for用法 vbnet format
本文路径：http://cdweb.net/article/ddjdejg.html