Информатика для I курса. Часть I. Никифоров С.Н. - 23 стр.

UptoLike

ВУЗ: 

СПбГАСУ | Санкт-Петербург

Составители: 

Рубрика: 

44 45
xk = InputBox("xk =", "Введите конец диапазона", 7)
xd = InputBox("xd =", "Введите шаг изменения переменной", 0.5)
i = InputBox("i =", "Введите начало таблицы, строку", 7)
j = InputBox("j =", "Введите начало таблицы, столбец", 10)
Cells(i, j) = "X": Cells(i, j + 1) = "G1": Cells(i, j + 2) = "G2"
i = i + 1
x = xn
Do
Cells(i, j) = Format(x, "0.0#")
If x <= 0 Then
Cells(i, j + 1) = Format(g(x), "#0.0###")
Else
Cells(i, j + 2) = Format(g(x), "#0.0###")
End If
x = x + xd: i = i + 1
Loop Until x > xk
End Sub
Private Sub CommandButton5_Click()
Dim i As Integer
Dim j As Integer
Dim x As Double
Dim w As String
w = InputBox("w =", "очистить диапазон? - (Y,y,Д,д)/N")
If (w = "Y") Or (w = "y") Or (w = "Д") Or (w = "д") Then Range(Cells(7, 13),
Cells(28, 15)) = Clear
xn = InputBox("xn =", "Введите начало диапазона", -3)
xk = InputBox("xk =", "Введите конец диапазона", 7)
xd = InputBox("xd =", "Введите шаг изменения переменной", 0.5)
i = InputBox("i =", "Введите начало таблицы, строку", 7)
j = InputBox("j =", "Введите начало таблицы, столбец", 13)
Cells(i, j) = "X": Cells(i, j + 1) = "G1": Cells(i, j + 2) = "G2"
i = i + 1
x = xn
While x <= xk
Cells(i, j) = Format(x, "0.0#")
If x <= 0 Then
Cells(i, j + 1) = Format(g(x), "#0.0###")
Else
Cells(i, j + 2) = Format(g(x), "#0.0###")
End If
x = x + xd: i = i + 1
Wend
End Sub
Private Sub CommandButton6_Click()
Dim i As Integer
Dim j As Integer
Dim x As Double
Dim w As String
w = InputBox("w =", "очистить диапазон? - (Y,y,Д
,д)/N")
If (w = "Y") Or (w = "y") Or (w = "Д") Or (w = "д") Then Range(Cells(7, 16),
Cells(28, 18)) = Clear
xn = InputBox("xn =", "Введите начало диапазона", -3)
xk = InputBox("xk =", "Введите конец диапазона", 7)
xd = InputBox("xd =", "Введите шаг изменения переменной", 0.5)
i = InputBox("i =", "Введите начало таблицы, строку", 7)
j = InputBox("j =", "Введите начало таблицы, столбец", 16)
Cells(i, j) = "X": Cells(i, j + 1) = "G1": Cells(i, j + 2) = "G2"
i = i + 1
For x = xn To xk Step xd
Cells(i, j) = Format(x, "0.0#")
If x <= 0 Then
Cells(i, j + 1) = Format(g(x), "#0.0###")
Else
Cells(i, j + 2) = Format(g(x), "#0.0###")
End If
i = i + 1
Next x
End Sub
Private Sub CommandButton7_Click()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim x() As Double
Dim y() As Double
Dim w As String
w = InputBox("w =", "очистить диапазон? - (Y,y,Д,д)/N")
If (w = "Y") Or (w = "y") Or (w = "Д") Or (w = "д") Then Range(Cells(7, 19),
Cells(28, 21)) = Clear
‘If w = "Y" Then Range(Columns(1), Rows(19)) = Clear

Страницы