Составить массив вещественных чисел - VB

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

Помогите пожалуйста. Мне нужно в ручную(при помощи цикла) заполнить массив с вещественными элементами. Ранее я делал программу на языке C#, и всё работало. А здесь не получается.

Module Module1
 
    Sub Main()
        Dim n, i As Integer
        Dim q(n) As Double
        Console.WriteLine("Введите кол-во элементов в массиве")
        n = CInt(Console.ReadLine())
        Console.WriteLine("Введите вещественные элементы массива")
        Console.WriteLine()
        For i = 0 To UBound(q)
            q(i) = CDbl(Console.ReadLine())
        Next
        Console.ReadKey()
    End Sub
 
End Module

Решение задачи: «Составить массив вещественных чисел»

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

                            Dim Q(3) As Single
Dim i As Integer
 
Private Sub cmd1_Click()
   i = i + 1
   Q(i) = Val(txt1.Text)
   txt1.Text = ""
End Sub
                        

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

9 голосов , оценка 4.111 из 5

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