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

《在Form1、标题为“考试”的窗体上添加一个名称为Combol、初始文本为空的下拉式组合框》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、基础题(1)【解题思路】根据题意，通过窗体的Caption属性设置窗体的标题为"考试"，通过组合框的Name、Text、List属性设置组合框的名称为Combo1、初始内容为空，下拉列表中有"隶书"、"宋体"和"楷体"三个项目。【操作步骤】步骤1：按照题目要求建立窗体和控件，并设置控件的属性。程序中用到的控件及属性见表3.165。步骤2：调试并运行程序，关闭程序后按题目要求存盘。基础题(2)【解题思路】将文本框Text1的Enabled属性设置为False，单击"开始"按钮后，文本框Text1的Enabled属性设置为T

2、rue，Text1文本框变为可用状态，在Text1Change事件过程中，Text1文本框中输入字母串时，运用UCase函数使Text2文本框中用大写字母形式显示Text1文本框中的内容。【操作步骤】步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.166。表3.166步骤2：编写程序代码。参考答案PrivateSubCommand1_Click()Text1.Enabled=TrueEndSubPrivateSubText1_Change()Text2=UCase(Text1)EndSub步骤3：调试并

3、运行程序，关闭程序后按题目要求存盘。简单题(1)【解题思路】在Command1Click事件过程中，运用For循环语句和文件操作把考生文件夹in3.dat文件中的20个整数读入数组a中，同时通过Str函数，"＋"连接符以及Space函数将其显示在Text1文本框中；在Command2Click事件过程中，通过b＝a(i)，a(i)＝a(21－i)，a(21－i)＝b三个语句，将数组a中元素的位置自动对调，第一个数组元素与最后一个数组元素对调，第二个数组元素与倒数第二个数组元素对调……，最后通过For语句将位置调整后的数组

4、显示在文本框Text2中。【操作步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。程序提供代码Dima(20)AsIntegerPrivateSubCommand1_Click()DimkAsIntegerOpenApp.Path&"in3.dat"ForInputAs#1Fork=1To20　　　　Input#1,a(k)　　　　Text1=Text1+Str(a(k))+Space(2)NextkClose#1EndSubPrivateSubCommand2_Click()'考生编写'以下程序段将已变换的

5、数组元素显示在Text2文本框中　Fork=1To20　　　Text2=Text2+Str(a(k))+Space(2)NextkEndSubPrivateSubForm_Unload(CancelAsInteger)OpenApp.Path&"out3.dat"ForOutputAs#1Print#1,Text2.TextClose#1EndSub程序结束参考答案PrivateSubCommand2_Click()'考生编写DimiAsIntegerFori=1To10b=a(i)a(i)=a(21-i)a(21-i

6、)=bNexti'以下程序段将已变换的数组元素显示在Text2文本框中Fork=1To20Text2=Text2+Str(a(k))+Space(2)NextkEndSub步骤3：调试并运行程序，关闭程序后按题目要求存盘。简单题(2)【解题思路】根据题意，将考生文件夹下in4.dat文件的内容显示在Text1文本框中。在Command2Click事件过程中，运用SelLength属性判断文本框中是否有字符被选中，如果SelLength属性为0，那么弹出MsgBox对话框"请先选择文本！"。Mid函数用于提取选中文本中的每

7、一个字符，如果字母出现，则把它在26个字母中的顺序赋值给数组a，通过For循环语句和If选择判断语句判断，如果a(i)＝0，则该字母未出现，将未出现过的字母这些字母以大写形式显示在Text2文本框内。UCase函数把小写字母转化为大写字母使统计不区分大小写字母。【操作步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。程序提供代码OptionBase1DimxAsString,maxnAsIntegerPrivateSubCommand1_Click()OpenApp.Path&"in4.dat"ForInpu

8、tAs#1s=Input(LOF(1),#1)Close#1Text1.Text=sEndSubPrivateSubCommand2_Click()Dima(26)AsIntegersl=Text1.SelLengthst=Text1.SelTextText2.Text=""'If?Then　　MsgBox"请先选择