Зертханалық жұмыс №4. Vba-да массивтерді, процедуралар мен функцияларды ұйымдастыру



бет2/4
Дата28.08.2023
өлшемі60,12 Kb.
#105623
1   2   3   4
Байланысты:
Zertkhanaly zh mys4 (8)

2 мысалдың листингі
Private Sub CommandButton1_Click()
Dim A(1 To 2, 1 To 2), B(1 To 2, 1 To 2), с(1 To 2, 1 To 2) As String
Dim d(1 To 2, 1 To 2), k(1 To 2, 1 To 2) As Integer
B(1, 1) = TextBox5.Text B(1, 2) = TextBox6.Text
B(2, 1) = TextBox7.Text B(2, 2) = TextBox8.Text
d(1, 1) = Val(TextBox1.Text) d(1, 2) = Val(TextBox2.Text)
d(2, 1) = Val(TextBox3.Text) d(2, 2) = Val(TextBox4.Text)
For i = 1 To 2 For j = 1 To 2
k(i, j) = d(i, j) + 10
Next j Next i
For i = 1 To 2 For j = 1 To 2
c(i, j) = «фамилия» + B(i, j)
Next j Next i
For i = 1 To 2 For j = 1 To 2
A(i, j) = «работник» + c(i, j)
Next j Next i
Label3.Caption = «a(1,1)=» & A(1, 1) & « a(1,2)=» & A(1, 2) & « a(2,1)=» & A(2, 1) & « a(2,2)=» & A(2, 2)
Label6.Caption = «k(1,1)=» & k(1, 1) & « k(1,2)=» & k(1, 2) & « k(2,1)=» & k(2, 1) & « k(2,2)=» & k(2, 2)
End Sub


3. Жолдық айнымалылармен жұмыс жасайтын бағд-ма құр-з. Форма құрып ондағы тамғаларға(Label) келесі хабарламаларды шығарылсын:
1-тамға: бірінші мәтіндік өріске енгізілген жолдың ұзындығы анықталады (1 жол);
2-тамға: үшінші мәтіндік өрістің барлық символдарын бас әріптерге айландырады (3 жол);
3-тамға: бірінші және екінші мәтіндік өрістердің мазмұнын біріктіріп шығарады (1 және 2 жол).

18 сурет. 3 мысал пішіні конструктор режимінде және жұмыс істеу күйінде
3 мысалдың листингі
Private Sub CommandButton1_Click()
Dim a, b, c, k, d As String
Dim n As Integer
a = TextBox1.Text n = Len(a)
Label7.Caption = «1-ші жолдың ұзындығы » & n & « символға тең»
c = TextBox3.Text
k = Ucase(с)
Label8.Caption = k
b = TextBox2.Text
d = a + " " + b
Label9.Caption = d End Sub


4. Процедуралар және функциямен жұмыс жасайтын бағдарлама құрыңыз, олардың параметрлері болып форманың мәтіндік өрістеріне енгізілген мәндер табылады.
Процедуралар және функция келесі әрекеттерді орындайды:
1) бірінші процедура бірінші енгізілген екі мәннің a және b қосындысын есептейді;
2) екінші процедура 3,4 енгізілген мәндердің, яғни c және d көбейтіндісін есептейді;
3) функция a+b-c*d өрнегін есептейді.


Достарыңызбен бөлісу:
1   2   3   4




©emirsaba.org 2024
әкімшілігінің қараңыз

    Басты бет