Создать проект в visual basic - VB

Формулировка задачи:

Создать проект, который определяет положительные значения из введенных чисел, выводит их на форму. Количество чисел заранее не известно.

Private Sub Command1_Click() Dim a As Single Do While a > 0 a = InputBox("", "") Form1.Print a Loop End Sub

че то вроде такого но как что поменять не знаю.

Решение задачи: «Создать проект в visual basic»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
Dim str_ As String
Do
 str_ = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ Г·ГЁГ±Г«Г®")
 If StrPtr(str_) <> 0 And str_ <> "" Then
    If CInt(str_) >0 Then Print str_
 Else
   Exit Do
 End If
Loop
End Sub
                        

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

10 голосов , оценка 3.8 из 5

Похожие ответы