Visual Basic FAQ

Вывести на экран все четные элементы и определить количество нечетных элементов.

'тоже самое, что уже было предложено - только с вводом количества элементов в InputBox. Результат выводится в окне OUTPUT
Sub Main()
Dim intMyArray() As Integer
Dim intNumItmArray As Integer
Dim intResult As Integer = 1
Dim intCnt As Integer
Dim sglTmp As Single
Dim strResult As String = ""
Do While strResult = "" Or IsNumeric(strResult) <> True
strResult = InputBox("Введите кол-во элементов массива", "Массив")
If strResult = "" Or IsNumeric(strResult) <> True Then MsgBox("Введено неверное число!", MsgBoxStyle.Exclamation)
Loop
intNumItmArray = CInt(strResult)
ReDim intMyArray(intNumItmArray)
For intCnt = 0 To intNumItmArray - 1
intMyArray(intCnt) = intCnt ^ 2 + 1
sglTmp = (intCnt + 1) Mod 2
If sglTmp = 0 Then
Debug.WriteLine(intCnt + 1 & "-й элемент массива " & intMyArray(intCnt) & vbCrLf)
Else
If intCnt <> 0 Then intResult += 1
End If
Next intCnt
Debug.WriteLine("Количество нечетных элементов массива " & intResult)
End Sub

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