程式語言2

Private Sub Form_Activate()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
a = Val(InputBox(”請輸入一個三位的數字(100~999)”, ”輸入”))
b = a 100
c = (a Mod 100) 10
d = (a Mod 10)
Print ”三位數 ” & a
Print ”個位數 ” & d
Print ”十位數 ” & c
Print ”百位數 ” & b

End Sub



程式語言1
Private Sub Form_Activate()
Dim a As Integer
Dim b As Integer
Dim c As Single

a = Val(InputBox(”請輸入國文成績”, ”輸入”))
b = Val(InputBox(”請輸入數學成績”, ”輸入”))
c = (a + b) / 2
Print ”兩科平均=” & c
End Sub



程式語言3

Private Sub Form_Activate()

a = Val(InputBox(”請輸入一個邊長”, ”輸入”))
b = Val(InputBox(”請輸入另一個邊長”, ”輸入”))
c = (a ^ 2 + b ^ 2) ^ 0.5
MsgBox ”c=” & Format(c, ”##.##”), , ”直角三角形斜邊長”
End Sub


程式語言4

a = Val(InputBox(”請輸入a係數”))
b = Val(InputBox(”請輸入b係數”))
c = Val(InputBox(”請輸入c係數”))
D = (-b + (b ^ 2 - 4 * a * c) ^ 0.5) / (2 * a)
E= (-b - (b ^ 2 - 4 * a * c) ^ 0.5) / (2 * a)
MsgBox ”D=” & Format(D, ”##.##”) & vbCrLf & ”E=” & Format(X2, ”##.##”), 兩根解



__________________________________________________________________


OH!ya!!!!!!!!

終於寫出來了!!!!!!!!!


好有......

有......



成就感阿!!!!!!!!!!!


哈哈哈哈!!!!!!


爽...............