VB if语句中怎么循环啊

Question

Private Sub Command1_Click()
Label4.FontName = "黑体"
Label1.Caption = "黑体"
Label2.Caption = "楷体_GB2312"
Label3.Caption = "宋体"
Label4.Caption = "0"
Label4.Width = Width
Label4.Height = Height
Timer1.Interval = 1000

End Sub
Private Sub Timer1_Timer()

If Label4.FontSize < 100 Then
Label4.FontSize = Label4.FontSize * 10
Else
Label4.FontSize = 10

n = n + 1

End If

If n = 1 Then
Label4.Caption = "我"

ElseIf n = 2 Then
Label4.Caption = "你"

ElseIf n = 4 Then
Label4.Caption = "他"

ElseIf n = 3 Then
Label4.Caption = "谁"

End If

End Sub

循环不到谁啊

不是数字的循环

Answer 1

有end if而出错,而出错时因为是先执行的FOR,而FOR也没有结束,所以VB默认会报FOR错误..其实应该是你的IF THEN没有END IF来对应了..

2.如上所说..
For i = 1 To 2
For j = 1 To 4
a = a + 1
Next j
Next i
把那一行,IF THEN拿掉,这个代码你能看懂吗? 就是每一轮都执行一个A=A+1的.

然后:
For i = 1 To 2
For j = 1 To 4
If j Mod 2 <> 0 Then a = a + 1
Next j
Next i
呵呵,这样你能看懂吗? 每轮并没有执行A=A+1的,只有在J是偶数(J MOD 2=0)时,A才会=A+1的..

现在把2行写到一起,你也应该能懂了吧:

For i = 1 To 2
For j = 1 To 4
If j Mod 2 <> 0 Then a = a + 1
a = a + 1
Next j
Next i

这个就是,每次都肯定会执行1次A=A+1,而当J是偶数时,就会执行2次 A=A+1的

Answer 2

Private Sub Timer1_Timer()

If Label4.FontSize < 100 Then
Label4.FontSize = Label4.FontSize * 10
n=0'------------n没有归0，所以循环不下去了。
Else
Label4.FontSize = 10

n = n + 1

End If

If n = 1 Then
Label4.Caption = "我"

ElseIf n = 2 Then
Label4.Caption = "你"

ElseIf n = 4 Then
Label4.Caption = "他"

ElseIf n = 3 Then
Label4.Caption = "谁"
End If

End Sub

Answer 3

select case n
case 1,2
Label4.Caption = n
case 3
Label4.Caption = "4"
case 4
Label4.Caption = "3"
case 5

case 6

case 7

end select

追问

要的是语句的循环 不是要数字的循环

追答

Label4.Caption = choose (n,"我","你","他","谁")

Answer 4

定义n为全局变量或局部静态变量。

局部表态变量如下写：
Private Sub Timer1_Timer()
static n as intger '''''''''''''''''''''''''''''''

If Label4.FontSize < 100 Then
Label4.FontSize = Label4.FontSize * 10
Else