Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
1 / 1 / 0
Регистрация: 09.06.2016
Сообщений: 32
1

Составить процедуру, которая выводит квадраты первых 40 чисел в виде таблицы

06.05.2018, 17:33. Показов 896. Ответов 1
Метки нет (Все метки)

Составить процедуру, которая выводит квадраты первых 40 чисел в виде таблицы (в каждой строке 4 числа).

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim b(1 To 100, 1 To 100) As Integer
Dim m, n, k1, k2 As Integer
Private Sub CommandButton1_Click()
n = 10
m = 4
 
For i = 1 To n
 For j = 1 To m
 
  Label2 = Label2 & Format(b(i, j), "    0")
  Next j
  Label2 = Label2 & vbLf
Next i
 
End Sub
Сделал просто вывод в виде таблицы. Подскажите, как сделать квадрат первых 40 чисел и как составить с этим процедуру.
Спасибо.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.05.2018, 17:33
Ответы с готовыми решениями:

Составьте программу, которая выводит на экран квадраты N первых натуральных чисел.
Конец четверти, учитель напряг))))) 1. Составьте программу, которая выводит на экран квадраты N...

Составить программу, которая выводит квадраты чисел
Составить программу, которая выводит квадраты чисел от 4 до 9, а также результаты умножения этих...

Составить алгоритм и написать программу, которая вычисляет и выводит на экран в виде таблицы значения функции,
Составить алгоритм и написать программу, которая вычисляет и выводит на экран в виде таблицы...

Составить алгоритм и написать программу, которая вычисляет и выводит на экран в виде таблицы значения функции,
Составить алгоритм и написать программу, которая вычисляет и выводит на экран в виде таблицы...

1
15037 / 6364 / 1726
Регистрация: 24.09.2011
Сообщений: 9,976
06.05.2018, 18:57 2
Лучший ответ Сообщение было отмечено Jupin как решение

Решение

Цитата Сообщение от Jupin Посмотреть сообщение
как сделать квадрат
Visual Basic
1
2
3
4
5
6
7
For i = 1 To n
 For j = 1 To m
  k2=k2+1
  Label2 = Label2 & Format(k2^2, "    0")
  Next j
  Label2 = Label2 & vbLf
Next i
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.05.2018, 18:57

Составить алгоритм и написать программу, которая вычисляет и выводит на экран в виде таблицы значения функции
Составить алгоритм и написать программу, которая вычисляет и выводит на экран в виде таблицы...

Разработайте программу, которая содержит процедуру Sum(N,S), которая находит сумму N первых натуральных и найти сумму первых 10,20 чисел
PASCAL Помогите пожалуйста! Решите, заранее спасибо! Разработайте программу, которая содержит...

Создайте процедуру, которая находит и выводит на экран слово, составленное из первых букв всех слов
Дана последовательность слов, разделенных пробелами, в конце точка. Создайте процедуру, которая...

Написать программу,которая выводит на экран квадраты всех целых чисел от 7 до 20
Написать программу,которая выводит на экран квадраты всех целых чисел от 7 до 20.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.