Visual Basic FAQ

Вывести все четные числа от m до М

Даны целые числа а1…аn. Пусть m и М— наибольшее и наименьшее из них. Вывести все четные числа от m до М, не встречающиеся среди данных в порядке убывания. Для вывода массива пользоваться элементом управления List.

Dim a(0 To 20) As Integer
Dim i As Byte
Dim k As Integer
Dim max As Integer
Dim Imax As Integer
Dim min As Integer
Dim Imin As Integer
Dim flag As Boolean

Private Sub Command1_Click()
Randomize
For i = 0 To 20 Step 1
a(i) = Rnd(1) * 100
If a(i) = 0 Then a(i) = Rnd(1) * 100
List1.AddItem a(i)
Next
max = a(0): min = a(0)
Imax = 0: Imin = 0
For i = 0 To 20 Step 1
If a(i) > max Then
  max = a(i): Imax = i
End If
If a(i) < min Then
  min = a(i): Imin = i
End If
Next
Text1.Text = max
Text2.Text = min
Text3.Text = Imin
Text4.Text = Imax
End Sub

Private Sub Command2_Click()
For k = max To min Step -1
If check(k) = True Then List2.AddItem k
Next
End Sub

Private Function check(k As Integer) As Boolean
flag = True
If k Mod 2 <> 0 Then
    flag = False
    GoTo 1
End If
For i = 0 To 20 Step 1
   If k = a(i) Then
     flag = False: GoTo 1
   End If
 Next
1: If flag = True Then check = True Else check = False
End Function

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