Logo GenDocs.ru

Поиск по сайту:  


Загрузка...

Шпоры - Экзаменационные задачи VBA (ИрГТУ) - файл 1.doc


Шпоры - Экзаменационные задачи VBA (ИрГТУ)
скачать (56.5 kb.)

Доступные файлы (1):

1.doc57kb.17.11.2011 09:02скачать

Загрузка...

1.doc

Реклама MarketGid:
Загрузка...
№1(+)

Дано 10 целых чисел определить сколько из них принимает наибольшее значение

Option Explicit

Sub progr()

Dim i, As Integer

Dim Max, imax As Integer

Range(Cells(1, 1), Cells(100, 100)).Select

Selection.Clear

Cells(1, 1).Select

For i = 1 To 10

Cells(i, 1) = Int(Rnd * 100)

Next i

Max = Cells(1, 1)

For i = 2 To 10

If Max < Cells(i, 1) Then

Max = Cells(i, 1)

End If

Next i

MsgBox ("" & Max)

End Sub

№2

Даны целое N >0 и последовательность из N вещественных чисел, среди которых хотя бы одно отрицательное число, найти величину наибольшего отрицательного среди чисел этой последовательности.

Option Explicit

Sub progr()

Dim N, i As Integer

Dim Max As Integer

Range(Cells(1, 1), Cells(100, 100)).Select

Selection.Clear

Cells(1, 1).Select

N = Val(InputBox("N - ?"))

For i = 1 To N

Cells(1, i) = Int(100 - Rnd * 200)

Next i

For i = 1 To N

If Cells(1, i) < 0 Then

Max = Cells(1, i)

End If

Next i

For i = 1 To N

If Max <> Cells(1, i) Then

Max = Cells(1, i)

End If

Next i

MsgBox ("max=" & Abs(Max))

End Sub

№3(+)

Дана последовательность из 10 целых чисел определить со скольки отрицательных она начинается

Option Explicit

Sub progr()

Dim N, i As Integer

Dim Max As Integer

Range(Cells(1, 1), Cells(100, 100)).Select

Selection.Clear

Cells(1, 1).Select

N = Val(InputBox("N - ?"))

For i = 1 To N

Cells(1, i) = Int(90 - Rnd * 300)

Next i

i = 1

If Cells(i, 1) >= 0 Then

MsgBox ("начинается с неотрицательных")

Else

Do While Cells(1, i) < 0

i = i + 1

Loop

MsgBox ("количество отрицательных=" & i - 1)

End If

End Sub


№4

Найти сумму цифр заданного натурального числа (целочисленное деление)

Option Explicit

Sub progr()

Dim a, N, KOL, S, i As Integer

Dim Si As Integer

Range(Cells(1, 1), Cells(100, 100)).Select

Selection.Clear

Cells(1, 1).Select

a = InputBox("n")

N = Val(a)

KOL = Len(a)

S = 0

For i = 1 To KOL

Si = (N Mod -Int(N + 10) * 10)

N = Int(N / 10)

S = S + Si

Next i

MsgBox ("сумма=" & S)

End Sub

№5

Дана не пустая последовательность натуральных чисел за которыми следует 0 определить

Порядковый номер наименьшего из них.

Option Explicit

Sub progr()

Dim a, N, min, i As Integer

Range(Cells(1, 1), Cells(100, 100)).Select

Selection.Clear

Cells(1, 1).Select

N = Val(InputBox("N - ?"))

For i = 1 To N

Cells(1, i) = Int(Rnd * 10)

Next i

i = 1

Do While Cells(1, i) <> 0

Cells(2, i) = Cells(1, i)

i = i + 1

Loop

a = i - 1

N = 1

min = Cells(2, i)

For i = 2 To a

If min > Cells(2, i) = 0 Then

min = Cells(2, i)

N = i

End If

Next i

Cells(4, 1) = N

If Cells(2, 1) = 0 Then

Cells(4, 1) = 0

Else: Cells(4, 1) = N

End If

End Sub

№6

Дана не пустая последовательность не нулевых целых чисел за которыми следует 0 определить сколько раз в этой последовательности меняется знак

Dim A(100), N, i As Integer

For i = 1 To 10

A(i) = Int(Rnd * 20 - 10)

Cells(2, i) = A(i)

Next i

Cells(3, 3) = 0

N = 0

If A(1) <> 0 And A(i) = 0 Then '

For i = 1 To 10

If A(i) <> 0 Then

If A(i) > 0 And A(i + 1) < 0 Or A(i) < 0 And A(i + 1) > 0 Then

N = N + 1

End If

Else

Cells(3, 3) = N

Exit For

End If

Next i

Else

Cells(3, 3) = 0

End If

End Sub

№7

Найти все четырехзначные числа у которых сумма крайних цифр равна сумме средних чисел, а само число делится на 6 и 27

Option Explicit

Sub progr()

Dim m(1 To 4) As Integer

Dim i, j, N, q, e, S As Integer

Dim S1, S2 As Integer

N = Val(InputBox("N - ?"))

Range(Cells(1, 1), Cells(100, 100)).Select

Selection.Clear

Cells(1, 1).Select

Randomize

For i = 1 To N

For j = 1 To N

Cells(i, j) = Int(1000 + Rnd * 8999)

Next j

Next i

For i = 1 To N

For j = 1 To N

q = Cells(i, j)

For e = 1 To 4

S = ((q / 10) - Int(q / 10) * 10)

q = Int(q / 10)

m(e) = S

Next e

S1 = m(1) + m(4)

S2 = m(2) + m(3)

If (S1 = S2) And (((Cells(i, j) / 6) - (Cells(i, j) \ 6)) = 0) And (((Cells(i, j) / 27) - (Cells(i, j) \ 27))) = 0 Then

MsgBox ("искомое число=" & Cells(i, j))

End If

Next j

Next i

End Sub

№8(+)

Определить число полученное выписав в обратном порядке цифр задающегося натурального числа

Option Explicit

Sub progr()

Dim S1 As Integer

Dim a, N, d, KOL, i As Integer

a = Val(InputBox("N - ?"))

N = Val(a)

Range(Cells(1, 1), Cells(100, 100)).Select

Selection.Clear

Cells(1, 1).Select

KOL = Len(a)

For i = 1 To KOL

S1 = ((N / 10) - Int(N / 10)) * 10

Cells(1, i) = S1

N = Int(N / 10)

Next i

d = Cells(1, i)

For i = 2 To KOL

d = d * 10 + Cells(1, i)

Next i

Cells(4, 4) = d

End Sub

№9

Найти 4-хзначное число которое при делении на 133 дает 125, а при делении на 1134 в остатке 111


№10(+)

Дано целое N > 1 и вещественные числа Х1, Х2, Хn вычислить


D = SQR сумма(Х1 – М)^2 / n-1


M = суммаX / n


Option Explicit

Sub progr()

Dim Si As Integer

Dim N, d, S, i, m As Integer

N = Val(InputBox("N - ?"))

Range(Cells(1, 1), Cells(100, 100)).Select

Selection.Clear

Cells(1, 1).Select

For i = 1 To N

Cells(1, i) = Int(Rnd * 50)

Next i

S = 0

For i = 1 To N

S = S + Cells(1, i)

Next i

m = S / N

MsgBox ("M=" & m)

Si = 0

For i = 1 To N

Si = Si + (Cells(1, i + m) ^ 2)

Next i

d = Sqr(Si / (N - 1))

MsgBox ("D=" & d)

End Sub

№11

Дана последовательность из 20 целых чисел, определить кол-во наиболее длинной последовательности из подряд идущих нулей


№12

Дано 10 вещественных чисел найти порядковый номер того из них которое наиболее близко к какому-либо целому числу

Option Explicit

Sub progr()

Dim N, i, K, v, b, m As Integer

For i = 1 To 10

Cells(1, i) = Rnd * 200

Next i

m = 0

N = 0.5

For i = 1 To 10

If b > Abs(Cells(1, i)) - (Round(Cells(1, i))) Then

N = Cells(1, i)

m = i

End If

Next i

MsgBox ("" & m)

End Sub


№13

Даны натуральное М и вещественные числа Х1 , Y1 , X2 , Y2 , . . . , Xn , Yn рассматривая пары Х и Y как координаты точек на плоскости определить радиус наименьшего круга с центром в начале координат внутри которого находятся все точки.

Option Explicit

Sub progr()

Dim N, i, r As Integer

N = Val(InputBox("введите колличество"))

Cells(i, 1) = "x"

Cells(i, 2) = "y"

For i = 2 To N + 1

Cells(i, 1) = Int(Rnd * 10)

Cells(i, 2) = Int(Rnd * 10)

Next i

r = 0

For i = 2 To N + 1

If r < Sqr((Cells(i, 1)) ^ 2 + (Cells(i, 2)) ^ 2) Then

r = Sqr((Cells(i, 1)) ^ 2 + (Cells(i, 2)) ^ 2)

End If

Next i

MsgBox ("min радиус=" & r)

End Sub


№14

Дано 15 вещественных чисел определить сколько из них больше своих соседий

Option Explicit

Sub progr()

Dim a(15), n, i As Integer

For i = 1 To 15

a(i) = Int(Rnd * 100)

Cells(1, i) = a(i)

Next i

n = 0

For i = 2 To 14

If (a(i) > a(i + 1)) And (a(i) > a(i - 1)) Then

n = n + 1

End If

Next i

Cells(3, 3) = n

End Sub


№15(+)

Одноклеточная амеба делится каждые 3 часа на 2 клетки определить сколько будет через 3, 6 . . .24 часа

Option Explicit

Sub progr()

Dim N, i, K, v As Integer

N = 1

v = 0

For i = 1 To 8

N = (N * 2)

Cells(i, 1) = N

v = v + 3

Cells(i, 2) = "÷åðåç" & Str(v) & "÷àñà"

Next i

End Sub


Private Sub CommandButton1_Click()

Dim F, S, N, i, d As Integer

N = Val(InputBox("N - ?"))

F = 1

If N < 3 Then

MsgBox ("Am-" & F)

Else

For i = 3 To N Step 3

F = F * 2

Next i

MsgBox ("Am--" & F)

End If

End Sub


Скачать файл (56.5 kb.)

Поиск по сайту:  

© gendocs.ru
При копировании укажите ссылку.
обратиться к администрации
Рейтинг@Mail.ru