的窗体上添加一个名称为Combol、初始文本为空的下拉.doc

基础题(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 = TrueEnd SubPrivate 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 IntegerPrivate Sub Command1_Click()Dim k As IntegerOpen App.Path & in3.dat For Input As #1For k = 1 To 20Input #1, a(k)Text1 = Text1 + Str(a(k) + Space(2)Next kClose #1End SubPrivate Sub Command2_Click() 考生编写 以下程序段将已变换的数组元素显示在Text2文本框中For k = 1 To 20Text2 = Text2 + Str(a(k) + Space(2)Next kEnd SubPrivate Sub Form_Unload(Cancel As Integer)Open App.Path & out3.dat For Output As #1Print #1, Text2.TextClose #1End 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 kEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。简单题(2) 【解题思路】根据题意，将考生文件夹下in4.dat文件的内容显示在Text1文本框中。在Command2 Click事件过程中，运用SelLength 属性判断文本框中是否有字符被选中，如果SelLength属性为0，那么弹出MsgBox对话框请先选择文本！。 Mid函数用于提取选中文本中的每一个字符，如果字母出现，则把它在26个字母中的顺序赋值给数组a，通过For循环语句和If选择判断语句判断，如果a(i)0，则该字母未出现，将未出现过的字母这些字母以大写形式显示在Text2文本框内。UCase函数把小写字母转化为大写字母使统计不区分大小写字母。【操作步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。程序提供代码Option Base 1Dim x As String, max n As IntegerPrivate Sub Command1_Click()Open App.Path & in4.dat For Input As #1s = Input(LOF(1), #1)Close #1Text1.Text = sEnd SubPrivate Sub Command2_Click()Dim a(26) As Integer sl= Text1.SelLengthst = Text1.SelTextText2.Text = If ? Then MsgBox 请先选择文本！Else For i = 1 To ? c = Mid(st, i, 1) If c Thenn = Asc(UCase(c) - Asc(A) + 1a(n) = ? End If Next For i = 1 To ? If a(i) = 0 ThenText2.Text = Text2.Text + + Chr(Asc(A) + i - 1) End IfNextEnd IfEnd Sub程序结束参考答案第1个？处填入：Text1.SelLength = 0第2个？处填入：sl第3个？处填入：a(n)+1第4个？处填入：26步骤3：调试并运行程序，关闭程序后按题目要求存盘。综合题【解题思路】在Command1 Click事件过程中，变量tag in用于判断学生人数是否已超过数组声明的个数，如果tag in 1，弹出MsgBox 对话框输入的学生人数已超过数组声明的个数！，然后通过Text1、Text2和Text3三个文本框中输入学号、姓名和平均分。添加学生记录，学生记录类型数组stud2分别通过Num、Name、Average记录学号、姓名、平均分。在Command2 Click事件过程中，通过冒泡排序，将学生记录类型数组stud中存放的学生信息，按平均分降序排列，运用Print方法输出在图片框中，每个学生一行，并且显示三项信息。【操作步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。程序提供代码窗体的代码Option Base 1Dim n%, tag in%Dim stud(1 To 10) As StudTypePrivate Sub Command1_Click()If n stud(j)? Thent = stud(k)stud(k) = ?stud(j)= t End IfNext kNext jFor j = 1 To nPicture1.Print stud(j)Num; stud(j)Name; stud(j)AverageNext jEnd Sub模块的代码Type StudTypeNum As String *