|
2006/10/11(水)
授業
|
|
|
Option Explicit
Dim k1 As Integer
Dim k2 As Integer
Private Sub CommandButton1_Click()
Dim ji As Integer
Dim sco As Integer
ji = Val(TextBox1.Text)
sco = Val(TextBox2.Text)
If ji >= 7 Then
If ji <= 18 Then
If sco = 1 Then
k1 = k1 + 1
Else
k2 = k2 + 1
End If
End If
End If
TextBox1.Text = ""
TextBox2.Text = ""
End Sub
Private Sub CommandButton2_Click()
MsgBox "普通車 " & k1 & " 大型車 " & k2
End
End Sub
Private Sub form_load()
k1 = 0
k2 = 0
TextBox1.Text = ""
TextBox2.Text = ""
End Sub
授業で作ったプログラム。
ああ放課終わった。。。
|
|
|
前の月