VB笔试复习题.docVIP

笔试复习题 笔试占总分的50％、平时占10％、上机占40％。 笔试时间为1小时。四道大题为：程序填空、程序运行结果、程序段功能、编程题 复习范围 随机整数[A,B] 公式：Int(Rnd*(B-A+1)+A) 循环 （1）打印三角形 方法一：用单重循环 Private Sub Form_Click() For i = 1 To 8 Print Tab(15 - i); String(2 * i - 1, *) Next i End Sub 方法二：用多重循环 Private Sub Form_Click() For i = 1 To 8 Print Tab(15 - i); For j = 1 To 2 * i - 1 Print *; Next j Print Next i End Sub （2）求积数部分和 P88 例4.18 p268 习题3 Private Sub Form_Click() Dim s!,i%,t! i=1:t=2:s=1 Do while 1/t0.0001 s=s+1/t i=i+1 t=t+i Loop Print 共计算;i-1; 项 Print s=;s End Sub （3）求100到200之间的所有素数。 Private Sub Form_Click() Dim t As Boolean For x = 101 To