Помогите, пожалуйста, написать программу в VBA. Последовательность действительных чисел оканчивается нулем. Найти количество членов этой
последовательности.
Dim r As Single, s As String, d, v As String, A() As Single
Dim t As String, z As Integer, k As Integer, h As Integer, g As Integer
h = Rnd * 100
ReDim A(h) As Single
For i = 1 To h
A(i) = Rnd * 1000
s = CStr(A(i))
MsgBox s
d = Split(A(i), ",")
MsgBox d(0)
v = d(0)
z = Len(v)
s = Mid(v, z, 1)
If s = "0" Then t = t & CStr(A(i)) + " ": g= g+1
Next
MsgBox g
MsgBox t
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
