1.Стовіріть програму для обчислення довжини гіпотенузи прямокутного трикутника за заданими катетами 2.Обчислити відношення добутку цифр наткрального трицифрового числа до їх суми 3.N школяр ділять порівну m яблук,залишок,що не ділиться,залишають у кошику.Вивести кількість яблук,яку отримає кожен школяр,та кількість яблук у кошику.
Module Module1
Sub Main()
Dim n, i, s As Integer
Console.Write("Введите число N")
n = Console.ReadLine
s = 0
For i = 1 To n
s = s + i * i
Next
Console.Write(s)
n = Val(Console.ReadLine)
End Sub
End Module
2. Приложение Windows Forms:
На форме 3 объекта:
TextBox1 - для ввода N
Textbox2 - для вывода суммы квадратов
Button1 - чтобы запустить процесс вычислений
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i, s As Integer
s = 0
For i = 1 To Val(TextBox1.Text)
s = s + i * i
Next
TextBox2.Text = s
End Sub
End Class