Visual Basic Answers

Create a program to implement a bi-lingual dictionary. Carry out the following tasks:
Set up an array to contain pairs of equivalent English and Spanish words. When an English word is input, look up its Spanish equivalent and display it. Make sure you check to see whether the word is in the dictionary. If not, then display a suitable message.
Then add the facility to translate in the opposite direction, using the same data.

would like to know how to get a whole number without it being round off if I happen to get a decimal on my answer.
this is part of my code ,I tried to convert the answer to int32 it round off the answer, I tried to truncate but truncate seem to take in decimal numbers not assigned variables just assuming since I got an error when I tried it otherwise.

two_hundred = change / 200
Label1.Text = two_hundred

write a project in visual basic to design a suitable form to allow the uses to enter name of salesman and sales amount and than calculate and display commission. commission is 7% of sales amount if sales amount exceed rs. 60000 otherwise it is 5% tax @ 1% is to be deducted on commission obtained.

how would I append two files together in a readonly textbox in vb

i am currently doing a course in visual basics. i was given a project to start. i want help on how to create an online flight booking using Asp.Net. please guys help me because this project contribute heavily on my degree. Help me guys with the coding.

hello sir/ma'am. I really need to know this, it is possible to address all the textbox in vb.net and replace the single qoute to double qoute? because i'm having problem on inserting data in ms access.. this is my current codes :

Public Sub singleqoute()
Dim ctrl As Control
Dim txt As TextBox

For Each ctrl In ManageItems.Controls
If TypeOf ctrl Is TextBox Then
txt = CType(ctrl, TextBox)
txt.Text = txt.Text.Replace("'", "''")
End If
Next
For Each ctrl In ManageBorrowers.Controls
If TypeOf ctrl Is TextBox Then
txt = CType(ctrl, TextBox)
txt.Text = Replace(txt.Text, "'", "''")
End If
Next
For Each ctrl In ManageTransactions.Controls
If TypeOf ctrl Is TextBox Then
txt = CType(ctrl, TextBox)
txt.Text = Replace(txt.Text, "'", "''")
End If
Next

End Sub

a program to add up to 6 numbers or a series of numbers .The program should count the numbers,sum the the numbers and take the average

Write a program to enter a text contains ten characters, then print the characters from position four to position eight, without using Mid function!?