Сборники задач
для подготовки к семинарским занятиям
по экономической информатике
Задачник № 1 [ Скачать файл ] (18 MB)
Задачник № 2 [ Скачать файл ] (1 MB)
Пример1: OOo Basic Calc
' Глобальные константы Const COL_PRICE_USD = 0 Const ROW_PRICE_USD = 1 Const COL_CURSE_USD = 1 Const ROW_CURSE_USD = 1 Const COL_PRICE_RUR = 2 Const ROW_PRICE_RUR = 1 Sub Main Const STEP_X = 0.01 Dim Doc As Object Dim Sheet As Object Dim cellPriceUSD As Object Dim cellCurseUSD As Object Dim cellPriceRUR As Object Dim myPriceUSD As Double Dim myCurseUSD As Double Dim myPriceRUR As Double Doc = StarDesktop.CurrentComponent Sheet = Doc.Sheets(0) cellPriceUSD = Sheet.getCellByPosition(COL_PRICE_USD, ROW_PRICE_USD) cellCurseUSD = Sheet.getCellByPosition(COL_CURSE_USD, ROW_CURSE_USD) cellPriceRUR = Sheet.getCellByPosition(COL_PRICE_RUR, ROW_PRICE_RUR) myPriceUSD = cellPriceUSD.Value myCurseUSD = cellCurseUSD.Value myPriceRUR = myCurseUSD * myPriceUSD cellPriceRUR.Value = myPriceRUR ' For x = START_X To END_X Step STEP_X ' Cell_X.Value = x ' y = 1-(x-1)^2 ' Cell_Y.Value = y ' Next x End Sub Function myConvert(ByVal myPriceUSD As Double, ByVal myCurse) As Double myConvert = myPriceUSD * myCurse End Function