No.2ベストアンサー
- 回答日時:
Dim no As Integer
Dim monndai(3) As String
Dim kotae1(3, 4) As String
------------------
Private Sub Command1_Click()
Text1.Text = monndai(no)
Option1.Caption = kotae1(no, 1)
Option2.Caption = kotae1(no, 2)
Option3.Caption = kotae1(no, 3)
Option4.Caption = kotae1(no, 4)
no = no + 1
End Sub
Private Sub Form_Load()
no = 1
monndai(1, 1) = "ガッコウ"
monndai(2, 1) = "サル"
monndai(3, 1) = "ミズ"
kotae1(1, 1) = "学校"
kotae1(1, 2) = "駅"
kotae1(1, 3) = "家"
kotae1(1, 4) = "猫"
kotae1(2, 1) = "猿"
kotae1(2, 2) = "駅"
kotae1(2, 3) = "家"
kotae1(2, 4) = "猫"
kotae1(3, 1) = "水"
kotae1(3, 2) = "駅"
kotae1(3, 3) = "家"
kotae1(3, 4) = "猫"
End Sub
とりあえずこんな感じで動くとは思います。
正解が一番上にしかきませんが、それはがんばって考えてください。w
あと変数は、回答をシャッフルするための変数が3個
正解数、不正解数のための変数5つが必要だと思います。
あとグラフはやったことないのでわかりません。
PS、
もし金銭的に余裕があれば本を2~3冊購入するのをお勧めします。(個人的には技術評論社のがお勧めです)
No.3
- 回答日時:
あと変数は、回答をシャッフルするための変数が3個
正解数、不正解数のための変数5つが必要だと思います。
>
間違いがあった気がするので
あと変数は、
回答の入れ替えのための変数2つ
(1番と2番など)
それを一時的に保存しておく変数
それを数回するためfor 用の変数
正解数、不正解数のための変数
が必要だと思います。
いらない方法もあるかもしれませんが、・・・。
この回答への補足
あの、先程書いていただいたプログラムやってみるんですが、私は、問題数を全部で3000問ぐらい入れたいとおもっているんですが、バカでかい膨大な量でも応用すればできますよね?初心者と言っているに膨大な問題数に挑もうとしているんです。。。すいません。
あと、紹介していただいた技術評論社の本、探してみます。ありがとうございます。
No.1
- 回答日時:
ファイル>>
どのようなファイルかにもより答えが変わるかと思います。
たとえば カンマ方式なのかそれとも・・・。
VB6.0を使って漢字の問題ソフトを作ろうと思っています>>
これはよみをラベル(など)に表示するということですか?
この回答への補足
私がいまのところ考えてるのは、ラベルに1問ずつか5問ずつ問題を表示して、テキストに読み仮名を書いてもらって、答えを表示する。・カナに当てはまる漢字をラジオボタンで選んでもらって答えてもらう…などをしたいと思っています。あと、間違った問題だけを出すようにしたり、得点をグラフで表したりも考えてるんですが…。内容が多くてすいません。。。
補足日時:2004/05/18 00:37お忙しい中お答えいただいてありがとうございます。学校で習っていたのですが、全くと言っていいほど分かりません。未熟者ですが、よろしくお願いします。。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 開くと警告の出るExcelファイルの中身を何とか見たいのですが。。。 4 2023/05/24 17:20
- その他(プログラミング・Web制作) データ解析ソフトRでのファイル入力read.csvがエラーになります 7 2022/03/27 22:11
- フリーソフト mmfファイルからmp3に変換できる方法を教えてください(XMediaRecode以外で) 2 2022/03/22 22:25
- ドライブ・ストレージ ハードディスクのデータ回復について 15 2022/08/22 14:55
- 画像編集・動画編集・音楽編集 inkscapeで作成した図の保存の仕方とその保存したファイルの編集の仕方 1 2022/09/22 09:33
- Excel(エクセル) EXCELの外部データ取得ができない 1 2023/03/23 09:03
- Excel(エクセル) CSVファイルがカンマ区切りにならない。対処法を教えていただきたいです。 仕事でSMS一斉送信ができ 2 2022/07/01 21:24
- ドメイン・サーバー・クラウドサービス 自作サイトをサーバーにアップロードしたのですが… 2 2022/11/08 18:12
- Visual Basic(VBA) 九九の答えの計算 3 2022/12/20 22:13
- Windows 10 JPG PNG サポートされていない形式 (JPGファイルで開ける、開けないがある場合) 4 2022/04/23 13:46
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
C言語のOpenGLで複数のテクスチ...
-
vba初心者です。
-
ペイントソフトの作成方法
-
sublimit textっていうエディタ...
-
演奏記号の・・・・
-
三項でたとえば交換って
-
他のフォームから別のフォーム...
-
VB.NETでのイベントの途中終了
-
VS CodeでTEXファイルにPDF形式...
-
VBAでcallで呼び出したsubを終...
-
再帰呼び出し
-
エクセルVBAでテキストボッ...
-
タイムアウトする仕組みを作りたい
-
Excel ユーザーフォームで計算 ...
-
【VB6.0】 あるフォームから他...
-
C#のループでtextboxに値を入れ...
-
C言語のサフィックスについて
-
【VBS】クリップボード操作につ...
-
VB.NETのテキストボックスで、...
-
こうもりの撃退法
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
SavePictureで保存できない
-
ボールが壁に当たって跳ね返る...
-
Matlabでsin波を使って矩形波を...
-
PictureBoxでのアニメーション...
-
Matlab/SimulinkのChirp信号に...
-
FlexGridで文字色を変更。
-
ピッ、ってアルファベットでど...
-
SCALEの使い方教えてください
-
プログレスバーに似たコントロ...
-
Picture box の サイズを変更
-
(VB)ピクチャボックスに表示し...
-
画像をランダムに表示させたい...
-
ペイントソフトの作成方法
-
ピクチャーボックスの画像を印...
-
C言語のOpenGLで複数のテクスチ...
-
VBによる回帰直線のプログラム
-
文字間の幅の設定
-
画像処理
-
三項でたとえば交換って
-
VBA public変数はどのようなこ...
おすすめ情報