華閱文章網缺少 'Then' 和 語句未結束 高手幫幫忙 謝謝了
set rs=*Object("*set")
sql="select * gjc from detail where id="&request("id")&" "
* sql,conn,1,3
if not * and not * then
if rs("gjc")="無" then
gjcjt=gjcjt&；"無"
else
str=split(rep(rs("gjc")),",")
for i=0 to ubound(str)
if i "&left(str(i),5)
if len(str(i)) > 5 then
gjcjt=gjcjt&"。" & ""
else
gjcjt=gjcjt& ""
end if
end if
next
end if
end if
vb 缺少語句結束 急
你的IF 不是Lf 你打成Lf了沒發現？應該是if。。。
還有 else必須獨占一行
還有 有一個if就有一個end if
你有3個if 為什么只有一個end if?
Private Sub Command2_Click()
Dim x!, y!
x = Val(InputBox（"渴?x?令"））
If x < 1000 Then
y = x
Else
If x < 2000 And x >= 1000 Then
y = 0.9 * x
Else
If x < 3000 And x >= 2000 Then
y = 0.8 * x
Else
If x >= 3000 Then
y = 0.7 * x
End If
End If
End If
Print y
End Sub
vb 缺少語句結束 急
你的IF 不是Lf 你打成Lf了沒發現？應該是if。
還有 else必須獨占一行還有 有一個if就有一個end if你有3個if 為什么只有一個end if?Private Sub Command2_Click()Dim x!, y!x = Val(InputBox（"渴?x?令"））If x < 1000 Theny = xElseIf x < 2000 And x >= 1000 Theny = 0.9 * xElseIf x < 3000 And x >= 2000 Theny = 0.8 * xElseIf x >= 3000 Theny = 0.7 * xEnd IfEnd IfEnd IfPrint yEnd Sub。
這怎么解決啊
Dim uname As String, vcode As Integer
uname = *
psd = *
vcode = Val(*)
If vcode Val(*n) Then
*n = "驗證碼有誤"
ElseIf uname "admin" Or psd "p@$$word" Then
*n = "用戶名或密碼有誤"
Else
*n = "驗證成功！"
End If共有兩個地方寫錯， 一個是 Label4， 一個是 ElseIf
轉載請注明出處華閱文章網 » then缺少語句結束
