Вычислить значение суммы - VB (62499)
Формулировка задачи:
Даны два одномерные массивы чисел Х и Т, каждый из которых состоит из 12 элементов. Вычислить:
Ето нада сделать в visual basic.Но у меня не получается.Плз напешите кто нибудь
Решение задачи: «Вычислить значение суммы»
textual
Листинг программы
Private Sub Command1_Click() Dim X(12) As Single, T(12) As Single Dim A!, S!, P! Dim i%, st1 As String, st2 As String Randomize (Timer) S = 0: P = 1: st1 = "": st2 = "" For i = 1 To 12 X(i) = Int(Rnd * 10): st1 = st1 & X(i) & " " T(i) = Int(Rnd * 10): st2 = st2 & T(i) & " " If i < 8 Then S = S + (X(i) - T(i)) Else P = P * (X(i) - T(i)) Next i MsgBox st1 & vbLf & _ st2 & vbLf & _ "A=" & S & " + " & P & "=" & S + P End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д