最終講　卒業研究と卒業試験

第６話　卒業試験前半
いよいよ卒業試験です。
最後の問題以外は解答は載せませんが、もしわからない場合は本講座にほとんどの場合解答がありますので、
あちらこちらを探して下さい。
問題は、講話順になっています。
すべての問題をクリアされたら卒業です。


以下（　）は配点
問題１
新しいWindowsソフトを作るには、最初の起動画面の

どこをクリックすればよいでしょうか。（２点)

問題２
問題１の続きです。

Windowsソフトを開発するときには、右側の選択肢の何を選べばよいでしょうか。(２点)

問題３

まな板に材料（ButtonやLabelなど）をのせていく場合、何を使いますか。(２点）

問題４

実行ボタンを押すと、Labe1に『はじめてのVB』と表示できるようにするためには、
Public Class Form1

　　 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
　　　　　 = "はじめてのVB"
　　 End Sub
End Class
四角内に何とタイピングすればよいでしょうか。(２点)

問題５
次のFormを作ってみましょう。
(２点)

問題６
Public Class Form1

　　 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
　　　　　Label1.Text = "Visual Basicの世界にようこそ！"
　　　　　Label2.Text = "Visual Basicの世界にようこそ！"
　　　　　Label3.Text = "Visual Basicの世界にようこそ！"
　　　　　Label4.Text = "Visual Basicの世界にようこそ！"
　　　　　Label5.Text = "Visual Basicの世界にようこそ！"
　　　　　Label6.Text = "Visual Basicの世界にようこそ！"
　　 End Sub
End Class

を変数を使って、より簡単に記述するためには、
Public Class Form1

　　 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
　　　　　Dim a As
　　　　　a = "Visual Basicの世界にようこそ！"
　　　　　Label1.Text = a
　　　　　Label2.Text = a
　　　　　Label3.Text = a
　　　　　Label4.Text = a
　　　　　Label5.Text = a
　　　　　Label6.Text = a
　　 End Sub
End Class

四角内に何と記述したらよいでしょうか。(２点)

問題７
Public Class Form1

　　 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
　　　　　　Dim 言葉１ As String
　　　　　　Dim 言葉２ As String
　　　　　　Dim 言葉３ As String
　　　　　　Dim 言葉４ As String
　　　　　　Dim 言葉５ As String
　　　　　　Dim 人１ As String
　　　　　　Dim 人２ As String
　　　　　　Dim 人３ As String
　　　　　　Dim 人４ As String
　　　　　　Dim 人５ As String
　　　　　　Dim 人６ As String

　　　　　　言葉１ = "明るく"
　　　　　　言葉２ = "前向き"
　　　　　　言葉３ = "優しく"
　　　　　　言葉４ = "活発"
　　　　　　言葉５ = "は"

　　　　　　人１ = "太郎"
　　　　　　人２ = "花子"
　　　　　　人３ = "次郎"
　　　　　　人４ = "優子"
　　　　　　人５ = "三郎"
　　　　　　人６ = "洋子"

　　　　　　Label1.Text = 人１ + 言葉５ + 言葉１ + 言葉２
　　　　　　Label2.Text = 人２ + 言葉５ + 言葉３ + 言葉４
　　　　　　Label3.Text = 人３ + 言葉５ + 言葉１ + 言葉３
　　　　　　Label4.Text = 人４ + 言葉５ + 言葉２ + 言葉３
　　　　　　Label5.Text = 人５ + 言葉５ + 言葉１ + 言葉４
　　　　　　Label6.Text = 人６ + 言葉５ + 言葉１ + 言葉３ + 言葉２ + 言葉４
　　 End Sub
End Class

ビルドして実行ボタンを押すとLabel4とLabel6には何と表示されるでしょうか。(各２点で計４点)

問題８
Public Class Form1

　　Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
　　　　　Dim a,b,c As 'まとめて整数型変数を宣言

　　　　　'変数に整数を代入
　　　　　a = 6
　　　　　b = 3

　　　　　'和を計算
　　　　　c = a + b
　　　　　'和を表示
　　　　　Label1.Text =

　　 End Sub
End Class

それぞれの四角に何と記述したらよいでしょうか。(各２点で計４点)

問題９
Public Class Form1

　　 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
　　　　　'変数の宣言
　　　　　Dim w As Integer

　　　　　'初期化
　　　　　w = 0

　　　　　'ループ（繰り返し）処理
　　　　　w = w + 1
　　　　　w = w + 2
　　　　　w = w + 3
　　　　　w = w + 4
　　　　　w = w + 5
　　　　　w = w + 6
　　　　　w = w + 7
　　　　　w = w + 8
　　　　　w = w + 9
　　　　　w = w + 10
　　　　　
　　　　　'結果の表示
　　　　　Label1.Text = w

　　 End Sub
End Class


これと同じ結果が得られるように、For文でプログラミングし直して下さい。(５点)

問題１０

Public Class Form1

　　 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

　　　　　'変数の宣言
　　　　　Dim i As Integer, j As Integer, w As Integer

　　　　　'６行追加
　　　　　For i = 1 To 6
　　　　　　　DataGridView1.Rows.Add()
　　　　　Next

　　　　　'１行目に列表題を入れる。
　　　　　DataGridView1(3, 0).Value = "合計 "
　　　　　DataGridView1(4, 0).Value = "平均 "

　　　　　'５行目,６行目に行表題を入れる。
　　　　　DataGridView1(0, 4).Value = "合計 "
　　　　　DataGridView1(0, 5).Value = "平均 "

　　　　 '２次元データを入力
　　　　　　　　　 　　　　　　　　・
　　　　　　　　　 　　　　　　　　・
　　　　　　　　　 　　　　　　　　・

　　　　'行の合計と平均の計算と表示
　　　　　　　　　 　　　　　　　　・
　　　　　　　　　 　　　　　　　　・
　　　　　　　　　 　　　　　　　　・

　　　　'列の合計と平均の計算と表示
　　　　　　　　　 　　　　　　　　・
　　　　　　　　　 　　　　　　　　・
　　　　　　　　　 　　　　　　　　・

　　 End Sub
End Class
省略部分をタイピングして下さい。（５点）

問題１１
#pragma endregion
　　 private: System::Void button1_Click(System::Object^ sender, System::EventArgs^ e) {
　　　　　　　　　　　int a,b,c,d,f,w;

　　　　　　　　　　　//textBoxから５教科の値を取得
　　　　　　　　　　　a=int::Parse(textBox1->Text);
　　　　　　　　　　　b=int::Parse(textBox2->Text);
　　　　　　　　　　　c=int::Parse(textBox3->Text);
　　　　　　　　　　　d=int::Parse(textBox4->Text);
　　　　　　　　　　　f=int::Parse(textBox5->Text);　　//eはすでに、System::EventArgs^ eと宣言されていて使えないのでfとなっている

　　　　　　　　　　　//５教科合計を計算
　　　　　　　　　　　w=a+b+c+d+f;

　　　　　　　　　　　//５教科合計を表示
　　　　　　　　　　　textBox6->Text=w.ToString();

　　　　　　　　　　　//合否判定
　　　　　　　　　　　if(w>=300)textBox7->Text=L"合格";
　　　　　　　　　　　if(w<300) textBox7->Text=L"不合格";

　　　　　　　　　　　//講評
　　　　　　　　　 　　　　　　　　・
　　　　　　　　　 　　　　　　　　・
　　　　　　　　　 　　　　　　　　・
　　　　　　　　　}
};
}
If文によって、

講評に４５０点以上なら『超天才級』、４５０点未満３８０点以上なら『天才級』、３８０点未満３００以上なら『優秀』、
３００点未満２８０点以上なら『残念、後一歩です。』、２８０点未満なら『残念』
と表示させてください。（５点）

問題１２
Public Class Form1

　　 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
　　　　　Dim a, b, c, max As Integer
　　　　　a = TextBox1.Text
　　　　　b = TextBox2.Text
　　　　　c = TextBox3.Text

　　　　　　　　　　　　　　　　・
　　　　　　　　　　　　　　　　・
　　　　　　　　　　　　　　　　・

　　 End Sub
End Class
実行結果

省略文
　　　　　　　　　　　　　　　　・
　　　　　　　　　　　　　　　　・
　　　　　　　　　　　　　　　　・
をタイピングして下さい。（５点）

問題１３

実行結果が

となるように配列を使ってプログラミングして下さい。（１０点）

第５話へ　第７話へ

VC++講義第１部へ
vb講義へ
ＶＢ講義基礎へ
初心者のための世界で一番わかりやすいVisual C++入門基礎講座

数学研究室に戻る