Пользовательская форма

[Наталья Баева]

Помогите с задачами
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

[doober]

Пункт 1.

Private Sub CommandButton3_Click()
Dim N1 As Double, N2 As Double
Me.TextBox1.SetFocus
N1 = Val(Replace(TextBox1.Text, ",", "."))
Me.TextBox2.SetFocus
N2 = Val(Replace(TextBox2.Text, ",", "."))
S = N1 ^ N2
Label5.Caption = S
End Sub

Косинус

Private Sub CommandButton3_Click()
Dim a As Double, b As Double
a = Val(Replace(TextBox1.Text, ",", "."))
b = Cos(a)
Label3.Caption = b
End Sub

[Наталья Баева]

Replace - это что я такое не использовала?

[doober]

Функция Val распознает только точку (.) в качестве допустимого десятичного разделителя.

Функция Replace
Возвращает строку, в которой указанная подстрока заданное число раз заменена другой подстрокой.

Меняем запятую на точку и музыка играет правильно.

[Наталья Баева]

попробовала использовать эту функцию ничего не работает

[Наталья Баева]

попробовала и там и там в степенях попыталась число 4 возвести в 1/2 но в ответ получила 4
а косинусы просто не верные ответы дают хотя считают также как и при старой программе

[doober]

не 1/2 а наберите 0,5

[Наталья Баева]

0,5 работало и раньше но мне нужны не десятичные а обычные дроби веди 1/3 так не запишешь

[doober]

Тогда так

Private Sub CommandButton3_Click()
Dim N1 As Double, N2 As Double
N1 = Val(Replace(TextBox1.Text, ",", "."))
If InStr(1, TextBox2.Text, "/", vbTextCompare) > 0 Then
N2 = Split(TextBox2.Text, "")(0)) / Val(Split(TextBox2.Text, "/")(1)
Else
N2 = Val(Replace(TextBox2.Text, ",", "."))
End If
S = N1 ^ N2
Label5.Caption = S
End Sub

[Наталья Баева]

из этого
If InStr(1, TextBox2.Text, "/", vbTextCompare) > 0 Then
N2 = Split(TextBox2.Text, "")(0)) / Val(Split(TextBox2.Text, "/")(1)
ничего не поняла
мы такого не писали поэтому учитель не поверит что я сама додумалась, можно ли это записать проще?