江苏省计算机二级VB整理(5)

If t>=1 Then Call Test(t-1)

For i=3 To t Step-1

Print Chr(Asc(＂A＂)+i);

Next i Print End If Test = t End Function

12、做题时一定要注意变量的类型。

2006（春）例：执行下面的程序，当单击窗体时，显示在窗体上第一行的内容是____(1)____，第二行的内容是____(2)____。

Private Sub Form_Click( )

Dim i As Integer, Sum As Integer For I = 0.5 To 8.5 Step 2.5 Sum = Sum + I * 10 Next I Print Sum Print I End Sub

13、做程序填空的首要注意点：

（1）模块中定义的所有变量一定会用到，若有没有用到的，一定需要将之写出，即填空。 （2）动态数组与Redim Preserve必须一一对应。

（3）只要看到动态数组A()，立刻在整个过程中找 Redim Preserve A()

（4）调用子过程或子函数时，一定要注意到实参和形参的传递方式，特别要注意的是当循环变量作为实参进行调用时，若子过程或子函数中的形参发出变化时，则一定要用ByVal（程序填空需要填形参时）——上机时程序改错最常见错误。

(5)没有While 或Until的Do—Loop循环中一定要出现Exit Do。 14、取一个数n的各个位置上的数 Do

Redim preserve A(I) A(i)=n mod 10 N=n\10 I=i+1 Loop n=0

15、十进制转二进制要编程

Do while n>0 B=n mod 2 N=n\2

S=b & s Loop

十进制转八进制——Oct(x) x表示十进制数 十进制转十六进制 ——Hex(x)

1通项公式 16、做公式题时要注意：○

2条件判断（循环） ○

3累加器 ○

4出现阶乘时，与阶乘相关的累加器必定有赋值为1的语句。 ○

上机

1、实——形

主程序中循环变量，参与输出的变量，如果作为实参传递，则在形参中，如果出现对应形参值变化的情况，则一定要用ByVal 2、累加器要清零 外循环 清零

内循环（内循环中含有累加器如：sum=sum+ s=s& s= &s） 外循环

3、对于子函数和子过程结尾处有True的赋值时，要分True是否有If语句，如果最后是IF语句中有对应的TURE 或FALSE赋值，则子函数或子过程中的EXIT SUB或EXIT FUNCTION一定是错的，需要改为EXIT DO 或EXIT FOR。 例2008（秋）上机试题六

4、Redim a()（只要不出现在第一行） 5、注意Do—Loop 中的条件 n<0 或N<=0