|
少しハマったのでそれを題材に問題作ってみました
掲示板の趣旨とずれますが過去にも何件かあったようなのでいいかなと
興味あればやってみてください
//| Question.uws |//////////////////////
TextBlock Q
[問題]
? を入力してループを抜け、①の MsgBox を表示してください
([Cancel] Or [X] で中止)
─────────────────────────
Option Explicit
Dim v
While v=v
Try
Eval("?")
Except
MsgBox(TRY_ERRMSG+"<#CR>"+TRY_ERRLINE)
EndTry
WEnd
MsgBox("正解です") // ・・・①
EndTextBlock
Option Explicit
Dim v, i
While v=v
Try
If i<>EMPTY Then SlctBox(0, 1, S+"不正解です"+S)
i = Input(Q, i)
If i=EMPTY Then Canceled
Eval(i)
Except
MsgBox(TRY_ERRMSG+"<#CR>"+TRY_ERRLINE)
EndTry
WEnd
MsgBox(S+"正解です"+S) // ・・・①
//////////////////////////////
Const S = Format(" ", $F)
TextBlock
Procedure Canceled()
Dim m=S+"中止しますか？"+S, bS=BTN_ABORT Or BTN_RETRY, bE=BTN_ABORT Or BTN_CANCEL
If MsgBox(m, bS) And bE Then ExitExit
FEnd
EndTextBlock
//| 追記(回答つき) |//////////
Procedure Canceled()
Dim m1=S+"中止しますか？"+S, bS1=Split("再試行 回答 中止")
Dim m2=S+"回答を見ますか？"+S, bS2=BTN_YES Or BTN_NO, bT2=BTN_YES
Dim m3=S+"h"+"ttp://codepad.org/AKqlWve0"+S, bS3=BTN_OK
Select SlctBox(SLCT_BTN Or SLCT_STR, 0, m1, bS1)
Case "再試行"; Exit
Case "回答" ; If MsgBox(m2, bS2)=bT2 Then MsgBox(m3, bS3, -1, -1, 0, TRUE) Else Exit
SelEnd
ExitExit
FEnd
////////////////////////////////////////
|
No.434 2019/05/31(Fri) 06:43:10
|
