пользовательская форма
Добавлено: 06 июн 2013, 22:15
помогите с задачами
Помогите с задачами
1)Организовать в программе выполнение операции возведения в степень, как в целую, так и в дробную. Ввод данных и вывод результата производить через форму.
2)Создать программу под названием «Спортлото», в которой для заданного через форму количества чисел от двух до шести определяются числа, лежащие в интервале от 1 до 99. Вод данных и вывод результата должны быть организованы с помощью пользовательской формы.
3) Организовать в программе вычисление тригонометрической функции косинуса для задаваемого через форму угла в градусах и вывод в форму полученного результата.
в первой смогла возвести но только в целых числа а чтоб возвести в дробные(1/2,1/3) не получается
во второй могу вывести одно число но не знаю как вывести столько сколько будет задано
в третьей не знаю какую функцию использовать не которые работают но результат не верный
Помогите с задачами
1)Организовать в программе выполнение операции возведения в степень, как в целую, так и в дробную. Ввод данных и вывод результата производить через форму.
2)Создать программу под названием «Спортлото», в которой для заданного через форму количества чисел от двух до шести определяются числа, лежащие в интервале от 1 до 99. Вод данных и вывод результата должны быть организованы с помощью пользовательской формы.
3) Организовать в программе вычисление тригонометрической функции косинуса для задаваемого через форму угла в градусах и вывод в форму полученного результата.
в первой смогла возвести но только в целых числа а чтоб возвести в дробные(1/2,1/3) не получается
Код: Выделить всё
Private Sub CommandButton3_Click()
Me.TextBox1.SetFocus
N1 = Val(TextBox1.Text)
Me.TextBox2.SetFocus
N2 = Val(TextBox2.Text)
S = N1 ^ N2
Label5.Caption = S
End Sub
во второй могу вывести одно число но не знаю как вывести столько сколько будет задано
Код: Выделить всё
Private Sub CommandButton1_Click()
b = Val(TextBox1.Text)
a = Int(99 * Rnd + 1)
????
Label4.Caption = "Числа-победители: " & a
End Sub
в третьей не знаю какую функцию использовать не которые работают но результат не верный
Код: Выделить всё
Private Sub CommandButton3_Click()
a = Val(TextBox1.Text)
//функция косинуса
Label3.Caption = b
End Sub