Next i
For j = 1 To 50
ch = ch + Str(a(j)) + \ Next j
Text2.Text = ch
End Sub
5.步骤1：打开本题工程文件，利用菜单设计器，按表3.23所示的内容设置建立菜单项，并在窗体Form1中添加一个文本框。其相关属性及其值见表3.23和3.24。
表3.23
标题控件 名称 内缩符号 读入数据 Read 0 表3.24 控件 属性 设置值 文本框 Name MultiLine TRUE ScrollBars 2 Text 计算并输出 Calc 0 存盘 Save 0 Text1 步骤2：分析并编写程序代码。
程序提供代码 Option Base 1
Dim Arr(100) As Integer Sub ReadData()
Open App.Path & \For i = 1 To 100 Input #1, Arr(i) Next i Close #1 End Sub
Sub WriteData(Filename As String, Num As Integer) Open App.Path & \Print #1, Num Close #1 End Sub
程序结束 参考答案
考生编写代码
Dim sum As Integer
Private Sub Calc_Click()
Text1.Text = \
For i = 2 To 100 Step 2
Text1.Text = Text1.Text & Arr(i) & Space(5) sum = sum + Arr(i) Next i Print sum
End Sub
Private Sub Read_Click() ReadData
End Sub
Private Sub Save_Click() WriteData \End Sub
6.【操作步骤】
步骤1：打开本题工程文件，在窗体中添加两个命令按钮控件。
步骤2：按照步骤1设置两个命令按钮控件的属性，命令按钮控件的属性见表3.27所示。
步骤3：分析并编写程序代码。
程序提供代码 Option Base 1
Dim Arr1(20) As Integer Dim Arr2(20) As Integer
Sub ReadData1()
Open App.Path & \For i = 1 To 20
Input #1, Arr1(i) Next i Close #1 End Sub Sub ReadData2()
Open App.Path & \For i = 1 To 20
Input #1, Arr2(i) Next i
Close #1
End Sub
Sub WriteData(Filename As String, Num As Integer) Open App.Path & \Print #1, Num Close #1 End Sub
程序结束
参考答案
Private Sub C1_Click() Call ReadData1 Call ReadData2 End Sub
Private Sub C2_Click()
Dim Arr3(1 To 20) As Integer Dim sum As Integer sum = 0
For i = 1 To 20
Arr3(i) = Arr1(i) - Arr2(i) sum = sum + Arr3(i) Next i
Print \
WriteData \End Sub
7.步骤1：打开本题工程文件，按照题目要求建立标签控件并设置标签的Caption属性为\回文个数为\，再添加一个文本框Text1，并设置文本框的初始内容为空。
步骤2：分析并编写程序代码。
程序提供代码 Option Base 1
Dim s As String
Private Sub Command1_Click()
Open App.Path & \s = Input(LOF(1), #1) Close #1 End Sub
Private Sub Command2_Click()
Dim n As Integer, t As String, word num As Integer n = Len(s): t = \For i = 1 To n
c = Mid(s, i, 1) If c <> \ t = t + c
Else
If foundhuiwen(t) Then word num = word num + 1 End If t = \ End If
Next i
Text1.Text = word num
End Sub
'以下Function 过程用于判断字符串是否为回文 Function foundhuiwen(p As String) '考生编写 End Function
Private Sub Form_Unload(Cancel As Integer) Open App.Path & \Print #1, Text1.Text Close #1 End Sub 程序结束 参考答案
Function foundhuiwen(p As String)
If StrReverse(p) = p Then foundhuiwen = True End Function 8.【操作步骤】
步骤1：打开本题工程文件，将文本框Text1的PasswordChar属性设置为\。 步骤2：分析并编写程序代码。 程序提供代码
Private Sub C1_Click() ' If ? = \
Text1.Text = \口令正确\' Text1.? = \
Else
Text2.Text = Text2.Text - 1 ' If Text2.Text > ? Then
MsgBox \第\- Text2.Text) & \次口令错误，请重新输入\ Else
MsgBox \次输入错误，请退出\' Text1.Enabled = ? End If End If
