典型考题解析讲义.ppt

2020年08月13日 典型考题解析 * * 删除已知数组 a 中的某个元素。 Private Sub Command1_Click() Dim a() As Variant, n As Integer, Key As 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 Sub 1、: 2、n 2020年08月13日 典型考题解析 * 使用InputBox函数接收一批字符，将其中的数字字符进行累加并输出累加和。 Private Sub Form_Click() Dim s As String, i As Integer s = InputBox("请输入一个带数字的字符串") i = 1 Sum = _____ Do While i <= Len(s) If Mid(s, i, 1) >= "0" And Mid(s, i, 1) <= "9" Then Sum = Sum + (s, i, 1) End If i = i + 1 Loop Print Sum End Sub 1、0 2、Mid 2020年08月13日 典型考题解析 * 使用双循环实现三角形输出 * * * ** * *** * **** * ***** Private Sub Command1_Click() For _____ = 1 To 5 Print Tab(25 - i); For j = _____ To i Print "*"; Next j Print Next i End Sub 1、i 2、1 2020年08月13日 典型考题解析 * * 下载由正整数组成的文件{<wj003.txt>}，编写程序，统计该文件中素数（质数）的个数。把结果写入试卷中指定位置。（在大于1的自然数中，除了1和此整数自身外，无法被其他自然数整除的数是素数，1不是素数） * 请填空： Option Explicit Private 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 t End Sub 程序运行的结果是 _______ 1、For 2、0 3、Not 4、#1 5、x 6、m 7、m 8、0 9、x 10、209 2020年08月13日 典型考题解析 * * 杨辉三角形如图所示{<x_5.jpg>}： * 完成下面程序。 Private S