Вопрос: проблема | Добавлено: 29.05.08 14:15 |
Автор вопроса: ![]() |
Помогите! Что может помочь, чтоб понять решения задач VB 6.0? |
Ответы | Всего ответов: 51 |
Номер ответа: 1 Автор ответа: ![]() ![]() ICQ: 237822510 Вопросов: 28 Ответов: 1182 |
Профиль | Цитата | #1 | Добавлено: 29.05.08 14:20 |
решения задач VB 6.0? А какие Вам VB6.0 задачи поставил? ![]() |
Номер ответа: 2 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | Цитата | #2 | Добавлено: 29.05.08 14:25 |
Мозг точно может помочь ![]() Стучи в асю, может помогу) Ну или на форуме поможем. |
Номер ответа: 3 Автор ответа: ![]() ![]() ICQ: 429904239 Вопросов: 2 Ответов: 14 |
Профиль | Цитата | #3 | Добавлено: 29.05.08 14:25 |
Да в начале ещё понятно, а потом чё то тяжеловато стало! Ещё столько пропустила!
Не могу ни одну лабораторную сдать!=(( Чё делать?Ещё до зачёта не допустят!=( |
Номер ответа: 4 Автор ответа: ![]() ![]() ICQ: 429904239 Вопросов: 2 Ответов: 14 |
Профиль | Цитата | #4 | Добавлено: 29.05.08 14:27 |
Я туда не захожу! Может есть какая-то литература? |
Номер ответа: 5 Автор ответа: ![]() ![]() ICQ: 429904239 Вопросов: 2 Ответов: 14 |
Профиль | Цитата | #5 | Добавлено: 29.05.08 14:28 |
я там дальше ответила! |
Номер ответа: 6 Автор ответа: ![]() ![]() ICQ: 237822510 Вопросов: 28 Ответов: 1182 |
Профиль | Цитата | #6 | Добавлено: 29.05.08 15:53 |
Если литература по VB6, то есть несколько учебников в chm-формате. Архив метра 3-4 потянет. |
Номер ответа: 7 Автор ответа: ![]() ![]() ![]() ![]() ICQ: ненавижу Вопросов: 28 Ответов: 317 |
Web-сайт: Профиль | Цитата | #7 | Добавлено: 29.05.08 16:13 |
Главное все норовят в VBA свой топик сунуть ![]() А в вопросе пишут "мне на VB пожалуйста". Давай освети уже хоть одну задачку, что попроще. А там глядишь лёд тронется. |
Номер ответа: 8 Автор ответа: ![]() ![]() ICQ: 429904239 Вопросов: 2 Ответов: 14 |
Профиль | Цитата | #8 | Добавлено: 30.05.08 16:00 |
Сейчас я вам такое покажу!![]() |
Номер ответа: 9 Автор ответа: ![]() ![]() ICQ: 429904239 Вопросов: 2 Ответов: 14 |
Профиль | Цитата | #9 | Добавлено: 30.05.08 16:49 |
Лаб.работа 1 Вариант 14 1. Составить программу для решения задачи: Даны числа X, Y. Вычислить │ ___ 5Y │ S= (Y- │X│ ![]() ![]() │ 2Y+X /4 │ 2.Составить программу для решения задачи: Дано действительное число X. Вычислить F(X), если ┌ 3 2 │X +4X + 5X при -5<=X<=1, │ 3 2 F(X)= ┤ │X +4X +5X│ при 1<X<5, │ │ 0 в остальных случаях └ Лаба 2 Вариант 14 Cоставить программы для решения следующих задач: 1. Даны два вещественных числа. Если числа одного знака, то поменять им знак на противоположный, если числа разного знака, то присвоить им значение наименьшего по модулю числа. 2. Дано трехзначное число N. Определить, верно ли, что квадрат этого числа равен сумме квадратов его цифр. Лаба 3 Вариант 14 Составить программы для решения следующих задач: 1. Дано число L. Проверить, является ли оно простым. 2. Задано натуральное число Х . Вычислять сумму последовательности: х + х2 + х3 + ... до тех пор, пока последнее слагаемое не станет больше 1000. Посчитать количество слагаемых. 3. Дана последовательность случайных чисел. Посчитать количество четных чисел данной последовательности Лабораторная работа 4 Массивы Вариант 1 Составить программы для решения следующих задач: 1. Дано натуральное число N и последовательность целых чисел A1,A2,...,AN. Наименьший элемент последовательности заменить целой частью среднего арифметического всех элементов, остальные элементы оставить без изменения. 2. Дана действительная матрица размером M*N. Определить сумму элементов строки, в которой находится максимальный элемент. 3. Дано натуральное число N. Найти натуральное число, меньшее N и имеющее максимальную сумму делителей. Лаба 6 Вариант 14 1. Составить программу для решения следующей задачи: Построить на заданном интервале [a,b] график функции X Y= 3+ ──────── 4X-7 Для построения графика вычислять значения функции в точках XI=A+I*H, где I=0,...,N; H=(B-A)/N; N - заданное натуральное число. Если интервал находится вне области определения функции, выдать соответствующее сообщение. Лаба 5(???????) Вариант 14 Составить программы для решения следующих задач: 1. Задана строка символов. Определить какая буква, первая или последняя, встречается в ней чаще. 2. Задана строка символов. Преобразовать эту строку, удалив в ней все буквы «а» и заменив каждую цифру прописной буквой латинского алфавита, имеющей порядковый номер в алфавите, равный заменяемой цифре (0 заменять буквой Z). 3. Задана строка символов, состоящая из отдельных слов, разделенных пробелами. Определить длину самого длинного слова и вывести это слово на экран. |
Номер ответа: 10 Автор ответа: ![]() ![]() ICQ: 429904239 Вопросов: 2 Ответов: 14 |
Профиль | Цитата | #10 | Добавлено: 30.05.08 16:53 |
Люди, почему формулы неправильные появляются ?
С Ворда же скопировала! блин! Ну хотя бы помогите задачки, что без формул! Вы тут такие сложные помогаете, а мои наверно вообще как 5 копеек! Плизз!!!!!!! |
Номер ответа: 11 Автор ответа: ![]() ![]() ICQ: 429904239 Вопросов: 2 Ответов: 14 |
Профиль | Цитата | #11 | Добавлено: 30.05.08 17:09 |
только это для VB 6.0! |
Номер ответа: 12 Автор ответа: ![]() ![]() ![]() ![]() Вопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | Цитата | #12 | Добавлено: 30.05.08 18:50 |
Лаб.2(1) Option Explicit
Private Sub Form_Load() Dim a As Single, b As Single a = Val(InputBox("Введите число a:" ![]() b = Val(InputBox("Введите число b:" ![]() If (a > 0 And b > 0) Or (a < 0 And b < 0) Then a = -a b = -b Else 'Числа с разным знаком If (Abs ![]() End If MsgBox "a = " & a & vbNewLine & "b = " & b End End Sub |
Номер ответа: 13 Автор ответа: ![]() ![]() ![]() ![]() Вопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | Цитата | #13 | Добавлено: 30.05.08 18:58 |
Лаб.2(2) Option Explicit
Private Sub Form_Load() Dim a As Integer, b As String, c As String, ret1 As Long, ret2 As Long a = Val(InputBox("Введите трехзначное число a:" ![]() ret1 = a * a b = CStr ![]() c = Mid$(b, 1, 1) ret2 = Val(c) * Val(c) c = Mid$(b, 2, 1) ret2 = ret2 + Val(c) * Val(c) c = Mid$(b, 3, 1) ret2 = ret2 + Val(c) * Val(c) MsgBox "Квадрат исходного числа: " & ret1 & vbNewLine & "Сумма квадратов цифр: " & ret2 End End Sub |
Номер ответа: 14 Автор ответа: ![]() ![]() ![]() ![]() Вопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | Цитата | #14 | Добавлено: 30.05.08 19:04 |
Лаб.3(1) Option Explicit
Private Sub Form_Load() Dim L As Integer, i As Integer, flag As Boolean L = Val(InputBox("Введите число L:" ![]() For i = 2 To L - 1 If L Mod i = 0 Then flag = True Exit For End If Next i MsgBox IIf(flag, "Число L не является простым (делится на " & i & " без остатка).", _ "Число L является простым." ![]() End End Sub |
Номер ответа: 15 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | Цитата | #15 | Добавлено: 30.05.08 19:24 |
Считайте, сколько багов ![]() '2-14-1
function f2_14_1(byref a, byref b) if sgn ![]() a = -a b = -b else if abs ![]() a = b else b = a end if end if end function '2-14-2 function f2_14_2(n) s = 0 do while n > 0 s = s + (n mod 10)^2 n = n \ 10 loop f2_14_2 = (s = n^2) end function '3-14-1 function f3_14_1(l) f3_14_1 = true for i = 2 to sqr(l) + 1 if l mod i = 0 then f3_14_1 = false exit for end if next end function '3-14-2 function f3_14_2(x, byref count) ca = x cs = 0 count = 0 do while ca <= 1000 cs = cs + ca count = count + 1 ca = ca * x loop f3_14_2 = ca end function '3-14-3 function f3_14_3(a(), n) res = 0 for i = 1 to n if a(i) mod 2 = 0 then res = res + 1 next f3_14_3 = res end function '4-1-1 function f4_1_1(a(), n) mini = 1 sum = a(1) for i = 2 to n if a(i) < a(mini) then mini = i sum = sum + a(i) next a(mini) = sum \ n end function '4-1-2 function f4_1_2(a(), m, n) maxi = 1, maxj = 1 for i = 1 to m for j = 1 to n if a(i,j) > a(maxi,maxj) then maxi = i maxj = j end if next next res = 0 for j = 1 to n res = res + a(maxi,j) next f4_1_2 = res end function '4-1-3 function f4_1_3(n) maxsd = 0 maxn = 0 for i = 1 to n-1 sd = 0 for j = 1 to i if i mod j = 0 then sd = sd + j next if sd > maxsd then maxsd = sd maxn = i end if next f4_1_3 = maxn end function '5-14-1 function f5_14_1(s) n = len(s) f = 0 l = 0 for i = 1 to n if mid(s, i, 1) = left(s, 1) then f = f + 1 if mid(s, i, 1) = right(s, 1) then l = l + 1 next if f > l then f5_14_1 = "Первая чаще" else if f < l then f5_14_1 = "Последняя чаще" else f5_14_1 = "Одинаково" end function '5-14-2 function f5_14_2(s) res = "" nums = "ZABCDEFGHI" for i = 1 to len(s) c = mid(s, i, 1) if c = "a" then else if asc(c) >= asc("0" ![]() ![]() res = res & mid(nums, asc(c) - asc("0" ![]() else res = res & c end if next f5_14_2 = res end function '5-14-3 function f5_14_3(s) cw = "" maxw = "" for i = 1 to len(s) c = mid(s, i, 1) if c = " " then if len(cw) > len(maxw) then maxw = cw cw = "" else cw = cw & c end if next if len(cw) > len(maxw) then maxw = cw print maxw f5_14_3 = len(maxw) end function |
|