part4基本控制结构与数组..doc

10.3 (21)下面正确使用动态数组的是 　　A)Dim arr() As Integer 　　… 　　ReDim arr(3,5) 　　B)Dim arr() As Integer 　　… 　　ReDim arr(50)As String 　　C)Dim arr() 　　… 　　ReDim arr(50) As Integer 　　D)Dim arr(50) As Integer 　　… 　　ReDim arr(20) 　(23)有下面的程序段，其功能是按图1所示的规律输出数据 　　Dim a(3,5) As Integer 　　For i=1 To 3 　　For j=1 To 5 　　 a(i,j)=i+j 　　 Print a(i,j); 　　Next 　　Print（换行） 　　Next i=1 j=1 2）j=2 3)j=3 4)j=4 5)j=5 a(1,1)=2 a(1,2)=3 a(1,3)=4 a(1,4)=5 a(1,5)=6 输出 2 3 4 5 6 i=2 j=1 2）j=2 3)j=3 4)j=4 5)j=5 a(2,1)=3 a(2,2)=4 a(2,3)=5 a(2,4)=6 a(2,5)=7 输出 3 4 5 6 7 （3）i=3 输出 4 5 6 7 8 　　若要按图2所示的规律继续输出数据，则接在上述程序段后面的程序段应该是 　　A)For i=1 To 5 　　For j=1 To 3 　　Print a(j,i); 　　Next 　　Print 　　Next 　　B)For i=1 To 3 　　For j=1 To 5 　　Print a(j,i); 　　Next 　　Print 　　Next 　　C)For j=1 To 5 　　For i=1 To 3 　　Print a(j,i); 　　Next 　　Print 　　Next 　　D)For i=1 To 5 　　For j=1 To 3 　　Print a(i,j); 　　Next 　　Print 　　Next (26)计算圆周率∏的近似值的一个公式是∏/4=1-1/3+1/5-1/7+…+(-1)n-1/(2*n-1)。 　　某人编写下面的程序用此公式计算并输出π的近似值： 　　Private Sub Comand1_Click() 　　PI=1 　　Sign=1 　　n=20000 　　For k=3 To n 　　Sign=-Sign 　　PI=PI+Sign/k 　　Next k 　　Print PI*4 　　End Sub 　　运行后发现结果为3.22751，显然，程序需要修改。下面修改方案中正确的是 　　A)把For k=3 To n 改为 For k=1 To n 　　B)把n=20000改为n　　C)把For k=3 To n改为For k=3 To n Step 2 　　D)把PI=1改为PI=0 (27)下面程序计算并输出的是 　　Private Sub Comand1_Click() 　　a=10 　　s=0 　　Do 　　s=s+a*a*a 　　a=a-1 　　Loop Until a=0 　　Print s 　　End Sub 　　A)13+23+33+…+103的值 　　B)10!+…+3!+2!+1!的值 　　C)(1+2+3+…+10)3的值 　　D)10个103的和 　　(28)若在窗体模块的声明部分声明了如下自定义类型和数组 　　Private Type rec 　　Code As Integer 　　Caption As String 　　End Type 　　Dim arr(5) As rec 　　则下面的输出语句中正确的是 　　A)Print arr.Code(2),arr.Caption(2) 　　B)Print arr.Code,arr.Caption 　　C)Print arr(2).Code,arr(2).Caption 　　D)Print Code(2),Caption(2) 对数组的操作只能是对数组每一个元素的操作，不能直接用数组名代表整个数组 (34)窗体上有一个名为Command1的命令按钮，并有下面的程序： 　　Private Sub Comand1_Click() 　　Dim arr(5) As Integer 　　For k=1 To 5 　　 arr(k)=k 　　Next k arr(1)=1,arr(2)=2,arr(3)=3,arr