Создать проект, который будет выполнять действия сложения и вычитания - VB
Формулировка задачи:
создать проект который будет выполнять действия сложения и вычитания!!
Visual Basic
Решение задачи: «Создать проект, который будет выполнять действия сложения и вычитания»
textual
Листинг программы
Option Explicit Const r = 90, n = 4 Dim WithEvents cb1 As CommandButton, WithEvents lb As Label Dim WithEvents cb2 As CommandButton, l&, t&, w&, h&, b As Boolean Private Sub cb1_Click() Dim i, j Do: i = InputBox("Введите первое слагаемое", , 0): Loop Until IsNumeric(i) Do: j = InputBox("Введите второе слагаемое", , 0): Loop Until IsNumeric(j) lb.Caption = CDbl(CDbl(i) + CDbl(j)) End Sub Private Sub cb2_Click() Dim i, j Do: i = InputBox("Введите число", , 0): Loop Until IsNumeric(i) Do: j = InputBox("Введите вычитаемое число", , 0): Loop Until IsNumeric(j) lb.Caption = CDbl(CDbl(i) - CDbl(j)) End Sub Private Sub Form_Load() l = r: t = r: w = r * 20: h = r * 4 Set cb1 = Controls.Add("vb.CommandButton", "cb1") Set cb2 = Controls.Add("vb.CommandButton", "cb2") Set lb = Controls.Add("vb.Label", "lb") With cb1 .Move l, t, w, h: l = l + w + r .Caption = "Сложить 2 числа" .Visible = 1 End With With cb2 .Move l, t, w, h: t = t + h + r .Caption = "Вычесть 2 числа" .Visible = 1 End With With lb .Move r, t, w * 4, h .Visible = 1 End With End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д