第２話 １→．→１→１と押すと、１．１１になるように小数ボタンとボタン１のコードを考える
解答例
Dim w As Double, v As Double, h As Byte, k As Byte, a As Integer
Private Sub CommandButton18_Click()
k = 1
a = 0
End Sub
Private Sub CommandButton2_Click()
Dim i As Byte
If k = 1 Then
For i = 0 To a
w = 10 * w
Next
w = w + 1
For i = 0 To a
w = w / 10
Next
a = a + 1
End If
If k = 0 Then w = 10 * w + 1
TextBox1.Text = w
End Sub
解説
皆さんの頭には？が浮かんでいますよね。
１→．→１→１→１と押されたとき、１．１１１とするには、
次の手順をたどればよいのです。
１→１０倍→１を加える→１０で割る→１００倍→１を加える→１００で割る→１０００倍→１を加える→１０００で割る。
実際この手順の通りにすると、
１→１０→１１→１．１→１１０→１１１→１．１１→１１１０→１１１１→１．１１１
でうまくいきます。
以上の手順をFor文で実現すればよいのです。
１→．→１→１→１と押されたときで、トレースしてみましょう。
まず、１が押されると、kは０（変数は宣言されたとき０に初期化される）ですから、
If k = 0 Then w = 10 * w + 1が実行され、１と表示されます。
次に、小数点ボタン．が押されると、k = 1、a = 0となります。
その後1が押されると、
今度はk = 1ですから、
If k = 1 Then
For i = 0 To a
w = 10 * w
Next
w = w + 1
For i = 0 To a
w = w / 10
Next
a = a + 1
End If
の方が実施されます。
a = 0なので、それぞれのFor文は1回ずつ実行されます。
ですから、１→１０倍→１を加える→１０で割る となり、
１→１０→１１→１．１になります。
最後a = a + 1によって、aは１となります。
１がまた押されると、k = 1、a = 1の状態で
If k = 1 Then
For i = 0 To a
w = 10 * w
Next
w = w + 1
For i = 0 To a
w = w / 10
Next
a = a + 1
End If
の命令が遂行されます。
ですからそれぞれのFor文は２回実施されますので、
１．１→１１→１１０→１１１→１１．１→１．１１となります。
４回目の１についてはご自分ででトレースして下さい。
では、皆さん２３４５６７８９０それぞれのボタンのコーティングを考えましょう。
第１話へ 第３話へ
VBA講義第１部へ
vc++講義へ
vb講義へ
ＶＢ講義基礎へ
初心者のための世界で一番わかりやすいVisual C++入門基礎講座へ
初心者のための世界で一番わかりやすいVisual Basic入門基礎講座へ
数学研究室に戻る
