VB题库(自整)讲义.doc

题目：程序功能：求1+2+3……，直到其和超出3000为 止，并输入结果。 【改错1】 错误 【学生答案】 s = 1 【参考答案】 s =0 ============================================================ 【改错2】 错误 【学生答案】 i = i + 2 【参考答案】 i = i + 1 ============================================================ 【改错3】 错误 【学生答案】 Loop s 3000 【参考答案】 Loop until s 3000 Loop until 3000 s 题目：求s=1!+3!+5!+7!，阶乘的计算用Function过程 fact实现. 【改错1】 错误 【学生答案】 For i = 1 To 7 【参考答案】 For i=1 To 7 Step 2 ============================================================ 【改错2】 错误 【学生答案】 Public Function fact() 【参考答案】 Public Function fact(ByVal n As Integer) Public Function fact(ByVal n ) Public Function fact(ByVal n% ) Public Function fact( n% ) Public Function fact( n) Public Function fact(n As Integer) ============================================================ 【改错3】 错误 【学生答案】 fact = i 【参考答案】 fact = t 题目:请根据下列描述编写购物优惠程序。某商场为了 加速促成商品流通，采用购物打折的优惠办法，每 位顾客一次购物（1）在100元以上者，按九五折优惠； （2）在200元以上者，按九折优惠；（3）300元以上 者，按八折优惠；（4）500元以上者按七折优惠。 【改错1】 错误 【学生答案】 x = y 【参考答案】 y = x ============================================================ 【改错2】 错误 【学生答案】 Else If 【参考答案】 End If ============================================================ 【改错3】 错误 【学生答案】 Text2.Text = x 【参考答案】 Text2.Text = y Text2 = y ============================================================ 题目：该程序的功能是通过键盘给一维数组a输入10个 整数，然后将一维数组的这些数赋值给一个2行 5列的二维数组。最后在一行内输出一维数组、 在两行内输出二维数组。 【改错1】 错误 【学生答案】 Print a(i) 【参考答案】 Print a(i); ============================================================ 【改错2】 错误 【学生答案】 Print b(j, i); 【参考答案】 print(i,j) ============================================================ 【改错3】 错误 【学生答案】 Paint b(i, j) 【参考答案】 Print 题目：下面程序段将7个随机整数从小到大排序 【改错1】 错误 【学生答案】 For n = 2 To 7 【参考答案】 For n=m+1 To 7 ============================================================ 【改错2】 错误 【学生答案】 If a(t) a(n) Then n = t 【参考答案】 If a(t) a(n) Then t=n If a(n) a(t) T