0 / 0 / 0
Регистрация: 20.03.2019
Сообщений: 3
1

Перевести програмный код из Excel в Visual Basic

20.03.2019, 22:43. Показов 629. Ответов 4
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
нужно перевести два программных кода из экселя в вб!
1)
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub CommandButton1_Click()
Dim n As Integer, x As Double, lnX As Double
n = Range("n")
x = Range("x")
lnX = fSum(x, n)
Range("lnX") = lnX
End Sub
 
'Код функции
Public Function fSum(x, n)
Dim lnX As Double
lnX = 0
For i = 1 To n
 lnX = lnX + (x - 1) ^ (i) / (i * (x) ^ (i))
Next
fSum = lnX
End Function
2)
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Sub sMain()
Dim U() As Double, k As Integer
k = Range("k")
ReDim U(1 To k)
sZVRnd U
sOutVek U, Range("c2")
sMax U
sMin U
End Sub
 
Sub sZVRnd(U)
For i = 1 To UBound(U)
 U(i) = Int(Rnd * 100) - 50
Next
End Sub
 
Sub sOutVek(U, R As Range)
For i = 1 To UBound(U)
 R.Cells(i, 1).Value = U(i)
Next
End Sub
 
Sub sMax(U)
mx = -1E+307
For i = 1 To UBound(U)
 If U(i) > mx Then mx = U(i): t = i
Next
Range("max") = mx
Range("t") = t
End Sub
 
Sub sMin(U)
nx = 1E+307
For i = 1 To UBound(U)
 If U(i) < nx Then nx = U(i): p = i
Next
Range("min") = nx
Range("p") = p
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.03.2019, 22:43
Ответы с готовыми решениями:

Нужно написать програмный код на Visual Basic
Уже несколько часов сижу над этой программой . Напишите код если не трудно

Нужно написать програмный код на Visual Basic
Помогите написать программный код

Перевести код с Visual Basic
Есть код программы сделанный в visual basic нужно написать в c# Private Sub...

Перевести код с Visual Basic 6.0
Dim mytext As String Dim allmytext As String Private Sub Command1_Click() Picture1.Cls Dim D...

4
es geht mir gut
11271 / 4753 / 1183
Регистрация: 27.07.2011
Сообщений: 11,439
20.03.2019, 23:45 2
Цитата Сообщение от dawe4ka Посмотреть сообщение
нужно перевести два программных кода из экселя в вб!
Это приказ ! ?
0
0 / 0 / 0
Регистрация: 20.03.2019
Сообщений: 3
20.03.2019, 23:58  [ТС] 3
что вы, что вы...

Добавлено через 10 минут
*excel
0
es geht mir gut
11271 / 4753 / 1183
Регистрация: 27.07.2011
Сообщений: 11,439
21.03.2019, 06:52 4
Цитата Сообщение от dawe4ka Посмотреть сообщение
Range("lnX") = lnX
А в Excel этот код работает ? Или используются (зачем только ?) именованные диапазоны ?

Добавлено через 3 минуты
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Command1_Click()
Dim n As Integer, x As Double, lnX As Double
n = Val(InputBox("n", , 4))
x = Val(InputBox("x", , 5))
lnX = fSum(x, n)
MsgBox "lnX = " & lnX
End Sub
 
'Код функции
Public Function fSum(x, n)
Dim lnX As Double
lnX = 0
For i = 1 To n
lnX = lnX + (x - 1) ^ (i) / (i * (x) ^ (i))
Next
fSum = lnX
End Function
0
0 / 0 / 0
Регистрация: 20.03.2019
Сообщений: 3
21.03.2019, 08:57  [ТС] 5
в Exсel код работает. Просто для лабораторной нужен вот этот код, только в вб ;(
0
21.03.2019, 08:57
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.03.2019, 08:57
Помогаю со студенческими работами здесь

Можно ли перевести код из JS в Visual Basic
Есть вот такой вот код на JavaScript... Его необходимо перевести в Visual Basic 6.0 .. Может мне...

Перевести код с Visual Basic в CSharp
Добрый день, не могли бы вы мне помочь с переводом куска кода из VB в C#. Буду очень признателен. ...

Перевести код из Delphi на Visual Basic
Здравствуйте, помогите пожалуйста перевести код из Delphi на Visual Basic Задача: Создать...

Перевести код из Visual Basic на С++ builder
ктонибуть знает как перевести код из Visual Basic на С++ builder: Declare Function Name Lib...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru