1. Чатуранга — древнеиндийская игра, считающаяся прародителем шахмат.Бобби Фишер остался непобежденным чемпионом мира, потому что отказался играть матч.
2. Ученый - Михаил Васильевич Ломоносов. Диалог: — «Что, сударь, я полагаю, это ученость выглядывает оттуда?» — «Нисколько», - ответил Ломоносов. - «Это глупость заглядывает туда.» (Портрет Ломоносова - в прилагаемом файле).
3. По моде того времени у Моны Лизы выбриты брови. Картина находится в Лувре (Париж, Франция). Адрес web-сайта музея ищите сами (здесь ссылки нельзя размещать).
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
1. Чатуранга — древнеиндийская игра, считающаяся прародителем шахмат.Бобби Фишер остался непобежденным чемпионом мира, потому что отказался играть матч.
2. Ученый - Михаил Васильевич Ломоносов.
Диалог:
— «Что, сударь, я полагаю, это ученость выглядывает оттуда?»
— «Нисколько», - ответил Ломоносов. - «Это глупость заглядывает туда.»
(Портрет Ломоносова - в прилагаемом файле).
3. По моде того времени у Моны Лизы выбриты брови. Картина находится в Лувре (Париж, Франция). Адрес web-сайта музея ищите сами (здесь ссылки нельзя размещать).
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