动画介绍：大家好，选择循环
if then
elseif
else
end if
select case
case
case else
choose函数(index,选择值1，选择值2，...，选择值n)
根据索引值index返回相对应的选择值
switch函数(varexpr-1,value-1,varexpr-2,value-2,...varexpr-n,value-n)
判断varexpr-1到varexpr-n表达式的值，并返回第一个计算为true的表达式关 联的值
for...next
for each...in...next
与for...next类似用于对数组或对象集合中的每一个元素重复执行一组语句
while...end while
do...loop(while/until)
例子1：
Module Module1
Sub Main()
Dim score() As Single = {75, 81, 60, 92.5, 84}
Dim n, i As Byte
Dim sum, average As Single
n = score.Length
i = 0 : sum = 0
While i < n
If score(i) < 60 Then
MsgBox("?????60", , "???")
End
End If
i += 1
End While
For i = 0 To n - 1
sum += score(i)
Next
average = sum / 5
Console.WriteLine("????:{0}", average)
If average >= 85 Then
MsgBox("??", , "??")
Else
MsgBox("?????85", , "???")
End If
End Sub
End Module
例子2
Module Module1
Sub Main()
Dim year As Integer
Dim leapyears As Integer
Dim leapyear() As Integer
Dim i As Integer
For year = 2000 To 2099
If year Mod 4 = 0 And year Mod 100 <> 0 Or year Mod 400 = 0 Then
leapyears += 1
End If
Next
ReDim leapyear(leapyears - 1)
For year = 2000 To 2099
If year Mod 4 = 0 And year Mod 100 <> 0 Or year Mod 400 = 0 Then
leapyear(i) = year
i += 1
End If
Next
Console.WriteLine("21???{0}????,???:", leapyears)
i = 0
While i < leapyear.Length
If (i + 1) Mod 5 <> 0 Then
Console.Write("{0} ", leapyear(i))
Else
Console.WriteLine("{0}" & Chr(10), leapyear(i))
End If
i += 1
End While
End Sub
End Module
代码有不懂请来问
|
安全中国首页 > 动画中心 > VB编程
