计算机二级VB上机考试题目,2012年计算机二级vb上机考试题型

1、利用公式求有规律的数列。用循环语句和通项公式实现。如菲波那切数列。

这个数列从第三项开始，每一项都等于前两项之和它的通项公式为:

[(1＋√5)/2]^n /√5 － [(1－√5)/2]^n /√5

Private Sub Command1_Click()

Dim m As Double , s as Double

m = 0

For n = 1 To 50

s = ((1 + Sqr(5)) / 2) ^ n / Sqr(5) - ((1 - Sqr(5)) / 2) ^ n / Sqr(5)

Print s

m = m + s

Next

Print m

End Sub

Private Sub Command2_Click()

Dim a(50) As Double

a(1) = 1

a(2) = 1

For i = 3 To 50

a(i) = a(i - 2) + a(i - 1)

Next

For i = 1 To 50

Print a(i)

Next

End Sub

2、打印图形题目：三角形，用字母或数字表示三角形。

如：    A

B B

C C C

3、利用数学公式求函数或常数。如利用公式求 e

e=1+1/1!+1/2!+1/3!+.....+1/n!

Public Function jc(n) As Double

Dim m As Double

m = 1

For i = 1 To n

m = m * i

Next i

jc = m

End Function

Private Sub Command1_Click()

e = 1

For i = 1 To Val(Text1.Text)

e = e + 1 / jc(i)

Next i

Text1.Text = "e=" & e

End Sub

Private Sub Form_Load()

Label1 = "请输入1---170之间的数求："

Label2 = "e=1+1/1!+1/2!+1/3!+...+1/n!"

End Sub

4、求一个数能被另一个整除的问题，并进行相关计算 。如求“完数”

Private Sub Command1_Click()

'一个数如果恰好等于除它本身外的因子之和，这个数就称为"完数"。例如6=1＋2＋3.(6的因子是1,2,3)

Dim a() As Integer

Dim b As Integer, n As Integer

n = InputBox("请输入一个整数：", "完数判断")

m = 0

For i = 1 To n - 1

If b If n / i = Int(n / i) Then

m = m + 1

ReDim Preserve a(m)

a(m) = i

End If

Next i

b = 0

For j = 1 To m

b = b + a(j)

Next j = n Then

Print n; "是个完数"

Else

Print n; "不是完数"

End If

For j = 1 To m

Print a(j);

Next j

Print "="; b

End Sub

5、求一组数的最大、最小值

6、解方程题目：包括一元一次方程、二元一次方程

7、求一个正整数的每一位数字，并进行相关计算。如逆序显示，求每位数字和、积的运算

8、输入字符串，统计输入字符的种类。包括大写、小写字母、数字、其他字符。