ここから本文です

このプログラムはどこか間違っているのでしょうか?

har********さん

2019/5/217:45:47

このプログラムはどこか間違っているのでしょうか?

Endがありませんと出ます。

Option Explicit

Dim ans, y1, y5, y10, y50, y100, y500, y1000, y2000, y5000, y10000

y1 = InputBox("1円玉の数を入力して下さい。","お小遣い計算機","入力欄")
y5 = InputBox("5円玉の数を入力して下さい。","お小遣い計算機","入力欄")
y10 = InputBox("10円玉の数を入力して下さい。","お小遣い計算機","入力欄")
y50 = InputBox("50円玉の数を入力して下さい。","お小遣い計算機","入力欄")
y100 = InputBox("100円玉の数を入力して下さい。","お小遣い計算機","入力欄")
y500 = InputBox("500円玉の数を入力して下さい。","お小遣い計算機","入力欄")
y1000 = InputBox("1000円札の数を入力して下さい。","お小遣い計算機","入力欄")
y2000 = InputBox("2000円札の数を入力して下さい。","お小遣い計算機","入力欄")
y5000 = InputBox("5000円札の数を入力して下さい。","お小遣い計算機","入力欄")
y10000 =InputBox("10000円札の数を入力して下さい。","お小遣い計算機","入力欄")

ans = y1 + y5 * 5 + y10 * 10 + y50 * 50 + y100 * 100 + y500 * 500 + y1000 * 1000 + y2000 * 2000 + y5000 * 5000 +y10000 * 10000

If ans > 0 Then
MsgBox "あなたの所持金は" & ans & "円です!",vbInformation,"お小遣い計算機"
If ans < 0 Then
MsgBox "何しやがったテメー",vbCritical,"エラー"
Else
MsgBox "何しやがったテメー",vbCritical,"エラー"
End If

補足VBScriptです。

閲覧数:
9
回答数:
1

違反報告

ベストアンサーに選ばれた回答

vai********さん

2019/5/217:50:18

If ans > 0 Then
MsgBox "あなたの所持金は" & ans & "円です!",vbInformation,"お小遣い計算機"
end if 'これが抜けている。

返信を取り消しますが
よろしいですか?

  • 取り消す
  • キャンセル

この質問につけられたタグ

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる