2011年VB期末考试题库.xlsVIP

程序设计题-5-2 程序填空-5-3 程序改错-5-3 程序选择题-2-10 基本题-2-20 SelectOneDetail Private Sub Form_Click() For n = 100 To 999 i = n \ 100 j = n \ 10 Mod 10 k = n Mod 10 If ____________________________ Then Exit For End If Next n Print n End Sub 设某四位数的各位数字的平方和等于100，共有多少个这种四位数？ 四位平方数：千位、百位数相同，十位、个位数相同，且是某一个二位数的平方，求四位平方数的个数。 Private Sub Command1_Click() n=0 For a = 0 To 9 For b = 0 To 9 For i = 10 To 99 ________________ If m = i * i Then n=n+1 Next i Next b Next a Print n End Sub 统计[328,2048]之间有多少个这样的整数,其各位数字之积能被7整除。 统计[521,8421]之间有多少个这样的整数,其各位数字之和能被7整除。 统计[521,8421]之间有多少个这样的整数,其各位数字之积能被7整除。 我国古代数学家在《算经》中出了一道题：鸡翁一，值钱五；鸡母一，值钱三；鸡雏三，值钱一。百钱买百鸡，问鸡翁、母、雏各几何？”意为公鸡4吊钱1只，母鸡3吊钱1只，3只小鸡值1吊钱。编程实现用100吊钱买100只鸡，公鸡、母鸡、小鸡每种鸡至少一只，有多少种买法？ Private Sub command1_Click() Dim a%, b%, c%, s% FontSize = 14: FontBold = True Print: Print: Print s = 0 For a = 1 To 20 For b = 1 To 34 ________________ If 4 * a + 3 * b + c / 3 = 100 Then s = s + 1 Next b Next a Print s End Sub 要将一张100元的大钞票，换成等值的10元、5元、2元和1元一张的小钞票。 要求每次换成50张小钞票，每种至少一张。编程求有多少种换法。 已知sum＝1/(1*2)+1/(2*3)+…+1/(n*(n+1))的值,其中n为整数，计算n=25时sum的值。（要求结果保留到小数点后第五位） 已知sum=4/3!+6/5!+…+(n+1)/n!,其中n为整数，计算n=15时sum的值。（要求结果保留到小数点后第九位） 以下程序的功能是求：在[200，999]范围内同时满足以下两个条件的十进制数的个数。⑴其个位数字与十位数字之积除以10所得的余数是百位数字；⑵该数是素数。 在[1,10000]范围内考察个位数字是3的素数的和? 在[1000,9000]范围内考察个位数字是3的素数个数。 Private Sub Form_Click() Dim i%, a%, b%, c%, sum% FontSize = 14: FontBold = True Print: Print: Print sum = 0 I = 100 Do a = I \ 100 b = I \ 10 Mod 10 c = I Mod 10 ________________________________ Then sum = sum + I End If I = I + 1 Loop While I = 999 Print sum End Sub Private Sub Form_Click() Dim m%, a%, b%, c%, d%, s s = 0 FontSize = 14: FontBold = True Print: Print: Print For m = 1001 To 9999 Step 2 a = Int(m / 1000) b = Int((m - 1000 * a) / 100) c = Int((m - 1000 * a - 100 * b) / 10) d = m Mod 10 If ________________ Then s = s + m Next m Print s End Sub Private Sub Command1_Click() Dim x As Long, Number, i As Integer FontSize = 14: FontBold = True Number = 0 For x = 1501 To 6789 Step 2 i = 2: k =