VB答题.docVIP

VB资料 一 1.n=1to78,1/1*2*3,1/2*3*4,1/3*4*5……1/n*(n+1)*(n+2),求其中的奇数项和,并四舍五入,保留四位小数. 2.n=1to78,1*2*3,2*3*4,3*4*5……n*(n+1)*(n+2),求其中的偶数项和, 并四舍五入,保留四位小数 3.n=1to54,1^3+2^3+3^3……n^3,求和. 4.(-1)^(n+1)/i*i, 1,-1/2*2,1/3*3……(-1)^(n+1)/i*i,求前40项之和, 并四舍五入,保留四位小数 5.3/1,5/3,7/5……(2n+1)/(2n-1),求前54项之和,并四舍五入,保留四位小数. 6.3/2,5/4,7/6……(2n+1)/2n,求前78项之和, 并四舍五入,保留四位小数. 二 1.随机产生20个10~99的正整数,用冒泡法求出最大值,最小值. 2.随机产生20个10~99的正整数,除去其中的偶数,再将剩余的奇数从大到小排列. 3.请输入一些数,然后求出总和,平均值,再输出高于平均值的数. 4.随机产生10~99的一维数组,求出相邻差最大值. 5.输入一串字符,然后将其反序输出,并计算ASC码之和. 6.随机产生100以内的20个随机数,并排序 7.随机产生20个20~99的正整数,并将五个最大值和五个最小值打印出来. 8.随机产生20个20~99的正整数,把他填入一个数组,把偶数都变0,奇数不变,把数由小到大排列,打印出奇数. 9.用inputbox输入一批数据,统计其中数字,字母,其他字符出现的次数(提示:用mid;len) 10.随机产生20个10~99的正整数,用选择排序法进行排序,输出次最小值. 注: 1．整章试卷下来,数组是显得很重要,重点看一下选择排序和冒泡排序,二维数组出现概率也会很大,还有插入数据也可能会考,然后第七章的过程在选择题和填空题在试卷中也会出现,控件类的题是第三道大题,时间控件整体上出现的挺多的,还有一些放大缩小之类的,第二章也要重点看一下.选择题也不是很简单,复习资料上的考试中出现的概率不高,需要多看看课本,资料上的也需要多理解一下.大概就这些了.呵呵~~~~ 2.第三道大题由于有图形，没办法打上去，所以还请见谅！不过题目还是有的，每个班相互传着复印看看吧。 附： 这哥们几乎问遍了他们系所有男生考的大题，几乎就上边的了，昨天晚上他熬夜到一点多打出来的，请默默地跟他说声：“谢谢”吧。希望你会碰到原题，祝你好运！不挂科，你懂得！加油！ 1. Private Sub Form_Click() For i = 1 To 78 If i Mod 2 0 Then s = s + 1 / (i * (i + 1) * (i + 2)) End If Next i Print Format(s, ###.0000) End Sub 2. Private Sub Form_Click() For i = 1 To 78 If i Mod 2 = 0 Then s = s + (i * (i + 1) * (i + 2)) End If Next i Print Format(s, ####.0000) End Sub 3. Private Sub Form_Click() For i = 1 To 54 s = s + i ^ 3 Next i Print s End Sub 4. Private Sub Form_Click() For i = 1 To 40 s = s + ((-1) ^ (n + 1)) / (i * i) Next i Print Format(s, #####.0000) End Sub 5. Private Sub Form_Click() For i = 1 To 54 s = s + (2 * i + 1) / (2 * i - 1) Next i Print Format(s, #####.0000) End Sub 6. Private Sub Form_Click() For i = 1 To 78 s = s + (2 * i + 1) / (2 * i) Next i Print Format(s, #####.0000) End Sub 二．1. Private Sub Form_Click() Dim a(1 To 20) For i = 1 To 20 a(i) = Int(Rnd * 90 + 10) Print a(i); Next i Print For i = 1 To 19 For j = 1 To 20 - i If a(j) a(j + 1)