VB读程序和程序填空(讲解部份)..docVIP

读程序和程序填空 一、 读程序 要求：给出一段或几段代码，选择或写出程序运行的结果。 （一）简单程序阅读 提示:如果程序没有规律,那么运行(循环)的次数不会很多。如果程序循环的次数会较多，则可能运行是有规律的。 1. 假定有以下程序： Private Sub Form_Click() a = 1 : b = a Do Until a = 5 x = a * b Print b; x a = a + b b = b + a Loop End Sub 程序运行后，单击窗体，输出结果是（ ）。 A）1 1 B）1 1 C）1 l D）1 1 2 3 2 4 3 8 3 6 2.有人编写了如下程序： Private Sub Form_Click() Dim s As Integer, x As Integer s = 0 x = 0 Do While s = 10000 x = x + 1 s = s + x ^ 2 Loop Print s End Sub 上述程序的功能是：计算s=1+22+32+…+n2+…，直到s10000 为止。程序运行后，发现得不 到正确的结果，必须进行修改。下列修改中正确的是（ ）。 A）把x=0 改为x=1 B）把Do While s=10000 改为Do While s=10000 C）把Do While s=10000 改为Do While s10000 D）交换x=x+1 和s=s+x^2 的位置 3. 设有如下程序： Private Sub Form_Click() Dim s As Long, f As Long Dim n As Integer, i As Integer f = 1 n = 4 For i = 1 To n f = f * i s = s + f Next i Print s End Sub 程序运行后，单击窗体，输出结果是（ ）。 A）32 B）33 C）34 D）35 4.阅读下面的程序段： a = 0 For i = 1 To 3 For j = 1 To i For k = j To 3 a = a + 1 Next k Next j Next i 执行上面的程序段后，a 的值为（ ）。 A）3 B）9 C）14 D）21 5. 设有如下程序： Private Sub Form_Click() Dim i As Integer, x As String, y As String x = ABCDEFG For i = 4 To 1 Step -1 y = Mid(x, i, i) + y Next i Print y End Sub 程序运行后，单击窗体，输出结果为（ ）。 A）ABCCDEDEFG B）AABBCDEFG C）ABCDEFG D）AABBCCDDEEFFGG 6. 在窗体上画一个名为Command1 的命令按钮，然后编写以下程序： Private Sub Command1_Click() Dim a(10) As Integer For k = 10 To 1 Step -1 a(k) = 20 - 2 * k Next k k = k + 7 Print a(k - a(k)) End Sub 运行程序，单击命令按钮，输出结果是（ ）。 A）18 B）12 C）8 D）6 7. 有下面的程序段，其功能规律输出数据　　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 下面程序计算并输出的是　　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　　)13+23+33+…+103的值 　　)10!+…+3!+2!+1!的值 　　)(1+2+3+…+10)3的值 　　)10个103的和 （二）带控件的程序阅读 提示：主要掌握代码对控件的影响。 1. 窗体上有一个名称为Command1的命令按钮，其事件过程如下：Private　Sub　Command1_Click() 　　x　=　VisualBasicProgramming 　　a　=　Right(x, 11) 　　b　=　Mid(x, 7, 5) 　　c　=　MsgBox(a,　,　b) End　Sub 运行程序后单击命令按钮，以下叙述中错误的是（　　　）