Лекція№10 Приклади створення форми у системі Visual Basic
Приклад 1.
Скласти форму, в якій буде відбуватися підрахунок вартості проданого товару.
Private Sub CommandButton1_Click()
Dim ціна As Single
Dim кількість As Integer
Dim р As Single
ціна = Val(TextBox1)
кількість = Val(TextBox2)
р = ціна * кількість
TextBox3 = ціна * кількість
рез = Str(р)
E
nd
Sub
Приклад 2.
Побудувати
екранну форму для розрахунку вартості
ремонтних робіт за вказаний період
часу, якщо задано вартість ремонтних
робіт за один рік
Private Sub CommandButton1_Click()
Dim V As Single
Dim S As Single
Dim T As Integer, i As Integer
V = Val(TextBox1.Text)
T = Val(TextBox2.Text)
S = 0
For i = 1 To T
S = S + V
Next i
TextBox3.Text = S
End Sub
П
риклад
3.
В банк покладено рахунок на певний термін під певний процент річних. Побудувати екранну форму для визначення терміну, через який на рахунку буде вказана сума. Сума на рахунку розраховується за формулою:
,
де - R розмір вкладу
T - термін вкладу, V - відсоток річних
Private Sub CommandButton1_Click()
Dim K As Single, S As Single, R As Single, T As Integer
R = Val(TextBox1)
S = R
T = 0
Do
S = S * (1 + Val(TextBox2))
T = T + 1
Loop While S <= Val(TextBox4)
TextBox3 = T
End Sub
Private Sub CommandButton1_Click()
Dim Ok As Single
Dim Pr As Single
Dim Dop As Single
Dim Pod As Single
End Sub
