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

  • Автор темы Konstantin2209
  • Дата начала
K

Konstantin2209

#1
Всем привет! Возникла такая проблема при написании программы. Была написана программа в среде Visual Basic 6.0, всё в порядке, работает нормально, но при выполнении её в среде Microsoft Visual Studio 2005(в ней на всех языках можно писать) она не хочет выполняться, причём ошибок не выдаёт вообще никаких. Visual Studio не знаю, совсем, поэтому определить в чем проблема не могу((Подскажите пожалуйста ,что в ней надо изменить?
Вот код:
Код:
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:
 

alex77755

Well-known member
15.02.2009
128
0
#2
Всем привет! Возникла такая проблема при написании программы. Была написана программа в среде Visual Basic 6.0, всё в порядке, работает нормально, но при выполнении её в среде Microsoft Visual Studio 2005(в ней на всех языках можно писать) она не хочет выполняться, причём ошибок не выдаёт вообще никаких. Visual Studio не знаю, совсем, поэтому определить в чем проблема не могу((Подскажите пожалуйста ,что в ней надо изменить?
Вот код:
Код:
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
И на всякий случай условие: Найти максимальное число, меньшее вводимого числа, не делящееся на заданные (вводимые) числа
Буду рад помощи:facepalm:
Да в принципе тав всё работает.
Создай только кнопки и перенеси туда тект процедур. Старые удали. Да и ещё на строчке
If (y Mod A(i) <> 0) Then выдавало ошибку. Пока не скапировал с другого места. Похоже там была русская А
 
K

Konstantin2209

#3
Спасибо большое, с прогой разобрался, там со свойствами кнопок неудачи небольшие были, сразу не дошло;)