缺少 语句结束

Dim s1, s2
Private Sub Check1_Click()
s1 = 0
For i = 100 To 200
If i Mod 5 = 0 Then s1 = s1 + i
Next i
End Sub

Private Sub Check2_Click()
s2 = 0
For i = 100 To 200
If i Mod 6 = 0 Then s2 = s2 + i
Next i
End Sub

Private Sub Command1_Click()
Text1 = 0
If Check1.Value = 1 And Check2.Value = 1 Then
Text1 = s1 + s2
Elself Check1.Value = 1 then
Text1 = s1
Elself Check2.Value = 1 then
Text1 = s2
Else
For i = 100 To 200
Text1.Text 1 + i
Next i
End If
End Sub

elself check1.value=1 then
elself check2.value=1 then
这两个语句都显示缺少语句结束

f i Mod 5 = 0 Then s1 = s1 + i
If i Mod 6 = 0 Then s2 = s2 + i
缺end if

少看一个 end if 把这句放到msgbox "你真聪明", , "哈哈"的下面 一个if 语句就必须有一个 end if结尾 意思是结束判断

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息