I・S 2011-10-20 14:22:08 |
通報 |
Dim ap, anum As Integer 'ap:りんごの値段 anum:りんごの個数
Dim op, onum As Integer 'op:りんごの値段 onum:りんごの個数
Dim total As Integer
ap = TextBox1.Text
anum = TextBox2.Text
op = TextBox3.Text
onum = TextBox4.Text
total = ap * anum + op * onum
TextBox5.Text = total
トピック検索 |