1. , , , .
1.1 .
Sub prim6()
Dim a(10), S As String, i, sum
n = Val(InputBox(" n:"))
For i = 0 To 9
a(i) = Int(Rnd * 100) + 1
sum = sum + a(i)
S = S & str(a(i)) & " "
Next i
MsgBox S & Chr(10) & Chr(13) & "sum=" & sum
End Sub
1.2 .
Sub prim7()
Dim a(4), S As String, i, sumchet, sumnechet
sumchet = 0
sumnechet = 0
For i = 0 To 3
a(i) = Int((Rnd * 100) + 1)
If a(i) Mod 2 = 0 Then sumchet = sumchet + a(i)
If a(i) Mod 2 <> 0 Then sumnechet = sumnechet + a(i)
S= S & str(a(i)) & " "
Next i
MsgBox S & Chr(10) & Chr(13) & _
"sumchet=" & sumchet & "sumnechet=" & sumnechet
End Sub
1.3 , 50 100.
Sub prim8()
Dim a(4), S As String, i, sum
sum = 0
For i = 0 To 3
a(i) = Int(Rnd * 100) + 1
If a(i) >= 50 And a(i) <= 100 Then sum = sum + a(i)
S= S & str(a(i)) & " "
Next i
MsgBox S & Chr(10) & Chr(13) & _
"sum=" & sum
End Sub
1.4 .
Sub prim9()
Dim a(4), S As String, i, sum1, sum2
sum1 = 0
sum2 = 0
For i = 0 To 3
a(i) = Int(Rnd * 100) + 1
If i Mod 2 = 0 Then sum1 = sum1 + a(i)
If i Mod 2 <> 0 Then sum2 = sum2 + a(i)
S= S & str(a(i)) & " "
Next i
MsgBox S & Chr(10) & Chr(13) & _
"sum1=" & sum1 & "sum2=" & sum2
End Sub
1.4 . 1.
Sub prim11()
Dim a(1 To 4), S As String, i, sum, pr
pr = 1
sum = 0
For i = 1 To 4
a(i) = Int(Rnd * 100) + 1
If a(i) Mod 2 = 0 Then sum = sum + i
If a(i) Mod 2 <> 0 Then pr = pr * i
S= S & str(a(i)) & " "
Next i
MsgBox S & Chr(10) & Chr(13) & _
"sum=" & sum & "pr=" & pr
End Sub
2. .
1.1 .
Sub prim12()
Dim a(4), S As String, i, sum, pr
pr = 1
For i = 0 To 3
a(i) = Int(Rnd * 100) + 1
sum = sum + a(i)
pr = pr * a(i)
S= S & str(a(i)) & " "
Next i
sa = sum / 5: sg = pr * (1 / 5)
MsgBox S & Chr(10) & Chr(13) & _
"sa=" & sa & "sg=" & sg
End Sub
3 .
|
|
3.1 .
Sub prim15()
Dim a(4), str_a, i, str_anew, max, min, imax, imin
For i = 0 To 3
a(i) = Int(Rnd * 100) + 1
str_a = str_a & a(i) & " "
Next i
max = a(0): imax = 0: min = a(0): imin = 0
For i = 1 To 3
If a(i) > max Then max = a(i): imax = i
If a(i) < min Then min = a(i): imin = i
Next i
a(imax) = min: a(imin) = max
For i = 0 To 4
str_anew = str_anew & a(i) & " "
Next i
MsgBox " :" & str_a & Chr(10) & Chr(13) & _
"max=" & max & "imax=" & imax & Chr(10) & Chr(13) & _
"min=" & min & "imin=" & imin & Chr(10) & Chr(13) & _
" :" & str_anew
End Sub
3.2 , 50.
Sub prim17()
Dim a(4), str_a, i, k
k = 0
For i = 0 To 3
a(i) = Int(Rnd * 100) + 1
str_a = str_a & a(i) & " "
If a(i) > 50 Then k = k + 1
Next i
MsgBox " :" & str_a & Chr(10) & Chr(13) & _
"k=" & k
End Sub
3.3 .
a(4) b(4) .
Sub prim16()
Dim a(1 To 4), b(1 To 4), str_a, str_b, i, str_anew, str_bnew, buf
For i = 1 To 4
a(i) = Int(Rnd * 100) + 1
str_a = str_a & a(i) & " "
b(i) = Int(Rnd * 10) + 1
str_b = str_b & b(i) & " "
Next i
buf = a(4)
a(4) = b(4)
b(4) = buf
For i = 1 To 4
str_anew = str_anew & a(i) & " "
str_bnew = str_bnew & b(i) & " "
Next i
MsgBox " a:" & str_a & Chr(10) & Chr(13) & _
" b:" & str_b & Chr(10) & Chr(13) & _
" a:" & str_anew & imin & Chr(10) & Chr(13) & _
" b:" & str_bnew
End Sub
3.3 .
:
1. .
2. .
3. ( ).
4. .
5. , .
6. , .
7. .
: a(4) b(4), a(4) b(4), a(4) 1, b(4) .
Sub prim18()
Dim a(4), b(4), str_a, str_b, i, str_anew, str_bnew, k, t, sum, pr
k = 0: t = 0: pr = 1
For i = 0 To 3
a(i) = Int(Rnd * 100) - 50
str_a = str_a & a(i) & " "
b(i) = Int(Rnd * 10) - 5
str_b = str_b & b(i) & " "
If a(i) < 0 Then k = k + 1
If b(i) < 0 Then t = t + 1
Next i
If k > t Then
For i = 0 To 3
If a(i) > 0 Then a(i) = 1
If b(i) > 0 Then b(i) = 0
str_anew = str_anew & a(i) & " "
str_bnew = str_bnew & b(i) & " "
Next i
MsgBox " a:" & str_a & Chr(10) & Chr(13) & _
" b:" & str_b & Chr(10) & Chr(13) & _
|
|
" a:" & str_anew & imin & Chr(10) & Chr(13) & _
" b:" & str_bnew & imin & Chr(10) & Chr(13) & _
"k=" & k & "t=" & t
Else
For i = 0 To 3
sum = sum + a(i): pr = pr * b(i)
Next i
MsgBox " a:" & str_a & Chr(10) & Chr(13) & _
" b:" & str_b & Chr(10) & Chr(13) & _
"sum=" & sum & "pr=" & pr & Chr(10) & Chr(13) & _
"k=" & k & "t=" & t
End If
End Sub
3.4 Sheets ( ) Range .
. .
Sub pr61()
Dim i, n, x, sum, str_x As String
n = Val(InputBox(" n:"))
i = 1: sum = 0
For i = 1 To n
x = Int(Rnd * 100) + 1
str_x = str_x & x & " "
sum = sum + x
Sheets(" 1").Cells(i, 3).Value = x
Sheets(" 1").Cells(5, 4) = sum
Next i
End Sub
3.5 .
Sub pr()
Dim i As Integer,mass(), str_mass '
ReDim mass(10)
For i = 1 To 10
Sheets("1").Cells(1, i).Value = Int(100 * Rnd + 1)
mass(i) = Sheets("1").Cells(1, i).Value
str_mass = str_mass & mass(i) & " " '
Next i
MsgBox str_mass
End Sub
(1,i) , .