Visual Basic FAQ

Если рядом равные элементы, то вставить между ними ноль

Public Sub Label1_Click()
Form1.Cls
Dim n As Byte
n = Combo1.Text
ReDim a(1 To n) As Integer
Print "array A(n):"
For i = 1 To n
  a(i) = Rnd * 10 - 5
  Form1.Print "a("; i; ")="; a(i)
Next i
Dim b() As Integer
s = 0
For i = 1 To n-1
  s=s+1
  redim preserve b(1 to s)
  b(s)=a(i)
  If a(i) = a(i + 1) Then
    s=s+1
    redim preserve b(1 to s)
    b(s) =0
  End If
Next i
s=s+1
redim preserve b(1 to s)
b(s)=a(n)
Form1.Print ""
For i = 1 To s
  Form1.Print "As("; i; ")="; b(i)
Next i
End Sub

Запись опубликована on 11.12.2009 at 9:00 и размещена в рубрике: Разное. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.