vba综合练习（VBA comprehensive exercises）.docVIP

vba综合练习（VBA comprehensive exercises） The result is obtained by programming. The 9786 said two addends and which a number is divisible by 91, and the other a number is divisible by 87. Request: in the two parts, can be divisible by 91 is equal to the number of the number? Answer 4914 Programming: For I = 91, to 9786, step 91 For J =87 to 9786 step 87 If I +j = 9786 then Msgbox Seek S = 1/5 +, 1/10 +, 1/15 +, 1/20 +, 1/25 +... + 1/ (5*n) +... The former n and S, when the first time is greater than or equal to 1.4 at n to stop the calculation, the number of _____. Answer 616 S=0 A=1 Do while s1.4 N=n+1 Loop Nsgbox n-1 1 tabs, controls, lab1, and 1 command button controls have been created on the form. Cmd1. Please complete procedures to complete the following operations: When you open the form and click the command button, enter 3 values by entering the dialog box, then find the largest number and display the largest number in the tag lab1. Private, Sub, cmd1_Click () Dim, a, As, Single, B, As, Single, C, As, Single Dim K As Single A = Val (InputBox (enter the first number)) B = Val (InputBox (enter second numbers)) C = Val (InputBox (enter third numbers)) If ab Then K = b Else ___[1]___ End If If ___[2]___ Then K = C End If ___[3]___ End Sub [1], A., k=0, B., k=c, C., k=b, D., k=a [2], A., k=k, B., k=c, C., kc, D., kc [3], A., lab1.Value = a, B., lab1.Value = b C., lab1.Caption = C, D., lab1.Caption = k Answer DCD Add a command button (called CMD) on the form, and then write the following event procedure. Click the command button, and each element in the array P (6,8) is given the sum of the squares of its two corresponding subscript values, so complete the program. Private, Sub, cmd_Click () Dim, P (6,8), As, integer, I, As, integer, J, As, integer For ____[1]_____ To 6 For j=0 To ____[2]_____ P (I, J) = ____[3]_____ Next J Next I End Sub [1], A., i0, B., i0, C., i=1, D., i=0 [2] A. 6, B. 7, C. 8, D. 9 [3], A. (i+j), ^2, B., i^2+j, C., i+j^2, D.,, i^2+j^2 Answer DCD