Question

Write a program in Visual Basic, design a window with four text boxes and a command button to do the following:
 1- Upon implementation, the text of the first box shall contain () University of Thi-Qar
The rest of the text boxes will be empty.
 -2 When you click on Command1 it distributes the three sections of text
In the first box on the rest of the empty boxes
س2 : A) أكتب برنامج بلغة فيجول بيسك وصمم نافذة تحتوي على أربع صناديق نص وزر أمر للقيام بما يلي: (15 درجة) Form 1 Text2 1. عند التنفيذ يكون نص الصندوق الأول يحتوي (University of Thi - Qar) أما باقي صناديق النص فتكون فارغة. ۲- عند النقر على الأمر Command1 يقوم بتوزيع المقاطع الثلاثة للنص في صندوق الأول على باقي الصناديق الفارغة. Text3 Text1 Text4 Command1 و و و و و و

Answer 1

Program:

Private Sub Form_Load()
Text1.Text = " University of Thi-Qar"
End Sub

Private Sub Command1_Click()

Dim inpuTxt, strArr() As String
inputtxt = Text1.Text
strArr = Split(inputtxt, " ")

Text2.Text = strArr(1)
Text3.Text = strArr(2)
Text4.Text = strArr(3)
End Sub

Output:

X the Project 1 - Microsoft Visual Basic (run) File Edit View Project Format Debug Bun Query Diagram Tools Add-Ins Window Help 2520, 4440 2535 x 735 Project - Project 1 X @ 83 Project - Form (Code) Commands Project 1 (Project) E Forms Form 1 Form1) - Click Form Private Sub Form_Load() Text1.Text - University of Thi-Qar" End Sub University Private Sub Commandl_Click() od Dim inputxt, strArr() As String inputtxt - Textl.Text StrArr - Split(inputtxt, -") University of Thor Thai Text2.Text = strArr (1) Text3.Text = strar (2) Text4.Text - Starr (3) End Sub Commendi Immediate X Type here to search O RI L PC AP 12:26 PM 8/3/2020