《典型考题解析1》由会员分享，可在线阅读，更多相关《典型考题解析1（26页珍藏版）》请在金锄头文库上搜索。
1、常用算法累加、累乘、穷举法、递推法、求最大值/最小值、求最大公约数/最小公倍数。图形打印（金字塔形、杨辉三角形等）素数判定、求fib数列前n项的和数组求最值、冒泡法和选择法排序、数组元素的增加和删除函数过程和子过程基本控件属性顺序文件操作典型考点典型考点下载由正整数组成的数据文件到自己的机器中，编写程序，统计出该数据文件中，在第51个-第1000个数据之间，末位数字是4的数据的个数。把结果写入试卷中指定位置。Option ExplicitPrivate Sub Command1_Click() Dim x%, t%, i%, j% Open d:wj002.txt For _ As #1 Fo
2、r i = 1 To 50 Input _ , _ Next i For i = 51 To 1000 Input _ , _ If x Mod _ = _ Then _ = _ + 1 Next i Print tEnd Sub程序运行的结果是 _ 1、Input2、#13、x4、#15、x6、107、48、t9、t10、92下列程序的功能是：计算1+(1+2)+(1+2+3)+，求累加到第几项的时候它的和超过50000。* 请填空：Option ExplicitPrivate Sub Command1_Click() Dim i%, _ %, s! i = 0 t = 0 s = 0 _
3、While _ = 50000 _ = i + _ _ = t + _ _ = s + _ Loop Print iEnd Sub程序运行的结果是 _ 1、t2、Do3、s4、i5、16、t7、i8、s9、t10、66* 下列程序的功能是：求个位数是6，且能被3整除的所有四位数之和。* 请填空： _ ExplicitPrivate Sub Command1_Click() _ s!, _ % s = _ For _ = 1000 To 9999 If _ (i, 1) = 6 And i Mod 3 = 0 Then _ = s _ _ End If Next i Print sEnd Sub
4、程序运行的结果是 _ 1、Option2、Dim3、i4、05、i6、Right7、s8、+9、i10、1653300* 下载由正整数组成的数据文件到自己的计算机中，编写程序，求出该数据文件里的前1000个数中个位、十位、百位数字的和是奇数的数据的个数。把结果写入试卷中指定位置。* 请填空：Option ExplicitPrivate Sub Command1_Click() Dim x%, t%, i%, xg%, xs%, xb% _ d:wj002.txt _ Input _ #10 For i = 1 To 1000 Input _ , _ xg = x Mod 10 xb = x 1
5、00 xs = ( _ - _ * 100) 10 If (xb + xs + xg) Mod 2 = 1 And xb10 Then _ = _ + 1 End If Next i Print tEnd Sub程序运行的结果是 _ 1、Open2、For3、As4、#105、x6、x7、xb8、t9、t10、56* 下列程序的功能是：求数列2,4,8,16,32,前若干项之和。当和大于9000时，终止求和并输出结果。* 请填空：Option ExplicitPrivate Sub Command1_Click() Dim s%, i% _ = _ s = _ Do While _ = _ _
6、 = s + _ _ = i _ 2 Loop Print sEnd Sub1、i2、23、04、s5、90006、s7、i8、i9、*10、16382 下载由正整数组成的数据文件到自己的计算机中，编写程序，对该数据文件里的前600个数从小到大排序，求出第1到第500个数中大于1000的偶数的个数。Option ExplicitPrivate Sub Command1_Click() Dim a%(1 To 600), t%, i%, j% Open d:wj011.txt For Input _ #5 For i = 1 To _ Input _ , _ Next i For i = 1 T
7、o 600 - 1 For j = i + 1 To 600 If a(i) a(j) Then _ = a(i) a(i) = a(j) a(j) = _ End If Next j Next i _ = _ For i = 1 To 500 If a(i) 1000 And a(i) Mod 2 = 0 Then t = t + _ End If Next i Print tEnd Sub程序运行的结果是 _ 1、As2、6003、#54、a(i)5、t6、t7、t8、09、110、231* 读取文件中的字符，统计其英文字母个数。把结果写入试卷中指定位置。* 请填空：Option Expl
8、icitPrivate Sub Command1_Click() Dim zm%, c As String * 1, st$, i% Open d:wj013.txt For Input As # _ Do While Not _ (2) Line _ #2, st For i = 1 To Len( _ ) _ = _ ( _ , _ , _ ) If c = a And c = A And c = Z Then zm = zm + 1 End If Next Loop Print zmEnd Sub程序运行的结果是 _ 1、22、EOF3、Input4、st5、c6、Mid7、st8、i9
9、、110、1242下列程序的功能是：计算1-2+3-4+5-6-20的值。* 请填空：Option ExplicitPrivate Sub Command1_Click() Dim s%, _ % s = _ _ i _ 1 _ 20 _ = _ + (-1) _ (i + 1) * _ Next i Print sEnd Sub程序运行的结果是 _ 1、i2、03、For4、=5、To6、s7、s8、9、i10、-10 下载由正整数组成的文件，编写程序，统计该文件中素数（质数）的个数。把结果写入试卷中指定位置。（在大于1的自然数中，除了1和此整数自身外，无法被其他自然数整除的数是素数，1不是
10、素数）* 请填空：Option ExplicitPrivate Sub Command1_Click() Dim x%, t%, m% Open d:wj003.txt _ Input As #1 t = _ Do While _ EOF(1) Input _ , _ For _ = 2 To x - 1 If x Mod _ = _ Then Exit For Next m If m = _ Then t = t + 1 Loop Print tEnd Sub程序运行的结果是 _ 1、For2、03、Not4、#15、x6、m7、m8、09、x10、209* 编写一个登录的程序，如图所示。*
11、 运行过程：点击确定按钮时判断密码是否为“Gong”，如果是则使用msgbox显示“欢迎你！”，如果不是则清空密码输入框，焦点重新定位到密码输入框。 Private Sub Form_Load() Text2.PasswordChar = * _ .Text = Text1 = End Sub Private Sub Command1_Click() Dim I As Integer If Text2.Text = _ Then MsgBox 登录成功 Else _ .Text = Text2.SetFocus End If End Sub1、Text22、Gong3、Text2* 大写字符转
12、换小写字符，如图所示 Private Sub Text1_ _ (KeyAscii As Integer)If KeyAscii = Asc(A) And KeyAscii = Asc(Z) Then Text2 = Text2 + Chr(KeyAscii _ 32)Else Text2. _ = Text2 + Chr(KeyAscii)End IfEnd Sub1、KeyPress2、+3、Text 下列程序的功能是：有200元钱需要兑换成零钱，零钱有10元，5元，1元三种面额，输出所有的兑换方法。* 请填空：Option ExplicitPrivate Sub Command1_Cli
13、ck() Dim n%, i%, j%, k% n = 0 For i = _ To _ For j = _ To _ For k = _ To _ If i * 10 + j * 5 + _ = _ Then n = n + _ End If Next k1、02、203、04、405、06、2007、k8、2009、110、441Private Sub Command1_Click()If Command1.Caption = 字号 ThenLabel1. _ = 30Command1.Caption = 颜色 _ Label1. _ = vbRedCommand1.Caption = 字
14、号End IfEnd Sub1、fontsize2、Else3、ForeColor* 设计一个求两个数的最大公约数的函数过程。* 程序代码如下： Option Explicit Private Function _ (ByVal m%, ByVal n%) As Integer Dim r% Do r = m Mod n If r = 0 Then Exit Do m = n n = r Loop _ = _ End Function Private Sub Command1_Click() Dim x%, y% x = Val(InputBox(x=?) y = Val(InputBox(y
15、=?) Print gcd(x, y) End Sub1、gcd2、gcd3、n* 用子过程输出Fibonacci（斐波那契）数列（0、1、1、2、3、5、8.）的前20项及前20项的和。* 程序代码如下： Private Sub Command1_Click() Dim s&, a%, b%, c% a = 0: b = 1 _ = a + b Print a Print b For i = 1 To 18 fib a, b, c print _ s = s + c Next i Print Fibonacci（斐波那契）数列的前20项的和为：; _ End Sub Private Sub
16、fib(a, b, c) c = a + b a = b b = c End Sub1、s2、c3、s* 利用判断一个三位数是否为对称数（如：343）的函数过程，求出所有三位对称数之和。* 程序代码如下： Private Sub Command1_Click() Dim sum As Long,n As Integer sum=0 For n = 100 To 999 If duicheng( _ ) then sum=sum+ _ Next n End Sub Public Function duicheng(ByVal i%) As Boolean a = i Mod 10 c = i 1
17、00 If a = c Then duicheng=true Else duicheng=False End If End _ 1、n2、n3、Function* 下面程序计算1!+3!+5!+.+9!的值，请将其补充完整。* 程序代码如下：Dim nt As SinglePrivate Sub aa(ByVal n As Single)Dim i As Integer _ = 1For i = 1 To n nt = nt * iNext iEnd SubPrivate Sub Form_Click()Dim sum As Single, n As Integersum = 0For n =
18、 1 To 9 Step 2 aa ( _ ) sum = sum + _ Next nPrint sumEnd Sub1、nt2、n3、nt* 下面程序用来输出如下图案，请填空。 1 333 55555 7777777 999999999Private Sub Command1_Click() Dim i%, j%, t% For i = 1 To 5 _ = 2 * _ - 1 Print Spc(10 - i); For j = 1 To 2 * i - 1 Print Trim(t); Next j Print NextEnd Sub1、t2、i* 判断输入的正整数n是否为素数。* 程
19、序代码如下：Private Sub Command1_Click() Dim k%, n%, f% n = InputBox(请输入正整数n) f = 1 For k = 2 To n / _ If n Mod k = 0 Then f = 0 Exit For End If Next k If _ = 0 Then Print n; 不是素数 Else Print n; 是素数 End IfEnd Sub1、22、f* 删除已知数组 a 中的某个元素。 Private Sub Command1_Click() Dim a() As Variant, n As Integer, Key As
20、Integer a = Array(1, 6, 8, 3, 5, 9, 10, 2, 7, 4) n = UBound(a) Key = InputBox(请输入要删除的数) For i = 0 To n If Key = a(i) Then Exit For Next i If i = n + 1 Then MsgBox (找不到此数) _ Exit Sub For j = i + 1 To n a(j - 1) = a(j) Next j n = _ - 1 ReDim Preserve a(n) For i = 0 To n Print a(i); Next i: Print End S
21、ub1、:2、n 使用InputBox函数接收一批字符，将其中的数字字符进行累加并输出累加和。Private Sub Form_Click() Dim s As String, i As Integer s = InputBox(请输入一个带数字的字符串) i = 1 Sum = _ Do While i = 0 And Mid(s, i, 1) = 9 Then Sum = Sum + (s, i, 1) End If i = i + 1 Loop Print SumEnd Sub1、02、Mid使用双循环实现三角形输出* * * * * * Private Sub Command1_Cli
22、ck() For _ = 1 To 5 Print Tab(25 - i); For j = _ To i Print *; Next j Print Next i End Sub1、i2、1* 下载由正整数组成的文件，编写程序，统计该文件中素数（质数）的个数。把结果写入试卷中指定位置。（在大于1的自然数中，除了1和此整数自身外，无法被其他自然数整除的数是素数，1不是素数）* 请填空：Option ExplicitPrivate Sub Command1_Click() Dim x%, t%, m% Open d:wj003.txt _ Input As #1 t = _ Do While _
23、 EOF(1) Input _ , _ For _ = 2 To x - 1 If x Mod _ = _ Then Exit For Next m If m = _ Then t = t + 1 Loop Print tEnd Sub程序运行的结果是 _ 1、For2、03、Not4、#15、x6、m7、m8、09、x10、209* 杨辉三角形如图所示：* 完成下面程序。 Private Sub Form_Click() Dim a(1 To 10, 1 To 10) As Integer, i%, j% For i = 1 To 10 a(i, 1) = 1 a(i, _ ) = 1 Ne
24、xt i For i = 3 To 10 For j = _ To i - 1 a(i, j) = a(i - 1, j - 1) + a(i - 1, j) Next j Next i For i = 1 To 10 For j = 1 To _ Print Tab(5 * (j - 1) + 1); a(i, j); Next j Print Next i End Sub1、i2、23、i 随机产生 n 个两位整数，求出其中的最大值和最小值。 Private Sub Command1_Click() Dim a(100) As Integer, n As Integer, i As Int
25、eger Dim min As Integer, max As Integer _ = Val(InputBox(vbCrLf + vbCrLf + n=) Print 产生的随机数为 Randomize For i = 1 To n a(i) = Int(Rnd * 90) + 10 Print a(i); Next i: Print min = a(1): max = min For i = 2 To _ If a(i) max Then max = a(i) If a(i) min Then min = a(i) Next i Print 最大值为 ; max Print 最小值为 ; min End Sub
