@creative-accountposted at 2022-06-06

VBS エラー

Q&A

Closed

VBS 終了していない文字列型の定数です。

VBSでおみくじを引くプログラムを作りたいのですが、エラーがでてうまくできません。
こんな簡単なことで質問してすみません。まだ学生なもので...ご容赦ください。(日本語もたまにおかしい時があります)

発生している問題・エラー

行：　　　　7
文字：　　　20
エラー：　　終了していない定数型の文字列です
コード：　　800A0409
ソース：　　Microsoft VBScript コンパイルエラー

該当するソースコード

Randomize

Branch = Abs(int(rnd()*10)-4)

select case Branch
  case 0
    msgbox("吉",64);
  case 1
    msgbox("末吉",64);
  case 2
    msgbox("中吉",64);
  case 3
    msgbox("小吉",64);
  case 4
    msgbox("大吉",64);
  case 5
    msgbox("大凶",64);
End select

自分で試したこと

MsgBoxと()のスペースの有無
MsgBoxの行末のセミコロンの有無
第二引数の削除

何卒よろしくお願いします。

0 likes

1Answer

@_y_s posted at 2022-06-06

文字コードがShift_JISになっていないのでは？
ちなみにMsgBoxの()と;は不要です。

1Like

Comments

@creative-account
Questioner
ありがとうございます！
ちゃんと動作しました。
調べてもダブルクォーテーションの閉じ忘れしか出て来なくて…
普メモ帳でやってて今日初めてAtomでやったから文字コード変え忘れてました。
本当にありがとうございます！

Are you sure you want to delete the question?