Next t1
（4） Close #1 End 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、t2\\t1=0 B、t1 Mod t2=0 C、t1\\t2=0 D、t2 Mod t1=0 （3）A、If flag Then B、If t2>t1 Then
C、If t1>t2 Then D、If t2>int(sqr(t1)) Then (4) A、 Forml.Print\素数个数：\ B、 Print #l \素数个数：\ C、 Form1.Print\素数个数：\； count D、 Form1.Print\素数个数：\： Count 2. [程序说明]
由输入对话框输入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 Integer Do （5）
n = Val(InputBox(\请重输\Loop sum = 0 （6） Do
k = k + 1 sum= （7） Loop Until k >= n
Label1.Caption = \
11
End Sub
(5) A、While n<=O or n>=30 B、While n<=O And n>=30 C、Until n>0 Or n< 30 D、Until n> =0 and n<= 30 (6) A、k=2 B、k=1 C、K=-1 D、k=0 (7) A、1/(k*(k+1)) B、l/(k-1)*k
C、sum+1/(k*(k+1)) D、sum+1/k*(k+1) 3. 【程序说明】
本程序用于处理文本框Textl.Text中的内容，假设文本框中有偶数个字符。要求将文本框从头尾至中间依次各取字符，组成一个新的字符串str2，并在窗体上输出。 如：Textl.Text＝\，则 Str2＝\【程序】
Private Sub Form_Click()
Dim Str1 As String, Str2 As String Str1 = TeXt1.Text Str2 = \m = 0 Do （8）
Str2= Str2+ （9） Str2= Str2+ （10） m = m + l Loop
forml.Print Str2 End Sub
(8) A、While m C、Until m> 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(str1,m,1)
C、Mid(str1,len(str1)-m,1) D、 Mid(str1,len(str1)-m+1,1)
12
程序填空题答案：DBACADCADC 六、 程序填空题
1. 下面是一个求n!的自定义函数代码。 Private Function JC(n As Integer) As Long Dim Result As Long If p = 1 Then Result = 1 Else
Result = （1） End If JC = （2） End Function
2. 下面的程序完成以下功能：单击窗体上的“测试”（Command1）按钮，出现一个输入框，要求输入一串字符，将该字符串中的非字母字符删除后，显示在窗体中的一个文本框（Text1）中。
Private Sub Command1_Click() Dim St1, St2 As String Dim Ch As （3） Dim L As Integer
St1 = InputBox(\请输入一串字符\字符串输入\L = （4） St2 = \
For i = 1 To L
Ch = Mid(St1, i, 1)
If (Ch > \（5） ) Or (Ch > \ St2 = St2 + Ch End If Next i
Text1.Text = （6） End Sub
3. 下面的程序完成以下功能：窗体上有两个命令按钮“产生”（Command1）和“排序”（Command2）。单击“产生”按钮时，随机产生10个[1，20]范围内的整数放在数组A中，并在窗体上输出。单击“排序”按钮时，用选择法排序这10个数并输出。 Dim A(10) As Integer
13
Private Sub Command1_Click() Dim i As Integer Randomize
Print \排序前的数列：\For i = 1 To 10 A(i) = （7）
Print Str(A(i)) + \Next i Print End Sub
Private Sub Command2_Click() Dim i, j, Min, Temp As Integer Print
Print \选择排序后的数列：\
For i = 1 To 9 Min = A(i)
For j = （8） To 10 If A(j) < Min Then Temp = A(j) A(j) = （9） Min = Temp End If Next j
A(i) = Min （10）
For i = 1 To 10
Print Str(A(i)) + \Next i Print End Sub
程序填空题答案 ：(1) n*Jc(n-1) (2) result (3) string (4) len(str) (5) ch<\七、程序填空题
1. 程序说明：利用一个计时器，一个标签框和两个命令按钮制作一个动态秒表， 单击“结束”命令按钮，秒表结束计时，并在标签框显示运行时间，如“运行 了0小时2分10秒”。（假设对象的属性都在程序代码中设定） 一个动态秒 程序代码如下 Dim x As Long
Dim h As Integer, m As Integer, s As Integer
14
Private Sub Form_Load()
Form1. Caption = \动态秒表(小时:分:秒)\ Command1. Caption = \开始[&S]\ Command2. Caption = \结束[&E]\ Label1. Alignment = 2 Label1. Caption = \ Timer1. Interval = （1） Timer1. Enabled = False x = 0 End Sub
Private Sub Command1_Click() （2） End Sub
Private Sub Command2_Click() Timer1. Enabled = False x = （3）
Label1. Caption = \运行了\小时\分\秒\End Sub
Private Sub Timer1_Timer() x = x + 1 h = （4）
m = (x Mod 3600) \\60 s = （5）
Label1. Caption = Str(h) + \End Sub
2. 程序说明：己知自然对数的底数e的级数表示如下： 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
15