■

文字列の合体

name = InputBox("お名前は?")

MsgBox("こんにちは," & name & " さん")

x = 2
y = 3
MsgBox("答えは，x = " & x & ", "y = " & y & "です。)

または

x = 2
y = 3
msg = "答えは，x = " & x & ", "y = " & y & "です。"
MsgBox(msg)

やるかやらないか If 文

a = 1

b = -2

c = -1
If (b^2-4*a*c) >=0 Then

 MsgBox(b^2-4*a*c)

Else

 MsgBox("計算不能")

End If

くりかえし Do Loop文

Option Explicit
dim n, s
n = 1

s = 0
Do

  If n > 10 Then Exit Do End If

  s = s + n

  n = n + 1

Loop
MsgBox("合計: " & s)

２で割り切れるかどうか

If x mod 2 = 0 Then

  偶数のときにやること命令

End If

課題１

n が奇数のみのとき合計する
１０まで
25が答え

課題２

2次方程式の答えを1度に表示
b^2-4ac < ０　のとき、計算不能と表示

Option Explicit

dim a, b, c, ans01, ans02
a = CDbl(InputBox("a?"))

b = CDbl(InputBox("b?"))

c = CDbl(InputBox("c?"))
ans01 = (-b + Sqr(b^2-4*a*c))/(2 * a)

ans02 = (-b - Sqr(b^2-4*a*c))/(2 * a)

アンケート

A　授業の充実度　５段階評価(1 から ５)
B　授業の理解度 ５段階評価(1 から ５)
C　授業の感想，よく分からなかった用語