Показать сообщение отдельно
  #1 (permalink)  
Старый 04.03.2014, 00:08
Новичок на форуме
Отправить личное сообщение для Katya1406 Посмотреть профиль Найти все сообщения от Katya1406
 
Регистрация: 04.03.2014
Сообщений: 8

задача из VBA сделанная в Java Script
Я новичок в Java Script.Подскажите пожалуйста как записать задачу из VBA в Java Script.

Private Sub CmdРасчет_Click()
'Объявление локальных переменных
Dim IntKolichestvo, IntI As Integer
Dim StrSoobschenie, StrSoobschenie2, StrVid, StrText As String
Dim SngSk1 As Single, SngSk2 As Single

CurStoimost = 0 'Подготовка к накоплению стоимости
IntI = 0
Do 'Начало тела цикла
IntI = IntI + 1
1: StrText = InputBox("Введите количество " & _
Format(IntI, "# ##0") & "-го товара", "ГиперМаркет Таргет")
If StrText = "" Then
MsgBox "Это неверно.Повторите пожалуйста попытку!!!"
GoTo 1
Else:
IntKolichestvo = CInt(StrText)
End If
2: StrText = InputBox("Введите цену " & Format(IntI, "# ##0 ") & _
"-го товара", "ГиперМаркет Таргет")
If StrText = "" Then
MsgBox "Вы снова ошиблись.Повторите попытку!!!"
GoTo 2
Else:
CurZena = CCur(StrText)
End If
CurStoimost = CurStoimost + CurZena * IntKolichestvo
3: If CurStoimost >= 150 Then
SngSk1 = CurStoimost - CurStoimost * 0.1
Else:
SngSk1 = CurStoimost
End If
4: If OptНаличные.Value = True Then
SngSk2 = CurStoimost
Else:
SngSk2 = CurStoimost + CurStoimost * 0.05
End If
CurStoimost2 = CurStoimost + (1 - (SngSk1 + SngSk2) / 100)

Loop While MsgBox("Хотели бы вы что-нибудь еще? ", vbQuestion + vbYesNoCancel, _
"ГиперМаркет Рост") = vbYes
' Завершение цикла при ответе "Нет"
TxtОплата.Text = Format(CurStoimost2, "# ##0.00")
' Нужно обеспечить согласование в предложениях
Select Case IntI
Case 1: StrVid = " вид товара"
Case 2, 3, 4: StrVid = " вида товара"
Case Else: StrVid = " видов товаров"
End Select

'Вывод результатов
StrSoobschenie = "Вы приобрели " & IntI & " " & StrVid & _
" на общую сумму " & _
Format(CurStoimost2, "# ##0.00") & " гривень." & " " & "Приходите к нам снова!!!"
LblРезультат.Caption = StrSoobschenie


End Sub
'Подготовка рабочего места к работе со следующим покупателем
Private Sub CmdСброс_Click()
LblРезультат.Caption = Empty
TxtНаличные.Text = Empty
TxtОплата.Text = Empty
TxtСдача.Text = Empty

End Sub


Private Sub Label1_Click()

End Sub

Private Sub TxtНаличные_Exit(ByVal Cancel As _
MSForms.ReturnBoolean)
'Объявление локальных переменных
Dim StrSoobschenie2 As String

'Расчет сдачи

CurNalich = CCur(TxtНаличные.Text)
CurSdacha = CurNalich - CurStoimost2
If CurSdacha < 0 Then
TxtНаличные.BackColor = vbRed
StrSoobschenie2 = "Вы недоплатили! "
Lb2Результат.Caption = StrSoobschenie2

Else:
TxtНаличные.BackColor = vbWhite
End If

TxtСдача.Text = Format(CurSdacha, "# ##0.00")


End Sub

Private Sub UserForm_Click()

End Sub
Ответить с цитированием