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

基础题(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 \in