Реферат на тему Билеты по информатике 10 класс Visual Basic. 10 класс реферат по информатике

Реферат - Билеты по информатике 10 класс: Visual Basic

Билет №1

                           1

Len(String)-Возвращает длину

строки String

Left(String,Length)-Возвращает левые

Lengthсимволов строки String

Right(String,Length)-Возвращает правые

Length символов строки String

Mid (String, Start[,Length] )-Возвращает

Lengthсимволов из строк String,

начиная с символа с номером Start

Trim(String)-Убирает начальные и конеч-

ные пробелы в строке String

Ltrim(String)-Убирает начальные

 пробелы в строке String

Rtrim(String)-Убирает конечные

 пробелывстрокеString

InStr ([Start,] String, String1[,Comp] )-Возв-

ращает позицию первого вхождения

String1 в строку String

                                    2

Sub Знаки( )

Dim S As String, Num As String

Dim nNum As Integer, i As Long

S= InputBox(«Введите текст»)

Num= «0123456789»

nNum = 0

For i = 1 To Len(S)

If (InStr(Num, Mid(S, i, 1))) > 0 Then

nNum = nNum + 1

End If

Next i

MsgBox («Кол-во =» + Str(nNum))

End Sub

                                    3

Sub Swap(S As String, i As Long, j As Long)

Dim C As String

C = Mid(S, i, 1)

Mid(S, i, 1) = Mid(S, j, 1)

Mid(S, j, 1) = C

End Sub

Sub шифр( )

Dim S As String, Sogl As String

Dim S1 As String, c As String

Dim Gl As String, K As Long

Dim i As Long

Sogl = «бвгджзклмнпрстфхцчшщъь»

S = InputBox(«Ввод строки»)

Gl = «аеиоуыэюяё»

For i = 1 To Len(S)

c = Mid(S, i, 1)

S1 = S1 + c

If InStr(Gl, c) > 0 Then

K = K + 1

If K > Len(Sogl) Then K = 1

S1 = S1 + Mid(Sogl, K, 1)

End If

Next i

For i = 1 To Len(S1) — 4 Step 5

Call Swap(S1, i, i + 4)

Call Swap(S1, i + 1, i + 3)

Next i

S = S1

MsgBox (S)

End Sub

                    4

Sub Раскодировщик()

Dim S As String, i As Long

Dim S1 As String, c As String

Dim Gl As String, K As Long

S = InputBox(«Ввод шифра»)

Gl = «аеиоуыэюяё»

For i = 1 To Len(S) — 4 Step 5

Call Swap(S, i, i + 4)

Call Swap(S, i + 1, i + 3)

Next i

For i = 1 To Len(S)

c = Mid(S, i, 1)

S1 = S1 + c

If InStr(Gl, c) > 0 Then i = i + 1

Next i

MsgBox (S1)

End Sub

                         5

Sub Замена( )

Dim S As String, S1 As String

Dim n As Long, C As String

S = InputBox(«Ввод строки»)

n = 0

For i = 1 To Len(S)

C = Mid(S, i, 1)

If Mid(S, i, 3) = «Имя» Then

 S1 = S1 + «Фамилия Имя Отчество»

 n = n + 1

 i = i + 2

ElseIf Mid(S, i, 7) = «Фамилия» Then

 S1 = S1 + «Фамилия Имя Отчество»

 i = i + 6

 n = n + 1

Else

 S1 = S1 + C

End If

Next i

MsgBox (S1)

MsgBox (n)

End Sub

Билет №2

                         1

DoWhileL  } Sвыполняется

       S            }если L-истина

Do                  }Sвыполняется

       S              }пока L-истина

LoopWhileL}

Do             }Sвыполняется

       S         }вечно, пока не

[exitdo]     } будет перехода

Loop          } к exitdo

WhileL      }то же, что и

        S         }Do while...<st1:place w:st=«on»>Loop</st1:place>

Wend          }

DoUntilL  }Sвыполняется

        S         }если L-ложь

<st1:place w:st=«on»>Loop</st1:place>           }

Do                }Sвыполняется

        S           }пока L-ложь

Loop Until L}

for i=i0to iкstep h}S выполняется

 S                           }пока i0не дос-

[Exit for]               }тигнет значения

Next i                    }ik .Шаг– h

                          2

Sub Знаки()

Dim S As String, En As String

Dim nEn As Integer, i As Long

S = InputBox(«Введите текст»)

En = «abcdefghijklmnopqrstuvwxyz»

nEn = 0

For i = 1 To Len(S)

If (InStr(En, Mid(S, i, 1), 1)) > 0 Then

nEn = nEn + 1

End If

Next i

MsgBox («Кол-во =» + Str(nEn))

End Sub

                               3

Sub Swap(S As String, i As Long, j As Long)

Dim c As String

c = Mid(S, i, 1)

Mid(S, i, 1) = Mid(S, j, 1)

Mid(S, j, 1) = c

End Sub

Sub шифр()

Dim S As String, Sogl As String

Dim S1 As String, c As String

Dim Gl As String, K As Long

Dim i As Long

Sogl = «аеиоуыэюяё»

S = InputBox(«Ввод строки»)

Gl = «бвгджзклмнпрстфхцчшщъь»

For i = 1 To Len(S)

c = Mid(S, i, 1)

S1 = S1 + c

If InStr(Gl, c) > 0 Then

K = K + 1

If K > Len(Sogl) Then K = 1

S1 = S1 + Mid(Sogl, K, 1)

End If

Next i

For i = 1 To Len(S1) — 5 Step 6

Call Swap(S1, i, i + 5)

Call Swap(S1, i + 2, i + 3)

Call Swap(S1, i + 1, i + 4)

Next i

S = S1

MsgBox (S)

End Sub

                 4

Sub Раскодировщик()

Dim S As String, i As Long

Dim S1 As String, c As String

Dim Gl As String, K As Long

S = InputBox(«Ввод шифра»)

Gl = «бвгджзклмнпрстфхцчшщъь»

For i = 1 To Len(S) — 5 Step 6

Call Swap(S, i, i + 5)

Call Swap(S, i + 2, i + 3)

Call Swap(S, i + 1, i + 4)

Next i

For i = 1 To Len(S)

c = Mid(S, i, 1)

S1 = S1 + c

If InStr(Gl, c) > 0 Then i = i + 1

Next i

MsgBox (S1)

End Sub

                          5

Sub Замена()

Dim S As String, S1 As String

Dim n As Long, C As String

Dim Name As String

S = InputBox(«Ввод строки»)

Name = InputBox(«Ввод Имени»)

n = 0

For i = 1 To Len(S)

C = Mid(S, i, 1)

If Mid(S, i, 3) = «Имя» Then

 S1 = S1 + Name

 n = n + 1

 i = i + 2

ElseIf Mid(S, i, 7) = «Фамилия» Then

 S1 = S1 + Name

 i = i + 6

 n = n + 1

Else

 S1 = S1 + C

End If

Next i

MsgBox (S1)

MsgBox (n)

End Sub

Билет №3

                               1

IfLthen   }Sвыполняется

       S        }еслиL -истина

End If       }

IfL1 then        }S1 выполняется

     S1                       }еслиL1 –истина.

ElseifL2 then  }если нет, то про-

       S2                     }веряется L2 и.т.д

— — — — — — — -      }если Ln-не истина

<st1:Street w:st=«on»><st1:address w:st=«on»>ElseifLn</st1:address></st1:Street>then  }то выполняется

        Sn                   }Sn+1

Else                 }

       Sn+1                }

End if              }

                        2

Sub Знаки( )

Dim S As String, Rus As String

Dim nRus As Integer, i As Long

S = InputBox(«Введите текст»)

Rus = «абвгдежзиклмнопрстуфхцчшщъыьэюяё»

nRus = 0

For i = 1 To Len(S)

If (InStr(Rus, Mid(S, i, 1))) > 0 Then

nRus = nRus + 1

End If

Next i

MsgBox («Кол-во =» + Str(nRus))

End Sub

                        3

Sub шифр()

Dim S As String, Sogl As String

Dim S1 As String, c As String

Dim Gl As String, K As Long

Dim i As Long

S = InputBox(«Ввод строки»)

Gl = «аеиоуыэюяё»

For i = 1 To Len(S)

c = Mid(S, i, 1)

S1 = S1 + c

K = K + 1

If K > Len(Gl) Then K = 1

S1 = S1 + Mid(Gl, K, 1)

Next i

For i = 1 To (Len(S1)) / 2

Call Swap(S1, i, Len(S1) — (i — 1))

Next i

S = S1

MsgBox (S)

End Sub

4

Sub шифр()

Dim S As String, Sogl As String

Dim S1 As String, c As String

Dim Gl As String, K As Long

Dim i As Long

S = InputBox(«Ввод шифра»)

For i = 1 To (Len(S)) / 2

Call Swap(S, i, Len(S) — (i — 1))

Next i

For i = 1 To Len(S) Step 2

c = Mid(S, i, 1)

S1 = S1 + c

Next i

S = S1

MsgBox (S)

End Sub

                       5

Sub Замена()

Dim S As String, S1 As String

Dim n As Long, C As String

S = InputBox(«Ввод строки»)

n = 0

For i = 1 To Len(S)

C = Mid(S, i, 1)

If Mid(S, i, 1) = "&" Then

 S1 = S1 + «имя»

 n = n + 1

ElseIf Mid(S, i, 1) = "#" Then

 S1 = S1 + «имя»

  n = n + 1

Else

 S1 = S1 + C

End If

Next i

MsgBox (S1)

MsgBox (n)

End Sub

Билет №4

                             1

SelectCaseУСЛ} Если УСЛ равно

CaseЗН1            }ЗН1 то выполня-

       S1                 }ется S1, если ЗН2

CaseЗН2             }то S2 и т. д.Если

       S2                 }УСЛ не равно ни

-  -  -  -  -  -  -  -    }одному из ЗН, то

CaseЗНn             }выполняется Sn+1

        Sn                }

Case Else             }

        Sn+1            }

End Select            }

                              2

Sub Знаки( )

Dim S As String, Rus As String

Dim nRus As Integer, i As Long

S = InputBox(«Введите текст»)

Rus = «абвгдежзиклмнопрстуфхцчшщъыьэюяё»

nRus = 0

For i = 1 To Len(S)

If (InStr(Rus, Mid(S, i, 1))) > 0 Then

nRus = nRus + 1

End If

Next i

MsgBox («Кол-во =» + Str(nRus))

End Sub

                            3

Sub Swap(S As String, i As Long, j As Long)

Dim c As String

c = Mid(S, i, 1)

Mid(S, i, 1) = Mid(S, j, 1)

Mid(S, j, 1) = c

End Sub

Sub шифр( )

Dim S As String, Sh As String

Dim S1 As String, c As String

Dim Gl As String, K As Long

Dim i As Long

Sh = «Шаблон»

S = InputBox(«Ввод строки»)

Gl = «аеиоуыэюяё»

For i = 1 To Len(S)

c = Mid(S, i, 1)

S1 = S1 + c

If InStr(Gl, c) > 0 Then

K = K + 1

If K > Len(Sh) Then K = 1

S1 = S1 + Mid(Sh, K, 1)

End If

Next i

For i = 1 To (Len(S1)) / 2

Call Swap(S1, i, Len(S1) — (i — 1))

Next i

S = S1

MsgBox (S)

End Sub

4

Sub шифр()

Dim S As String, Sh As String

Dim S1 As String, c As String

Dim Gl As String, K As Long

Dim i As Long

Sh = «Шаблон»

S = InputBox(«Ввод строки»)

Gl = «аеиоуыэюяё»

For i = 1 To (Len(S1)) / 2

Call Swap(S1, i, Len(S1) — (i — 1))

Next i

For i = 1 To Len(S)

c = Mid(S, i, 1)

S1 = S1 + c

If InStr(Gl, c) > 0 Then

i = i + 1

End If

Next i

S = S1

MsgBox (S)

End Sub

                       5

Sub Замена()

Dim S As String, S1 As String

Dim n As Long, C As String

S = InputBox(«Ввод строки»)

n = 0

For i = 1 To Len(S)

C = Mid(S, i, 1)

If Mid(S, i, 1) = "#" Then

S1 = S1 + «Имя»

i = i + 2

n = n + 1

ElseIf Mid(S, i, 3) = «Имя» Then

S1 = S1 + "#"

i = i + 2

n = n + 1

Else

S1 = S1 + C

End If

Next i

MsgBox (S1)

MsgBox (n)

End Sub

Билет №5

                                             1

Операторы описания типов переменных

DIM-описывает переменные ивыделяет для них память.

Dim Stringas Type

String- имяпеременной

Type-описаниепеременной

Описание

Размер

Тип данных

Диапазон

Byte

1б

Целое число

0-255

Integer

2б

Целое число

+32768

Long

4б

Целое число

+2 млрд.

Double

4б

Веществ.

+10+304

String

Len(String)

Символы

0-~64000

Boolean

2б

True/False

1;0

Variant

16б

Произвольн

Произв.

2

Sub Знаки( )

Dim S As String, Pr As String

Dim nPr As Integer, i As Long

S = InputBox(«Введите текст»)

Pr = ",.?!:;"

nPr = 0

For i = 1 To Len(S)

If (InStr(Pr, Mid(S, i, 1))) > 0 Then

nPr = nPr + 1

End If

Next i

MsgBox ("Кол-во=" + Str(nPr))

End Sub

                                              3

Sub Swap(S As String, i As Long, j As Long)

Dim c As String

c = Mid(S, i, 1)

Mid(S, i, 1) = Mid(S, j, 1)

Mid(S, j, 1) = c

End Sub

Sub шифр( )

Dim S As String, Sh As String

Dim S1 As String, c As String

Dim Gl As String, K As Long

Dim i As Long

Sh = «Шаблон»

S = InputBox(«Ввод строки»)

Gl = «аеиоуыэюяё»

For i = 1 To Len(S)

c = Mid(S, i, 1)

S1 = S1 + c

If InStr(Gl, c) > 0 Then

K = K + 1

If K > Len(Sh) Then K = 1

S1 = S1 + Mid(Sh, K, 1)

End If

Next i

For i = 1 To Len(S1) — 1 Step 2

Call Swap(S1, i, i + 1)

Next i

For i = 1 To Len(S1) — 2 Step 3

Call Swap(S1, i, i + 2)

Next i

S = S1

MsgBox (S)

End Sub

4

Sub Раскодировщик( )

Dim S As String, i As Long

Dim S1 As String, c As String

Dim Gl As String, K As Long

S = InputBox(«Ввод шифра»)

Gl = «аеиоуыэюяё»

For i = 1 To Len(S) — 2 Step 3

Call Swap(S, i, i + 2)

Next i

For i = 1 To Len(S) — 1 Step 2

Call Swap(S, i, i + 1)

Next i

For i = 1 To Len(S)

c = Mid(S, i, 1)

S1 = S1 + c

If InStr(Gl, c) > 0 Then i = i + 1

Next i

MsgBox (S1)

End Sub

                          5

Sub Замена()

Dim S As String, S1 As String

Dim n As Long, C As String

S = InputBox(«Ввод строки»)

n = 0

For i = 1 To Len(S)

C = Mid(S, i, 1)

If Mid(S, i, 1) = "&" Then

 S1 = S1 + «Фамилия»

 n = n + 1

ElseIf Mid(S, i, 3) = «Имя» Then

 S1 = S1 + «Фамилия»

 i = i + 2

 n = n + 1

Else

 S1 = S1 + C

End If

Next i

MsgBox (S1)

MsgBox (n)

End Sub

Билет №6

Возвращает значение типа Variant,

содержащее массив

Пример:

DimmasVariant

m=Array(1,7,-1,2,3)

m(0)=1

m(1)=7

m(2)=-1

m(3)=2

m(4)=3

                                         2

Sub Знаки( )

Dim S As String, Pr As String

Dim nPr As Integer, i As Long

S = InputBox(«Введите текст»)

Pr = ",.?!:;"

nPr = 0

For i = 1 To Len(S)

If (InStr(Pr, Mid(S, i, 1))) > 0 Then

nPr = nPr + 1

End If

Next i

MsgBox ("Кол-во=" + Str(nPr))

End Sub

                                              3

Sub Swap(S As String, i As Long, j As Long)

Dim C As String

C = Mid(S, i, 1)

Mid(S, i, 1) = Mid(S, j, 1)

Mid(S, j, 1) = C

End Sub

Sub шифр()

Dim S As String, Sh As String

Dim S1 As String, c As String

Dim Gl As String, K As Long

Dim i As Long

Sh = «Шаблон»

S = InputBox(«Ввод строки»)

Gl = «бвгджзклмнпрстфхцчшщъь»

For i = 1 To Len(S)

c = Mid(S, i, 1)

S1 = S1 + c

If InStr(Gl, c) > 0 Then

K = K + 1

If K > Len(Sh) Then K = 1

S1 = S1 + Mid(Sh, K, 1)

End If

Next i

For i = 1 To Len(S1) — 3 Step 4

Call Swap(S1, i, i + 3)

Call Swap(S1, i + 1, i + 2)

Next i

S = S1

MsgBox (S)

End Sub

                                    4

Sub Раскодировщик()

Dim S As String, i As Long

Dim S1 As String, c As String

Dim Gl As String, K As Long

S = InputBox(«Ввод шифра»)

Gl = «бвгджзклмнпрстфхцчшщъь»

For i = 1 To Len(S) — 3 Step 4

Call Swap(S, i, i + 3)

Call Swap(S, i + 1, i + 2)

Next i

For i = 1 To Len(S)

c = Mid(S, i, 1)

S1 = S1 + c

If InStr(Gl, c) > 0 Then i = i + 1

Next i

MsgBox (S1)

End Sub

www.ronl.ru

Реферат на тему Билеты по информатике 10 класс Visual Basic

bukvasha.ru

Доклад по информатике ученика 10 класса школы "Планета" Жураковского Вадима по теме

Доклад по информатике

ученика 10 класса школы “Планета”

Жураковского Вадима

по теме:

“Если разобрать компьютер…”

Из каких же основных элементов состоит современный ПК?

Наиболее “весомой” частью любого компьютера является системный блок (иногда его называют компьютером, что является недопустимой ошибкой). Внутри него расположены блок питания, плата с центральным процессором (ЦП), видеоадаптер, жесткий диск, дисководы гибких дисков и другие устройства ввода / вывода информации. Зачастую видеоадаптер и контроллеры ввода/ вывода размещены прямо на плате ЦП. В системном блоке могут размещаться средства мультимедиа: звуковая плата и устройство чтения оптических дисков - CD-ROM. Кроме того, в понятие “компьютер” входит клавиатура и монитор. Манипулятор мышь является необязательной, но весьма важной деталью. Теперь коротко о выборе основных компонентов ПК.

Процессор. Является основным компонентом любого ПК. В настоящее время наиболее распространены процессоры фирмы Intel, хотя ЦП других фирм (AMD, Cyrix) составляют им достойную конкуренцию. В настоящее время выпускаются процессоры серии Pentium и 486. В то же время в России имеется достаточно большой парк машин на основе предшествующих серий, которые уже сняты с производства. Какую же информацию несёт в себе маркировка процессора? Рассмотрим, например, варианты 486SX-33,486DX2-50,486DX4-100. Первые три цифры указывают на серию. DX показывает наличие в процессоре специального блока для выполнения операций с плавающей точкой ( сопроцессор), SX - на его отсутствие. Следующая цифра, если она имеется, говорит о том, во сколько раз частота работы ЦП больше, чем рабочая частота остального оборудования. Двойка свидетельствует об удвоении частоты, четвёрка- об утроении. Наконец, последние две или три цифры характеризуют рабочую частоту процессора. С процессором серии Pentium гораздо проще. Он характеризуется только своей рабочей частотой, например, Pentium-60 ,Pentium-90.

Системная плата. Основной характеристикой системных плат является их архетиктура. Основными шинами до недавнего времени считались ISA (Industrial Standard Architecture) и EISA (Extended ISA), работающие на частоте 8 МГц и имеющие разрядность 10 и 32 соответственно. Для обеспечения нормальной работы видеоадаптеров был разработан стандарт VESA (Video Electronic Standart Association), рассчитанный на применение процессора серии 486, работающей на частоте процессора ( но не выше 33 МГц) и являющейся “приставкой” к шине ISA или EISA. С появлением процессора Pentium была разработана самостоятельная шина PCI, которая на сегодняшний день является наиболее быстрой и перспективной.

Дисковод для гибких дисков. Существует два стандарта : 5.25” и 3.5”. На сегодняшний день большинство компьютеров поставляется с дисководом 3.5” , однако если у вас большой парк дискет 5.25” , то можно попросить установить второй дисковой в системный блок

Жёсткий диск ( фиксированный диск, винчестер, хард).

Начав своё шествие с объема в 5 МБ, достиг небывалых высот. На сегодняшний день не удивят диски объёмом 2 или 4 ГБ. Для большинства приложений вполне достаточно объёма 420 - 700 МБ, однако если вам приходиться иметь дело с полно цветными графическими изображениями или вёрсткой, то придётся подумать о диске в 1.5- 2 ГБ или даже паре таких дисков. Следует придать значение не только емкости диска, но и его временным характеристикам. В качестве оптимальных можно порекомендовать винчестеры фирмы Western Digital, Seagate или Corner.

Оперативная память ( RAM, ОЗУ).

Здесь закон простой: чем больше, тем лучше. В настоящее время трудно найти конфигурацию с объёмом памяти менее 4 МБ. Для нормальной работы большинства программных продуктов желательно иметь хотя бы 8 МБ памяти. Однако следует заметить, что при увеличении ОЗУ более чем 32 МБ быстродействие ПК увеличивается менее значительно, и такая конфигурация необходима художникам и мультипликаторам.

Клавиатура. Стандартной в России является 101 - клавишная клавиатуры с английскими и русскими символами.

Мышь. Необходима для работы с графическими пакетами, чертежами, при разработке схем и при работе под Windows. Следует отметить , что некоторое игровое и программное обеспечение требует наличие мыши. Основной характеристикой мыши является разрешающая способность , измеряемая в точках на дюйм (dpi). Нормальной считается мышь, обеспечивающая разрешение 300-400 dpi. Неплохо иметь также специальный коврик под мышь, что обеспечивает её сохранность и долговечность.

Монитор. Выбор этой части ПК следует уделить особое внимание, поскольку от качества монитора зависит сохранность вашего зрения и обще утомляемость при работе. Мониторы имеют стандартный размер диагонали в 14,15,17,19,20 и 21 дюйм. Необходимый размер диагонали монитора выбирается исходя их разрешения , при котором вы собираетесь работать. Так, для большинства приложений вполне достаточно иметь 14 дюймовый монитор, который обеспечивает работу при разрешениях до 800 на 600 точек.

Звуковая карта. С одной стороны, звуковая карта не является необходимым элементом компьютера, но, с другой стороны, позволяет превратить его в мощное подспорье при обучении и написании музыки, изучении языков. Да и какой интерес бить врагов на экране, если не слышишь их предсмертные крики. Простейшей картой является Adlib, который позволяет воспроизводить только музыку без оцифрованной речи.

CD-ROM. С одной стороны, также не являются необходимой для функционирования компьютера частью, но становится всё более и более популярными в связи с тенденцией поставлять профессиональное, обучающее и игровое программное обеспечение на оптических дисках.

Разгадай ребус.

Конечно всякий из вас видел пестрящие объявлениями газеты, в которых предлагались услуги по продаже компьютеров и дана зашифрованная кросна грамма. Попробую их расшифровать. Итак, если вы увидели кросна грамму : 486DX2 -50 /8/540 /SVGA /512 / 0,28 LR / mouse означает, что вам предлагается компьютер с процессором серии 486, рабочей частотой 50 Мгц, 8 Mb ОЗУ, 540 Mb винчестер , видеокарта SuperVGA c 512Kb памяти, монитор с точкой 0,28, обычно 14” с малым уровнем излучений и манипулятор мышь.

Это всё, что можно сказать о главных узлах компьютера и самого системного блока.1

uz.denemetr.com

Смотрите также

• 
  Темы рефератов по финансовому менеджменту
• 
  Реферат образование в современном мире
• 
  Реферат на тему сила трения
• 
  Темы рефератов по экономическому анализу
• 
  Реферат материальная и духовная культура
• 
  Реферат на тему политические партии
• 
  Химия в жизни человека реферат
• 
  Реферат на тему иван сусанин
• 
  Античность и древний восток реферат
• 
  Реферат человек в современном мире
• 
  Реферат на тему природные явления