VB编程题及答案

1定义一个下标上界为10整型数组，并用随机函数为其赋值（值处于0,100之间），计算数组中所有偶数的和。Private Sub Command1_Click()RandomizeDim 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 所有偶数的和为, s2 设 S=35，C=0.3，编写程序，计算并输出下面级数的部分和。结果取小数点后面7位。 C/1!-C3/3!+C5/5!- +(-1)(S-1)*C(2*S-1)/(2*S-1)!+ 参考答案如下： Private Sub Command1_Click() Dim n As Integer Dim x As Double x = 0.3 Dim item As Double Dim sum As Double Dim fac As Double For n = 1 To 35 fac = 1 Dim i As Integer For i = 1 To 2 * n - 1 fac = fac * i Next item = (-1) (n - 1) * x (2 * n - 1) / fac sum = sum + item Next sum = Int(sum * 10000000 + 0.5) / 10000000 MsgBox (sum)End Sub sum = 0.4794263 定义一个下标上界为30的单精度数组，设置好其初值（值处于20，90），计算数组中所有元素的均值。 Dim i, sum, ave As IntegerDim a(30) As Single For i = 0 To 30 a(i) = 20+Int(Rnd() * 71) Next For i = 0 To 30 sum = sum + a(i) Next ave = sum / 31 print sum4 在窗体上放置文本框Text1、Text2，放置一个按钮Command1。在Text1里写入一个整数，点击按钮时，对Text1内的数据进行判断，如果是偶数，则在Text2里显示“该数是偶数”。Dim x As Integer x = Val(Text1.Text) If x Mod 2 = 0 Then TText2.Text = 该数是偶数 Else Text2.Text = 该数是奇数 End If5 输入一个三位数，分别输出它的百位数字、十位数字和个位数字。 Dim a, baiwei, gewei, shiwei As Integer a = Val(InputBox() gewei = a Mod 10 baiwei= a 100shiwei = (a 10) Mod 10 MsgBox(gewei) MsgBox(shiwei)6. 计算sum=2+4+6+.+1000 Dim sum, i As Integer For i = 2 To 1000 Step 2 sum = sum + i Next print sum7 求下面级数前S项中奇数项的和sum。在求和过程中，以第一个奇数项的数值大于 10000 的项为末项。1!-2!+3!-4!+ +(-1)(S-1)*S!+ 参考答案如下：Private Sub Command1_Click() Dim n As Integer Dim item As Double Dim i As Integer Dim sum As Double Dim fac As Double sum = 0 n = 1 Do While True item = 1 For i = 1 To n item = item * i Next i sum = sum + item If Abs(item) 10000 Then Exit Do Else n = n + 2 End If Loop MsgBox (sum)End Sub8. 已知A、B为整数，A和B的立方和为1000，求所有的A、B。 Dim x, y As Integer For x = 0 To 10 For y = 0 To 10 If x 3 + y 3 = 1000 Then MsgBox(x & & y) End If Next Next9建立一个 55的整型二维数组，由Rnd函数产生25，95）的随机整数对该数组赋初值，输出数组中的最大元素。参考答案如下： Dim A(4, 4) As Integer Dim i, j As Integer For i = 0 To 4 For j = 0 To 4 A(i, j) = 25+Int(Rnd() * 71) Next Next Dim max As Integer max = A(0, 0) For i = 0 To 4 For j = 0 To 4 If A(i, j) max Then max = A(i, j) End If Next10.的项为末项，计算并输出和SUM。1!-2!+3!-4!+ +(-1)(s-1)*s!+ Private Sub Command1_Click() Dim n As Integer Dim item As Double Dim sum As Double sum = 0 n = 2 Do While True item = 1 Dim i As Integer For i = 2 To n item = item * i Next sum = sum + item If item 10000 Then Exit Do Else n = n + 2 End If Loopsum = -1*sum MsgBox (sum) End Sub sum = 36804711.建立一个99的整型二维数组（由Rnd函数产生10，60）的随机整数对数组初始化），输出数组中所有奇数行元素的和。 Dim A(8, 8) As Integer Dim i, j As Integer For i = 0 To 8 For j = 0 To 8 A(i, j) = 10+Int(Rnd() *51) Next Next Dim sum As Integer For i = 0 To 8 Step 2 For j = 0 To 8 sum = sum + A(i, j) Next Next Text1.Text = sum所有奇数行元素的和为：50612.编写一个函数，判断某整数是否为素数。调用该函数，输出区间1000，2000 内所有素数的和。Private Function isprime(ByVal n As Integer) As Boolean Dim i As Integer For i = 2 To n - 1 If n Mod i = 0 Then isprime = False Exit Function End If Next isprime = TrueEnd FunctionPrivate Sub Command1_Click() Dim i As Integer Dim sum As Long For i = 1000 To 2000 If isprime(i) = True Then sum = sum + i End If Next Text1.Text = sum= & sum End Subsum= 41968413.编写一个函数，求某个数的阶乘。调用该函数计算22!。Public Function fact(ByVal n As Integer) As Long Dim i As Integer, f As Long f = 1 For i = 1 To n f = f * i Next i fact = fEnd FunctionPrivate Sub Command1_Click() Dim m As Integer, i As Integer, s As Long m = InputBox(输入一个正整数：) s = fact(m) MsgBox (s)End Sub47900160014.编写子过程，计算并输出3000-4000之间的素数之和C与其中最小的素数MIN。 Private Sub Command1_Click() Dim sum, i, min As Integermin=0 For i = 3000 To 4000 Dim isprime As Boolean = True Dim j As Integer For j = 2 To i - 1 If i Mod j = 0 Then isprime = False Exit For End If Next If isprime = True Then If min = 0 Then min = i End IfIf imin Thenmin=iEnd If C = C + i End If Next MsgBox(sum) MsgBox(min) End Sub sum=1617104 mi=1600115.定义下标上界为35的整型数组，并赋初值（用Rnd函数初始化数组，使各个元素的值处于200，300之间），求数组中所有不大于350的元素之和。 Dim a(35), i, sum As Integer For i = 0 To 35 a(i) = 200+Int(Rnd() * 101) Next For i = 0 To 35 If a(i) =350 Then sum = sum + a(i) End If Next print sum16编写函数，计算S=1/1!+1/3!+1/5!+.+1/9! Private Function Fact(ByVal x As Integer) As IntegerDim sum, i, f As Double f = 1 For i = 1 To 9 f = f * i If i Mod 2 = 1 Then sum = sum + 1/f End If Next Fact = sum End Function17编写一个函数（参数为一维整型数组），求所有数组元素中最小值的下标。 Public Function max(ByRef a() As Integer) As Integer Dim t As Integer t = 0 Dim i As Integer For i = 1 To UBound(a) If a(i) a(t) Then t = i End If Next max = tEnd Function18计算并输出下面级数中奇数项的和SUM，要求在第一次出现SUM的绝对值大于100时结束。1*2-2*3+3*4-4*5+(-1)(m-1)*m*(m+1)+ Private Sub Command1_Click() Dim sum As Long Dim item As Long Dim n As Integer n = 1 Do item = (-1) (n - 1) * n * (n + 1) sum = sum + item n = n + 2 Loop While Abs(sum) n Then Dim t As Integer t = m: m = n: n = t End If For i = m To 1 Step -1 If m Mod i = 0 And n Mod i = 0 Then gcd = i Exit Function End If NextEnd Function20. 用InputBox输入一个年份，判断该年份是否是平年，若是则输出“Yes”，否则输出“No”。Dim year As Integer year = Val(InputBox() If(year Mod 400 = 0)Or(year Mod 4 = 0 And year Mod 1000) Then MsgBox(No) Else MsgBox(Yes) End If21 输入两个整数m、n，编写程序使得m=n，并输出m、n的值。Dim m, n As Integer m = Val(InputBox() n = Val(InputBox() If m n Then Dim t As Integer t = m : m = n : n = t End IfMsgBox(m= & m & ; & n= & n)22求下面级数前n项的和S，在求和过程中，当某项（注意，该项参与求和）的绝对值小于0.0001 时求和终止。结果取 5 位小数。 1-1/3+1/5-1/7+1/9-1/11+ +(-1)(n-1)*1/(2n-1)+ Private Sub Command1_Click() Dim n As Integer Dim item As Double Dim sum As Double i = 1 Do While True item = (-1) (i - 1) * 1 / (2 * i - 1) sum = sum + item If Abs(item) = 0.0001m = m * ff = f + 1n = -ns = s + n / mLoops = Format(s, 0.000000)Print sEnd Sub26输入一个四位数，分别输出它的个位数字，是十位数字，百位数字，千位数字。Private Sub Command1_Click()Dim a%, j%, k%, i%, m%a = InputBox(请输入一个四位整数)j = a 1000k = a 100 Mod 10i = a 10 Mod 10m = a Mod 10Print 个位数字; mPrint 十位数字; iPrint 百位数字; kPrint 千位数字; jEnd Sub6. 计算sum=2!+4!+6!+.+10!Private Sub Command1_Click()Dim a%, i%Sum = 0i = 1: a = 1Doa = 2 * iIf i Mod 2 = 0 ThenSum = Sum + aEnd Ifi = i + 1Loop While i = 10Print SumEnd Sub27编写程序，计算并输出下面级数前n项（n=20）中奇数项的和。1*2*3-2*3*4+3*4*5-4*5*6+.+(-1)(n-1)*n*(n+1)*(n+2)+.Private Sub Command1_Click()Dim s!, i%For i = 1 To 20 Step 2s = s + i * (i + 1) * (i + 2)NextMsgBox (s)End Sub28随机输出一个小写字母。Private Sub Command1_Click()Dim a As StringRandomizea = Chr(Int(97 + 26 * Rnd)MsgBox (a)End Sub、29编写程序，计算并输出下面级数前n项（n=50）中偶数项的和。s=1*2+2*3+3*4+4*5+.+n*（n+1）+.Private Sub Command1_Click()Dim s!, i%For i = 2 To 50 Step 2s = s + i * (i + 1)NextMsgBox (s)End Sub30斐波那契数列是由计算某类动物繁殖增长量而提出的。数列的前两项是1、1，以后的每一项都是其相邻前两项的和。编写程序求：数列前30项和。Private Sub Command1_Click()Dim a&, b&, c&, i%a = 1: b = 1: c = 2: Sum = 0For i = 1 To 28c = a + ba = bb = cSum = Sum + cNextMsgBox (Sum)End Sub31输入三个数a、b、c，编写程序使得a=b b Thent = bb = aa = tEnd IfIf a c Thent = aa = cc = tEnd IfIf b c Thent = bb = cc = tEnd IfPrint a, b, cEnd Sub32编写程序，设n=20，x=3.4，计算并输出S(n)的值，要求结果保留5位小数。S(n)=Inx/x+In2x/x2+In3x/x3+.+In(n*x)/xn+.Private Sub Command1_Click()Dim x#, i%Dim S(20) As Doublen = 20x = 3.4For i = 1 To 20S(20) = S(20) + Log(i * x) / (x i)NextPrint Format(S(20), 0.00000)End Sub33输入任意三个数 找出其中最大的数Private Sub Command1_Click()Dim a!, b!, c!, Max!a = Text1.Textb = Text2.Textc = Text3.TextMax = aIf b Max Then Max = bIf c Max Then Max = cText4.Text = MaxEnd Sub输出1到100之间的素数Print 1; 2;a = 3While a = 100i = 2 While i a If a Mod i = 0 Then i = a End If i = i + 1 Wend If i = a Then Print a; End Ifa = a + 1Wend、34打印斐波那契数列20项Private sub form_click()A=0B=1Text1.text=text1.text&str(A)&str(B)&chr(13)& Chr(10)For i=1 to 9A=A+BB=A+BText1.text=text1.text&str(A)&str(B)&chr(13)& Chr(10)Next i35判定素数A=val(inputbox(“input a”)For i=2 to aIf(a mod i=0) thenExit forEnd ifNext iIf ip then n=n+1Next iPrint “平均分=”;”高于平均分的人数=”;n138 设C=0.3，编写程序，计算并输出下面级数的部分和。结果取小数点后面7位。 C/1!-C3/3!+C5/5!- +(-1)(S-1)*C(2*S-1)/(2*S-1)!+ Dim n as integerDim x as integerX=0.3Dim item as doubleDim sum as doubleDim fact as doubleFor n=1 to 35Fact=1Dim I as integerFor I =1 to 2*n-1Fact=fact*iNextItem =(-1)(n-1)*x(2*n-1)/factSum=sum+itemNextSum=int(sum*10000000+0,.5)/100000000Magbox39已知A、B为整数A和B的立方和为1000求所有的A、B。Dim x ,y as integerFor x=0 to10For y=0 to10If x3+y3=1000 thenMsgbox(x=;y=)40 定义一个下标上界为30的单精度数组，设置好其初值（值处于20，90），计算数组中所有元素的均值。Dim array (30) as singleFor i=0Array(i)=20+int(rnd()*71)Next iDim sum%For i=0 to 30Sum=sum+array(i)Next iPrint sum 31End sum41求下面级数前S项中奇数项的和sum。在求和过程中，以第一个奇数项的数值大于 10000 的项为末项。1!-2!+3!-4!+ +(-1)(S-1)*S!+ Dim n as integerDim item doubleDim I as integerDim sum as doubleDim abs as doubleDo while trueItem =1For I =1 to nItem = item*1Next iSum=sum +itemN=n+2If abs (item)10000 thenExit doElseN=n+2End ifLoopMsgbox(sum)42计算sum=1/1!+1/2!+1/3!+.+1/10!Private Sub Command1_Click()Dim m As Integer, n As Long, s As Double n = 1 s = 0 For m = 1 To 10 n = n * m s = s + 1 / n Next Print s42求从j,s区间内的素数及素数和（这里需要用到三个文本框和2个按钮）Private Sub Command1_Click() Dim n%, i%, j%, s% Sum = 0 j = Val(Text1.Text() s = Val(Text2.Text() For n = j To s For i = 2 To n - 1 If n Mod i = 0 Then Exit For Next i If i n - 1 Then Sum = Sum + n: Print n Next n Text3.Text = SumEnd SubPrivate Sub Command2_Click()ClsText1.Text = Text2.Text = Text3.Text = Text1.SetFocusEnd Sub43某分段函数描述如下：（1）当x为偶数时，y的值为x的二分之一。（2）当x为奇数时，y的值为x的二倍。Private Sub Command1_Click()Dim x!, y!x = Val(InputBox(请输入X的值！)If x Mod 2 = 0 Theny = x / 2Elsey = 2 * xMsgBox (y)End IfEnd Sub44随机输出一个小写字母。Private Sub Command1_Click()Dim a As StringRandomizea = Chr(Int(97 + 26 * Rnd)MsgBox (a)End Sub、45编写程序，计算并输出下面级数前n项（n=50）中偶数项的和。s=1*2+2*3+3*4+4*5+.+n*（n+1）+.Private Sub Command1_Click()Dim s!, i%For i = 2 To 50 Step 2s = s + i * (i + 1)NextMsgBox (s)End Sub46编写程序，设n=20，x=3.4，计算并输出S(n)的值，要求结果保留5位小数。S(n)=Inx/x+In2x/x2+In3x/x3+.+In(n*x)/xn+.Private Sub Command1_Click()Dim x#, i%Dim S(20) As Doublen = 20x = 3.4For i = 1 To 20S(20) = S(20) + Log(i * x) / (x i)NextPrint Format(S(20), 0.00000)End Sub47设 S=35，C=0.3，编写程序，计算并输出下面级数的部分和。结果取小数点后面7位。 C/1!-C3/3!+C5/5!- +(-1)(S-1)*C(2*S-1)/(2*S-1)!+ 参考答案如下： Private Sub Command1_Click() Dim n As Integer Dim x As Double x = 0.3 Dim item As Double Dim sum As Double Dim fac As Double For n = 1 To 35 fac = 1 Dim