vb期末考试复习资料（经典总结版）(18)

For y=1 To 50

If x>=10 Then Exit For End If

If x Mod 2=l Then x=x+5 Else x==x-3 End If Next y Print x End Sub

(A)4 (B)6 (C)8 (D)10 11下面程序执行时,当在窗体上单击左键时的输出结果是: Private Sub Form-Click()

Dim i As Integer,j As Integer,s As Single For i=6 To 5 Step-1

s =0#

For j=i To 4 Step -1

s =s +i*j Next j Next i Print s

47

End Sub

(A)90 (B)45 (C)135 (D)60 12下面程序执行时,当在窗体上单击左键时的输出结果是: Private Sub Form-Click() Dim k As Integer,c As String*l k=0: C=\Do

Select Case C Case \

k=k+l Case \

k=k-1 Case \

k=k+2 Case \Case \

k=k*2 Case Else

k=k/3 End Select c =Chr(Asc(c)+1) k=k+1 Loop While c<\Print k End Sub

(A)2 (B)5 (C)6 （二）、编程题

13编写程序求:1!+2!+?+10!的值。

14编写程序求:1-1/2+1/3-1/4+?+1/99-1/100的值。 (D)13 48

15已知斐波那契数列的第1项与第2项的值分别为1和1,其后每一项都是其前面两项的和,形

如:1,1,2,3,5,8,?,写一程序求出该数列的前20项及前20项的和。

16设1995年我国有12亿3千万人口,以年人口平均增长率为1%、1.5%和2%计算,从1995年起,经

过几年我国人口就会增长到16亿。

17写一程序将某个整数分解因式,如:24分解成1*2*2*2*3,一42分解成-1*2*3*7。 18新建一个窗体,在窗体上加入4个文本框(设名称为Text1、Text2、Text3和

Text4)和1个命令按钮(设名称为Commandl)。程序运行时,在文本框Textl中输入1个字符串,单击命令按钮Command1时,程序能统计出输入的字符串中数字字符个数、字母个数和其他字符的个数,并将统计出来的结果分别显示到文本框Text2、Text3和Text4中。 参考答案： （一）、选择题

1 B 2 C 3 A 4 A 5 B 6 C 7 D 8 C 9 D 10 D 11 B 12 D （二）、编程题

13将程序代码写在窗体的Click事件过程中。程序代码如下: Private Sub Form-Click()

Dim s As Single,t As Single,i As Integer s =0# t=1 For i=l To 10

t==t*E s =s +t Next i

Print “总和为:”;S End Sub

14将程序代码写在窗体的Click事件过程中。程序代码如下: Private Sub Form-Click() Dim s As Single,i As Integer s =0# For i=1To 100

49

s =s +(-l)^(i-1)/i Next i

Print \总和为:\“0.000000\

End Sub

15将程序代码写在窗体的Click事件过程中。程序代码如下 Private Sub Form-Click() Dim s As Single,i As Integer Dim xl As Integer,x2 As Integer xl=1: X2=1 s =0# For i=1To 10 Print xl;x2; s =s +x1+x2 xl=xl+x2 x2=x1+x2 Next i Print

Print \前20项之和为:\End Sub

16将程序代码写在窗体的Click事件过程中。程序代码如下 Private Sub Form-Click()

Dim t As Single,r As Single,n As Integer For r=0.0l To 0.02 Step 0.005 n=0 t=0 Do While t <16

n=n+l t=12.3*(1+r)^n Loop

50