VB上机试卷.docVIP

129：单击窗体。求出100以内所有素数的和，并将结果输出到窗体上,并存入所给变量SUM中 Dim j As Integer Dim k As Integer Dim b As Integer b = False For 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 + i End If Next Print Sum 130:求200~300之间既能被3整除又能被7整除的数。并求出所有数之和存入变量SUM中 Dim i As Integer For i = 201 To 300 If i Mod 3 = 0 And i Mod 7 = 0 Then Print i Sum = Sum + i End If Next Print Sum 131:已知S=1+1/4+1/9+1/16+1/25+…+1/100，结果输出在窗体上 Private Sub Form_Click() Dim s As Single Dim I as integer S =0 For I =1to 10 S= s+1/(i^2) Next Print (s) End Sub 132:在窗体上打印数列2/1,3/2,5/3,8/5,13/8…的前10项，并求其和。 Private Sub Form_Click() Dim s As Single Dim i, j, k, m as Integer S =0 I = 2 J = 1 For k = 1 to 10 M = j Print (cstr (i)) / cstr(j) J =i I =i+m S =s+i/j next End Sub 133: 一球从100米高度自由落下，每次落地返回,原高度的一半，求第10次落地时，共经过多少米？并将结果在窗体上输出。 Private Sub Form_Click() Dim s As Single Dim j , I as integer S = 0 J =100 For I =2 to 10 J = j / 2 S = s + 2 *j Next S =100 +s Print (cstr(s)) End Sub 134: s=20+21+22+…+263，求s的值，并将结果存储到变量S中。 Dim i As Integer i = 20 While i = 263 s = s + i i = i + 1 Wend Print (CStr(s)) 136： 求出具有如下特点的四位数字，它的平方根恰好就是它中间的两位数字，例如，2500开平方为50，恰为2500的中间两位，找出所有这样的四位数。并求出这两个数字的和存入SUM中 Dim i As Integer Dim j As Integer For i=1000 to 9999 j=Val (Mid (Trim (Str (i) ) ,2,2 ) ) If j ^ 2 = i then Print i sum = sum + i End if Next 137：把一元钞票换成一分、二分和五分的硬币（每种至少有一枚），求出其所有的换法，把结果输出在窗体上。将所有的换法的数目存入变量N中 Dim I,j,k as integer For i=1 to 100 For j=1 to 50 For k=1 t0 20 If ((i+2*j+k*5)=100) Then Print(CStr(i)) Print(CStr(j)) Print(CStr(k)) n = n + 1 End if Next Next Next 138:公鸡3元1只，母鸡5元1只，小鸡一元3只，怎样用100元买。100只鸡。把结果输出到窗体上。将答案数存放在变量N中 Dim i as integer Dim j as integer Dim k as integer For i = 1 to 20 母鸡 For j = 1 to 33 公鸡 For k = 3 to 100 小鸡