Что делать? - VB

Узнай цену своей работы

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

В VB написала прогу, но мне он выдает ошибку, что макрос поврежден и требуется онлайн помощь. Что делать?

Решение задачи: «Что делать?»

textual
Листинг программы
Option Explicit
Public Sub mine_01()
Dim n As Integer, m As Integer
Dim i As Integer, j As Integer, sum As Single
Dim txt As String
Randomize
n = InputBox("1"): m = InputBox("2")
ReDim A(1 To n) As Single, B(1 To m)
txt = ""
For i = 1 To n
A(i) = Rnd
txt = txt & A(i) & "   "
sum = sum + A(i)
Next i
txt = txt & Chr(13) & Chr(13)
For i = 1 To m
B(i) = Rnd
txt = txt & B(i) & "   "
sum = sum + B(i)
Next i
MsgBox txt & Chr(13) & Chr(13) & "sum = " & sum
End Sub

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


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

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

8   голосов , оценка 4 из 5
Похожие ответы