A powerful RAD (rapid application development) progamming language that allows for easy creation of
windows programs. Its main flaw is the fact that micro$hit made it, and therefore under their monopoly, it only runs on
windows. Another complaint is about the way many new users use the language. They just paste a couple of objects on a form, user a few undeclared variables (variants, which are slow), and run the program. A real program creates objects at runtime and user delared variables at all times (forced by Option Explicit.) Other than that, it is a good language. It is easy enough to learn for beginners (unlike other languages such as java/
C++) and powerful enough to perform complicated calculations and make
windows-
based programs and games with readable code.
'This is a sample VB program
'It finds the prime factors of any number the user specifies
'Declare Objects
Dim WithEvents txtNumber As TextBox
Dim WithEvents lblPrime As
Label
Dim WithEvents cmdFactor As CommandButton
Private
Sub cmdFactor_
Click()
Dim counter&, answer$, number&
'Check to make sure user entered a valid number
If Not IsNumeric(txtNumber) Then Exit
Sub
If
Len(txtNumber) = 0 Or txtNumber > 2000000000 Or Sgn(txtNumber) = -1 Then Exit
Sub
'Create variable = to what user entered.
number = txtNumber
'factor out 2's
Do While number Mod 2 = 0
number = number / 2
answer = answer & " * 2"
Loop
'factor out other numbers
For counter = 3 To number Step 2
Do While number Mod counter = 0
'exit when primes are exhausted
If number = 1 Then Exit Do
number = number / counter
answer = answer & " * " & counter
Loop
Next counter
'results
MsgBox Right$(answer,
Len(answer) - 3), 15, "The Prime Factors of " & txtNumber & " are..."
'gives the textbox focus
txtNumber.SetFocus
End
Sub
Private
Sub Form_KeyDown(KeyCode%, Shift%)
'pressing escape exits the program
If KeyCode = 27 Then Unload Me
End
Sub
Private
Sub Form_Load()
'set up form
With Me
.KeyPreview = True
.Move (Screen.Width - .Width) \ 2, (Screen.Height - .Width) \ 2
End With
Set txtNumber = Controls.Add("VB.TextBox", "txtNumber")
With txtNumber
.Move (Me.Width - .Width) \ 2, (Me.Height - .Width) \ 2
.Visible = True
End With
Set lblPrime = Controls.Add("VB.
Label", "lblPrime")
With lblPrime
.Caption = "Find Prime Factors Of What Number?"
.Move txtNumber.Left, txtNumber.Top - 800, .Width, .Height + 400
.Visible = True
End With
Set cmdFactor = Controls.Add("VB.CommandButton", "cmdFactor")
With cmdFactor
.Caption = "Factor"
.Default = True
.Move txtNumber.Left, txtNumber.Top + 800
.Visible = True
End With
End
Sub
Private
Sub Form_Terminate()
'clean up
Dim clrObject As Object
For Each clrObject In Me
clrObject = ""
Next clrObject
End
End
Sub