VBA基础题练习题

1.编写计算下列函数的程序，结果在窗体上打印出来。自变量x ，y 的值用InputBox 函数输入。

⎪⎩⎪⎨⎧>>-<<+=其他

00,00,062),(y x y

x y x y x y x f

2.从键盘上输入月份的值（即1-12之间的整数），打印出该月份的季节。12月、1月和2月为冬季，3月、4月和5月为春季，其余类推。例如，输入7，则打印出SUMMER 。

3. 设sum=11+22+32+…+n 2

，求sum 不大于100000时最大的n 。

4. 在窗体上输出1900——2010年之间哪些年是闰年。闰年判断条件： 年份能被4整除但不能被100整除，或者年份能被400整除。

5．单击窗体，输入变量x 的值，根据下式计算对应的函数值并输出。试用行If 语句、块If 语句、ElseIf 语句及Select Case 语句完成。

6. 读下面程序段，写出分段函数的数学表达。

101010<=>x x x

Private Sub Command1_Click()

Dim x As Integer

x = InputBox("请输入自变量X的值")

Select Case x

Case Is < -5

y = 3 * x * x + 2 * x - 1

Case -5 To 5

y = x * Sin(x) + 2 ^ x

Case Else

y = Sqr(x - 5) + Log(x) / Log(10)

End Select

Debug.Print y

End Sub

7. 求自然对数e的近似值，直至末项小于10-5为止。公式：e=1+1/1!+1/2!+1/3!+…+1/n!

8．写出下列程序的运行结果。

Private Sub Command1_Click()

Dim a%,b%,x%

a=1 : b=1

While a<10

x=a*b

debug.P rint a; ”*”; b; ”=“; x

a=a+1

Wend

End Sub

9. 编制函数过程实现下列数学式子的功能：x取值由文本框输入，打印出y的值，代码写在窗体的command1_click事件中。

数学式：y=x^2+x