必威体育精装版湖的南省计算机二级vb题库.doc

湖南省VB二级考试试题汇编 一、程序填空 【试题1】出售金鱼的问题：商人将养的一缸金鱼分五次出售，第一次卖出全部的一半加二分之一条；第二次卖出余下的三分之一加三分之一条；第三次卖出余下的分之一加四分之一条；第四次卖出余下的五分之一加五分之一条；最后卖出余下的11条。问原来渔缸中共有几条鱼？Private Sub cmdSaleGoldFish_Click() Dim k As Long, x As Long k = 4: x = 11 While x = : k = k - 1 Wend Print x End Sub 【答案】((k + 1)*x+1)/k 结果：59 注解：设第k次出售后还余x条金鱼，第k-1次出售后还余y条，则有： x=y-(y+1)/(k+1)，即y=((k+1)x+1)/k。 【试题2】在窗体上画一个命令按钮，其名称为Command1，程序如下，先填上相应的语句，然后程序运行，单击命令按钮，并输出结果。 Function M(x As Long,y As Long)As Long M=IIf(xy,x,____________) End Function Private Sub ____________________ Dim a As Long,b As Long FontSize = 14: FontBold = True Print: Print: Print a=131421 b=211314 Print tab(5);M(a,b) End Sub 【答案】211314 【试题3】设某四位数的各位数字的平方和等于100，共有多少个这种四位数？ Private Sub cmdFourSqr_Click() Dim ab as Integer,c as Integer,d as Integer Dim i as Integer, count As Integer count = 0 i = 1000 Do Until ________________ a = i \ 1000 b = (i Mod 1000) \ 100 c = Int((i – a * 1000 – b * 100) \ 10) d = i Mod 10 If 100 = a*a + b*b + c*c + d*d Then ___________________ i = i + 1 Loop Print Tab(5); 满足条件的四位数数目为：;count End Sub 【答案】49 【试题4】求方程51X-21Y=3，在|X|≤201，|Y|≤81内共有多少组整数解? Private Sub cmdIntegerRoot_Click() Dim count As Integer FontSize = 14: FontBold = True Print: Print: Print For x = -201 To 201 For y = -81 To 81 If _________________ Then count = count + 1 Next ________________ Print Tab(5); “符合条件的数的数目为：”; count End Sub 【答案】10 【试题5】公式ex ≈1＋x＋x2/2!+x3/3!+x4/4!…+xn/n!求ex的近似值设x=9,n＝25Private Sub Form_click() Dim n As Integer,x As Integer,i As Integer Dim xpower As Single,y As Single x = int(InputBox(请输入x：)) n = int(InputBox(请输入n：)) y = 1 factor = 1:xpower=1 For i = 1 To n factor = factor * i xpower = y = Next i Print y End Sub 【答案】 y + xpower / factor 结果：8103.059 【试题6】已知菲波纳契数列{ X }中,X(1)=,X(2)=1,X(n)=X(n-1)+X(n-2)，编程求数列前30个数中，所有质数的和。 Private Sub Form_Click() Dim s As Long Dim I As Integer Dim No(30) As Long No(1) = No(2) = 1 s = 0 For No(I) = No(I – 1) + No(I – 2) j = 2: k = sqr(No(I