VB题库4[精心整理].docVIP

------------------------------------------------- 【程序设计】 ------------------------------------------------- 题目：(事件)单击窗体。 (响应)求200~300之间既能被3整除又能被7整除的数。 并求出所有数之和存入变量SUM中 ----------------------------------------------------------- 【参考代码】 Dim i As Integer For i = 201 To 300 If ((i Mod 3) = 0) And ((i Mod 7) = 0) Then Print (CStr(i)) sum = sum + i End If Next Print sum =============== 【考生代码】 ------------------------------------------------- 【程序设计】 ------------------------------------------------- 题目：(事件)单击窗体。 (响应)求1!+2!+3!+……+10!的值，并在窗体上输出。 结果存入变量L中。 ------------------------------------------------- 【参考代码】 Dim i As Integer Dim s As Long Dim j As Integer s = 1 For i = 1 To 10 s = s * i l = l + s Next Print Str(l) =============== 【考生代码】 ------------------------------------------------ 【程序改错】 ------------------------------------------------ 题目：以下程序段用于输出100-300的所有素数 ------------------------------------------------ Option Explicit Private Sub Form_Click() Dim n As Integer, k As Integer, i As Integer, swit As Integer For n = 101 To 300 Step 2 k = Int(Sqr(n)) i = 2 **********ERROR********** swit = 1 **********ERROR********** While swit = 0 If n Mod i = 0 Then swit = 1 Else **********ERROR********** i = i - 1 End If Wend If swit = 0 Then Print n; End If Next n End Sub 【改错1】 错误 【学生答案】 swit = 1 【参考答案】 swit=0 ============================================================ 【改错2】 错误 【学生答案】 While swit = 0 【参考答案】 while i=k and swit =0 while k=i And swit=0 While swit=0 and i=k While swit=0 and k=i ============================================================ 【改错3】 错误 【学生答案】 i = i - 1 【参考答案】 i=i+1 ============================================================ ------------------------------------------------ 【程序改错】 ------------------------------------------------ 题目：一个两位的正整