Программа табулирования функции в VВА

Private Sub CommandButton1_Click()

Dim i As Integer

Dim j As Integer

Dim x As Single

Dim xn As Single

Dim xk As Single

Dim dx As Single

Dim y As Single

xn = InputBox("Xn = ", " Ввод начального значения x ", -2, 8000, 2000)

xk = InputBox("Xk = ", " Ввод конечного значения x ", 2, 8000, 1000)

dx = InputBox("dX = ", " Ввод значения шага x ", 0.25, 8000, 2000)

i = InputBox("i = ", " Ввод значения начала таблицы, строка i ", 5, 8000, 1000)

j = InputBox("j = ", " Ввод значения начала таблицы, столбец j ", 3, 8000, 2000)

x = xn: Cells(i, j) = "X(vba)": Cells(i, j + 1) = "Y(vba)"

10 y = Exp(x - 2) * (1 + x ^ 2 + 2 * x) ^ 0.5

Cells(i + 1, j) = x

Cells(i + 1, j + 1) = y

x = x + dx

i = i + 1

If x > xk Then GoTo 20 Else GoTo 10

End Sub

Private Sub CommandButton2_Click()

Dim i As Integer

Dim il As Integer

Dim j As Inteder

Dim j As Integer

Dim y As Double

Dim x As Double

Dim x0 As Double

Dim xk As Double

Dim dx As Double

X0=InputBox(“x0=”,” Введите начальное значение диапазона x ”, -2)

Xk=InputBox(“xk=”,” Введите конечное значение диапазона x ”,2)

Dx=InputBox(“dx=”,” Введите шаг изменения переменной x ”,0.5)

I=InputBox(“i=”,” Введите начало таблицы, строку ”,1)

J=InputBox(“j=”,” Введите начало таблицы, столбец ”,1)

Cells(i,j)=”X”

I1=i

Cells(I,j+1)=”Y”

I=i+1

X=x0

Do While x <=xk

Y=ff(x)

Cells(I,j)=Format(x,”0.0#”)

Cells (I,j+1)=Format(y,”#0.0##”)

X=x+dx:i=i+1

Loop

Range(Cells(i1,j),Cells(i-1,j+1)).Select

Selection.Font.Size=16

With Selection

.Font.Bold=True

.Interior.Pattern=x1Solid

‘VerticalAligment=xlBotton

‘.WrapText=False

‘.Orientation=0

‘.AddIndent=False

‘ShrinkToFit=False

‘.MergeCells=False

End With

End Sub

Некоторые комментарии к программе:

– Объявление простых переменных, строго говоря, в VBA не требуется, но бывают случаи, когда именно из-за этого программа работает не правильно или не работает вообще;

– В операторе InputBox используются пять параметров, первые два – символьные константы, их использование объясняется при появлении окна InputBox, третий параметр– предлагаемое значение, которое можно изменить, четвертый и пятый параметры– координаты левого верхнего угла окна InputBox на экране;

– Конечно, можно написать более совершенную программу, исключающую применение условного оператора и тем более операторов перехода, применив один из операторов цикла, но предполагается, что на данном этапе студенты еще не знакомы с разновидностями операторов цикла и поэтому главным критерием качества программного продукта является решение поставленной задачи;