Háша цель - поступйть в аспирантýру.的翻译和不定式是什么,不定式做的句子成份是什么?
时间: 2023-02-08 17:15:51 浏览: 69
Háша цель - поступйть в аспирантýру 的翻译是 "Háша's goal - to enter graduate school."
不定式是 "to enter",在这句话中作为目的状语。
相关问题
excel用vba编写两段代码完成以下两个任务:(1)Создайте форму расчета графика платежей по кредиту. Заведите поля, куда будут вводится дата начала кредита, срок в месяцах, процентная ставка, сумма кредита, планируемую дату платежа (в примере ниже - это 10-е число каждого месяца, т. е. пользователь выбирает число, в которое ему удобно осуществлять платеж). Выберите нужные типы полей. При нажатии на кнопке "ok" вся введеная информация должна появится на листе, аккуратно оформленная и подписанная.
Ниже представлены две части кода VBA, которые могут решить задачу:
Первый код используется для создания формы расчета графика платежей по кредиту:
```
Sub СоздатьФормуРасчетаГрафикаПлатежейПоКредиту()
Dim ДатаНачалаКредита As Date
Dim СрокКредитаВМесяцах As Integer
Dim ПроцентнаяСтавка As Double
Dim СуммаКредита As Double
Dim ДатаПланируемогоПлатежа As Date
'Запросить информацию у пользователя
ДатаНачалаКредита = InputBox("Введите дату начала кредита (в формате ГГГГ/ММ/ДД)")
СрокКредитаВМесяцах = InputBox("Введите срок кредита в месяцах")
ПроцентнаяСтавка = InputBox("Введите процентную ставку по кредиту")
СуммаКредита = InputBox("Введите сумму кредита")
ДатаПланируемогоПлатежа = InputBox("Введите планируемую дату платежа (в формате ГГГГ/ММ/ДД)")
'Добавить заголовок таблицы
Range("A1:F1").Merge
Range("A1").Value = "График платежей по кредиту"
Range("A1").Font.Size = 20
Range("A1").Font.Bold = True
'Добавить заголовки столбцов таблицы
Range("A3").Value = "Дата платежа"
Range("B3").Value = "Месяц платежа"
Range("C3").Value = "Год платежа"
Range("D3").Value = "Сумма платежа"
Range("E3").Value = "Основной долг"
Range("F3").Value = "Проценты"
'Рассчитать график платежей и заполнить таблицу
Dim i As Integer
For i = 1 To СрокКредитаВМесяцах
Dim ДатаПлатежа As Date
Dim МесяцПлатежа As Integer
Dim ГодПлатежа As Integer
ДатаПлатежа = DateSerial(Year(ДатаПланируемогоПлатежа), Month(ДатаПланируемогоПлатежа), 10)
If i > 1 Then
ДатаПлатежа = DateAdd("m", 1, Range("A" & i + 2).Value)
End If
МесяцПлатежа = Month(ДатаПлатежа)
ГодПлатежа = Year(ДатаПлатежа)
Dim СуммаПлатежа As Double
Dim ОсновнойДолг As Double
Dim Проценты As Double
СуммаПлатежа = WorksheetFunction.Pmt(ПроцентнаяСтавка / 12, СрокКредитаВМесяцах, -СуммаКредита)
ОсновнойДолг = WorksheetFunction.PPmt(ПроцентнаяСтавка / 12, i, СрокКредитаВМесяцах, -СуммаКредита)
Проценты = WorksheetFunction.IPmt(ПроцентнаяСтавка / 12, i, СрокКредитаВМесяцах, -СуммаКредита)
Range("A" & i + 3).Value = ДатаПлатежа
Range("B" & i + 3).Value = МесяцПлатежа
Range("C" & i + 3).Value = ГодПлатежа
Range("D" & i + 3).Value = СуммаПлатежа
Range("E" & i + 3).Value = ОсновнойДолг
Range("F" & i + 3).Value = Проценты
Next i
'Оформить таблицу
Range("A3:F" & СрокКредитаВМесяцах + 3).HorizontalAlignment = xlCenter
Range("A3:F" & СрокКредитаВМесяцах + 3).Borders.LineStyle = xlContinuous
Range("A3:F" & СрокКредитаВМесяцах + 3).Font.Size = 12
Range("A3:F" & СрокКредитаВМесяцах + 3).Font.Name = "Calibri"
Range("A" & СрокКредитаВМесяцах + 5).Value = "Подпись:"
Range("A" & СрокКредитаВМесяцах + 7).Value = "Дата: " & Format(Date, "ГГГГ/ММ/ДД")
End Sub
```
Второй код используется для привязки первого кода к кнопке "ОК" на форме:
```
Private Sub CommandButton1_Click()
Call СоздатьФормуРасчетаГрафикаПлатежейПоКредиту
End Sub
```
Чтобы использовать код, создайте новый Excel-файл, нажмите на кнопку "Разработчик" в меню, выберите "Вставка формы" и добавьте кнопку "ОК". Щелкните правой кнопкой мыши на кнопке "ОК" и выберите "Просмотр кода", чтобы открыть редактор VBA. Скопируйте второй код в редактор, чтобы связать его с кнопкой. Затем скопируйте первый код в редактор, чтобы создать форму расчета графика платежей по кредиту. Сохраните файл и нажмите на кнопку "ОК" для запуска формы и отображения графика платежей.
Напишите команду установки 3 разряда порта С в состояние 1 с сохранением остальных разрядов в прежнем значении
Для установки 3-го разряда порта С в состояние 1 с сохранением остальных разрядов в прежнем значении в языке программирования C можно использовать следующую команду:
```
PORTC |= (1<<3);
```
Здесь `PORTC` - имя порта, `|=` - оператор побитового ИЛИ с присваиванием, `1<<3` - сдвиг бита 1 на 3 позиции влево, что даст бинарное представление 0b00001000, соответствующее третьему разряду порта С.