Оборудование, инструменты и приборы. ПЭВМ, программное обеспечение Microsoft Office (Excel 2007)
ПЭВМ, программное обеспечение Microsoft Office (Excel 2007).
Варианты заданий
Найти ошибки и выполнить отладку программы, выданной преподавателем, согласно варианту заданий, приведенных в таблице 3.7.
Таблица 3.7
Варианты заданий
№
варианта
| Задание
|
|
| Синтакситеческие ошибки
|
|
Private Sub Анализ(ByVal x As Integer, ByVal y As Integer, _
ByRef r As Integer)
If x > y Then
r = x
Else
If x < y Then 'Вложенный оператор
r = y
Else
MsqBox " Числа равные" 'Блок из 2-х операторов
r = x
End If
End If
End Sub
Private Sub CmdРешение_Click()
Dim a As Integer, b As Integer, maximum2 As Integer
a = CInt(Text1.Text)
b = CInt(Text2.Text)
Анализ a, b, maximum2
Text3.Text = maximum2
End Sub
|
Продолжение таблицы 3.7
|
|
|
Private Sub Анализ(ByVal x As Integer, ByVal y As Integer, _
ByRef r As Integer)
If x > y Then
r = x
Else
If x < y Then 'Вложенный оператор
r = y
Else
MsgBox " Числа равные" 'Блок из 2-х операторов
r = x
End If
End If
End Sub
Private Sub CmdРешение_Click()
Dim a As Integer, b As Integer, maximum2 As Integer
a = CInt(Text1.Text)
b = CInt(Text2.Text)
Analiz a, b, maximum2
Text3.Text = maximum2
End Sub
|
Продолжение таблицы 3.7
|
|
|
Private Sub Анализ(ByVal x As Integer, ByVal y As Integer, _
ByRef r As Integer)
If x > y Then
r = x
Elze
If x < y Then 'Вложенный оператор
r = y
Elze
MsgBox " Числа равные" 'Блок из 2-х операторов
r = x
End If
End If
End Sub
Private Sub CmdРешение_Click()
Dim a As Integer, b As Integer, maximum2 As Integer
a = CInt(Text1.Text)
b = CInt(Text2.Text)
Анализ a, b, maximum2
Text3.Text = maximum2
End Sub
|
Продолжение таблицы 3.7
|
|
|
Private Sub Анализ(ByVal x As Integer, ByVal y As Integer, _
ByRef r As Integer)
If x > y Tnen
r = x
Else
If x < y Tnen 'Вложенный оператор
r = y
Else
MsgBox " Числа равные" 'Блок из 2-х операторов
r = x
End If
End If
End Sub
Private Sub CmdРешение_Click()
Dim a As Integer, b As Integer, maximum2 As Integer
a = CInt(Text1.Text)
b = CInt(Text2.Text)
Анализ a, b, maximum2
Text3.Text = maximum2
End Sub
|
Продолжение табл. 3.7
|
|
|
Private Sub Анализ(BiVal x As Integer, BiVal y As Integer, _
BiRef r As Integer)
If x > y Then
r = x
Else
If x < y Then 'Вложенный оператор
r = y
Else
MsgBox " Числа равные" 'Блок из 2-х операторов
r = x
End If
End If
End Sub
Private Sub CmdРешение_Click()
Dim a As Integer, b As Integer, maximum2 As Integer
a = CInt(Text1.Text)
b = CInt(Text2.Text)
Анализ a, b, maximum2
Text3.Text = maximum2
End Sub
|
Продолжение табл. 3.7
|
|
|
Privat Sub Анализ(ByVal x As Integer, ByVal y As Integer, _
ByRef r As Integer)
If x > y Then
r = x
Else
If x < y Then 'Вложенный оператор
r = y
Else
MsgBox " Числа равные" 'Блок из 2-х операторов
r = x
End If
End If
End Sub
Private Sub CmdРешение_Click()
Dim a As Integer, b As Integer, maximum2 As Integer
a = CInt(Text1.Text)
b = CInt(Text2.Text)
Анализ a, b, maximum2
Text3.Text = maximum2
End Sub
|
Продолжение табл. 3.7
|
|
|
Private Sab Анализ(ByVal x As Integer, ByVal y As Integer, _
ByRef r As Integer)
If x > y Then
r = x
Else
If x < y Then 'Вложенный оператор
r = y
Else
MsgBox " Числа равные" 'Блок из 2-х операторов
r = x
End If
End If
End Sab
Private Sub CmdРешение_Click()
Dim a As Integer, b As Integer, maximum2 As Integer
a = CInt(Text1.Text)
b = CInt(Text2.Text)
Анализ a, b, maximum2
Text3.Text = maximum2
End Sub
|
Продолжение табл. 3.7
|
|
|
Private Sub Анализ(ByVal x As Inteqer, ByVal y As Inteqer, _
ByRef r As Inteqer)
If x > y Then
r = x
Else
If x < y Then 'Вложенный оператор
r = y
Else
MsgBox " Числа равные" 'Блок из 2-х операторов
r = x
End If
End If
End Sub
Private Sub CmdРешение_Click()
Dim a As Inteqer, b As Inteqer, maximum2 As Inteqer
a = CInt(Text1.Text)
b = CInt(Text2.Text)
Анализ a, b, maximum2
Text3.Text = maximum2
End Sub
|
Продолжение табл. 3.7
|
|
|
Private Sub Анализ(ByVal x As Integer, ByVal y As Integer,
ByRef r As Integer)
If x > y Then
r = x
Else
If x < y Then 'Вложенный оператор
r = y
Else
MsgBox " Числа равные" 'Блок из 2-х операторов
r = x
End If
End If
End Sub
Private Sub CmdРешение_Click()
Dim a As Integer, b As Integer, maximum2 As Integer
a = CInt(Text1.Text)
b = CInt(Text2.Text)
Анализ a, b, maximum2
Text3.Text = maximum2
End Sub
|
Продолжение табл. 3.7
|
|
|
Private Sub Analiz(ByVal x As Integer, ByVal y As Integer, _
ByRef r As Integer)
If x > y Then
r = x
Else
If x < y Then 'Вложенный оператор
r = y
Else
MsgBox " Числа равные" 'Блок из 2-х операторов
r = x
End If
End If
End Sub
Private Sub CmdРешение_Click()
Dim a As Integer, b As Integer, maximum2 As Integer
a = CInt(Text1.Text)
b = CInt(Text2.Text)
Анализ a, b, maximum2
Text3.Text = maximum2
End Sub
|
Продолжение табл. 3.7
|
|
|
Private Sub Анализ(ByVal x As Integer, ByVal y As Integer, _
ByRef r As Integer)
If x > y Then
r = x
Else
If x < y Then 'Вложенный оператор
r = y
Else
MsgBox " Числа равные" 'Блок из 2-х операторов
r = x
End If
End If
End Sub
Private Sub CmdРешение_Click()
Dim a As Integer, b As Integer, maximum2 As Integer
a = CIht(Text1.Text)
b = CIht(Text2.Text)
Анализ a, b, maximum2
Text3.Text = maximum2
End Sub
|
Продолжение табл. 3.7
|
|
|
Private Sub Реш_квадр_ур_Click()
Dim a As Integer, b As Integer, c As Integer, _
d As Single, x1 As Single, x2 As Single
a = CInt(TextBox1.Text): b = CInt(TextBox2.Text): c = CInt(TextBox3.Text)
d = b ^ 2 - 4 * a * c
If d < 0 Then
MsgBox " Нет веществ-х корней"
Else
If d = 0 Then
x1 = -b / (2 * a): x2 = x1
TextBox4.Text = x1: TextBox5.Text = x2
Else
x1 = (-b - Sqr(d)) / (2 * a): x2 = (-b + Sqr(d)) / (2 * a)
TextBox4.Text = x1: TextBox5.Text = x2
End Sub
|
Продолжение табл. 3.7
|
| Ошибки при вводе - выводе данных
|
|
Private Sub Анализ(ByVal x As Integer, ByVal y As Integer, _
ByRef r As Integer)
If x > y Then
r = x
Else
If x < y Then 'Вложенный оператор
r = y
Else
MsgBox " Числа равные" 'Блок из 2-х операторов
r = x
End If
End If
End Sub
Private Sub CmdРешение_Click()
Dim a As Integer, b As Integer, maximum2 As Integer
a = CInt(TextBox1.Text)
b = CInt(TextBox2.Text)
Анализ a, b, maximum2
TextBox3.Text = maximum2
End Sub
|
Продолжение табл. 3.7
|
|
|
Private Sub Анализ(ByVal x As Integer, ByVal y As Integer, _
ByRef r As Integer)
If x > y Then
r = x
Else
If x < y Then 'Вложенный оператор
r = y
Else
MsgBox " Числа равные" 'Блок из 2-х операторов
r = x
End If
End If
End Sub
Private Sub CmdРешение_Click()
Dim a As Integer, b As Integer, maximum2 As Integer
a = CInt(Text1.Text)
b = CInt(Text2.Text)
Анализ a, b, maximum2
Text3.Text = maximum2
End Sub
|
Продолжение табл. 3.7
|
|
|
Private Sub Анализ(ByVal x As Integer, ByVal y As Integer, _
ByRef r As Integer)
If x > y Then
r = x
Else
If x < y Then 'Вложенный оператор
r = y
Else
MsgBox " Числа равные" 'Блок из 2-х операторов
r = x
End If
End If
End Sub
Private Sub CmdРешение_Click()
Dim a As Integer, b As Integer, maximum2 As Integer
a = CInt(Text1.Text)
b = CInt(Text2.Text)
Анализ a, b, maximum2
Text3.Text = maximum2
End Sub
|
Продолжение табл. 3.7
|
|
|
Function F(ByVal x As Single) As Single
F = (x - 1) * (x - 1) - 1
End Function
Private Sub Расчет(ByVal xn As Single, ByVal xk As Single, _
ByVal e As Single, ByRef x As Variant)
Dim N As Integer, c As Single 'Объявление локальных переменных
Dim mas() 'Обьявление динамического массива
If F(xn) * F(xk) > 0 Then
x = "? "
MsgBox " На данном интервале корня нет или четное количество корней." _
+ Chr(13) & _
" Задайте интервал, содержащий один корень."
Exit Sub
End If
N = 0
c = (xn + xk) / 2
Do While xk - xn > e And Abs(F(c)) > e
c = (xn + xk) / 2
N = N + 1
ReDim Preserve mas(1 To N)
mas(N) = c
If F(xn) * F(c) > 0 Then xn = c Else xk = c
Loop
x = c
| Продолжение табл. 3.7
|
|
| If N = 0 Then
ReDim Preserve mas(1 To 1)
mas(1) = x
End If
List1.List = mas
End Sub
Private Sub CmdРешение_Click()
Dim a As Single, b As Single, eps As Single, _
корень As Variant
a = CSng(Text1.Text)
b = CSng(Text2.Text)
eps = CSng(Text3.Text)
Расчет a, b, eps, корень
Text4.Text = корень
End Sub
Private Sub List1_Click()
Text5.Text = F(CSng(List1))
End Sub
|
Продолжение табл. 3.7
|
|
|
Private Sub Поиск_мин_элем(_
ByRef b() As Single, _
ByVal jn As Integer, ByVal jk As Integer, _
ByRef jmin As Integer)
Dim j As Integer
jmin = jn
For j = jn + 1 To jk
If b(j) < b(jmin) Then jmin = j
Next
End Sub
Private Sub Перестановка(ByRef x As Single, _
ByRef y As Single)
Dim z As Single
z = x
x = y
y = z
End Sub
Private Sub CmdРешение_Click()
Dim n As Integer, imin As Integer, _
k As Integer, a() As Single
n = CInt(Text1.Text)
Randomize
|
Продолжение табл. 3.7
|
|
| For k = 1 To n
ReDim Preserve a(1 To k)
a(k) = Int(100 * Rnd)
Next
List1.List = a
For k = 1 To n - 1
Поиск_мин_элем a, k, n, imin
Перестановка a(k), a(imin)
Next
List2.List = a
End Sub
|
Продолжение табл. 3.7
|
| Ошибки при выполнении программы
|
|
Private Sub Анализ(ByVal x As Integer, ByVal y As Integer, _
ByRef r As Integer)
If x > y Then
r = x
Else
If x < y Then 'Вложенный оператор
r = y
Else
MsgBox " Числа равные" 'Блок из 2-х операторов
r = x
End If
End If
End Sub
Private Sub CmdРешение_Click()
Dim a As Integer, b As Integer, maximum2 As Integer
a = CInt(Text1.Text)
b = CInt(Text2.Text)
Анализ а, б, maximum2
Text3.Text = maximum2
End Sub
|
Продолжение табл. 3.7
|
|
|
Private Sub Реш_квадр_ур_Click()
Dim a As Integer, b As Integer, c As Integer, _
d As Single, x1 As Single, x2 As Single
a = CInt(TextBox1.Text): b = CInt(TextBox2.Text): c = CInt(TextBox3.Text)
d = b ^ 2 - 4 * a * c
If d < 0 Then
MsgBox " Нет веществ-х корней"
Else
If d = 0 Then
x1 = -b / 2 * a: x2 = x1
TextBox4.Text = x1: TextBox5.Text = x2
Else
x1 = (-b - Sqr(d)) / 2 * a: x2 = (-b + Sqr(d)) / 2 * a
TextBox4.Text = x1: TextBox5.Text = x2
End If
End If
End Sub
|
Продолжение табл. 3.7
|
|
|
Private Sub Реш_квадр_ур_Click()
Dim a As Integer, b As Integer, c As Integer, _
d As Single, x1 As Single, x2 As Single
a = CInt(TextBox1.Text): b = CInt(TextBox2.Text): c = CInt(TextBox3.Text)
d =Sqr(b ^ 2 - 4 * a * c)
If d < 0 Then
MsgBox " Нет веществ-х корней"
Else
If d = 0 Then
x1 = -b /(2 * a): x2 = x1
TextBox4.Text = x1: TextBox5.Text = x2
Else
x1 = (-b - Sqr(d)) / (2 * a): x2 = (-b + Sqr(d)) /(2 * a)
TextBox4.Text = x1: TextBox5.Text = x2
End If
End If
End Sub
|
Продолжение табл. 3.7
|
|
|
Private Sub Реш_квадр_ур_Click()
Dim a As Integer, b As Integer, c As Integer, _
d As Single, x1 As Single, x2 As Single
a = CInt(TextBox1.Text): b = CInt(TextBox2.Text): c = CInt(TextBox3.Text)
d =Sqr(b - 4 * a * c)
If d < 0 Then
MsgBox " Нет веществ-х корней"
Else
If d = 0 Then
x1 = -b / (2 * a): x2 = x1
TextBox4.Text = x1: TextBox5.Text = x2
Else
x1 = (-b - Sqr(d)) /(2 * a): x2 = (-b + Sqr(d)) / (2 * a)
TextBox4.Text = x1: TextBox5.Text = x2
End If
End If
End Sub
|
Продолжение табл. 3.7
|
|
|
Private Sub Реш_квадр_ур_Click()
Dim a As Integer, b As Integer, c As Integer, _
d As Single, x1 As Single, x2 As Single
a = CInt(TextBox1.Text): b = CInt(TextBox2.Text): c = CInt(TextBox3.Text)
d = b - 4 * a * c
If d < 0 Then
MsgBox " Нет веществ-х корней"
Else
If d = 0 Then
x1 = -b / (2 * a): x2 = x1
TextBox4.Text = x1: TextBox5.Text = x2
Else
x1 = (-b - Sqr(d)) / (2 * a): x2 = (-b + Sqr(d)) / (2 * a)
TextBox4.Text = x1: TextBox5.Text = x2
End If
End If
End Sub
|
Продолжение табл. 3.7
|
|
|
Private Sub Реш_квадр_ур_Click()
Dim a As Integer, b As Integer, c As Integer, _
d As Single, x1 As Single, x2 As Single
a = CInt(TextBox1.Text): b = CInt(TextBox2.Text): c = CInt(TextBox3.Text)
If d < 0 Then
MsgBox " Нет веществ-х корней"
Else
If d = 0 Then
x1 = -b / (2 * a): x2 = x1
TextBox4.Text = x1: TextBox5.Text = x2
Else
x1 = (-b - Sqr(d)) / (2 * a): x2 = (-b + Sqr(d)) / (2 * a)
TextBox4.Text = x1: TextBox5.Text = x2
End If
End If
End Sub
|
Продолжение табл. 3.7
|
|
|
Private Sub Реш_квадр_ур_Click()
Dim a As Integer, b As Integer, c As Integer, _
d As Single, x1 As Single, x2 As Single
a = CInt(TextBox1.Text): b = CInt(TextBox2.Text): c = CInt(TextBox3.Text)
d = b ^ 2 - 4 * a * c
If d < 0 Then
MsgBox " Нет веществ-х корней"
Else
If d = 0 Then
x1 = -b / (2 * a): x2 = x1
Else
x1 = (-b - Sqr(d)) / (2 * a): x2 = (-b + Sqr(d)) / (2 * a)
End If
End If
End Sub
|
Продолжение табл. 3.7
|
|
|
Private Sub Реш_квадр_ур_Click()
Dim a As Integer, b As Integer, c As Integer, _
d As Single, x1 As Single, x2 As Single
a = CInt(TextBox1.Text): b = CInt(TextBox2.Text): c = CInt(TextBox3.Text)
d =Sqr(b ^ 2 - 4 * a * c)
If d < 0 Then
MsgBox " Нет веществ-х корней"
Else
If d = 0 Then
x1 = -b / 2 * a: x2 = x1
TextBox4.Text = x1: TextBox5.Text = x2
Else
x1 = (-b - Sqr(d)) / 2 * a: x2 = (-b + Sqr(d)) / 2 * a
TextBox4.Text = x1: TextBox5.Text = x2
End If
End If
End Sub
|
Продолжение табл. 3.7
|
|
|
Private Sub Реш_квадр_ур_Click()
Dim a As Integer, b As Integer, c As Integer, _
d As Single, x1 As Single, x2 As Single
a = CInt(TextBox1.Text): b = CInt(TextBox2.Text): c = CInt(TextBox3.Text)
d = b - 4 * a * c
If d < 0 Then
MsgBox " Нет веществ-х корней"
Else
If d = 0 Then
x1 = -b / 2 * a: x2 = x1
TextBox4.Text = x1: TextBox5.Text = x2
Else
x1 = (-b - Sqr(d)) / 2 * a: x2 = (-b + Sqr(d)) / 2 * a
TextBox4.Text = x1: TextBox5.Text = x2
End If
End If
End Sub
|
Продолжение табл. 3.7
|
|
|
Private Sub Реш_квадр_ур_Click()
Dim a As Integer, b As Integer, c As Integer, _
d As Single, x1 As Single, x2 As Single
a = CInt(TextBox1.Text): b = CInt(TextBox2.Text): c = CInt(TextBox3.Text)
If d < 0 Then
MsgBox " Нет веществ-х корней"
Else
If d = 0 Then
x1 = -b / 2 * a: x2 = x1
TextBox4.Text = x1: TextBox5.Text = x2
Else
x1 = (-b - Sqr(d)) / 2 * a: x2 = (-b + Sqr(d)) / 2 * a
TextBox4.Text = x1: TextBox5.Text = x2
End If
End If
End Sub
|
Продолжение табл. 3.7
|
|
|
Private Sub Реш_квадр_ур_Click()
Dim a As Integer, b As Integer, c As Integer, _
d As Single, x1 As Single, x2 As Single
a = CInt(TextBox1.Text): b = CInt(TextBox2.Text): c = CInt(TextBox3.Text)
d = b ^ 2 - 4 * a * c
If d < 0 Then
MsgBox " Нет веществ-х корней"
Else
If d = 0 Then
x1 = -b / 2 * a: x2 = x1
Else
x1 = (-b - Sqr(d)) / 2 * a: x2 = (-b + Sqr(d)) / 2 * a
End If
End If
End Sub
|
Продолжение табл. 3.7
|
|
|
Private Sub Реш_квадр_ур_Click()
Dim a As Integer, b As Integer, c As Integer, _
d As Single, x1 As Single, x2 As Single
a = CInt(TextBox1.Text): b = CInt(TextBox2.Text): c = CInt(TextBox3.Text)
d = Sqr(b ^ 2 - 4 * a * c)
If d < 0 Then
MsgBox " Нет веществ-х корней"
Else
If d = 0 Then
x1 = -b / (2 * a): x2 = x1
Else
x1 = (-b - Sqr(d)) / (2 * a): x2 = (-b + Sqr(d)) / (2 * a)
End If
End If
End Sub
|
Продолжение табл. 3.7
|
|
|
Private Sub Реш_квадр_ур_Click()
Dim a As Integer, b As Integer, c As Integer, _
d As Single, x1 As Single, x2 As Single
a = CInt(TextBox1.Text): b = CInt(TextBox2.Text): c = CInt(TextBox3.Text)
d = b - 4 * a * c
If d < 0 Then
MsgBox " Нет веществ-х корней"
Else
If d = 0 Then
x1 = -b / (2 * a): x2 = x1
Else
x1 = (-b - Sqr(d)) / (2 * a): x2 = (-b + Sqr(d)) / (2 * a)
End If
End If
End Sub
|
Функция спроса населения на данный товар Функция спроса населения на данный товар: Qd=7-Р. Функция предложения: Qs= -5+2Р,где...
|
Аальтернативная стоимость. Кривая производственных возможностей В экономике Буридании есть 100 ед. труда с производительностью 4 м ткани или 2 кг мяса...
|
Вычисление основной дактилоскопической формулы Вычислением основной дактоформулы обычно занимается следователь. Для этого все десять пальцев разбиваются на пять пар...
|
Расчетные и графические задания Равновесный объем - это объем, определяемый равенством спроса и предложения...
|
|
Методика обучения письму и письменной речи на иностранном языке в средней школе. Различают письмо и письменную речь.
Письмо – объект овладения графической и орфографической системами иностранного языка для фиксации языкового и речевого материала...
Классификация холодных блюд и закусок. Урок №2 Тема: Холодные блюда и закуски. Значение холодных блюд и закусок. Классификация холодных блюд и закусок. Кулинарная обработка продуктов...
ТЕРМОДИНАМИКА БИОЛОГИЧЕСКИХ СИСТЕМ. 1. Особенности термодинамического метода изучения биологических систем. Основные понятия термодинамики. Термодинамикой называется раздел физики...
|
|
СПИД: морально-этические проблемы Среди тысяч заболеваний совершенно особое, даже исключительное, место занимает ВИЧ-инфекция...
Понятие массовых мероприятий, их виды Под массовыми мероприятиями следует понимать совокупность действий или явлений социальной жизни с участием большого количества граждан...
Тактика действий нарядов полиции по предупреждению и пресечению правонарушений при проведении массовых мероприятий К особенностям проведения массовых мероприятий и факторам, влияющим на охрану общественного порядка и обеспечение общественной безопасности, можно отнести значительное количество субъектов, принимающих участие в их подготовке и проведении...
|
|