Создать проект, который будет выполнять действия сложения и вычитания - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 4 из 5
Похожие ответы