2018-2019Computer Major in the Second Term Test Paper of VB Programming (Volume A) 1. Choice Questions (10 passages and 20 points) 1The type of file a project must contain is () A)*.vbp*.frm*.frxB)*.vbp*.cls*.bas C)*.bas*.ocx*/res D)*.frm*.cls*.bas 2The following statement about VB data type is inappropriate () A) The data types provided by VB 6.0 are mainly string type and numeric type. In addition, there are byte, currency, object, date, Boolean and variant data types. B) Currently Decimal data types can only be used in variant types C) Users cannot define their own data types D) Boolean data can only take two values and store them in two bytes 3The following items can be used as VB variable names are () A) BookB) 2_Seek C) 123.58 D) Book-1 4The function Int (Rnd(0)*10) is an integer in the range of (). A) (0, 1) B C (0, 9) D (1, 9)) (1, 10) 5To display a form called MyForm, the correct way to use it is () A) MyForm. Show B) Show. MyForm C) MyForm. Load D) MyForm. Show 6VB can automatically detect () errors when entering code. A) Grammatical errors B) Compilation Error C) Running Error D) Logical Error 7When you click the close button on the form, the trigger event is () A) Form_Initialize() B) Form_Load() C) Form_Unload()D) Form_Click() 8The controls used to group objects on a form are () A) List Box B) Combo Box C) Label DFramework 9The following statement is correct () A) If x<3*y And x>y Then y=x^3B)If x<3*y And x>y Then y=3x C) If x<3*y:x>y Then y=x^3D)If x<3*y:x>y Then y=x**3 101. The following program segments are executed as follows A=5 For k = 1 To 3 A=a + k Next K Print K; a A) - 16 B) - 16 C D) 11 21) 411 2. Programming (80 points for 4 questions) 1Using TextBox, Label, Commandbutton controls to write VB programs with the following functions and user interfaces Class: Full name: Stude 2Design digital clock to display nt ID: system time Tip: The Interval property value of the Timer1 control is 1000 3In the following list boxes, the number that can be divided by three between 1 and 100 is shown 4 Using the Image1. Width, Image1. Height, Image1. Visible, Image1. Stretch attributes of the Image control to write the following functional programs II. Programming Answers Programming questions 1 Private Sub Command 1_Click() Dim a As Single, B As Single, C As Single A = Val (Text2. Text) B = Val (Text3. Text) C = Val (Text4. Text) Text 5. Text = a + B + c) / 3 End Sub Programming questions 2 Private Sub Form_Load() Text1. Text = Now Timer1. Enabled = True Timer1. Interval = 1000 End Sub Private Sub Timer 1_Timer() Text1. Text = Now End Sub Programming questions 3 Private Sub Command 1_Click() List1.Clear For n = 1 To 100 If n Mod 3 = 0 Then List 1. AddItem n Next n End Sub Programming questions 4 Private Sub Command 1_Click() Image1. Width = Image1. Width * 1.2 Image1. Height = Image1. Height * 1.2 End Sub Private Sub Command 2_Click() Image1. Width = Image1. Width / 1.2 Image1. Height = Image1. Height / 1.2 End Sub Private Sub Command 3_Click() Image1. Visible = True End Sub Private Sub Command 4_Click() Image1. Visible = False End Sub Private Sub Form_Load() Image1. Stretch = True End Sub