Вычислить значение суммы - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 3.75 из 5