معدل گیری

امروز يه برنامه خيلي ساده رو براتون مي خوام توضيح بدم

اين برنامه معدل يه دانش آموز يا دانشجو رو دريافت مي كنه

وبه شما ميگه كه خوبه يا بده . اين موضوع رو به صورت

نوشتاري و رنگ به كاربر اعلام ميكنه.

اجزاي اين برنامه شامل زير است:

1.يك عدد Command

2. سه عدد label

Private Sub Command2_Click()

Dim num As Variant

num = InputBox("Please enter your average")

If num >= 1 And num <= 10 Then

Label3.BackColor = vbRed

Label1.BackColor = vbWhite

Label2.BackColor = vbWhite

Else

If num > 10 And num <= 15 Then

Label2.BackColor = vbYellow

Label1.BackColor = vbWhite

Label3.BackColor = vbWhite

Else

If num > 15 Then

Label1.BackColor = vbGreen

Label2.BackColor = vbWhite

Label3.BackColor = vbWhite

End If

End If

End If

End Sub