VB机试答题带答案.doc

1. 设 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 Subsum = 0.4794262. 定义一个下标上界为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 sum3. 在窗体上放置文本框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 If4. 输入一个三位数，分别输出它的百位数字、十位数字和个位数字。 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)5. 计算sum=2+4+6+.+1000 Dim sum, i As Integer For i = 2 To 1000 Step 2 sum = sum + i Next print sum6. 求下面级数前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 Next10.建立一个 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 Next Next Text1.Text = max1.求下面级数前s项中偶数项的和SUM。在求和过程中，以第一个数值大于10000 的项为末项，计算并输出和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 = 3680472.建立一个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所有奇数行元素的和为：5063.编写一个函数，判断某整数是否为素数。调用该函数，输出区间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= 4196844.编写一个函数，求某个数的阶乘。调用该函数计算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 Sub4790016005.编写子过程，计算并输出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=160016.定义下标上界为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 sum7.编写函数，计算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 Function8.编写一个函数（参数为一维整型数组），求所有数组元素中最小值的下标。 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 Function9.定义一个下标上界为100的整型数组，并为其赋初值（各个元素值处于500，1000），计算数组中所有不大于800的元素的和。 Dim a(100), i, sum As Integer For i = 0 To 100 a(i) = 500+Int(Rnd() * 501) Next For i = 0 To 100 If a(i) =800 Then sum = sum + a(i) End If Next print sum10.计算并输出下面级数中奇数项的和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 Function3. 用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 If4. 建立一个 66的整型二维数组（数据由程序调用Rnd函数产生0，20 ）的随机整数数），输出数组中所有奇数列元素的和。 Dim A(5, 5) As Integer Dim i, j As Integer For i = 0 To 5 For j = 0 To 5 A(i, j) = Int(Rnd() * 20) Next Next Dim sum As Integer For j= 0 To 5 Step 2 For i = 0 To 5 sum = sum + A(i, j) Next Next Text1.Text = sum所有奇数列元素的和为：1885. 输入两个整数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)6. 求下面级数前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) max Then max = A(i, j) End If Next Next Text1.Text = max 最大元素为：9 End Sub8. 编写一个函数，其功能为判断一个3位正整数是否是水仙花数。（水仙花数是指各位数字的立方和与该数相等，如153=13+53+33,153就是水仙花数。）Public Function Panduan(ByVal x As Integer) As Boolean Dim a As Integer, b As Integer, c As Integer a = x 100 b = (x Mod 100) 10 c = x Mod 10 If x = a 3 + b 3 + c 3 Then Panduan = True Else Panduan = False End If End FunctionPrivate Sub Command1_Click() Dim i As Integer i = InputBox(输入一个3位正整数：) MsgBox (Panduan(i)End Sub9. 计算sum=1+2+.+100 Dim sum, i As Double For i = 1 To 100 sum = sum + i Next print sum10. 定义一个下标上界为10整型数组，并为其赋值（值处于0，100之间），计算数组中所有不小于60的数据的和。 Dim a(10), i, sum As Integer For i = 0 To 10 a(i) = Int(Rnd() * 101) Next For i = 0 To 10 If a(i) =60 Then sum = sum + a(i) End If Next print sum61. 如果一个三位整数等于其各位数字的立方和，则称这个数为水仙花数，如 15313+53+33。试编写程序，找出所有的水仙花数。Dim i As IntegerFor i = 100 To 999 a = i Mod 10 c = i 100 b = (i Mod 100) 10 If i = a 3 + b 3 + c 3 Then Print iNext2. 编写程序，建立并输出一个5*5的矩阵，该矩阵主对角线元素为5，其余元素为1。Dim a(1 To 5, 1 To 5) As IntegerDim i%, j%For i = 1 To 5 For j = 1 To 5 a(i, j) = 1 NextNextFor i = 1 To 5 a(i, i) = 5NextFor i = 1 To 5 For j = 1 To 5 Print a(i, j); Next PrintNext3. 输入三个数a、b、c，判断其是否能够构成三角形，若能，则计算其面积，并用MsgBox输出；否则用MsgBox输出“不能构成三角形”。Private Sub Command1_Click()Dim a As Double, b As Double, c As DoubleDim p As Double, s As Doublea = Val(InputBox(A)b = Val(InputBox(B)c = Val(InputBox(C)If a + b c And a + c b And b + c a Then p = (a + b + c) / 2 s = Sqr(p * (p - a) * (p - b) * (p - c) MsgBox (面积是 & s)Else MsgBox (不能构成三角形)End IfEnd Sub4. 用InputBox输入一个年份，判断该年份是否是闰年，若是则输出“Yes”，否则输出“No”。Private Sub Command1_Click()Dim a As Integera = Val(InputBox(year)If (a Mod 4 = 0 And a Mod 100 0) Or a Mod 400 = 0 Then Print YesElse Print NoEnd IfEnd Sub5. 输入长方形的边长，计算长方形的对角线长。输入圆的半径，计算圆的面积。Dim a As Double, b As Double, c As Doublea = Val(InputBox(长)b = Val(InputBox(宽)c = Sqr(a 2 + b 2)Print cPrivate Sub Command1_Click()Dim r As DoubleDim s As Doubler = Val(InputBox(半径)s = r 2 * 3.1415Print 圆面积, sEnd Sub6. 随机输出0，10）的随机数；0，10的随机整数。Print Int(Rnd * 10)Print Int(Rnd * 11)7. 随机输出一个大写字母。Private Sub Command1_Click()a = Int(Rnd * (90 - 65 + 1) + 65Print Chr(a)End Sub8. 输入三个数a，b，c，输出三个数的最大值maxDim a As Double, b As Double, c As Doublea = Val(InputBox(asasd)b = Val(InputBox(asasd)c = Val(InputBox(asasd)Max = aIf Max b Then Max = bIf Max = 5 And a i Then min = i End IfNextPrint 最小; min; 个数; n; 合; sEnd Sub14. 编写程序，建立一个 66的整型二维数组（数据是0，15 ）的随机整数）输出奇数列的和s1，奇数行的和s2。编写函数，求元素最小值min。Private Function amin(x() As Integer) As Integeramin = x(1, 1)minx = 1miny = 1For i = 1 To 6 For j = 1 To 6 If amin x(i, j) Then amin = x(i, j) minx = i miny = j End If NextNextPrint minx; minyEnd FunctionPrivate Sub Command1_Click()Dim a(1 To 6, 1 To 6) As IntegerFor i = 1 To 6 For j = 1 To 6 a(i, j) = Int(Rnd * 15) NextNexts1 = 0For j = 1 To 5 Step 2 For i = 1 To 6 s1 = s1 + a(i, j) NextNexts2 = 0For i = 1 To 5 Step 2 For j = 1 To 6 s2 = s2 + a(i, j) NextNextPrint s1Print ; s2 Print amin(a)End Sub1输入圆的半径，计算圆的面积，并输出。Private Sub Command1_Click()Dim r!, s!r = InputBox(请输入半径, 输入框)s = 3.1415926 * r 2Text1.Text = sEnd Sub输入正方形的边长，计算正方形的面积，并输出。Private Sub Command1_Click()Dim a%a = Text1.Texts = a * aPrint sEnd Sub计算长方形周长Private Sub Command1_Click()Dim m#, n#m = Val(InputBox(请输入长方形的长)n = Val(InputBox(请输入长方形的宽)MsgBox (2 * (m + n)End Sub输入三个数判断是否能构成三角形，若能计算其面积Private Sub Command1_Click()Dim i As Integer, a(2) As Integer, p As Single, s As SingleFor i = 0 To 2a(i) = Val(InputBox(输入第 & i & 条边的边长：)Next iIf a(0) + a(1) a(2) And a(0) + a(2) a(1) And a(1) + a(2) a(0) Thenp = (a(0) + a(1) + a(2) / 2s = Sqr(p * (p - a(0) * (p - a(1) * (p - a(2)MsgBox (s)ElseMsgBox (不能构成三角形)End IfEnd Sub2输入一个两位数，分别输出它的个位数字和十位数字。Private Sub Command1_Click()a = Val(InputBox(, )If a = 10 And a = 1000 And a Max Then Max = a(i, j) End If Print a(i, j); n = n + 1 If n Mod 6 = 0 Then Print End If Next jNext iPrint 最大元素为：; MaxEnd Sub编写一个函数，其参数为一个一维整型数组，其功能为求数组中所有元素的平均值。Option Base 1Private Sub Command1_Click()Dim a()a() = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)Print 数组中所有元素的平均值为： & ave(a()End SubPrivate Function ave(a()For i = 1 To UBound(a) Sum = Sum + a(i)Next iave = Sum / UBound(a)End Function5编写程序，计算并输出下