(100. Алган билимди өздөштүрүү мүнөзүндөгү көнүгүү. 1) Төмөнкү сүйлөмдөрдү көчүрүп жазып, тууранды сөздөрдү тапкыла. 2) Анын лек-
сикалык маанисин аныктагыла. 3) Лексикалык маани деген эмне эке-
нин түшүндүргүлө. 4) Кыргыз тилиндеги сөз түркүмдөрүн санагыла.
1. Байдалынын колундагы кетмен ар бир чапкан са-
йын жарк-журк, жарқ-журк. 2. Гүлсарынын жүрөгүнүн
дүп-дүп какканы кулакка даана угулат. 3. Тоо койну
тынч, айыл үстүндөгү айдоо тараптан трактордун тытыр-
тытыр үнү гана басылбайт. 4. Жээктеги шагыл таштарга
тийгенде, Гүлсарынын такасы чак-чук, чак-чук чакыл-
дайт. 5. Гүлсары ордунан араң козголду, араба кайч-куйч,
дөңгөлөктөр калдыр-кулдур. 6. Гүлсары менен Танабай
уу-дууга кайра кирди. 7. Чан-чун үн угулду. 8. Гүланда
Жапарды жал-жал карады.
Dim a As Integer
Dim b As Integer
Dim i As Integer
a = InputBox("Введите а")
b = InputBox("Введите b")
Dim msg As String
msg = ""
For i = a To b
msg = msg & 3 в степени " & i & " равно " & 3 ^ i & vbCrLf
Next
MsgBox(msg)
2)Найти все делители числа 1204.
Dim i As Integer
Dim msg As String
msg = ""
For i = 1 To 1204
If 1204 Mod i = 0 Then
msg = msg & "Число " & i & " является делителем 1204." & vbCrLf End If
Next
MsgBox(msg)
Dim a As Integer
Dim b As Integer
Dim i As Integer
a = InputBox("Введите а")
b = InputBox("Введите b")
Dim msg As String
msg = ""
For i = a To b
msg = msg & 3 в степени " & i & " равно " & 3 ^ i & vbCrLf
Next
MsgBox(msg)
2)Найти все делители числа 1204.
Dim i As Integer
Dim msg As String
msg = ""
For i = 1 To 1204
If 1204 Mod i = 0 Then
msg = msg & "Число " & i & " является делителем 1204." & vbCrLf End If
Next
MsgBox(msg)