Помогите написать лабу!! - VB
Формулировка задачи:
В одномерном массиве, состоящем из п вещественных элементов, вычислить:
• количество элементов массива, равных нулю;
• сумму элементов массива, расположенных после минимального элемента.
Решение задачи: «Помогите написать лабу!!»
textual
Листинг программы
Private Sub Command1_Click()
Dim R!, C!, T!, st$
C = Val(InputBox("Вводим емкость С (ф)", , 100))
For R = 10 ^ 2 To 10 ^ 3 Step 10 ^ 2
T = R * C
st = st & R & " Om" & vbTab & "T=RC=" & T & vbLf
Next R
MsgBox st
End Sub