Visual Basic משפטי תנאי

מה יהיה צבע רקע הטופס אחרי קטע קוד הבאה אם משתמש מכניס ל TextBox ערך d?

If TextBox1.Text = "a" Then
Me.BackColor = Color.Red
ElseIf TextBox1.Text = "b" Then
Me.BackColor = Color.Green
ElseIf TextBox1.Text = "c" Then
Me.BackColor = Color.Blue
Else
Me.BackColor = Color.Yellow
End If

מה יודפס?

Dim x,y As Integer
x = 1
y = 14
y= y \ 10

If x <> y Then
MsgBox( "Yes")
Else
MsgBox("No")
End If

מה יודפס?

Dim x As Integer
x = 12
If x > 0 And x < 15 Then
MsgBox("Yes")
Else
MsgBox("No")
End If

איזה תנאי בודק האם תלמיד נכשל במבחן, אם ידוע שציון עובר הוא 55:

איזה הודעה נקבל אחרי קטע קוד הבאה?

Dim Temperature As Integer
Temperature = 25
If Temperature > 40 Then
MsgBox("חום כבד")
ElseIf Temperature > 28 Then
MsgBox("חם")
ElseIf Temperature > 20 Then
MsgBox("נעים")
ElseIf Temperature > 14 Then
MsgBox("קריר")
Else
MsgBox("קר")
End If

קיימים 3 אובייקטים: txt1, txt2, txt3.
איזה משפט תנאי בודק האם לפחות באחד מהם יש ערך "ABC".

קיימים 3 אובייקטים: txt1, txt2, txt3.
איזה משפט תנאי בודק האם כל האובייקטים מכילים ערך "ABC".

איזה הודעה נקבל אחרי קטע קוד הבאה?

Dim sDay As String
sDay = "monday"
If sDay = " friday" Or sDay = " saturday" Then
MsgBox("לנוח יכול אתא")
Else
MsgBox("לעבוד צריך אתא")
End If

איזה הודעה נקבל אחרי קטע קוד הבאה?

Dim Age As Integer
Age = 10
Select Case Age
Case 0 To 5
MsgBox("גן ילדים ")
Case 6 To 17
MsgBox("בית ספר ")
Case 18 To 21
MsgBox("צבא")
Case Else
MsgBox("או עבודה או פנסיה לימודים גבוהים")
End Select

לאיזה כיוון יזוז כדור?

Dim dir As Integer
dir = 3
Select Case dir
Case 1
ball.Left += 10
Case 2
ball.Left -= 10
Case 3
ball.Top += 10
Case 4
ball.Top -= 10
Case Else
ball. Left = 0
End Select