Member 13406062 Ответов: 1

Найдите сумму 5 чисел, введенных пользователем с помощью 1 текстового поля и 1 кнопки


Мне нужно найти сумму 5 nos. вводится пользователем, только с 1 текстовым полем и 1 кнопкой, каждый раз, когда я ввожу нет. в текстовом поле я также нажимаю кнопку, затем очищаю текстовое поле и повторяю процесс до тех пор, пока не введу 5 nos, 5-й и последний раз, когда я нажал кнопку, msgbox покажет сумму 5 nos. введенный пользователем, и не сможет ввести другой нет. поскольку текстовое поле не будет видно, поскольку предел достигается только до 5 раз, каков код vb .net для этой проблемы? Использование только условных операторов if-then и / или цикла while.

Что я уже пробовал:

Dim s, i, n как целое число
s = 0
i = 0
n = TextBox1. Text

Если я < 5, то
i = i + 1
сумма = сумма + n
Msgbox ("сумма есть:" & sum)
Конец, Если

Конец Подводной Лодки
Конец Класса

Но на самом деле это не работает. Незавершенный.

Ralf Meier

Это не может работать, потому что это не код, который может работать ...
Все, что вам нужно сделать, это сделать то, что вы описали ... Действие должно исходить от кнопки.событие click.
Может быть, вы попробуете с этим ...

1 Ответов

Рейтинг:
0

Graeme_Grant

Ниже приведен рабочий пример, основанный на изложенных требованиях. Обратите внимание, что имена, которые я даю элементам управления и переменным, делают код очень легким для чтения.

Public Class Form1

    Private Total As Integer
    Private Count As Integer
    Private MaxEntries As Integer = 5

    Private Sub ButAdd_Click(sender As Object, e As EventArgs) Handles ButAdd.Click

        If String.IsNullOrEmpty(txtInput.Text.Trim) Then Return

        Dim Value As Integer

        If Integer.TryParse(txtInput.Text, Value) Then

            If Count < MaxEntries Then
                Count += 1
                Total += Value
                labTotal.Text = Total.ToString
            Else
                txtInput.Enabled = False
            End If

        End If

        txtInput.ResetText()
        txtInput.Select()

    End Sub

End Class