第３話へ 第５話へ
vc++講義へ
第３講 数字を入れる箱を活用しよう
第４話 かけ算と割り算はどうするの？
プログラムの文章の修正
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行下。
答え
残念ながらありません。
では、かけ算と割り算はどうするのでしょうか。
これは私が知っているプログラム言語ではすべて共通です。
×は*で、÷は/で代用します。
""で挟んである以外は、すべて半角小文字が原則ですから、
アスタリスクもスラッシュも半角です。
*のことを米などと呼んでいる人もいますが、
正式名称はアスタリスクです。
/についは、携帯をご使用の皆さんですから、
スラッシュであることは当然ご存じですよね。
今の時代なのに、私は携帯をもっていません。
サイトは15年前から２つ持ち、
本講義の掲載されている方のサイトは、
１日のトータルアクセスが７千ありますし、
情報の免許を持ち、
高校では数学と情報の授業を担当して、
校務分掌では、情報関係の仕事に従事していますが、
携帯は１ヶ月間を除いてもったことがありません。
携帯の普及のために、公衆電話がなくて困っている生きた化石のような人間です。
さて、脱線は以上にして、本線に戻りましょう。
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
にかけ算、割り算を加えてください。
初心者のための世界で一番わかりやすいVisual C++入門基礎講座
初心者のための世界で一番わかりやすいVisual Basic入門基礎講座へ
vb講義へ
ＶＢ講義基礎へ
初心者のためのJava 入門 基礎から応用まで
数学研究室に戻る
