Вычислить сумму, которая удерживается с работника в счет погашения потребительского кредита и кредита на жилищное строительство

@Татьяна77 · Регистрация: 11.12.2010

Студворк — интернет-сервис помощи студентам

Нужно сделать задачи в Visual Basic 6.0
Задание 1!!!!!!
Вычислить сумму, которая удерживается с работника в счет погашения потребительского кредита и кредита на жилищное строительство.

В окно «Начислено» вводится сумма, которая начислена работнику. С помощью кнопок-переключателей указываются виды кредита, по которым имеется задолженность. В текстовом окне «Удержано» должна выдаваться сумма, которая удерживается с работника в счет погашения кредита. Она вычисляется следующим
образом:
• если имеется задолженность по обоим видам кредита, то с работника удерживается 20% от начисленной суммы;
• если имеется задолженность по какому-либо одному кредиту, то с работника удерживается 10% от начисленной суммы;
• если нет задолженности по кредитам, то в окне «Удержано» должно выводиться сообщение «Нет удержаний».

Никак не получается сделать правильный код!!!!!!Помогите, пожалуйста, кто может!!!! Заранее спасибо!!!!

@gaw · 11.12.2010, 21:26

Сообщение от Татьяна77

Задание 1!!!!!!

что сие значит ?

да, и, если возможно, покажите свой

Сообщение от Татьяна77

не получается сделать правильный код!!!!!!

@Татьяна77 · 11.12.2010, 21:29 **[ТС]**

Ну всего их ещё 9))))) Я по чуть-чуть каждого сделала, а самое главное, т.е код, с ошибками всегда!!!!

@gaw · 11.12.2010, 21:35

давайте оптом, чего уж там;)

@CyBOSSeR · 11.12.2010, 21:37

Комментарий модератора

Никакого опта. Одна тема - один вопрос.

@Татьяна77 · 11.12.2010, 21:48 **[ТС]**

Сообщение от gaw

что сие значит ?

да, и, если возможно, покажите свой

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim N  As Single, U As String
 
Private Sub CmdВычислить_Click()
 N = Val(TxtНачислено.Text)
 U = Val(TxtУдержано.Text)
If Chk1.Value And Chk2.Value = True Then
  U = 0.2 * N: TxtУдержано.Text = Str(U)
ElseIf Chk1.Value Or Chk2.Value = True Then
  U = 0.1 * N: TxtУдержано.Text = Str(U)
Else
  U = "Нет удержаний"
 TxtУдержано.Text = Str(U)
 End If
End Sub
 
Private Sub ÑmdВыход_Click()
 End
End Sub

Вот он))))

@gaw · 11.12.2010, 21:58

Visual Basic
1
2
3
4
5
6
7
8
9
Private Sub Check1_Click(Index As Integer) 'Index---0,1
i = Check1(0).Value + Check1(1).Value
s = Val(Text1.Text)
If s > 0 Then
 Label1 = Choose(i + 1, "Нет удержаний", "Удержано:  " & 0.1 * s, "Удержано:  " & 0.2 * s)
Else
MsgBox "?"
End If
End Sub

@Татьяна77 · 11.12.2010, 22:05 **[ТС]**

Чё то не работает(((((

@gaw · 11.12.2010, 22:36

на форме:
-- Check1(0), Check1(1) --флажки видов кредита
-- Text1 -- зарплата
-- Label1 -- сообщение

@Татьяна77 · 11.12.2010, 23:38 **[ТС]**

[QUOTE=gaw;1191941]на форме:
-- Check1(0), Check1(1) --флажки видов кредита
-- Text1 -- зарплата
-- Label1 -- сообщение[/QUOTE

Сообщение "Нет удержаний" должна выдаваться в текстовом окне Удержано!!
Не работает этот вариант,который вы написали((((( Но всё-равно спасибо!!!

@gaw · 11.12.2010, 23:52

иак замените Label1 на Text1

Новые блоги и статьи Все статьи Все блоги /
Подключение Box2D v3 к SDL3 для Android: физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .
Влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .

@Татьяна77 0 / 0 / 0 Регистрация: 11.12.2010 Сообщений: 6

	Вычислить сумму, которая удерживается с работника в счет погашения потребительского кредита и кредита на жилищное строительство 11.12.2010, 21:18. Показов 2702. Ответов 10 Метки нет (Все метки) Нужно сделать задачи в Visual Basic 6.0 Задание 1!!!!!! Вычислить сумму, которая удерживается с работника в счет погашения потребительского кредита и кредита на жилищное строительство. В окно «Начислено» вводится сумма, которая начислена работнику. С помощью кнопок-переключателей указываются виды кредита, по которым имеется задолженность. В текстовом окне «Удержано» должна выдаваться сумма, которая удерживается с работника в счет погашения кредита. Она вычисляется следующим образом: • если имеется задолженность по обоим видам кредита, то с работника удерживается 20% от начисленной суммы; • если имеется задолженность по какому-либо одному кредиту, то с работника удерживается 10% от начисленной суммы; • если нет задолженности по кредитам, то в окне «Удержано» должно выводиться сообщение «Нет удержаний». Никак не получается сделать правильный код!!!!!!Помогите, пожалуйста, кто может!!!! Заранее спасибо!!!! 0

@Татьяна77 0 / 0 / 0 Регистрация: 11.12.2010 Сообщений: 6
	11.12.2010, 21:29 [ТС]
	Ну всего их ещё 9))))) Я по чуть-чуть каждого сделала, а самое главное, т.е код, с ошибками всегда!!!! 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	11.12.2010, 21:35
	давайте оптом, чего уж там;) 0

@Татьяна77 0 / 0 / 0 Регистрация: 11.12.2010 Сообщений: 6
	11.12.2010, 22:05 [ТС]
	Чё то не работает((((( 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	11.12.2010, 22:36
	на форме: -- Check1(0), Check1(1) --флажки видов кредита -- Text1 -- зарплата -- Label1 -- сообщение 0

@Татьяна77 0 / 0 / 0 Регистрация: 11.12.2010 Сообщений: 6
	11.12.2010, 23:38 [ТС]
	[QUOTE=gaw;1191941]на форме: -- Check1(0), Check1(1) --флажки видов кредита -- Text1 -- зарплата -- Label1 -- сообщение[/QUOTE Сообщение "Нет удержаний" должна выдаваться в текстовом окне Удержано!! Не работает этот вариант,который вы написали((((( Но всё-равно спасибо!!! 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	11.12.2010, 23:52
	иак замените Label1 на Text1 0

Вычислить сумму, которая удерживается с работника в счет погашения потребительского кредита и кредита на жилищное строительство

Решение