Помогите пожалуйста! Сгенерировать одномерный массив действительных чисел и подсчитать сумму всех его элементов, больших 3.(Basic)
Ответы
Ответ дал:
0
Private Sub CommandButton1_Click()
Dim A(20), Sum As Integer
Sum = 0
For i = 1 To 20
A(i) = Int(Rnd * 20)
If A(i) > 3 Then Sum = Sum + A(i)
TextBox1.Text = TextBox1.Text & A(i) & " "
TextBox2.Text = Sum Next i
If TextBox1.Text <> "" Then
CommandButton1.Enabled = False
CommandButton2.Enabled = True
End If
End Sub
Private Sub CommandButton2_Click()
If TextBox1.Text <> "" Then CommandButton1.Enabled = True
TextBox1.Text = ""
TextBox2.Text = ""
CommandButton2.Enabled = False
End Sub
Dim A(20), Sum As Integer
Sum = 0
For i = 1 To 20
A(i) = Int(Rnd * 20)
If A(i) > 3 Then Sum = Sum + A(i)
TextBox1.Text = TextBox1.Text & A(i) & " "
TextBox2.Text = Sum Next i
If TextBox1.Text <> "" Then
CommandButton1.Enabled = False
CommandButton2.Enabled = True
End If
End Sub
Private Sub CommandButton2_Click()
If TextBox1.Text <> "" Then CommandButton1.Enabled = True
TextBox1.Text = ""
TextBox2.Text = ""
CommandButton2.Enabled = False
End Sub
Приложения:
![](https://st.uroker.com/files/4ba/4ba6f116f6cb17f9493ce5a7212edd2b.png)
![](https://st.uroker.com/files/276/276b598cad0e1cb79971bb09e9fde416.png)
Ответ дал:
0
см снимки
Ответ дал:
0
так будет понятнее
Ответ дал:
0
Спасибо)
Вас заинтересует
1 год назад
8 лет назад
8 лет назад
8 лет назад