VBNet - Форум - Работа с InputBox на VBA

Вопрос: Работа с InputBox на VBA Добавлено: 01.11.11 13:27

Автор вопроса: Алексей

Доброго времени суток, написал программу вычитывающую НОК и НОД для двух чисел:

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a, b, d As Integer
        a = TextBox1.Text
        b = TextBox2.Text
        If a >= b Then d = NOD(a, b) Else d = NOD(b, a)
        If RadioButton1.Checked Then TextBox3.Text = d
        If RadioButton2.Checked Then TextBox3.Text = (a * b) / d
        If d = 1 Then
            Label2.Text = "Взаимно простые"
            Label2.Visible = True
        Else
            Label2.Text = "Не взаимно простые"
            Label2.Visible = True
        End If
    End Sub
    Function NOD(ByVal a As Integer, ByVal b As Integer) As Integer
        Dim r As Integer
        r = b
        Do While r <> 0
            r = a Mod b
            a = b
            b = r
        Loop
        NOD = a
    End Function
End Class

Как сделать чтобы сначала прога спросила через inputbox сколько я хочу ввести чисел(допустим выбрал 3 числа), а потом через inputbox ввести эти три числа?
Подскажите пожалуйста, Всем спасибо!!!
Ответить

Ответы Всего ответов: 5

Номер ответа: 1 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178	Профиль \| \| #1	Добавлено: 01.11.11 15:12
	Такого старья, как VB6-овский InputBox в дотнете, к счастью, нет. Для твоей задачи WinForms не нужен вообще, работай с консолью. Для разделения строки по разделителям (например, запятым) используй <string instance>.Split(..) Ответить

Номер ответа: 2 Автор ответа: Дмитрий Юпатов Вопросов: 4 Ответов: 457	Web-сайт: cargomaster.at.ua/ Профиль \| \| #2	Добавлено: 01.11.11 16:33
	AgentFire пишет: Такого старья, как VB6-овский InputBox в дотнете, к счастью, нет Ну да? И msgbox(InputBox("Наводка", "Заголовок", vbNullString)) в дотнете не прокатит? Ответить

Номер ответа: 3 Автор ответа: Artyom Разработчик Вопросов: 130 Ответов: 6602	Профиль \| \| #3	Добавлено: 01.11.11 21:06
	http://msdn.microsoft.com/en-us/library/6z0ak68w(VS.90).aspx внезапно Ответить

Номер ответа: 4 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178	Профиль \| \| #4	Добавлено: 02.11.11 14:02
	не может этого быть! где вы это раскопали :/ Ответить

Номер ответа: 5 Автор ответа: Alex Вопросов: 7 Ответов: 73	Профиль \| \| #5	Добавлено: 07.11.11 23:44
	AgentFire пишет: не может этого быть! где вы это раскопали :/ Да по-моему так всегда было, но просто, это не чисто дотнетовский код Но как я вижу это не .НЕТ, это ВБА форум/. Хотя автор запостил дотнетовкий код ВБА пример: Dim a As String Dim b As Integer a = InputBox("Текст диалога", "Заголовок диалога", "Значение по-умолчанию") If IsNumeric(a) Then 'Числовое значение Else MsgBox "Не числовое значение" End If 2й и 3й параметр не обязателен Ответить

Страница: 1 |