Страница 1 из 3
Задачи на массивы в Vb
Добавлено: 10 апр 2007, 08:27
Firefly
Помогите, пожалуйста...
Vb изучала 3 года назад.. уже ничего не помню....
А вот сейчас свалили на нас две задачи.
1. В компьютер вводится N вещественных чисел. Составить программу, выдающую на экран сумму наименьшего и наибольшего из них.
2. В компьютер вводится одно натуральное число, состоящее не более чем из пяти цифр. Составить программу, выводящую на экран значение этого числа словами.
Заранее спасибо!
Re: Задачи на массивы в Vb
Добавлено: 10 апр 2007, 11:12
Diment
по 2-му вопросу лови
Re: Задачи на массивы в Vb
Добавлено: 10 апр 2007, 11:48
Firefly
Спасибо большое))))
Осталась тока первая..)
Re: Задачи на массивы в Vb
Добавлено: 10 апр 2007, 11:51
Firefly
Diment писал(а):по 2-му вопросу лови
все работает!
БОООООЛЬШОЕ СПАСИБО!!!!
Re: Задачи на массивы в Vb
Добавлено: 10 апр 2007, 12:10
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
Re: Задачи на массивы в Vb
Добавлено: 10 апр 2007, 13:56
Firefly
Рavel, орри, что я снова туплю.... просто, действительно, ни чего не помню...
Но на форму что там ставить?
кнопку и текстовое окно?
Re: Задачи на массивы в Vb
Добавлено: 10 апр 2007, 14:18
Firefly
А мона как-нибудь первую задачку по простому написать? а то уж сильно круто там загнули... ))
если я не ошибаюсь, там можно через str как-то сделать... а вот как... не помню...
Re: Задачи на массивы в Vb
Добавлено: 10 апр 2007, 14:36
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.
Этот код просто как подсказка тебе. Ты можешь реализовать вывод результата и ввод элементов массива подругому
Re: Задачи на массивы в Vb
Добавлено: 10 апр 2007, 15:15
Firefly
thanx so much!!!
Re: Задачи на массивы в Vb
Добавлено: 10 апр 2007, 15:20
Firefly
Pavel55, он мне говорит на min, что sub и function не определены