Dim i As Integer
str1 = InputBox(\请输入一个字符串\ length = （4） i = 1 sum = 0
Do While i <= （5） If （6） = \ sum = sum + 1 End If i = i + 1 Loop
If （7） Then MsgBox \没有找到！\ Else
MsgBox \找到了\个\ End If End Sub
3. 下面程序的功能是：计算f=1－1/（2*3）+1/（3*4）－1/（4*5）+??+1/（19*20）。
Private Sub Form_Click()
Dim f As Single, i As Integer, sign As Integer （8） f = 1
（9） （10）
f = f + sign / (i * (i + 1)) Next i
Print \End Sub
4．本程序用于处理文本框Text1.Text中的内容，假设文本框中有偶数个字符。要求：将文本框中的内容从头尾至中间依次各取字符，组成一个新的字符串Str2，并在窗体上输出。 例如：
Text1.Text = \，则 Str2 = \Private Sub Form_Click()
Dim Str1 As String, Str2 As String Str1 = Text1.Text Str2 = \m = 0
Do （11）
Str2 = Str2 + （12） Str2 = Str2 + （13） m = m + 1 Loop
Form1.Print Str2 End Sub
5．阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序说明】单击Command1后用输入对话框输入1个整数，单击Command2后在Text1中显示其反序的数（高位变低位）。要求在文本框中不可输入任何字符。
17
VB网络课堂：info.zjfc.edu.cn/vbweb
例如：输入123显示321，输入-567显示-765。 (14) Private Sub Form_Load() (15) End Sub
Private Sub Command1_Click()
Text1.Text = \End Sub
Private Sub Command2_Click()
If n < 0 Then n = -n: Text1.Text = \ While n <> 0
Text1.Text = (16) (17) Wend End Sub 【供选择的答案】
(14) A、Dim n As Byte B、Dim n As Integer C、Dim n As String D、Public n As Byte (15) A、Text1.Locked = True B、Text1.Locked = False C、Text1.Visible = True D、Text1.Visible = False (16) A、n/10 & Text1.Text B、n Mod 10 & Text1.Text C、Text1.Text & n/10 D、Text1.Text & n Mod 10 (17) A、n = n \\ 10
B、n = n / 10
C、n = n Mod 10 D、n = n - 10 五、上机调试题：程序设计
1．计算下式的和，变量x与n的数值用输入对话框输入。
s?xxxx???...?(?1)n?12!3!4!(n?1)!
2．“水仙花数”是指一个3位数，其各位数的立方和等于该数，如：153＝1^3+5^3+3^3。编写程序，输出所有的“水仙花数”。
3．用近似公式求自然对数的底数e的值，直到前后两项之差小于10-4为止。
1111 e?1????...?1!2!3!n!
4．随机产生100个10-1000内的整数，要求统计其中素数的个数，并且将其中的素数按照每行5个进行输出。
5. 打印由数字组成的如下所示金字塔图案。
1 从第20列开始输出1
18
VB网络课堂：info.zjfc.edu.cn/vbweb
222 33333 4444444 555555555 6666666 77777 888 9
代码编写：
１、
3
2、4、VB网络课堂：info.zjfc.edu.cn/vbweb
19
5、
批改人：
第6章 数组20 VB网络课堂：info.zjfc.edu.cn/vbweb