Question

Visual basic 1)закусочная продает воду по 10 рублей за банку ,но не менее 5 банок одному покупателю. Если покупатель запросит более 5 банок ,выдать предупреждение ,в противном случае -сумму покупки2)ввести годы рождения двух девочек.Определить старшую из них.Нужно девушке помочь, а я на паскале сейчас мучу

Answer 1

Sub zadacha2()
Dim x, y As Integer
x = InputBox("Год рождения первой девочки:")
y = InputBox("Год рождения второй девочки:")
If x < y Then MsgBox ("Первая старше")
If x > y Then MsgBox ("Вторая старше")
If x = y Then MsgBox ("Одногодки")
End Sub

Answer 2

Для решения этих задач на Visual Basic, вам нужно создать Windows Forms приложение. Вот пример кода для обеих задач:

1. Продажа воды:

vb.netCopy code
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim pricePerCan As Double = 10
    Dim minimumCans As Integer = 5

    ' Получаем количество банок, которые хочет купить покупатель
    Dim requestedCans As Integer = Integer.Parse(TextBox1.Text)

    If requestedCans < minimumCans Then
        MessageBox.Show("Минимальное количество для покупки - " & minimumCans & " банок.")
    Else
        Dim totalAmount As Double = pricePerCan * requestedCans
        MessageBox.Show("Сумма покупки: " & totalAmount.ToString("C"))
    End If
End Sub

2. Определение старшей девочки по годам рождения:

vb.netCopy code
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    Dim yearOfBirth1 As Integer = Integer.Parse(TextBox2.Text)
    Dim yearOfBirth2 As Integer = Integer.Parse(TextBox3.Text)

    If yearOfBirth1 > yearOfBirth2 Then
        MessageBox.Show("Первая девочка старше.")
    ElseIf yearOfBirth2 > yearOfBirth1 Then
        MessageBox.Show("Вторая девочка старше.")
    Else
        MessageBox.Show("Девочки ровесницы.")
    End If
End Sub

Эти два фрагмента кода демонстрируют, как решить ваши задачи в Visual Basic. Вам нужно создать Windows Forms приложение, добавить TextBox и Button элементы для ввода данных и запуска кода, а затем связать обработчики событий кнопок с соответствующими функциями.