VB上机试题.doc

129：单击窗体。求出100以内所有素数的和，并将结果输出到窗体上,并存入所给变量SUM中Dim j As IntegerDim k As IntegerDim b As Integerb = FalseFor i = 2 To 100 b = False j = Int(Sqr(i) For k = 2 To j If i Mod k = 0 Then b = True End If Next If b = False Then Sum = Sum + iEnd IfNextPrint Sum130:求200300之间既能被3整除又能被7整除的数。并求出所有数之和存入变量SUM中Dim i As IntegerFor i = 201 To 300 If i Mod 3 = 0 And i Mod 7 = 0 Then Print i Sum = Sum + i End IfNextPrint Sum131:已知S=1+1/4+1/9+1/16+1/25+1/100，结果输出在窗体上Private Sub Form_Click()Dim s As SingleDim I as integerS =0For I =1to 10 S= s+1/(i2)NextPrint (s)End Sub132:在窗体上打印数列2/1,3/2,5/3,8/5,13/8的前10项，并求其和。Private Sub Form_Click()Dim s As SingleDim i, j, k, m as IntegerS =0I = 2J = 1For k = 1 to 10 M = jPrint (cstr (i) & / & cstr(j)J =iI =i+mS =s+i/jnextEnd Sub133: 一球从100米高度自由落下，每次落地返回,原高度的一半，求第10次落地时，共经过多少米？并将结果在窗体上输出。Private Sub Form_Click()Dim s As SingleDim j , I as integerS = 0J =100For I =2 to 10 J = j / 2 S = s + 2 *jNextS =100 +sPrint (cstr(s)End Sub134: s=20+21+22+263，求s的值，并将结果存储到变量S中。Dim i As Integeri = 20While i max then Max = a(i)End ifIf a(i) min thenMin = a(i)End ifS = s + a(i)NextAver = int(s / 10)Print (cstr(max)Print (cstr(min)Print (cstr(aver)144:在窗体上输出100200之间的所有合数。求出所有数之和存入SUM中Dim i as integerDim j as integerDim s as integerFor j = 100 to 200For j = 2 to sqr (i)If (i mod j ) = 0 thenPrint (cstr(i)Sum =sum + iExit for End if NextNextPrint sum146：:单击窗体。求50以内所有偶数的和，并在窗体上输出出来。将结果存入变量S中Dim i As IntegerFor i = 2 To 50 If (i Mod 2) = 0 Then s = s + i End IfNextPrint (CStr(s)147:求出50以内所有奇数的和。将结果存入变量SUM中Dim i as integerFor i = 1 to 50If i mod 2 = 1 thenSum = sum +1End ifNextPrint sum148:求1020之间所有素数的乘积并输出在窗体上。将结果存入变量L中Dim i as integerDim j as integerDim b as booleanl = 1b = falseFor i = 10 to 20For j = 2 to i - 2If i mod j = 0 then b = tureEnd ifNextIf b = false then l = l * iEnd if b = falseNextPrint Str (l)149:求1!+2!+3!+10!的值，并在窗体上输出。结果存入变量L中Dim i as integerDim s as long Dim j as integerS =1For i =1 to 10S =s *il = l +sNextPrint str (l) 150:求1 - 1/2 + 1/3 - 1/4 + + 1/99 - 1/100的值。将结果存入变量J中Dim i as integerFor i 1 to 100If i mod 2 =1 then J = j + 1 / iElself I mod 2 =0 thenJ = j - 1 / iEnd ifNextPrint j151:求1+2+3+100的值，并把结果输出在窗体上。结果存入变量SUM中Dim i As IntegerFor i = 1 To 100 Sum = Sum + iNextPrint Sum152:求1+2+3+5+8+13+前20项的和,并将结果在窗体上输出。将结果存入变量SUM中Dim i as integerDim j(1 to 20) as integerFor i = 1 to 20If i 3 thenJ(i) = iElseJ(i) = j(i-1) + j(i-2)End if Sum = sum +j(i)NextPrint sum153:求100以内奇数的和，并将结果输出在窗体上。将结果存入变量SUM中Dim i as integerFor i = 1 to 100If i mod 2 =1 thenSum = sum + iEnd if NextPrint sum154:求100以内偶数的和，并将结果输出在窗体上。将结果存入变量SUM中Dim i as integerFor i = 1 to 100if i mod 2 = 0 then Sum = sum +iEnd ifNextPrint sum 155:求1+5+10+15+500的和，并将结果输出到窗体上。将结果存入变量SUM中Dim i As IntegerFor i = 1 To 500 If i Mod 5 = 0 Then Sum = Sum + i End IfNextprint sum156:求3+6+9+12+15+18+300的和,并将结果输出到窗体上。将结果存入变量 SUM中Dim i As IntegerFor i = 3 To 300 If i Mod 3 = 0 Then Sum = Sum + i End IfNextprint sum158:求数列1+3+3+9+27+前6项的和,并将结果输出到窗体上。将结果存入变量SUM中Dim i As Integer Dim j(1 To 6) As Integer For i = 1 To 6 If i 3 Then j(i) = 3 (i - 1) Else j(i) = j(j - 1) * j(i - 2) End If Sum = Sum + j(i) Next Print Sum465:判断一个数是否是素数Dim i as integerPrime = trueFor i = 2 to int(sqr(m)If m mod i = 0 then Prime = false : exit forNext i473:将一张面值为100元的人民币等值换成100张5元、1元和0.5元的零钞，要求每种零钞不少于1张，问有哪几种组合？将组合数存入变量OUT中。Dim n As IntegerDim i%, j%, k%Print 5? 1? 0.5?For i = 1 To 20 For j = 1 To 100 - i k = 100 - i - j If 5# * i + 1# * j + 0.5 * k = 100 Then Print i, j, k n = n + 1 End If Next jNext iout = n474:编写函数fun，函数的功能是：计算并输出给定整数n的所有因子之和（不包括1与自身）。规定n的值不大于1000?例如：n的值为855时，应输出704。Dim s , i As IntegerFor i = 2 to n 1If n mod i = 0 Thens = s +iEnd ifNextFun = s475: 编写函数fun，函数的功能是：计算n门课程的平均值，计算结果作为函数值返回。例如，若有5门课程的成绩是：92，76，69，58，88，则函数的值为76.6。Dim i as integerDim y as singleFor i = 1 to n Y = y +a(i)NextFun = y / n476:编写函数fun其功能是：根据整型形参m，计算如下公式的值：y=1/2!1/4!.1/m! (m是偶数)Dim y as double Dim t as double T = 1Dim i as integerFor i = 2 to m step 2T =t *1# / iNext iFun = y477:编写函数fun其功能是:判断一个整数w的各位数字平方之和能否被5整除 , 可以被5整除则返回1 , 否则返回0Dim k as integer,s as integerDo S = s + (w mod 10)* (w mod 10)W = int(w / 10 )Loop while w 0 thenK = 1ElseK = 0End ifFun = k478:编写函数fun其功能是:能计算从1开始到n的自然数中偶数的平方的和，n由键盘输入,(n是偶数)Dim sum as integer , i as integerSum = 0For i =2 to n step2Sum =sum +i *iNextFun =sum 479:编写函数fun其功能是：根据整型形参m，计算.如下公式的值：y=1/21/41/6.1/2m例如：若m=9，则应输出：1.414484Dim y as doubleDim i as integer For i = 1 to mY = y +1 /(2 * i )NextFun = y480:编写函数fun其功能是：根据整型形参m，计算如下公式的值:y=1/5+1/61/71/81/9+1/10.1/(m+5).例如：若m=9，则应输出：1.168229 Dim y As DoubleDim i As IntegerFor i = 0 To m y = y + 1 / (i + 5)NextFun = y481: 编写函数fun其功能是：根据整型形参m，计算如下公式的值:y=11/31/51/7.1/(2m+1),例如：若m=9，则应输出：2.133256Dim y As DoubleDim i As Integery = 1For i = 1 To m y = y + 1 / (2 * i + 1)Next fun = y482:编写函数fun，函数的功能是：求一个四位数的各位数字的立方和Dim d as integerDim k as integerDim s as integerWhile n 0D = n mod 10S = s + d * d * dN = n / 10Wend Fun = s483:编写函数fun，函数的功能是：求1到100之间的偶数之积 Dim y as double y = 1Dim i as integerFor i = 1 to mIf i mod 2 = 0 then Y = y*iEnd ifNextFun = y 145求出100200之间，能被5整除，但不能被3整除的数。并求所有数之和，存入变量中SUM中Dim i As IntegerFor i = 100 To 200 If ( (i mod 5 ) = 0) And ( (i mod 3 ) 0 Then Print (CStr(i