Перевод программы из Vb6 в Microsoft Visual Studio

Тема в разделе "Visual Basic", создана пользователем Konstantin2209, 31 окт 2010.

  1. Konstantin2209

    Konstantin2209 Гость

    Всем привет! Возникла такая проблема при написании программы. Была написана программа в среде Visual Basic 6.0, всё в порядке, работает нормально, но при выполнении её в среде Microsoft Visual Studio 2005(в ней на всех языках можно писать) она не хочет выполняться, причём ошибок не выдаёт вообще никаких. Visual Studio не знаю, совсем, поэтому определить в чем проблема не могу((Подскажите пожалуйста ,что в ней надо изменить?
    Вот код:
    Код (Text):
    Public Class Form1

    Dim n, i, x, y, z, m, b, A() As Double
    Private Sub Command1_Click()
    i = 1
    n = Val(InputBox("Количество заданных чисел: =", "Ввод заданных чисел"))
    Dim A(i) As Integer
    ReDim A(n)
    Do While i <= n
    A(i) = Val(InputBox("Число " + Str(i) + "=", "Ввод чисел"))
    If A(i) = 0 Then
    A(i) = MessageBox.Show("На 0 делить нельзя!")
    Else
    List1.Items.Add("Число" + Str(i) + "=" + Str(A(i)))
    i = i + 1
    End If
    Loop
    End Sub

    Private Sub Command2_Click()
    b = Val(Text1.Text)
    y = b - 1
    m = 0
    i = 1
    If y > 0 Then
    z = 0
    Else
    z = -1000000
    End If
    Do While y > z
    Do While i <= n
    If (y Mod A(i) <> 0) Then
    i = i + 1
    Else
    i = n + 1
    m = n
    End If
    Loop
    If m = 0 Then
    x = y
    y = z
    Else
    y = y - 1
    m = 0
    i = 1
    End If
    Loop
    Label3.Text = x
    End Sub
    End Class
    И на всякий случай условие: Найти максимальное число, меньшее вводимого числа, не делящееся на заданные (вводимые) числа
    Буду рад помощи:welcome:
     
  2. alex77755

    alex77755 Well-Known Member

    Регистрация:
    15 фев 2009
    Сообщения:
    128
    Симпатии:
    0
    Да в принципе тав всё работает.
    Создай только кнопки и перенеси туда тект процедур. Старые удали. Да и ещё на строчке
    If (y Mod A(i) <> 0) Then выдавало ошибку. Пока не скапировал с другого места. Похоже там была русская А
     
  3. Konstantin2209

    Konstantin2209 Гость

    Спасибо большое, с прогой разобрался, там со свойствами кнопок неудачи небольшие были, сразу не дошло;)
     
Загрузка...
Похожие Темы - Перевод программы из
  1. FaRReLL
    Ответов:
    0
    Просмотров:
    847
  2. FaRReLL
    Ответов:
    0
    Просмотров:
    890
  3. FaRReLL
    Ответов:
    0
    Просмотров:
    908
  4. FaRReLL
    Ответов:
    0
    Просмотров:
    735
  5. FaRReLL
    Ответов:
    0
    Просмотров:
    698

Поделиться этой страницей