vba综合练习.docVIP

vba综合练习 通过编程求出结果。 把9786表示为两个加数之和，使其中一个加数能被91整除，而另一个加数能被87整除。请求出：在这两个加数中，能被91整除的加数等于多少？ 答案 4914 编程: for i = 91 to 9786 step 91 for j =87 to 9786 step 87 if i +j = 9786 then msgbox 求 S = 1/5 + 1/10 + 1/15 + 1/20 + 1/25 + … + 1/(5*n) + … 的前n项之和，当S第一次大于或等于1.4时终止计算，此时项数n为_____。 答案 616 s=0 a=1 do while s1.4 n=n+1 loop nsgbox n-1 在窗体上已经建立1个标签控件lab1和1个命令按钮控件cmd1。请完善程序，使之完成以下操作： 打开窗体后单击命令按钮，则通过输入对话框分别输入3个数值，然后求出其中最大的数，并将最大的数显示在标签lab1中。 Private Sub cmd1_Click() Dim a As Single, b As Single, c As Single Dim k As Single a = Val(InputBox(输入第一个数)) b = Val(InputBox(输入第二个数)) c = Val(InputBox(输入第三个数)) 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 答案 DCD 在窗体上添加一个命令按钮（名为 cmd），然后编写如下事件过程。单击该命令按钮，便将数组 p(6,8)中各个元素都赋予其对应的两个下标值平方之和，请完善程序。 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 答案 DCD 在窗体上已经建立1个文本框控件txt1和1个命令按钮控件cmd1。请完善程序，使之完成以下操作： 程序运行时，文本框上显示“VBA程序设计”，命令按钮的标题上显示“隐藏”； 单击命令按钮时文本框消失； 单击窗体时显示出文本框。 Private Sub ___[1]___() txt1.Visible = False End Sub Private Sub Form_Click() txt1.Visible = ___[2]___ End Sub Private Sub Form_Load() txt1.Value = VBA程序设计 txt1.Visible = True cmd1.___[3]___ = 隐藏 End Sub [1] A. command1_Click B. Lab1_Click C. Form_Load D. cmd1_Click [2] A. False B. True C. 隐藏 D. 显示 [3] A. Visible