сервис вопросов и ответовVisual Basic!
10-11 класс|
|
Дано целое число N (> 0). Используя один цикл, найти сумму 1! + 2! + 3! + … + N!
Alekssasha03
11 июля 2016 г., 14:30:53 (7 лет назад)
Shut4enkoirina
11 июля 2016 г., 16:43:45 (7 лет назад)
Sub z()
n = InputBox("N?")
k = 1
For i = 1 To n
k = k * i
s = s + kNext i
MsgBox (s)
End Sub
Ответить
Другие вопросы из категории
Производительность формовочной машины - 7 тарелок в одну минуту. Сколько тарелок выпустят 3 машины, работая t ч.Напечать результат вычисления. Написать
программу паскаль!! срочно!!! Заранее спасибо)
При совершении сделки купец получил 12 одинаковых по виду золотых монет. Ему стало известно, что одна из монет фальшивая и отличается от настоящей мо
неты только весом. Для определения фальшивой монеты он пронумеровал монеты числами от 1 до 12 и провел три взвешивания на рычажных весах. Обозначив через Vi – вес монеты с номером
Читайте также
Cрочно! Язык visual basic,массивы - задачи:
1)Заменить значение любого элемента массива на а
2)Определить имеются ли четные числа в массиве
3)Заменить все элементы некоторой строки на заданное число
4)Вывести все элементы N столбца и M строки
Написала код алгоритма в Visual Basic, который правильно считает элементы массива А, В, С и почему то не правильно считает Z по формуле с этими найденными
числами. В чём ошибка? вот код:
Private Sub Command1_Click()
' Описание переменных
Dim N As Single
Dim M(15) As Single
Dim A As Single
Dim B As Single
Dim C As Single
Dim Z As Single
' Описание переменных
' Вод исходных данных
N = 0
M(I) = 0
A = 1
B = 0
C = 0
' Ввод исходных данных
' Реализация алгоритма
For I = 1 To 15
N = Int(Text1.Text)
M(I) = Val(InputBox("Ввести элементы"))
Print Str(M(I))
Next I
For I = 1 To 15
If M(I) > 0 And M(I) <> 0 Then
A = A * M(I)
End If
Next I
For I = 15 To 0 Step -1
If I Mod 2 = 0 Then
If M(I) > 0 Then
B = M(I)
I = 0
End If
End If
Next I
For I = 1 To N Step 1
S = S + M(I)
Next I
C = S / N
Z = С + (А + В/ А * В + 1)
' Реализация алгоритма
' Вывод результата
Text2.Text = Str(A)
Text3.Text = Str(B)
Text4.Text = Str(C)
Text5.Text = Str(Z)
' Вывод результата
End Sub
Программа visual basic
Задание 1.разработайте программу которая будет вычислять площадь трапеции
задание 2.создайте проект который изменит цвет и размер формы
Вы находитесь на странице вопроса "Visual Basic!", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.