Как скомпилировать программу написанную в Visual Basic

[maldinito]

Здравствуйте, я пытаюсь скомпилировать программу, но не знаю много о Visual Basic. Я поставил исходный код. Дать мне совет, как скомпилировать ? У меня есть Visual studio 2010.

Private Sub Command1_Click()
Dim lam As Integer, Tzad As Single, m As Byte
Dim x As Single, Tobshvr As Integer
Dim Noch As Integer, Kotk As Integer, i As Integer
Dim Kprod As Integer, Tvrobs As Double
Dim Potk As Single, Pobs As Single, A As Single
Dim Tobshoj As Integer, Kmax As Integer
Dim Tvrochr, K As Integer
Dim Tnezan As Double, Tsroj As Single
Dim Kobs As Integer, Tobs As Single
Dim Tvrpost As Double, Tosv As Double
Dim Tpr As Single
lyamda = Val (Text1. Text)
myu = Val (Text2. Text)
m = Val (Text3. Text)
Tzad = Val (Text4. Text)
Kmax = Val (Text5. Text)
x = 500
K = 0
Kobs = 0
Kotk = 0
Tsys = 0
Noch = 0
Toj = 0
Tosv = 0
Tnezan = 0
For i = 1 To Kmax
x = Rnd(x)
tau = -1 / lyamda * Log (x / 100)
Tobs = -1 / 0.3 * Log (x / 100)
tpost = tpost + tau
K = K + 1
If K > Kmax Then
Exit For
Else
Tosv = tau + Tobs
If tpost >= Tosv Then
If Noch = 0 Then
Kobs = Kobs + 1
Tnezan = Tnezan + tau
Tobs = -1 / 0.3 * Log (x / 100)
Tosv = tau + Tobs
Tpr = Tpr + Tobs
Else
ReDim Boj(i)
ReDim toch(i)
toch (i – 1) = toch(i)
Boj(i) = Boj(i) + Tosv
If Boj(i) > Tzad Then
n = n + 1
End If
Noch = Noch – 1
Toj = Toj + Boj(i)
x = Rnd(x)
Tobs = -1 / 0.1 * Log (x / 100)
Tpr = Tpr + Boj(i)
Tosv = Tosv + Tobs
Kobs = Kobs + 1
End If
Else
If Noch > m Then
Kotk = Kotk + 1
Else
Noch = Noch + 1
ReDim toch(Noch)
toch(Noch) = tpost
End If
End If
End If
Next
Potk = Kotk / Kmax
Pobs = 1 – Potk
A = lyamda * Pobs
tauoj = Toj / Kmax
Kpr = Tnezan / Tosv
List1. AddItem «Вероятност отказа системы (Ротк)=» & Potk
List1. AddItem «Вероятность обслуживания (Робс)=» & Pobs
List1. AddItem «Среднее время ожидания в очереди (Тож)=» & tauoj
List1. AddItem «Общее время (Тобщ)=» & tpost
List1. AddItem «Коэфицент простоя системы (Кпр)=» & Kpr
List1. AddItem «Абсолютная пропускная способность (A)=» & A
List1. AddItem «Количество продовцов (n)=» & n
End Sub
Private Sub Command2_Click()
List1. Clear
End Sub

[ZaRDaK]

Переносите на форму нужные (присутствующие в коде) компоненты, копипастите код.
Если что-то не понятно - в интернете полно книг типа "VB для начинающих".
Допустим: http://www.sdteam.com/?tid=562