VB考试必备的十道编程题.docVIP

VB考试必备的十道编程题 (1)计算 sum=1/1!+1/2!+1/3!+.......+1/10!Private Sub Command1_Click()Dim m As Integer, n As Long, s As Doublen = 1s = 0For m = 1 To 10n = m * ns = s + 1 / nNextPrint sEnd Sub(2)求前n项和? s=1/!-1/2!+1/3!-1/4!+.........+(-1)^(n-1)*1/n!+.......当求和过程某项绝对值小于0.0001时结束（该项参与求和），输出s，保留6位小数。Private Sub Command1_Click()Dim m As Double, n As Long, s As Double, p As Integers = 0: n = -1: m = 1: p = 1Do While 1 / m = 0.0001m = m * pp = p + 1n = -ns = s + n / mLoops = Format(s, 0.000000)Print sEnd Sub（3）裴波那契数列前两项是1、1，以后的每一项是其相邻前两项之和。求数列前三十项的和 FSPrivate Sub Command1_Click()Dim a, b, c, i, FSa = 1: b = 1: FS = 2For i = 1 To 28c = a + ba = bb = cFS = FS + cNextMsgBox (FS)End Sub（4）随机输出一个小写字母Private Sub Command1_Click()Dim a As Stringa = Chr(Int(97 + 26 * Rnd))print (a)End Sub随机输出一个大写字母Private Sub Command1_Click()Dim a As Stringa = Chr(Int(65+26*rnd))Print (a)End Sub（5）定义一个下标上界为10的整形数组，并用随机函数为其赋值（值处于[0,100]之间），计算数组中所有偶数的和Private Sub Command1_Click()Dim a%(10)Dim i%, s%For i = 0 To 10a(i) = 101 * Rnd()NextFor i = 0 To 10If a(i) Mod 2 = 0 Thens = s + a(i)End IfNextPrint 所有偶数和为：; sEnd Sub（6）如果一个三位数等于其各位数字的立方和，择成其为水仙花数。输入一个三位数，判断是否属于水仙花数。Private Sub Command1_Click()Dim a%, i%, j%, k%a = InputBox(请输入一个三位数！)i = a \ 100j = a \ 10 Mod 10k = a Mod 10If a = i ^ 3 + j ^ 3 + k ^ 3 ThenMsgBox (Yes)ElseMsgBox (No)End IfEnd Sub(7)用inputbox输入一个年份是否是闰年，若是输出“Yes”若不是输出“No”Private Sub Command1_Click()Dim a As Integera = InputBox(请输入年份)If a Mod 400 = 0 Or a Mod 4 = 0 And a Mod 100 0 ThenMsgBox (Yes)ElseMsgBox (No)End IfEnd Sub（8）输入三个数a,b,c判断是否能够成三角形，若能计算其面积并用msgbox 输出；若不能用msgbox输出“不能构成三角形”Private Sub Command1_Click()Dim a!, b!, c!a = InputBox(a=)b = InputBox(b=)c = InputBox(c=)If a + b c And b + c a And a + c b Thenp = (a + b + c) / 2s = Sqr(p * (p - a) * (p - b) * (p - c))MsgBox (s)ElseMsgBox (不能构成三角形)End IfEnd Sub（9）输入三个数a,b,c,编写程序使得a=b=c。并输出这三个数。Private Sub Command1_Click()Dim a%, b%, c%, m%