计算机技术vb考试题,计算机VB考试试题精选.pdf

1编写程序，计算并输出下面级数前n 项(n 50)中偶数项的和。 (要求用循环做，非循环不

给分。)

1*2+2*3+3*4+4*5+……+n*(n+1)+…

Private Sub Form_Activate()

s 0

For I 2To50 Step 2

s s+ I *(I+ 1)

Next I

Print s

End Sub

2 勾股定理中三个数的关系是：a^2+b^2 c^2 编写程序，输出100 以内满足上述关系的整

数组合，例如3，4，5就是一个整数组合。

Private Sub Form_Activate()

For a 1To 100

Forb a+ 1To 100

For c b + 1To 100

Ifa^2+b ^2 c^2Then Print a,b,c

Next c,b,a

End Sub

3 编写程序，随机生成 100 个两位整数，并统计出其中小于等于40、大于40 小于等于70

及大于70 的数据个数。

Private Sub Form_Activate()

Randomize

a 0:b 0:c 0

For I 1To 100

Next I x Int(Rnd *90+ 10)

Select Casex

CaseIs< 40

a a+ 1

CaseIs< 70

b b + 1

CaseElse

c c+ 1

End Select

Print a,b,c

End Sub

4 编写程序，单击窗体时在窗体上输出如下所示的图形。

*

***

*****

*******

*********

*******

*****

***

*

要求：用循环做，非循环不给分。

Private Sub Form_Activate()

For I 1To5

PrintTab(20 -I);String(2 *I - 1, "*"):Print

Next I

For I 4 To 1Step -1

PrintTab(20 -I);String(2 *I - 1, "*"):Print

Next I

End Sub

5编写程序，计算并输出下面级数前n 项中(n 50)偶数项的和。 (要求用循环做，非循环不

给分。)

1*2*3+2*3*4+3*4*5+……+n*(n+1)*(n+2)+…

Private Sub Form_Activate()

s 0

For i 1To50

IfiMod2 0Then

s s+ i *(i+ 1) *(i+2)

EndIf

Next i

Print s

End Sub

6输入一串数字，求其中偶数数字的个数及其和。

(输入：123456789)，运算得：4 20

Private Sub Form_Activate()

x InputBox("输入一串数字")

s 0:t 0

For i 1ToLen(x)

a Mid(x,i, 1)

IfaMod2 0Then s s+ 1:t t + a

Next i

Print s,t

End Sub

7编写程序，用普通迭代法求方程f(x) x+lnx-2.5 0 的近似实根r，迭代初值为1.5，精确到

0.0001。

〔提示：必须把方程f(x) 0 化成其等价形式x g(x)〕。(允许使用其他迭代法)

x 1.87264704036406

Private Sub Form_Activate()

Dim x0,x1,fx0,f1x0

x1 1.5

Do

x0 x1

fx0 x0+ log(x0) -2.5

f1x0 1+ 1/ x0

x1 x0 -fx0/ f1x0

LoopUntilAbs(x1-x0)