模拟考试题打印版.docx

1、模拟考试题打印版模拟题一一、程序阅读题阅读下列程序，写出运行结果。1、 程序1Private Sub Command1_Click() Dim x As Integer, s As Integer x = Val(InputBox(请输入一个正整数=) If x i a = a + x x = x + 3 LoopEnd Sub写出程序运行时连续3次单击Command1后，a1.dat文件的最终结果。二、程序填空题1. 程序说明：利用一个计时器，一个标签框和两个命令按钮制作一个动态秒表， 单击“结束”命令按钮，秒表结束计时，并在标签框显示运行时间，如“运行 了0小时2分10秒”。（假设对象的属

2、性都在程序代码中设定） 程序代码如下Dim x As LongDim h As Integer, m As Integer, s As IntegerPrivate Sub Form_Load() Form1. Caption = 动态秒表(小时:分:秒) Command1. Caption = 开始&S Command2. Caption = 结束&E Label1. Alignment = 2 Label1. Caption = 0:0:0 Timer1. Interval = （1） Timer1. Enabled = False x = 0End SubPrivate Sub Comm

3、and1_Click() （2） End SubPrivate Sub Command2_Click() Timer1. Enabled = False x = （3） Label1. Caption = 运行了 + Str(h) + 小时 + Str(m) + 分 + Str(s)+ 秒End SubPrivate Sub Timer1_Timer() x = x + 1 h = （4） m = (x Mod 3600) 60 s = （5） Label1. Caption = Str(h) + : + Str(m) + : + Str(s)End Sub2. 程序说明：己知自然对数的底数e

4、的级数表示如下：e=1+1/(1!)+1/(2!)+.+1/(n!)+.本程序利用函数过程fact（）求e，其中的绝对值小于IE-8的项被忽略。程序代码如下Private Function fact(m As Integer) As Single 求m!的函数 Dim x As Single, i As Integer x = 1 For i = 1 To m X （6） Next i fact = xEnd FunctionPrivate Sub Form_Click() Dim e As Single, item As Single Dim n As Integer e = 1: n= （

5、7） Do n = n + 1 item= （8） e = e + item Loop While （9） 三、程序设计题1. 随机产生 n个两位正整数（n由输入对话框输入，且 n0），求出其中的偶数之和，并在标签框Label1上显示。 注：程序写在命令按钮Commandl的 Click事件中。2. 由输入对话框输入 100个数值数据放入数组 a。将其中的整数放入数组b,然后运用选择排序法将数组 b中的数据按从大到小的顺序排列，并以每行5个数据在窗体上输出。 注：程序写在窗体 Form的Click事件中。 模拟题二一、程序填空题1. 【程序说明】本程序求3100之间的所有素数（质数）并统计个数

6、，同时将这些素数从小到大依次写入顺序文件 e：dataout.txt，素数的个数显示在窗体Form1上。【程序】Private Sub Command1_Click() Dim count As Integer, flag As Boolean Dim ti As Integer, t2 As Integer （1） count = 0 For ti = 3 To 100 flag = True For t2 = 2 To Int(Sqr(t1) If （2） Then flag False Next t2 （3） count = count + 1 Write #1, t1 End If N

7、ext t1 （4） Close #1End Sub（1）A、Open e:dataout.txt For Output As #1 B、Open e:dataout.txt For Input As #1 C、Open e:dataout.txt For Output As #2 D、Open e:dataout.txt For Output As #1(2) A、t2t1=0 B、t1 Mod t2=0 C、t1t2=0 D、t2 Mod t1=0（3）A、If flag Then B、If t2t1 Then C、If t1t2 Then D、If t2int(sqr(t1) Then(

8、4) A、 Forml.Print素数个数： ; count B、 Print #l 素数个数：;Count C、 Form1.Print素数个数：； count D、 Form1.Print素数个数： Count2. 程序说明由输入对话框输入n（设n为大于零且小于30的自然数），计算下列表达式并在标签控件Label1上显示。/(*2)+1/(2*3)+1/(3*4)+1/(n*(n+1)【程序】Private Sub Form_Click()Dim n As Integer, sum As Double, k As IntegerDo （5） n = Val(InputBox(n=, 请重输

9、)Loopsum = 0 （6）Do k = k + 1 sum= （7）Loop Until k = nLabel1.Caption = Sum + Str(sum)End Sub(5) A、While n=30 B、While n=30 C、Until n0 Or n =0 and n Len(Str1)/2 D、Until m Len(Str1)/2(9) A、Mid(str1,m,1) B、 Mid(str1,len(str1)-m,1) C、Mid（m,Strl,l） D、Mid（Str1,m+l,1）(10) A、Mid(str1,len(str1)-m+1,1) B、Mid(st

10、r1,m,1) C、Mid(str1,len(str1)-m,1) D、 Mid(str1,len(str1)-m+1,1)二、程序阅读题1. Private Sub Command1_Click() n = 0: x = 1: y = 0 Do While x 20 n = n + l y = x + y x = x * (x + 1) Loop text1.Text = n= & Str(n) Text2.Text= x= Str(x) Text3.Text= y= Str(y)End Sub程序运行时单击Command1后，分别写出文本框Text1、text2和Text3的Text值。2

11、.Public Function chg(a As Integer, b As Integer) As Integer Dim n As Integer For n = 0 To 2 a = a + b Next n chg = aEnd FunctionPrivate Sub Form_Click() Dim a As Integer, b As Integer, z As Integer a = 1: b = 1 For n = 1 To 3 z = chg(a, b) Form1.Print n=; n, z=; z Next nEnd Sub写出程序运行时单击窗体后，Forml上的输出

12、结果。3. Private Sub Form_Click() Dim x(5) As Integer x(1) = 8: x(2) = 3: x(3) = 1: x(4) = 6: x(5) = 4 For i = 1 To 4 For j = i + 1 To 5 If x(i) A And （5） ) Or (Ch a And Ch z) Then St2 = St2 + ChEnd IfNext iText1.Text = （6） End Sub3. 下面的程序完成以下功能：窗体上有两个命令按钮“产生”（Command1）和“排序”（Command2）。单击“产生”按钮时，随机产生10个

13、1，20范围内的整数放在数组A中，并在窗体上输出。单击“排序”按钮时，用选择法排序这10个数并输出。Dim A(10) As IntegerPrivate Sub Command1_Click()Dim i As IntegerRandomizePrint 排序前的数列：For i = 1 To 10 A(i) = （7） Print Str(A(i) + ;Next iPrintEnd SubPrivate Sub Command2_Click()Dim i, j, Min, Temp As IntegerPrintPrint 选择排序后的数列：For i = 1 To 9Min = A(i

14、)For j = （8） To 10 If A(j) Min Then Temp = A(j) A(j) = （9） Min = Temp End IfNext jA(i) = Min（10） For i = 1 To 10 Print Str(A(i) + ;Next iPrintEnd Sub二、 程序阅读题1.写出下面程序执行三次后的结果。Private Sub Form_Click()Dim i As IntegerStatic j As Integerj = j + 1i = i + 1Print i=; Str(i), j=; Str(j)End Sub 2. 写出下面程序执行后的

15、结果（其中在Form_Click()事件中调用了子过程Proc）。Private Sub Form_Click()Dim x, y As IntegerDim u, v As Integerx = 1y = 2u = 3Proc x, yu = u + x + yPrint x=; Str(x), y=; Str(y), u=; Str(u)End Sub Private Sub Proc(ByVal a As Integer, ByRef b As Integer)Dim u As Integera = a + 1b = b + 1u = u + a + bPrint a=; Str(a),

16、 b=; Str(b), u=; Str(u)End Sub三、 程序设计题1.窗体内有二个按钮（标题各为“成绩录入”和 “按总分名次查询姓名”）。 要求:(1) 单击“输入成绩”按钮时，用输入对话框提示输入学生的学号和姓名(共100名)及4门课成绩，并且要求在输入小于零的学号时，需用户重新输入。(2) 单击 “按总分名次查询姓名” 按钮时,先用选择法对所求总分进行排序,然后查询。模拟题四一、 程序填空题1. 下面是一个求自然数m,n的最大公约数gcd(m,n)的自定义函数代码。 算法：Private Function gcd ( m,n As Integer) As integerDim R

17、esult As integerIf n=0 Then Result = mElse Result = （1） End Ifgcd = （2） End Function2. 下面的程序完成以下功能：在窗体中有Text1、Text2、Text3三个文本框和一个按钮（Command1），要求在Text1中输入一字符串（父串），在Text2中输入一字符串（子串），为简单起见，假设子串是连续的，要求在父串中删除子串，结果显示在Text3中 比如父串为：so should befou youou dissou，子串为：ou，结果为：so shld bef y dissPrivate Sub Comman

18、d1_Click()Dim Fstr, Sstr, S As StringDim i, Lf, Ls As IntegerFstr = Text1.TextSstr = Text2.TextLf = Len(Fstr)Ls = Len(Sstr)S = i = （3）While i = Lf If Mid(Fstr, i, （4） ) = Sstr Then i = i + Ls Else S = S + Mid(Fstr, i, 1) i = （5） End IfWendText3.Text = （6）End Sub3下面的程序完成以下功能：假设已经存在一个已经由小到大有序排列的数组A(1

19、to 100) As integer，要求用折半查找法查找一个整数是否存在，如果存在，在Text1中输出它的下标，否则输出“不存在”。Private Sub Command1_Click()Dim Low, High, Midd, Key As IntegerDim Found As BooleanDim St1 As StringLow = 1High = 100Found = FalseSt1 = InputBox(请输入要查找的关键字, 关键字输入)Key = （7）While (Low = High) And （8） Midd = (Low + High) 2 Select Case

20、A(Midd) Case Is Key High = Midd - 1 Case Key Found = （9） End SelectWendIf Found Then Text1.Text = （10）Else Text1.Text = 不存在End IfEnd Sub二、程序阅读题1. 分别写出下面两段程序单击Command1三次后的结果。Dim x As Integer Private Sub ex3() x = x + 1 Print x; End Sub Private Sub Command1_Click() x = x + 1 Call ex3Print x End Sub Private Sub ex3() Static x As Integer x = x + 1 Print x; End Sub Private Sub Command1_Click() x = x + 1 Call ex3 Print x End Sub 2. 写出下面程序 Form_Click() 事件执行后的结果 Private Sub martha(ByVal x As Integer, ByRef y As Integer) Dim z As Integer For z = x To y