Зертханалық жұмыс №4. Vba-да массивтерді, процедуралар мен функцияларды ұйымдастыру
жүктеу/скачать 60,12 Kb.
|
- Бұл бет үшін навигация:
- 3 мысалдың листингі
| 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 өрнегін есептейді. жүктеу/скачать 60,12 Kb. Достарыңызбен бөлісу:
|