Даны вещественные числа A, B и целое число N. Создать текстовый файл, содержащий таблицу значений функции - VB

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

Даны вещественные числа A, B и целое число N. Создать текстовый файл, содержащий таблицу значений функции √x на промежутке [A, B] с шагом (B-A)/N. Таблица состоит из двух столбцов: с аргументами x (10 позиций, из них 4 под дробную часть) и со значениями √x (15 позиций, из них 8 под дробную часть). Столбцы выравниваются по правому краю. Заранее огромное спасибо.

Решение задачи: «Даны вещественные числа A, B и целое число N. Создать текстовый файл, содержащий таблицу значений функции»

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

                            В данном примере показаны различные способы использования инструкции Open, чтобы разрешить выполнение операций ввода/вывода с файлом.
Следующие инструкции открывают файл TESTFILE для последовательного чтения.
 
Open "TESTFILE" For Input As #1
' Закрывает файл перед повторным открытием в другом режиме.
Close #1
 
Следующие инструкции открывают файл в режиме Binary только для записи.
 
Open "TESTFILE" For Binary Access Write As #1
' Закрывает файл перед повторным открытием в другом режиме.
Close #1
 
Следующие инструкции открывают файл в режиме Random.  Файл содержит записи определенного пользователем типа Record.
 
Type Record ' Тип, определенный пользователем.
    ID As Integer
    Name As String * 20
End Type
 
Dim MyRecord As Record  ' Объявляет переменную.
Open "TESTFILE" For Random As #1 Len = Len(MyRecord)
' Закрывает файл перед повторным открытием в другом режиме.
Close #1
 
Следующие инструкции открывают файл для последовательного вывода; любой процесс может читать из этого файла или записывать в него.
 
Open "TESTFILE" For Output Shared As #1
' Закрывает файл перед повторным открытием в другом режиме.
Close #1
 
Следующие инструкции открывают файл в режиме Binary для чтения; другие процессы не могут читать этот файл.
 
Open "TESTFILE" For Binary Access Read Lock Read As #1
                        