создать проект в visual basic

@podlec02 · Регистрация: 19.04.2011

Author24 — интернет-сервис помощи студентам

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

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

End Sub

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

@gitarillo · 19.04.2011, 15:31

Visual Basic

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

@podlec02 0 / 0 / 1 Регистрация: 19.04.2011 Сообщений: 10
		1
	создать проект в visual basic 19.04.2011, 14:41. Показов 1400. Ответов 1 Метки нет (Все метки) Создать проект, который определяет положительные значения из введенных чисел, выводит их на форму. Количество чисел заранее не известно. Private Sub Command1_Click() Dim a As Single Do While a > 0 a = InputBox("", "") Form1.Print a Loop End Sub че то вроде такого но как что поменять не знаю. 0

	19.04.2011, 15:31