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

UptoLike

ВУЗ: 

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

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

Рубрика: 

92 93
Рис. 10.10
Программа табулирования функций в объекте ListBox
Private Sub CommandButton1_Click()
Dim i As Integer
Dim x As Double
Dim XN As Double
Dim XK As Double
Dim DX As Double
Dim S() As String
If Not IsNumeric(TextBox1) Or Not IsNumeric(TextBox2) Or Not
IsNumeric(TextBox3) Then
MsgBox "неверные данные"
Exit Sub
End If
XN = CDbl(TextBox1)
XK = CDbl(TextBox2)
DX = CDbl(TextBox3)
If OptionButton1 = True Then
ReDim S(Round(Abs(XK - XN) / DX) + 1, 1 To 3) As String
i = 0
S(i, 1) = "N": S(i, 2) = "x": S(i, 3) = "y"
i = i + 1
x = XN
Do While x <= XK
y = (2 + (Sin(x)) ^ 2) / (1 + x ^ 2) ‘ функция 1 семестра
S(i, 1) = i: S(i, 2) = Format(x, "0.0"): S(i, 3) = Format(y, "0.0")
x = x + DX: i = i + 1
Loop
End If
If OptionButton2 = True Then
ReDim S(Round(Abs(XK - XN) / DX) + 1, 1 To 4) As String
i = 0
S(i, 1) = "N": S(i, 2) = "x": S(i, 3) = "g1": S(i, 4) = "g2"
i = i + 1
x = XN
Do While x <= XK
y = g(x) ‘ функция 1 семестра
S(i, 1) = i: S(i, 2) = Format(x, "0.0")
If x <= 0 Then S(i, 3) = Format(y, "0.0000") Else S(i, 4) = Format(y, "0.0000")
x = x + DX: i = i + 1
Loop
End If
If OptionButton3 = True Then
ReDim S(Round(Abs(XK - XN) / DX) + 1, 1 To 5) As String
i = 0
S(i, 1) = "N": S(i, 2) = "x": S(i, 3) = "z1": S(i, 4) = "z2": S(i, 5) = "z3"
i = i + 1
x = XN
Do While x <= XK
y = z(x) ‘ функция 1 семестра
S(i, 1) = i: S(i, 2) = Format(x, "0.0")
If x < 0 Then S(i, 3) = Format(y, "0.0000")
If (x >= 0) And (x <= 1) Then S(i, 4) = Format(y, "0.0000")
If x > 1 Then S(i, 5) = Format(y, "0.0000")
x = x + DX: i = i + 1
Loop
End If
With ListBox1
.ColumnCount = 5
.List = S

Страницы