Computer Programming I: Input Box, Character Variable, Loop – Flashcards

1. 1. Proceed down Main Street for two miles

Turn left on Ocean Drive,

• Proceed on Ocean Drive for three blocks, to the fork.
• IF left turn at fork is blocked THEN

  Take a right turn at the fork onto Eagle Street? ELSE At the fork, take Swan Street to the left. Proceed two blocks. House is second on the left. (246 Swan Street.) ENDIF

Wash hair. Rinse. Repeat.

I. Click on the New Project button on the toolbar II. Click on the Create link on the Start Page in he Recent Projects area. III. Click on the File menu, then click on New Project

radChocolate.Checked = true radStrawberry.Checked = false radVanilla.Checked = false

Try statements Catch Ex As Exception statements Finally statements End Try

If intGuess = intSecretNum Then Me.lblMessage.Text="You guessed it!" Else Me.lblMessage.Text="Try again" End If

Select Case intNum Case Is<10 Me.lblMessage.Text="Num is less than 10." Case Is<20 Me.lblMessage.Text="Num is less than 20" Case Is>=20 Me.lblMessage.Text="Num is greater than 20." End Select

Dim gen As New Random() Dim intNum As Integer intNum = gen.Next(50, 100) lblAnswer.Text = intNum.ToString()

Dim intNum As Integer = 10 If intNum > 5 Then Me.lblMessage.Text = "Great Job" Else Me.lblMessage.Text = "Try Again" End If

If intNum1 > 10 Then If intNum1 < 50 Then lblResult.Text = "Between 10 and 50" End If

Dim intNum As Integer = 0 Do intNum = intNum + 1 Loop While intNum < 5

Dim intNum As Integer For intNum = 1 To 10 MessageBox.Show(intNum.ToString()) Next intNum

Dim intNum As Integer For intNum = 1 To 5 MessageBox.Show(intNum.ToString()) Next intNum

Dim intNum As Integer = 0 Do While intNum < 20 intNum = intNum - 2 Loop

Dim x As Integer = 100 Do While (x <= 100) x -= 1 Loop

lstZoo Contents: bear lion tiger if lstZoo.SelectedItem = "Bear" Then ...

Dim strNum As String = "10" Dim intNum As Integer Dim result As Boolean result = Int32.TryParse(strNum, intNum)

Dim strNum As String = "ten" Dim intNum As Integer Dim result As Boolean result = Int32.TryParse(strNum, intNum)

Dim strNum As String = "10" Dim intNum As Integer Dim result As Boolean result = Int32.TryParse(strNum, intNum) lblResult.Text = intNum

Dim intX As Integer For intX = 1 To 12 MessageBox.Show(intX) Next intX

calculate (intNumerator, intDenominator, dblAnswer)

Function IsValid(ByVal intNum As Integer) As Boolean If intNum ; 0 And intNum ; 11 Then Return True Else Return False End If End Function

Private Sub getPerimeter (ByVal dblSide1 As Double, ByVal dblSide2 As Integer)

Dim Values() As Integer = {5, 8, 3, 9, 2}

Dim strFirstName(5) As String strFirstName(6)="John"

Dim Inventory() as Integer = {357, 126, 220} Call Stock(Inventory(2),Me.lblOutput) Sub Stock (ByVal Number As Integer, ByRef lblLabel As Label) Me.lblLabel.Text = Number End Sub

Dim strPets() As String = {"Dog", "Cat", "Ferret", "Fish"} Array.Reverse(strPets) For i as Integer = 0 to strPets.Length -1 lstDisplay.Items.Add(strPets(i)) Next i

Zebra Monkey Chimp

Dim strWord1 = "Zebra" Dim strWord2 = "Monkey" If strWord1.equals(strWord2) Then lblResult.Text = "The words are the same." else lblResult.Text = "The words are different." End If

Dim strCourse As String = "Programming" Dim chrLetter As Char chrLetter = strCourse.Chars(4)

Dim strCourse As String = "Programming" intNumChars = strCourse.Length

Dim strName As String = "GeorgeWashington" Dim strNew As String strNew = strName.Replace("Washington"," Smith")

Dim strFirstName As String = "Joe" Dim strLastName As String = "Smith" Dim strFullName As StringM strFullName = strFirstName & " " & strLastName

Dim intNum As Integer = 25 Dim intSqRtNum As Integer intSqRtNum = Math.Sqrt(intNum) Me.lblAnswer.Text = intSqRtNum.ToString()

Dim intNum As Integer = -6 Dim intAbsNum As Integer intAbsNum = Math.Abs(intNum) Me.lblAnswer.Text = intAbsNum.ToString()

Dim dblNumber As Double = 78.9878164894561 Dim dblRoundedNum As Double dblRoundedNum = Math.Round(dblNumber, 3) Me.lblAnswer.Text=dblRoundedNum.ToString()</blockquote

Dim strOrig As String = "Apex" Dim strNew As String strNew = strOrig.Insert(1, "s") lblAnswer.Text = strNew

Dim strWord1 = "monkey" Dim strWord2 = "Monkey" If strWord1.equals(strWord2) Then lblResult.Text = "The words are the same." else lblResult.Text = "The words are different." End If

Dim strFullName As String = "" Dim strFirstName As String = "Joe" Dim strLastName As String = "Johnson" strFullName As String = String.Concat(strFirstName, strLastname) lblShowName.Text = strFullName

Dim strA As String = "Pink" Dim strB As String = "Orange" If String.Compare(strA, strB) = 0 Then lblAnswer.Text = strA & " is equal to " & strB ElseIf String.Compare(strA, strB) < 0 Then lblAnswer.Text = strA & " comes before " & strB ElseIf String.Compare(strA, strB) > 0 Then lblAnswer.Text = strA & " comes after " & strB End If

Dim strA As String = "Hello" Dim strB As String = "Goodbye"

Dim intPosition As Integer = 0 Dim strWord As String = "Apple" intPosition = strWord.IndexOf("p")