Приклади створення форми у системі Visual Basic

Date: 2015-10-07; view: 428.

Лекція№10

Приклад 1.

Скласти форму, в якій буде відбуватися підрахунок вартості проданого товару.

Private Sub CommandButton1_Click()

Dim ціна As Single

Dim кількість As Integer

Dim р As Single

ціна = Val(TextBox1)

кількість = Val(TextBox2)

р = ціна * кількість

TextBox3 = ціна * кількість

рез = Str(р)

End 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