VB - VB (172025)

Формулировка задачи:

Описать, заполнить, вывести на форму в строчку массив R в котором 9 элементов. Значения элементов массива — целые случайные числа от 12 до 31. Найти сумму элементов и среднее геометрическое элементов массива

Решение задачи: «VB»

textual
                            Листинг программы 
                        

                            Dim i As Integer, j As Integer, str(3) As String
Dim c()
 
Private Sub Form_Activate()
ForeColor = vbGreen
Print: Print Tab(12); "Click here"
End Sub
 
Private Sub Form_Click()
Dim a(9) As Integer, S As Integer, P As Single
Me.cls:
Randomize (Timer)
P = 1: S = 0: str(1) = ""
For i = 1 To 9
a(i) = Int(Rnd * 20) + 12
str(1) = str(1) & a(i) & "  "
P = P * a(i): S = S + a(i)
Next
str(2) = "Sg=" & P ^ (1 / 9)
str(3) = "S=" & S
i = 1: j = 0
Timer1.Enabled = True
End Sub
 
Private Sub Form_Load()
WindowState = 2: FontSize = 42:  Me.BackColor = 0
c = Array(vbRed, vbBlue, vbYellow)
Timer1.Enabled = False: Timer1.Interval = 20
End Sub
 
Private Sub Timer1_Timer()
If i < 4 Then
ForeColor = c(i - 1)
If j < Len(str(i)) Then
j = j + 1
Print Mid(str(i), j, 1);
Else
j = 0
i = i + 1
Print
End If
Else
Timer1.Enabled = False
End If
End Sub
                        