§2 トレース(1) プログラミング実習
 back next 

☆ ☆ ☆ 課 題 ☆ ☆ ☆

【問題2】 次のVBに関する文章の空欄を埋めよ。

 プログラムが実行される( @ )を追跡したり、実行されていく過程で、変数の( A  )の変化を調べることをトレースという。トレースには、「人間がトレースする方法」、「トレースのための( B  )を追加する方法」と「VB独自の方法」がある。トレースする過程で知りたい情報は多くの場合、( C  )である。変数の値を表示する命令があれば、その命令を使って表示させる。ただし、トレースが完了した後には削除する必要がある。VBでは、この命令に( D  )や完成後に削除が不要な( E  )という命令がある。
 プログラムをトレースすることによって、プログラムの構造や誤りを知ることができる。プログラムの誤りを( F  )といい、この誤りを取り除くことを( G  )という。
 VBにはトレースに便利な機能が用意されている。プログラムの実行を停止する場所を設定する( H  )、命令を1つずつ実行する( I  )などがある。


【問題3】 次のプログラム実行後、何と表示されるか答えよ。プログラムの変数は整数型で0で初期化されているものとする。

@ ( 55          )
For x = 1 to 10
    aaa = aaa + x
Next
MsgBox(aaa)
A ( aa=30 bb=25   )
For x = 1 to 5
    aa = aa + x * 2
    bb = bb + x * 2 - 1
Next
MsgBox("aa=" & aa & " bb=" &bb)
B ( 25          )
For x = 1 to 10 Step 2
    aaa = aaa + x
Next
MsgBox(aaa)
C ( 30           )
For x = 10 to 1 Step -2
    aaa = aaa + x
Next
MsgBox(aaa)
D (            )
For x = 1 to 10
    aaa = aaa + x
    If aaa >= 15 Then
        Exit For
    End If
Next
MsgBox(x)
E (             )
For x = 1 to 5
    aaa = aaa * x
Next
MsgBox(aaa)
F ( 120         )
aaa = 1
For x = 1 to 5
    aaa = aaa * x
Next
MsgBox(aaa)
G ( 32           )
For x = 1 to 5
    aaa = aaa * 2
Next
MsgBox(aaa)


【問題4】 次の設問に合うように、プログラムを完成せよ。数値の変数を宣言すると、変数の値は0で初期化されるものとする。

(1) メッセージ「BASIC」をメッセージボックスで10回表示する。
  Dim n As Integer
  For n = 0 To [ @  ]
    MsgBox(”BASIC”)
  [ A
 
(2) 1+2+3+…+19+20を計算する。
  Dim x As Integer, w As Integer
  For [ @  ] = [ A  ] To [ B  ]
    w = w + x
  Next
 
(3) 5+6+7+…+14+15を計算する。
  Dim k As Integer, w As Integer
  For [ @  ] = [ A  ] To [ B  ]
    w = w + k
  Next
 
(4) 1から20までの偶数の和を計算する。
  Dim g As Integer, w As Integer
  For [ @  ]
    w = w + g
  Next
 
(5) 5+10+15+20+25+30を計算する。
  Dim k As Integer, w As Integer
  For k = 1 To 6
    w = w + [ @  ]
  Next
 
(6) 10から99までの整数のうち、45以下の整数の個数を変数cにカウントする。
  Dim n As Integer, c As Integer
  For [ @  ]
    If n <= 45 Then
      c = c + [ A  ]
    End If
  Next


【課題3】 次のプログラムを作成せよ。 プロジェクト名:課題03

 フォームに次のオブジェクトを重ならないように配置する。配置場所、大きさは適当でよい。
  ・テキストボックス(TextBox1, TextBox2)  ・ボタン(Button1)  ・ラベル(Label1)

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim x1 As Integer, x2 As Integer
    Dim n As Integer, s As Integer = 0
    x1 = val(Text1.Text)                      '#1
    x2 = val(Text2.Text)                      '#2
    For n = x1 To x2                            '#3
        s = s + n                                 '#4
    Next                                            '#5
    label1.text = "結果は、" & s & " です。"     '#6
    End Sub                                        '#7

【設問】実行後、TextBox1に100、TextBox2に150と入力して[Button1]ボタンをクリックしたときの結果を答えよ。
  (  6375   )

【設問】実行後、TextBox1に200、TextBox2に100と入力して[Button1]ボタンをクリックしたとき、実行される順番を答えよ。
  #1 →(                         )→ #7


 back next 
 §2 トレース(1) Copyright©2008 Hiroshi Masuda 

 

 

inserted by FC2 system