Задачи на массивы в Vb

[Firefly]

Помогите, пожалуйста...

Vb изучала 3 года назад.. уже ничего не помню....
А вот сейчас свалили на нас две задачи.

1. В компьютер вводится N вещественных чисел. Составить программу, выдающую на экран сумму наименьшего и наибольшего из них.

2. В компьютер вводится одно натуральное число, состоящее не более чем из пяти цифр. Составить программу, выводящую на экран значение этого числа словами.

Заранее спасибо!

[Diment]

по 2-му вопросу лови

[Firefly]

Спасибо большое))))

Осталась тока первая..)

[Firefly]

по 2-му вопросу лови

все работает!
БОООООЛЬШОЕ СПАСИБО!!!!

[Pavel55]

Точно не знаю, попробуй это

Код: Выделить всё

Option Explicit
Dim iArray() As Single
Dim i%, n%, m!
Sub Макрос1()
    n = Application.InputBox("Колличество элементов в массиве будет:", "Размерность массива", 3)
    ReDim iArray(1 To n)
    For i = 1 To n
        iArray(i) = Application.InputBox("Введите " & i & "-е значение для массива", "Заполнение массива", , , , , , 1)
        If iArray(i) = 0 Then i = i - 1 'защита от ввода нуля и нажатия кнопки Отмена
    Next
    m = Application.Min(iArray()) + Application.Max(iArray())
    MsgBox "Сумма наименьшего и наибольшего элементов равна: " & m
End Sub

[Firefly]

Рavel, орри, что я снова туплю.... просто, действительно, ни чего не помню...
Но на форму что там ставить?
кнопку и текстовое окно?

[Firefly]

А мона как-нибудь первую задачку по простому написать? а то уж сильно круто там загнули... ))
если я не ошибаюсь, там можно через str как-то сделать... а вот как... не помню...

[Pavel55]

) это я немножко ту... я написал на VBA, я забыл, что тебе на VB ). У меня, к сожалению, VB под рукой нет. Поэтому по памяти )

Кинь на форму TextBox1 и кнопку. Щёлкни 2 раза на кнопке

в модуле формы:

Код: Выделить всё

Private Sub CommandButton1_Click()
    Me.Hide
    n = Me.TextBox1.Text 'Колличество элементов в массиве
    ReDim iArray(1 To n)
    For i = 1 To n
        iArray(i) = InputBox("Введите " & i & "-е значение для массива", "Заполнение массива")
        If iArray(i) = 0 Then i = i - 1 'защита от ввода нуля и нажатия кнопки Отмена
    Next
    Me.TextBox1.Text = Min(iArray()) + Max(iArray())  'надеюсь Min, Max в VB есть )
    Me.Show
End Sub

А в самом верху модуля пропиши
Dim iArray() As Single
Dim i%, n%, m!

Когда запустишь программу, введи в TextBox1 число - это будет размерность массива. Например, 3, нажимаешь на кнопку, у тебя 3 раза попросят ввести число, а потом ответ появится в TextBox1.

Этот код просто как подсказка тебе. Ты можешь реализовать вывод результата и ввод элементов массива подругому

[Firefly]

thanx so much!!!

[Firefly]

Pavel55, он мне говорит на min, что sub и function не определены