在Form1、标题为“考试”窗体上添加一个名称为Combol、初始文本为空下拉式组合框.docVIP

基础题(1) 【解题思路】根据题意，通过窗体的Caption属性设置窗体的标题为考试，通过组合框的Name、Text、List属性设置组合框的名称为Combo1、初始内容为空，下拉列表中有隶书、宋体和楷体三个项目。 【操作步骤】 步骤1：按照题目要求建立窗体和控件，并设置控件的属性。程序中用到的控件及属性见表3.165。 步骤2：调试并运行程序，关闭程序后按题目要求存盘。 基础题(2)【解题思路】将文本框Text1的Enabled属性设置为False，单击开始按钮后，文本框Text1的Enabled属性设置为True ，Text1文本框变为可用状态，在Text1 Change 事件过程中，Text1文本框中输入字母串时，运用UCase函数使Text2文本框中用大写字母形式显示Text1文本框中的内容。 【操作步骤】 步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.166。 表3.166 步骤2：编写程序代码。 参考答案 Private Sub Command1_Click() Text1.Enabled = True End Sub Private Sub Text1_Change() Text2 = UCase(Text1) End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 简单题(1) 【解题思路】在Command1 Click事件过程中，运用For循环语句和文件操作把考生文件夹in3.dat文件中的20个整数读入数组a中，同时通过Str函数，＋连接符以及Space函数将其显示在Text1文本框中； 在Command2 Click事件过程中，通过b ＝ a(i)，a(i) ＝ a(21 － i)，a(21 － i) ＝ b三个语句，将数组a中元素的位置自动对调，第一个数组元素与最后一个数组元素对调，第二个数组元素与倒数第二个数组元素对调……，最后通过For语句将位置调整后的数组显示在文本框Text2中。 【操作步骤】 步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 程序提供代码 Dim a(20) As Integer Private Sub Command1_Click() Dim k As Integer Open App.Path \in3.dat For Input As #1 For k = 1 To 20 　　　　Input #1, a(k) 　　　　Text1 = Text1 + Str(a(k)) + Space(2) Next k Close #1 End Sub Private Sub Command2_Click() 考生编写 以下程序段将已变换的数组元素显示在Text2文本框中 　For k = 1 To 20 　　　Text2 = Text2 + Str(a(k)) + Space(2) Next k End Sub Private Sub Form_Unload(Cancel As Integer) Open App.Path \out3.dat For Output As #1 Print #1, Text2.Text Close #1 End Sub 程序结束 参考答案 Private Sub Command2_Click() 考生编写 Dim i As Integer For i = 1 To 10 b = a(i) a(i) = a(21 - i) a(21 - i) = b Next i 以下程序段将已变换的数组元素显示在Text2文本框中 For k = 1 To 20 Text2 = Text2 + Str(a(k)) + Space(2) Next k End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 简单题(2) 【解题思路】根据题意，将考生文件夹下in4.dat文件的内容显示在Text1文本框中。在Command2 Click事件过程中，运用SelLength 属性判断文本框中是否有字符被选中，如果SelLength属性为0，那么弹出MsgBox对话框请先选择文本！。 Mid函数用于提取选中文本中的每一个字符，如果字母出现，则把它在26个字母中的顺序赋值给数组a，通过For循环语句和If选择判断语句判断，如果a(i)＝0，则该字母未出现，将未出现过的字母这些字母以大写形式显示在Text2文本框内。 UCase函数把小写字母转化为大写字母使统计不区分大小写字母。 【操作步骤】 步骤1：打开本题工程文件。 步骤