Sub sumka() Dim a1 As Byte Dim a2 As Byte Dim sum As Byte a1 = Range("A1").Value ' wartość a1 jest pobierana z komórki A1 a2 = Range("B1").Value ' wartość a2 jest pobierana z komórki B1 sum = a1 + a2 ' obliczenie wartości zmiennej sum Range("C1").Value = sum ' kopiowani...
zadania treningowe do kartkówki z infy: 1. Narysuj schematy blokowe następujących algorytmów: a. iteracyjnego obliczenia n-tej potęgi liczby m. Zakładamy, że nie ma operatora potęgowania...
'Zapisane niżej procedury należy skopiowac do edytora VBA i testować. Sub sumka() Dim a1 As Byte Dim a2 As Byte Dim sum As Byte a1 = Range("A1").Value ' wartość a1 jest pobierana z komórki A1 a2 = Range("B1").Value ' wartość a2 jest pobierana z komórki B1 sum = a1 + a2 ' oblicze...
Sub silnik() 'iteracyjne obliczenie n! Dim n As Byte, i As Byte, sil As Long sil = 1 'początkowa wartość n!, wykorzystywana także gdy n=0 n = InputBox("Podaj n") ' wprowadzenie danej wejściowej For i = 1 To n 'uruchomienie pętli For sil = i * sil 'do wartości sil w każdym cyklu pętli domna...
Zadanie 1 (6 pkt.). Narysuj schemat blokowy algorytmu sumowania wyrazów ciągu o wyrazie ogólnym ai = 2/(i(i+1)) od i = 1 do momentu gdy ai (…) … Zadanie 1 (6 pkt.). Narysuj schemat blokowy algorytmu sumowania wyrazów ciągu o wyrazie ogó...
Zad 1. (10 pkt) Stwórz formularz (wzór poniżej), składający się z 4 etykiet, 2 pól tekstowych, 3 przycisków i 1 listy o stałym rozmiarze. (2 pkt) Napisz procedurę uruchamiającą formularz. (1 pkt) Przycisk „Wczytaj dane” wczytuje dane z arkusza „ceny odczynników” (plik kol2.xls, arkusz 1), wprowad...
Kolokwium nr 2 (VBA) Imię i nazwisko 70 min. Max Uzysk. 1. Skopiuj z dysku nauczycielskiego pliki: baza.xls i baza.txt 2. Wykonaj formularz o rozmiarach wys.=190, szer.=245, składający się z elementów zaprezentowanych na rysunku obok (4 etykiety, 4 pola tekstowe, 4 przyciski polecenia). Wsz...
Kolokwium nr 2 (VBA) Imię i nazwisko 70 min. Plik: termodynamika_1.xls Max Uzysk. 1. Wykonaj formularz o rozmiarach wys.=245, szer.=300, składający się z elementów zaprezentowanych na rysunku obok (8 etykiet, 7 pól tekstowych, 1 listy kombinowanej, 1 ramki i 5 przycisków polecenia). Wszystki...
Zadanie 4 Sub tabela() Dim i As Integer Dim j As Integer Dim x As Integer x = 1 For i = ActiveCell.Row To ActiveCell.Row + 9 For j = ActiveCell.Column To ActiveCell.Column + 9 Cells(i, j) = x x = x + 1 Next j Next i End Sub Zadanie 5 Function trojk...
Niektóre treści procedur w VBA dla MS Excel Rozwiązanie równania liniowego + = 0: Sub rozwiazanie_rownania_liniowego() ‘ rozwiazuje rownanie liniowe postaci ax+b=0 - podaje x po wprowadzeniu wspolczynnikow a i b ‘ autor: Piotr Urban...
