第4講 数字型変数を理解しよう

第4話 かけ算と割り算はどうするの?

コードの修正
Private Sub CommandButton1_Click()
  Dim a As Byte, b As Byte
  a = 12
  b = 15
  Cells(6, 1) = "a="
  Cells(6, 2) = a
  Cells(7, 1) = "b="
  Cells(7, 2) = b
  Cells(8, 1) = "a+b="
  Cells(8, 2) = a + b
  Cells(9, 1) = "a-b="
  Cells(9, 2) = CInt(a) - CInt(b)
End Sub
さて、エラーの原因と対策がわかったところで、
かけ算と割り算も加えましょう。
ところで、a×bやa÷bと入力したいのですが、
キーボードに×や÷はありますか。
よくご覧になってください。
答えは30行下。





























答え
残念ながらありません。
では、かけ算と割り算はどうするのでしょうか。
これは私が知っているプログラム言語ではすべて共通です。
×は*で、÷は/で代用します。
""で挟んである以外は、すべて半角小文字が原則ですから、
アスタリスクもスラッシュも半角です。
*のことを米などと呼んでいる人もいますが、
正式名称はアスタリスクです。
/についは、携帯をご使用の皆さんですから、
スラッシュであることは当然ご存じですよね。
今の時代なのに、私は今年の5月まで携帯をもっていませんでした。
サイトは15年前から2つ持ち、
本講義の掲載されている方のサイトは、
1日のトータルアクセスが多い日に1万近くありますし、
情報の免許を持ち、
高校では数学と情報の授業を担当して、
校務分掌では、情報関係の仕事に従事していますが、
携帯は10年ぐらい前の1ヶ月間を除いてもっていなかったのです。
携帯の普及のために、公衆電話がなくて困っている生きた化石のような人間でしたが、
今年の5月に遂に観念して、
娘と一緒にスマホを購入しました。
さて、脱線は以上にして、本線に戻りましょう。
Private Sub CommandButton1_Click()
  Dim a As Byte, b As Byte
  a = 12
  b = 15
  Cells(6, 1) = "a="
  Cells(6, 2) = a
  Cells(7, 1) = "b="
  Cells(7, 2) = b
  Cells(8, 1) = "a+b="
  Cells(8, 2) = a + b
  Cells(9, 1) = "a-b="
  Cells(9, 2) = CInt(a) - CInt(b)
End Sub
にかけ算、割り算を加えてください。



3話へ 第5話へ



トップ


初心者のためのc++ vc++ c言語 入門 基礎から応用までへ
初心者のための excel 2007 2010 2013 vba 入門 基礎から応用まで
初心者のための世界で一番わかりやすいVisual C++入門基礎講座
初心者のための世界で一番わかりやすいVisual Basic入門基礎講座へ
vb講義トップへ
VB講義基礎へ
専門用語なしのC++入門へ
専門用語なしのJava入門へ
専門用語なしのVBA入門

数独のページ
魔方陣のページ
数学研究室に戻る
本サイトトップへ