Question

vb 为什么运行总是提示“编译错误：endif没有if块”

给下源代码
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim e As Integer
Dim f As Integer
If Command1.Caption = "¿aê¼óÎÏ·" Then
Command1.Caption = "í￡Ö1óÎÏ·"
If Text1.Text < 1 Or Text1.Text > 10 Or Text2.Text < 5 Or Text2.Text > 100 Then
x = MsgBox("×îD¡ÖμμÄè¡Öμ·¶Î§êÇ1-10" & Chr(13) & "×î′óÖμμÄè¡Öμ·¶Î§êÇ5-100", 48, "×￠òa")
Else
Label10.Caption = ""
Label12.Caption = ""
Label13.Caption = ""
Label14.Caption = ""
Label11.Caption = ""
Label15.Caption = ""
Label16.Caption = ""
Command1.Caption = "í￡Ö1óÎÏ·"
Text1.Text = a
Text2.Text = b
Randomize
c = Int((b * Rnd) + 1)
d = Int((b * Rnd) + 1)
e = Int((b * Rnd) + 1)
f = Int((b * Rnd) + 1)
Do Until c >= a
Randomize
c = Int((b * Rnd) + 1)
Loop
Do Until d >= a
Randomize
d = Int((b * Rnd) + 1)
Loop
Do Until e >= a
Randomize
e = Int((b * Rnd) + 1)
Loop
Do Until f >= a
Randomize
f = Int((b * Rnd) + 1)
Label2.Caption = c
Label5.Caption = c
Label3.Caption = c
Label4.Caption = c
End If
Else
Command1.Caption = "¿aê¼óÎÏ·"
Label2.Caption = "24"
Label5.Caption = "μã"
Label3.Caption = "óÎ"
Label4.Caption = "Ï·"
Label10.Caption = "24"
Label12.Caption = "μã"
Label13.Caption = "óÎ"
Label14.Caption = "Ï·"
Label11.Caption = "￡«"
Label15.Caption = "￡«"
Label16.Caption = "￡«"
End If
End Sub
中文都变乱码了，但是还是可以看得

Answer 1

仔细看
Do Until f >= a
... ...
... ...
后边少东西