Составить программу в вижуал бэйсик:1) среди всех трехзначных положительных чисел выбрать...

Question

Составить программу в вижуал бэйсик:
1) среди всех трехзначных положительных чисел выбрать и вывести на экран только кратные трем и подсчитать их количество.
2)найти произведение К членов последовательности: -1,3,7....

Comments

а вывод куда делаем, в форму или в msgbox?

---

в первой задаче вывести на лист эксель все числа, а msgbox вывести количество чисел

---

во второй вывод msgbox

---

Уже сделал, не дождался ответа

---

благодарю) буду искать ошибки у себя))

---

Я думал, VB. В следующий раз уточняй, что решение надо в VBA для Excel

---

хорошо, кстати в последней надо было шаг указать)а в первой len что за функция?

---

Шаг учитывается при расчете значения произведения. А k здесь именно число членов, а не их значение

---

len - длина строки. В варианте для Excel не используется.

---

В смысле, не вообще в Экселе, а в написанной проге)))

Answer 1

1. Строка получается слишком длиной, поэтому разбиваем ее на две части
Sub Z1()
Dim n As Integer
Dim i As Integer
Dim s1 As String
Dim s2 As String
For i = 100 To 999
  If i Mod 3 = 0 Then
    n = n + 1
    If Len(s1) < 1024 Then
        s1 = s1 & i & " "
        Else
            s2 = s2 & i & " "
        End If
    End If
Next i
MsgBox (s1)
If Len(s2) > 0 Then MsgBox ("Продолжение: " & s2)
MsgBox ("Их количетво: " & n)
End Sub
1. Вариант дла Excel. Срабатывает на двойном клике мышки. Можешь приписать любому другому событию
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim n As Integer
Dim i As Integer
For i = 100 To 999
  If i Mod 3 = 0 Then
    n = n + 1
    Cells(n, 1) = i
    End If
Next i
MsgBox ("Их количество: " & n)
End Sub

2.
Sub z2()
Dim k As Integer
Dim p As Double
k = InputBox("Введите k:")
p = 1
For i = 1 To k
    p = p * (-1 + 4 * (i - 1))
Next i
MsgBox ("Произведение: " & p)
End Sub