1 - моделью 2 - меньше информации 3 - глобус, макет здания, муляж яблока, манекен 4 - рисунок, фотография 5 - знаковой 6 - смешанной 7 - автомобиль — техническое описание автомобиля, город — путеводитель по городу 8 - существенные признаки объекта-оригинала 9 - разные модели объекта 10 - физическая карта, график зависимости расстояния от времени, схема узора для вязания крючком, схема метро 11 - словесное описание, формула 12 - знаковой 13 - смешанной 14 - болт — чертеж болта, мелодия — нотная запись мелодии
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
2 - меньше информации
3 - глобус, макет здания, муляж яблока, манекен
4 - рисунок, фотография
5 - знаковой
6 - смешанной
7 - автомобиль — техническое описание автомобиля, город — путеводитель по городу
8 - существенные признаки объекта-оригинала
9 - разные модели объекта
10 - физическая карта, график зависимости расстояния от времени, схема узора для вязания крючком, схема метро
11 - словесное описание, формула
12 - знаковой
13 - смешанной
14 - болт — чертеж болта, мелодия — нотная запись мелодии
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