テキストボックスを使用した問題を作成（エクセル）

Question

【前提】
エクセル・ユーザーフォーム上にテキストボックスを3つ・コマンドボタンを一つ配置しています。
【実現したいこと】
問題の答えをテキストボックスに入力・コマンドボタンをクリックすると
答えの成否をメッセージボックスで表示する。
テキストボックスに入力した答え3つがすべて正しければ”正解”
一つでも間違いがあれば”不正解”になります。
※3つのテキストボックスに入力する答えの順番は問わない。
【発生している問題】
正しい答えを入力しているが、メッセージボックスには”不正解”と表示されます。
【該当のソースコード】
With CreateObject("System.Collections.Arraylist")
.Add problem21.reply1.Text
.Add problem21.reply2.Text
.Add problem21.reply3.Text
.Sort
If Join(.toarray, "｜") = "リンゴ｜みかん｜ぶどう" Then
MsgBox "正解"
Else
MsgBox "不正解"
End If
End With
End Sub

よろしくお願いします。

Answer 1

sort は、ひらがな、カタカナの順番で並び替えされるようです。

そのため、答えの部分は ぶどう｜みかん｜リンゴ とすべきかと思います。

以下の通り確認しました。

Option Explicit

Sub test()

With CreateObject("System.Collections.Arraylist")
.Add "みかん"
.Add "リンゴ"
.Add "ぶどう"
.Sort

'' ソートの結果を確認。
Debug.Print Join(.toarray, "｜")

If Join(.toarray, "｜") = "ぶどう｜みかん｜リンゴ" Then
MsgBox "正解"
Else
MsgBox "不正解"
End If
End With
End Sub

Comments

[sazi]

単純に回答の文字列と比較するのなら、sortしないという選択肢もあり？と、ふと思いました。

[lemons]

回答、ありがとうございございます。
［tukuroku］さんのコードを入力すると、”正解”とメッセージで表示されるのですが、不正解の場合でも”正解”と表示されます。
ご指導、よろしくお願いします。

[sazi]

変更する部分は、
If Join(.toarray, "｜") = "ぶどう｜みかん｜リンゴ" Then
の部分だけで良いはずですが、それ以外も変更しましたか？

[lemons]

［tukuroku］からのコードと同じコードを入力しているのですが・・・。
テキストボックスに不正解の答え（・ぶどう・砂糖・リンゴ）を入力。採点ボタン（コマンドボタン）をクリックした場合でも、”正解”と表示されます。

[tukuroku]

私が提示したコードのcreateobjectでaddしているのは、テスト用の固定の文字列です。なので、テキストボックスに何を入れても正解になります。

addしている部分を、ご自分のコードに書かれているテキストボックスの文字列を取得する部分と差し替えてみて下さい。

[tukuroku]

>単純に回答の文字列と比較するのなら、sortしないという選択肢もあり？と、ふと思いました。
問題の順番が決まっているならば、むしろそうするべきですよね。

[takito]

回答側もsortしちゃえば順番の心配は無くなりますかね