第21講 電卓の作成
第6話 足し算実行プログラム例
Dim w As Double, v As Double
Private Sub CommandButton0_Click()
  w = 10 * w
  TextBox1.Text = w
End Sub
Private Sub CommandButton1_Click()
  w = 10 * w + 1
  TextBox1.Text = w
End Sub
Private Sub CommandButton2_Click()
  w = 10 * w + 2
  TextBox1.Text = w
End Sub
Private Sub CommandButton3_Click()
  w = 10 * w + 3
  TextBox1.Text = w
End Sub
Private Sub CommandButton4_Click()
  w = 10 * w + 4
  TextBox1.Text = w
End Sub
Private Sub CommandButton5_Click()
  w = 10 * w + 5
  TextBox1.Text = w
End Sub
Private Sub CommandButton6_Click()
  w = 10 * w + 6
  TextBox1.Text = w
End Sub
Private Sub CommandButton7_Click()
  w = 10 * w + 7
  TextBox1.Text = w
End Sub
Private Sub CommandButton8_Click()
  w = 10 * w + 8
  TextBox1.Text = w
End Sub
Private Sub CommandButton9_Click()
  w = 10 * w + 9
  TextBox1.Text = w
End Sub
Private Sub CommandButtonCE_Click()
  w = 0
  TextBox1.Text = ""
End Sub
Private Sub CommandButtonT_Click()
  v = TextBox1.Text
  w = 0
End Sub
Private Sub CommandButtonE_Click()
  TextBox1.Text = w + v
  w = 0
  v = 0
End Sub
参考ダウンロード添付ファイル

さて、次は898をコーティングして引き算も出来るようにしますが、
その際に、もう一つグローバル変数を用意する必要もありますし、
Private Sub CommandButtonE_Click()
  TextBox1.Text = w + v
  w = 0
  v = 0
End Sub
も改良しなければなりなりません。



第5話へ 第7話へ
004

eclipse c++ 入門
魔方陣 数独で学ぶ VBA 入門
数独のシンプルな解き方・簡単な解法の研究
vc++講義へ
excel 2013 2010 2007 vba入門へ
VB講義基礎へ
初心者のための世界で一番わかりやすいVisual C++入門基礎講座へ
初心者のための世界で一番わかりやすいVisual Basic入門基礎講座へ
専門用語なしの C言語 C++ 入門(Visual C++ 2010で学ぶ C言語 C++ 入門)
専門用語なしの excel vba マクロ 入門 2013 2010 2007 対応講義 第1部
eclipse java 入門へ
excel 2016 vba 入門へ
小学生からエンジニアまでのRuby入門へ
本サイトトップへ