Рынок информационных услуг

     var1 /= var2

     ' The value of var1 is now 4. 

     Оператор \=

     Делит значение переменной или свойства на значение выражения и присваивает  целочисленный результат переменной или свойству.

     variableorproperty \= expression

     Компоненты

     variableorproperty

     Обязательный. Любая числовая переменная или свойство.

     expression

     Обязательный. Произвольное числовое выражение.

     Заметки

     Элемент с левой стороны оператора  \= может быть простой скалярной переменной, свойством или элементом массива. Переменная или свойство не могут быть ReadOnly (Visual Basic). Оператор \= присваивает значение, стоящее справа от него, переменной или свойству, расположенному слева.

     Перегрузка

     Оператор  \ может быть перегружен; это означает, что класс или структура может переопределить его поведение, если операнд имеет тип соответствующего класса или структуры. Перегрузка оператора \ влияет на тип выполнения оператора \=. Если в коде используется оператор \= для класса или структуры, перегружающей \, убедитесь, что его переопределенное выполнение понятно.

     В следующем примере оператор \= используется для деления значения одной переменной типа Integer на значение другой переменной и присваивания целочисленного результата первой переменной.

     Dim var1 As Integer = 10

     Dim var2 As Integer = 3

     var1 \= var2

     ' The value of var1 is now 3. 

     Оператор ^= (Visual Basic)

     Возводит  значение переменной или свойства в  степень, равную выражению, и присваивает  результат переменной или свойству.

     variableorproperty ^= expression

     Компоненты

     variableorproperty

     Обязательный. Любая численная переменная или  любое свойство.

     expression

     Обязательный. Произвольное числовое выражение.

     Заметки

     Элемент с левой стороны оператора  ^= может быть простой скалярной переменной, свойством или элементом массива. Переменная или свойство не могут быть ReadOnly (Visual Basic). Оператор ^= присваивает значение, стоящее справа от него, переменной или свойству, расположенному слева.

     Visual Basic всегда выполняет возведение  в степень в Тип данных Double (Visual Basic). Операнды любого другого типа преобразуются в Double. Результатом является всегда Double.

     Значение expression может быть дробным, отрицательным  или сразу обоими.  
 

     Перегрузка

     Оператор Оператор ^ (Visual Basic) может быть перегружен; это означает, что класс или структура может переопределить его действие, если операнд имеет тип класса или структуры. Перегрузка оператора ^ влияет на тип выполнения оператора ^=. Если в коде используется оператор ^= для класса или структуры, перегружающей ^, убедитесь, что его переопределенное выполнение вам понятно.

     В следующем примере оператор ^= используется для возведения переменной типа Integer в степень, равную второй переменной, и для присвоения значения первой переменной.

     Dim var1 As Integer = 10

     Dim var2 As Integer = 3

     var1 ^= var2

     ' The value of var1 is now 1000. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Задача 3 

     Составить программу расчета  коэффициента самофинансирования предприятия по формуле:

       ,

     Где С_с – собственные средства предприятия, руб.; И – общая сумма инвестиций, руб. Общая сумма инвестиций изменяется в пределах от 1000 до 2000 руб. с шагом 100 тыс. руб. (С_с = 3000 руб.). 

     В задачах необходимо составить программы  на алгоритмическом языке Visual Basik. Причем программы должны быть написаны в двух вариантах: в первом варианте необходимо использовать операторусловного перехода If...GoTo, а во втором - операторы цикла For...To...Step, Next 
 

Dim Ss As Integer         'переменная Ss типа "Целое" - собственные  средства

Dim IStart As Integer     'переменная IStart типа "Целое" - сумма  инвестиций стартовая

Dim IEnd As Integer       'переменная IEnd типа "Целое" - сумма  инвестиций конечная

Dim StepS As Integer      'переменная StepS типа "Целое" - шаг  увеличения 

Private Sub Command1_Click()

Ss = 3000

IStart = 1000

IEnd = 2000

StepS = 100 

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''Расчет первого способа'''''''''''''''''''''

Dim k As Integer             'переменная k типа "Целое" - для  добавления данных в ListView1

Dim Ks1 As Double            'переменная Ks1 типа "Вещественное" - коэффициент самофинансирования (один  на конце значит для расчета  первого способа)

Dim ITmp1 As Integer         'переменная ITmp1 типа "Целое" (один  на конце значит для расчета  первого способа)

k = 0 

ITmp1 = IStart

ListView1.ListItems.Clear         'чистим таблицу ListView1 

start:

Ks1 = Ss / ITmp1

k = k + 1

ListView1.ListItems.Add k, "K" & k, CStr(Ss)

ListView1.ListItems.Item(k).SubItems(1) = CStr(ITmp1)

ListView1.ListItems.Item(k).SubItems(2) = CStr(Ks1)

ITmp1 = ITmp1 + StepS

If ITmp1 <= IEnd Then GoTo start:

'''''''''''''''''''''''''''''''''''''Конец расчета первого способа'''''''''''''''''''''''''''''''''''''''''''''''

 

End Sub 

Способ 1 (If… GoTo)

Сс          И              Коэф. самофинансирования Кс

3000       1000         3

3000       1100         2,72727272727273

3000       1200         2,5

3000       1300         2,30769230769231

3000       1400         2,14285714285714

3000       1500         2

3000       1600         1,875

3000       1700         1,76470588235294

3000       1800         1,66666666666667

3000       1900         1,57894736842105

3000       2000         1,5 

Private Sub Command2_Click()

Ss = 3000

IStart = 1000

IEnd = 2000

StepS = 100 

'''''''''''''''''''''''''''''''''''''''''''''''''''''''Расчет второго способа'''''''''''''''''''''''''''''

Dim k As Integer             'переменная k типа "Целое" - для  добавления данных в ListView2

Dim Ks2 As Double            'переменная Ks1 типа "Вещественное" - коэффициент самофинансирования (два  на конце значит для расчета  второго способа)

Dim ITmp2 As Integer         'переменная ITmp1 типа "Целое" (два  на конце значит для расчета  второго способа) 

k = 0

ListView2.ListItems.Clear         'чистим таблицу ListView2

For ITmp2 = IStart To IEnd Step StepS

    Ks2 = Ss / ITmp2

    k = k + 1

    ListView2.ListItems.Add k, "K" & k, CStr(Ss)

    ListView2.ListItems.Item(k).SubItems(1) = CStr(ITmp2)

    ListView2.ListItems.Item(k).SubItems(2) = CStr(Ks2)

Next ITmp2 

''''''''''''''''''''''''''Конец расчета второго способа'''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 

End Sub 

Способ 2 (For…To…STEP…NEXT)

Сс          И              Коэф. самофинансирования Кс

3000       1000         3

3000       1100         2,72727272727273

3000       1200         2,5

3000       1300         2,30769230769231

3000       1400         2,14285714285714

3000       1500         2

3000       1600         1,875

3000       1700         1,76470588235294

3000       1800         1,66666666666667

3000       1900         1,57894736842105

3000       2000         1,5

     Задача 13 

     Составить программу расчета  средней квадратической взвешенной по формуле:

      ,

     где - варианты, – частоты. 

     В задачах необходимо составить программы  на алгоритмическом языке Visual Basik. Причем программы должны быть написаны в двух вариантах: в первом варианте необходимо использовать операторусловного перехода If...GoTo, а во втором - операторы цикла For...To...Step, Next 
 

     Dim X As Long       'переменная  Х типа "длинное целое" - варианты

     Dim F As Long       'переменная F типа "длинное целое" - частоты

     Dim SummX As Long   'переменная SummX типа "длинное  целое" - для расчета суммы X

     Dim SummF As Long   'переменная SummF типа "длинное  целое" - для расчета суммы F

     Dim XSr As Double   'переменная XSr типа "Вещественное" - для расчета суммы средней  квадратичной

     Dim k As Integer    'переменная k типа "Целое" - для добавления данных в таблицы  (ListView1,ListView2)

     Private Sub Command1_Click()

     Dim ITmp1 As Integer         'переменная ITmp1 типа "Целое" (один на конце  значит для расчета первого  способа)

     X = CInt(Combo1.Text)        'помещаем  значение поля "варианты" в  переменную Х

     F = CInt(Combo2.Text)        'помещаем  значение поля "частота" в  переменную F 

     SummX = 0

     ITmp1 = 1

     calcX:

     SummX = SummX + ITmp1 * ITmp1    'вычисляем промежуточную  сумму "варианты"

     ITmp1 = ITmp1 + 1

     If ITmp1 <= X Then GoTo calcX 

     SummF = 0

     ITmp1 = 1

     calcF:

     SummF = SummF + ITmp1            'вычисляем промежуточную сумму "частоты"

     ITmp1 = ITmp1 + 1