第4章 习题参考答案.doc

一、 选择题1. 执行下面的程序段后，x 的值为 A 。x=5 For i=1 To 20 Step 2 x=x+i5 Next i A21B22C23D242. 在窗体上画两个文本框（其【Name】属性分别为“Text1”和“Text2”）和一个命令按钮（其【Name】属性为“Command1”），然后编写如下事件过程：Private Sub Command1_Click() x=0 Do While x50 x=(x+2)*(x+3) n=n+1 Loop Form1.Print xForm1.Print nEnd Sub 程序运行后，单击命令按钮，窗体上显示的值分别为 B 。A1和0B2和72C3和50D4和168 3. 执行下面的程序段后，s的值为 C 。s=5For i = 2.6 To 4.9 Step 0.6 s=s+1 Next iA7 B8 C9 D104. 执行下面的程序段后，s的值为 A 。s = 0i = 1N=1Do While i N s = s + i i = i + 1 Loop A0 B1C2 D35. 执行下面的程序段后，s的值为 B 。s = 0i = 1N=1Do s = s + i i = i + 1 Loop While i NA0 B1C2 D3二、 填空题1. 在空白处填上代码以完成整个循环。For i = l To 10 Print Tab(16 - i); For j = 1 TO 2 * i - 1 Print * Next j Print 换行 Next i 2. 补充代码，以完成查找75最大公约数的功能。For i=36 To 1 Step -1 If 75 mod i = 0 Then Print 75最大公约数为,i Exit For End if Next i 3. 补充代码，以完成查找35和75最大公约数的功能。i=18如果i能被35和75整除，则为最大公约数Do While Not (35 Mod i = 0 And 75 Mod i = 0) Exit Do Loop三、 编程题1. 求1/1+1/2+1/3+1/n。要求n从输入对话框中输入。参考代码： Dim N As Integer, i As Integer ,sum As IntegerDim myinput As Stringmyinput = InputBox(请输入要求阶乘的数:, 输入对话框)N = Val(myinput)sum=0 For i=1 To N sum=sum+1/i Next i2. 求1！+2！+3！+n!。要求n从输入对话框中输入。（提示：n!=1*2*3*n。）参考代码：Dim N As Integer, i As Integer , j As Integer Dim s As Integer, sum As IntegerDim myinput As Stringmyinput = InputBox(请输入要求阶乘的数:, 输入对话框)N = Val(myinput)sum=0s=0For i=1 To N For j=1 To i s=s*j;Next j sum=sum+s Next i3. 编程求出100200之间的全部素数。参考代码：Dim i As Integer, j As Integer, m As IntegerFor i = 100 To 200 m = 0 用于判断是否是素数 For j = 2 To i - 1 If i Mo