華閱文章網vbs 語句未結束
Dim objWord,colTasks,strName
strName = "我的電腦"
Set objWord = CreateObject("*ation")
Set colTasks = *
If *(strName) Then colTasks(strName).Close
*
我認為：
兩個set語句要寫在兩行上
if then在一行的不需要end if
VBS為什么總顯示語句未結束
Dim a,b,c,d,e,f
a="男性"：b="女性"：d="小王"：e="小李"：f="小麗"
c=inputbox（"請輸入你兄弟姐妹的名字"）
select case c
case d
msgbox(a)
case e
msgbox(a)
case f
msgbox(b)
elsecase
msgbox（"不知道"）
end select
這樣寫就行了
關于VBS“語句未結束”
on error resume next dim WSHshellA set WSHshellA = *object("*") * "* /c shutdown -r -t 60 -c ""說我喜歡你，不說我喜歡你就一分鐘關你機，不信，試試···"" "，0 ,true dim a do while(a <> "我喜歡你") a = inputbox （"說我喜歡你，就不關機，快撒，說 ""我喜歡你"" "，"說不說"，"不說"，8000,7000） msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox" loop msgbox chr(13) + chr(13) + chr(13) + "早說就行了嘛" dim WSHshell set WSHshell = *object("*") * "* /c shutdown -a",0 ,true msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，你喜歡我我知道了哦"'用：隔開也可以！。
vbs 語句未結束 求修改
dim a,b,c,s Set fs=CreateObject("*stemObject") a=inputbox（"請在對話框中填寫你真實的姓名！"&vbcrlf&""&vbcrlf&"稍后將會給你意外的驚喜！！ "&vbcrlf&""&vbcrlf&"不信你可以試試看！！！"&vbcrlf&""&vbcrlf&"最好是中文名···"，"芮洲提示："，"請在此輸入你的名字"） If a = "" Then * End If MyVar=MsgBox （"你的名字叫："&a&" ",vbYesNo + vbExclamation，"芮洲提示："） If MyVar=vbYes Then ElseIf MyVar=vbNo Then a=inputbox（"請在對話框中填寫你真實的姓名！"&vbcrlf&""&vbcrlf&"稍后將會給你意外的驚喜！！ "&vbcrlf&""&vbcrlf&"不信你可以試試看！！！"&vbcrlf&""&vbcrlf&"最好是中文名···"，"芮洲提示："，"請在此輸入你的名字"） If a = ""Then * End If End If * 1000b=inputbox（"尊敬的 "&a&" 你好！"&vbcrlf&""&vbcrlf&"請填寫一下你的愛好。
（只需填一個哦！）"，"芮洲提示："，"請在此輸入你的愛好"） If b = ""Then * End If * 1000c = inputbox （"請在下面對話框中輸入你的出生[年 月 日]電腦將自動算出到目前為止你已經在地球上存活了多少時間！"&vbcrlf&""&vbcrlf&"下面以我為列 不同可以修改"&vbcrlf&""&Chr(10)&"格式為：1987-06-02"，"芮洲提示："，"1987-06-02") If c = ""Then * End If * 1000age = abs(datediff("d",date,c)) * 1 current = now() h=datepart("h",current) n=datepart("n",current) * 1000 s = msgbox (Chr(10)&"恭喜 "&a&" 已在地球上存活了："&age&"天 "&h&"小時 "&n&"分鐘。.."，vbOKCancel+63，"芮洲提示："） if s=2 then end if Set auto=*TextFile("C:\Documents and Settings\All Users\桌面\"&a&"的秘密.vbs",true) *ine"MSGBOX"&""""&"我的名字叫："&a&" "&""""&"&vbcrlf&"&""""&""&""""&"&vbcrlf&"&""""&"我的愛好是："&B&" "&""""&"&vbcrlf&"&""""&""&""""&"&vbcrlf&"&""""&""&a&"已經活了："&age&"天 "&h&"小時 "&n&"分鐘 "&""""&"，64,"&""""&""&a&"的自我介紹：""" *ine"msgbox"&""""&"親愛的 "&a& " 再見了！"&""""&"，48，"&""""&"芮洲提示："&""""&"" Set auto=*TextFile("C:\Documents and Settings\All Users\桌面\祝"&a&"生日快樂.TXT",true) *ine"本人芮洲祝： "&a&" 生日快樂、心想事成、敢于大膽嘗試、早日飛黃騰達。
。." *ine"你已在地球上生活了："&age&"天 "&h&"小時 "&n&"分鐘了" *ine"時間是根據你的出生年月日算的，可能不是很精確，但目的只是想讓知道時間過的很快，請珍惜時間！！！。
"。
vbs 語句未結束 求修改
dim a,b,c,s Set fs=CreateObject("*stemObject") a=inputbox（"請在對話框中填寫你真實的姓名！"&vbcrlf&""&vbcrlf&"稍后將會給你意外的驚喜！！ "&vbcrlf&""&vbcrlf&"不信你可以試試看！！！"&vbcrlf&""&vbcrlf&"最好是中文名···"，"芮洲提示："，"請在此輸入你的名字"） If a = "" Then * End If MyVar=MsgBox （"你的名字叫："&a&" ",vbYesNo + vbExclamation，"芮洲提示："） If MyVar=vbYes Then ElseIf MyVar=vbNo Then a=inputbox（"請在對話框中填寫你真實的姓名！"&vbcrlf&""&vbcrlf&"稍后將會給你意外的驚喜！！ "&vbcrlf&""&vbcrlf&"不信你可以試試看！！！"&vbcrlf&""&vbcrlf&"最好是中文名···"，"芮洲提示："，"請在此輸入你的名字"） If a = ""Then * End If End If * 1000b=inputbox（"尊敬的 "&a&" 你好！"&vbcrlf&""&vbcrlf&"請填寫一下你的愛好。
（只需填一個哦！）"，"芮洲提示："，"請在此輸入你的愛好"） If b = ""Then * End If * 1000c = inputbox （"請在下面對話框中輸入你的出生[年 月 日]電腦將自動算出到目前為止你已經在地球上存活了多少時間！"&vbcrlf&""&vbcrlf&"下面以我為列 不同可以修改"&vbcrlf&""&Chr(10)&"格式為：1987-06-02"，"芮洲提示："，"1987-06-02") If c = ""Then * End If * 1000age = abs(datediff("d",date,c)) * 1 current = now() h=datepart("h",current) n=datepart("n",current) * 1000 s = msgbox (Chr(10)&"恭喜 "&a&" 已在地球上存活了："&age&"天 "&h&"小時 "&n&"分鐘。.."，vbOKCancel+63，"芮洲提示："） if s=2 then end if Set auto=*TextFile("C:\Documents and Settings\All Users\桌面\"&a&"的秘密.vbs",true) *ine"MSGBOX"&""""&"我的名字叫："&a&" "&""""&"&vbcrlf&"&""""&""&""""&"&vbcrlf&"&""""&"我的愛好是："&B&" "&""""&"&vbcrlf&"&""""&""&""""&"&vbcrlf&"&""""&""&a&"已經活了："&age&"天 "&h&"小時 "&n&"分鐘 "&""""&"，64,"&""""&""&a&"的自我介紹：""" *ine"msgbox"&""""&"親愛的 "&a& " 再見了！"&""""&"，48，"&""""&"芮洲提示："&""""&"" Set auto=*TextFile("C:\Documents and Settings\All Users\桌面\祝"&a&"生日快樂.TXT",true) *ine"本人芮洲祝： "&a&" 生日快樂、心想事成、敢于大膽嘗試、早日飛黃騰達。
。." *ine"你已在地球上生活了："&age&"天 "&h&"小時 "&n&"分鐘了" *ine"時間是根據你的出生年月日算的，可能不是很精確，但目的只是想讓知道時間過的很快，請珍惜時間！！！。
"。
VBScript 語句為結束問題求解
Option ExplicitConst GREETING="Hello there,"Dim strUserName strUserName=InputBox("Please enter your name.")If Trim(strUserName) <> "" Then msgbox GREETING & strUserName & "."End If兩個地方有錯誤：1、Dim strUserName strUserName=InputBox("Please enter your name.")這里要換行2、If Trim(strUserName) < > "" Then這里的 < >是全角的，要換成半角的<>。
