Word Problems #1 cont'd

4. There are 33 horses in the field. 15 horses go into the bar. Then 7 com back out. How many horses are standing in the field?

     Dim field, barn, out, total As Double
  
     field = 33
  
     barn = 15
  
     out = 7
  
     total = (field - barn) + out
  
     MessageBox.Show("There are " & total & " horses standing in the field.")  

5. Inglebert has 15 apples and 3 times as many oranges. How many pieces of fruit does she have?

     Dim apples, oranges, total
  
     apples = 15
  
     oranges = 3 * apples
  
     total = apples + oranges
  
     MessageBox.Show("Inglebert has " & total & " pices of fruit.")  

6. a) How many marks did Brian totally obtain in Mathematics(7) and Science(22)?

     Dim math, science, total As Double
  
     math = 7
  
     science = 22
  
     total = math + science
  
     MessageBox.Show("Brian obtained " & total & " marks in Math and Science.")  

b) How many more marks does Andrew need for a perfect score in Mathematics?

     Dim totalMath, brianMath, needMath
  
     totalMath = 25
  
     brianMath = 7
  
     needMath = totalMath - brianMath
  
     MessageBox.Show("Brian needs " & needMath & " more marks for a perfect score.")  

c) What is Andrew's percentage for all of the quizzes together?

     Dim eng, geo, math, science, andrewTotal, total As Double
  
     eng = 12
  
     geo = 19
  
     math = 18
  
     science = 7
  
     andrewTotal = eng + geo + math + science
  
     total = (eng + geo + math + science) / 100
  
     MessageBox.Show("Andrew's percentage is " & FormatPercent(total))  

Word Problems #1

This post is including word problems that are figured by using a program to solve them.

1. Morgan collects stuffed animals, and she has 6 cows and 7 sheep. How many stuffed animals does she have? Here's how I did it:
    

     Dim cows, sheep, total As Double
  
     cows = 6
  
     sheep = 7
  
     total = cows + sheep
  
       MessageBox.Show(total)   

2. Diane bought 7 mega burgers. Each mega burger cost $4. How many dollars did she spend on the mega burgers?

 Dim bAmount, bCost, total As Integer
  
     bAmount = 7
  
     bCost = 4
  
     total = bAmount * bCost
  
     MessageBox.Show("The cost of burgers is " & FormatCurrency(total))  

3. Ole has 15 apples and 12 oranges. How many pieces of fruit does he have?

 Dim apples, oranges, total As Double
  
 apples = 15
  
 oranges = 12
  
 total = apples + oranges
  
 MessageBox.Show("He has " & total & " pieces of fruit.")  

String Concatenation

The & Operator (Visual Basic) is defined only for String operands, and it always widens its operands to String, regardless of the setting of Option Strict. The & operator is recommended for string concatenation because it is defined exclusively for strings and reduces your chances of generating an unintended conversion.

 Dim a As String = "abc"
  
 Dim d As String = "def"
  
 Dim z As String = a & d
  
 Dim w As String = a + d
  

Converting an integer into a decimal and vice versa

This is a simple way to convert an integer into a decimal.
This is also a simple way of converting a decimal into an integer

 Dim GPA As Decimal
  
 GPA.Text = CInt(GPA)
  

 Dim myAge As Integer
  
 myAge.Text = CDec(myAge)
  

Converting a number variable into a string

To convert a number variable to a string in VB, there are two ways. This way is the faster, simpler way:

 Dim txtBox as Integer
  
  txtBox.Text = CStr(txtBox)
  

How to set string, boolean, integer, and decimal variables

Setting a string variable.

 Dim aString As String
  
aString = "Hello World"

Setting a boolean variable

 Dim runningVB As Boolean
  
 ' Check to see if program is running on Visual Basic engine.
  
 If scriptEngine = "VB" Then
  
   runningVB = True
  
 End If
  

Setting an integer variable

 Dim k As Integer
  
 ' The following statement sets k to 6.
  
 k = 5.9
  
 ' The following statement sets k to 4
  
 k = 4.5
  
 ' The following statement sets k to 6
  
 k = 5.5
  

Setting a decimal variable

 Dim d1, d2 As Decimal
d1 = 2.3
d2 = 4.8  

First Blog!

MessageBox.Show("yeehaw!")