大橙子网站建设,新征程启航

为企业提供网站建设、域名注册、服务器等服务

vb点虐 for用法 vbnet format

用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://dzwzjz.com/article/ddjdejg.html
在线咨询
服务热线
服务热线:028-86922220
TOP