为Form1,标题为“控件数组”的窗体上,添加1个名称为Cmd1的控件数组

基础题(1) 【解题思路】按照题目要求，通过命令按钮数组的Name、Caption、

Index属性和窗体的Caption属性设置相应属性。

【操作步骤】 步骤1：建立界面，并设置控件的属性。程序中涉及控件及属性见表3.124。 表3.124

步骤2：调试并运行程序，关闭程序后按题目要求存盘。 基础题(2) 【解题思路】文本框的Alignment属性用于设置文本框中文本的对齐

方式，0为左对齐，1为右对齐，2为居中。FontSize属性则用于设置文本框中文本字体的大小。

【操作步骤】 步骤1：建立界面，并设置控件的属性。程序中涉及的控件及属性见表3.125和表3.126。 表3.125

表3.126 步骤2：编写程序代码。 参考答案 Private Sub Command1_Click() Text1.Alignment = 0 End Sub Private Sub Command2_Click() Text1.Alignment = 2 End Sub

Private Sub Command3_Click() Text1.Alignment = 1 End Sub

步骤3：调试并运行程序，关闭程序后按题目要求存盘。 简单题(1)【解题思路】根据题意，通过文本框的Name、Text、Enabled、PasswordChar

属性设置文本框，单击"输入密码"按钮，Text的Enabled属性设置为True，并通过SetFocus方法使文本框获得焦点。

输入密码后单击Form1窗体的"密码校验"按钮，则判断Text1中输入内容是否为小写字符"abc"，若密码正确，通过Hide方法隐藏Form1窗体，并通过Show显示Form2窗体；若密码输入错误，则提示重新输入，变量n用于累积输入次数，三次密码输入错误，则退出系统。

【操作步骤】 步骤1：打开本题工程文件，添加一个名称为Text1的文本框，初使文本内容为空，Enabled属性设置为False，并将其PasswordChar属性设置为"*"

步骤2：分析并编写程序代码。 程序提供代码 窗体1的代码 Dim n As Integer Private Sub Command1_Click() 'Text1.Enabled =? Text1.SetFocus End Sub Private Sub Command2_Click() If Text1.Enabled = False Then

MsgBox "请先使用"输入密码"功能！" Else 'If Text1 <> "？" Then

n = n + 1 'If ? = 3 Then

MsgBox "三次密码输入错误，你无权进入本系统！" End Else MsgBox "第" + Str(n) + "次密码输入错误，请重试！" Text1 = "" Text1.SetFocus End If Else Text1.Enabled = False Text1 = "" '？.Hide '？.Show End If End If End Sub

窗体2的代码 Private Sub Command1_Click() Form2.Hide Form1.Show End Sub

程序结束 参考答案 第1个？处填入：True 第2个？处填入：abc 第3个？处填入：n 第4个？处填入：Form1 第5个？处填入：Form2 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 简单题(2) 【解题思路】单击"读数据"按钮，运用文件操作将考生文件夹下in4.dat

文件的内容显示在Text1文本框中。在Command2 Click事件过程中，否则运用Len()函数判断文本框中是否有字符，如果Len(s)＝0那么弹出MsgBox对话框"请先使用"读数据"功能！"，否则运用SelLength 属性判断文本框中是否有字符被选中，如果SelLength属性0，那么弹出MsgBox对话框"请先选中文本！"。 在Text中选中部分文本，并单击"统计"按钮，通过LCase函数使统计不区分大小写字母，判断选中文本中是否出现单词"the"，并统计这个单词的出现的次数，将结果显示在Text2文本框内。

【操作步骤】 步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 程序提供代码 Option Base 1 Dim s As String Private Sub Command1_Click() Open App.Path & "\in4.dat" For Input As #1 s = Input(LOF(1), #1) Close #1 Text1.Text = s End Sub Private Sub Command2_Click() Dim m As Integer ' If Len(s) = ？ Then MsgBox "请先使用"读数据"功能！" Else 'If Text1.？= 0 Then

MsgBox "请先选中文本！" Else t = "" For i = 1 To Text1.SelLength c = Mid(Text1.SelText, i, 1) If c <> " " Then t = t + c Else 'If ? = "the" Then

m = m + 1 End If t = "" End If Next i '? = Str(m) End If End If End Sub

程序结束 参考答案 第1个？处填入：0 第2个？处填入：SelLength 第3个？处填入：Lcase$(t) 第4个？处填入：Text2 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 综合题

【解题思路】单击"读数据"按钮，运用文件操作把考生文件夹下in5.dat文件中的100个正整数读入数组a中，同时显示在Text1文本框中；并运用Space函数使数值之间空一个格，在Command2 Click 事件过程中，判断Len(Text1.Text)是否为0，如果为0，弹出MsgBox对话框 "请先执行"读数据"功能！"，然后进行分组排序处理，首先通过循环判断数组a中所有3的倍数的元素，并把该元素存入数组b中，运用冒泡排序对数组b中的元素从小到大排序后显示在文本框Text2中。

【操作步骤】 步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 程序提供代码 Option Base 1 Dim a(100) As Integer, num As Integer Private Sub Command1_Click() Dim k As Integer

Open App.Path & "\in5.dat" For Input As #1 For k = 1 To 100 Input #1, a(k) Text1 = Text1 + Str(a(k)) + Space(1) Next k Close #1 End Sub Private Sub Command2_Click() Dim b(100) As Integer num = 0 If Len(Text1.Text) = 0 Then MsgBox "请先执行"读数据"功能！" Else '考生编写(功能：生成 b 数组，且按从小到大顺序排序) '注意：请务必将数组 b 的元素个数存入变量 num 中 '以下程序段将已排序的 b 数组显示在Text2中

For i = 1 To num Text2.Text = Text2.Text + Str(b(i)) + Space(2) Next i End If End Sub Private Sub Form_Unload(Cancel As Integer) Open App.Path & "\out5.dat" For Output As #1 Print #1, Text2.Text Close #1 End Sub

程序结束 参考答案 n = 0 For k = 1 To 100 If a(k) Mod 3 = 0 Then num = num + 1 b(num) = a(k) End If Next k For i = 1 To num f = True For j = 1 To num - 1 If b(j) > b(j + 1) Then t = b(j) b(j) = b(j + 1) b(j + 1) = t f = False End If Next j If f Then Exit For End If Next i

步骤3：调试并运行程序，关闭程序后按题目要求存盘。