第47套1.基本操作（2小题，每小题15分，共计30分）（1）在名称为Form1的窗体上建立一个名称为Text1的文本框，一个名称为Cmd1，标题为“输出”的命令按钮（如图所示）。

要求程序运行后，在文本框输入几个字符，在单击“输出”按钮，则在窗体上显示文本框中的的文字。

*注意：1）在程序中不能使用任何变量。

2）保存时必须存放在考生文件夹下，窗体文件名为lq1.frm，工程文件名为lq1.vbp。

（2）在名称为Form1的窗体上建立二个名称分别为Cmd1、Cmd2，标题为“按钮一”、“按钮二”的命令按钮（如图所示）。

要求程序运行后，如果单击“按钮一”，则把“按钮二”移到“按钮一”上，使两个按钮重合。

*注意：1）在程序中不得使用任何变量（必须通过属性设置来移动控件）。

2）保存时必须存放在考生文件夹下，窗体文件名为lq2.frm，工程文件名为lq2.vbp2.简单应用（2小题，每小题20分，共计40分）（1）在考生文件夹中有工程文件lq5.vbp及其窗体文件lq5.frm，该程序是不完整的。

请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号）但不能修改其他部分。

存盘时不得改变文件名和文件夹。

本题描述如下：在窗体上有三个名称分别为Text1、Text2、Text3的文本框，一个名称为C1，标题为“计算”的命令按钮（如图所示）。

要求程序运行后，在Text1和Text2中分别输入两个整数，单击“计算”按钮后，可把两个整数之间的所有整数（含着两个整数）累加起来并在Text3中显示出来。

（2）在窗体上建立一个名称为Text1的文本框，建立一个名称为Cmd1，标题为“计算”的命令按钮（如图所示）。

要求程序运行后，如果单击“计算”按钮，则求出100-200之间所有可以被3整除的数的总和，在文本框中显示出来，并把结果存入考生文件夹下的out.txt文件中。

注意，在考生的文件夹下有一个mode.bas标准模块，该模块中提供了保存文件的过程putdata，考生可以直接调用。

*注意：保存时必须存放在考生文件夹下，窗体文件名为lq6.frm。

工程文件名为lq6.vbp,结果存入out.txt文件。

3．综合应用（1小题，计30分）在名称为Form1的窗体上建立一个文本框（名称为Text1，MultiLine属性为True，ScrollBars属性为2）和两个命令按钮（名称分别为Cmd1和Cmd2，标题分别为"读入数据"和"排序显示保存"）（如图所示）。

程序运行后，如果单击"读入数据"按钮，则读入"in.txt"文件中的100个整数，放入一个数组中（数组下界为1）；如果单击"排序显示保存"按钮，则对这100个整数按从小到大进行排序，把排序后的全部数据在文本框Text1中显示出来，然后存入考生文件夹中的文件"result.txt"中（在考生的目录下有标准模块prog.bas过程可以把指定个数的数组元素存入result.txt文件，考生可以把该模块文件添加到自己的工程中）。

注意：文件必须存放在考生文件夹下，窗体文件名为lq7.frm，工程文件名为lq7.vbp，排序结果存入result.txt文件，否则没有成绩。

第48套1.基本操作（2小题，每小题15分，共计30分）（1）在名称为Form1的窗体上建立一个名称为P1的图片框和二个命令按钮，名称分别为Cmd1、Cmd2，标题分别为“输出”、“清除”（如图所示）。

要求程序运行后，每单击一次“输出”按钮，不使用任何变量而直接在图片框中显示小写字母“red”；如果单击“清除”按钮，则清除图片框中的内容。

*注意：保存时必须存放在考生文件夹下，窗体文件名为lq3.frm，工程文件名为lq3.vbp。

（2）在名称为Form1的窗体上建立一个名称为List1的列表框。

要求：在程序运行后，通过Form_Load()事件过程加载窗体时，执行语句List1.AddItem"AAA"之后，每当单击某个列表项时，都执行语句List1.AddItemList1.Text一次（如图所示）。

*注意：保存时必须存放在考生文件夹下，窗体文件名为lq4.frm，工程文件名为lq4.vbp。

2.简单应用（2小题，每小题20分，共计40分）（1）在名称为Form1的窗体上建立两个主菜单，其标题分别为“文件”和“帮助”名称分别为vbFile和vbHelp，在“文件”菜单下有三个子菜单项，分别为“新建”、“打开”和“存盘”（其名称分别为vbNew、vbOpen和vbSave）。

要求程序运行后，如果选中“文件”下的某个菜单项，则通过MsgBox对话框显示该菜单项的标题（如图所示）。

*注意：保存时必须存放在考生文件夹下，窗体文件名为lq5.frm，工程文件名为lq5.vbp。

（2）在窗体上建立一个名称为Text1的文本框，再建立一个名称为Cmd1，标题为“计算”的命令按钮（如图所示）。

要求程序运行后，单击命令按钮，将计算100-200之间所有素数之和，在文本框中显示结果，同时把结果存入文件out.txt中。

（在考生文件夹中有标准模块mode.bas,其中的putdata过程可以把结果存入文件，而isprime函数可以判断整数x是否为素数，如果是素数，则函数返回True，否则返回False，考生可以把该模块文件添加到自己的工程中。

）*注意：保存时必须存放在考生文件夹下，窗体文件名为lq6.frm，工程文件名为lq6.vbp，结果存入out.txt文件。

3．综合应用（1小题，计30分）在名称为Form1的窗体上建立一个文本框（名称为Text1，MultiLine属性为True，ScrollBars属性为2）和两个命令按钮（名称分别为Cmd1和Cmd2，标题分别为“读入数据”和“保存数据”）（如图所示）。

程序运行后，如果单击“读入数据”按钮，则读入“in.txt”文件中的100个整数，放入一个数组中（数组下界为1），并在文本框Text1中显示出来；如果单击“保存数据”按钮，则把数组中的前50个数据在文本框Text1中显示出来，并存入考生文件夹中的文件“result.txt”中，（考生文件夹中有标准模块prog.bas，其中的putdata过程可以把指定个数的数组元素存入result.txt文件，考生可以把该模块文件添加到自己的工程中）。

注意：文件必须存放在考生文件夹下，窗体文件名为lq7.frm，工程文件名为lq7.vbp结果存入result.txt文件，否则没有成绩。

第49套1.基本操作（2小题，每小题15分，共计30分）（1）在名称为Form1的窗体中建立一个名称为Cmd1，标题为“显示”的命令按钮（如图所示）。

要求程序运行后，如果单击“显示”按钮，则执行语句Form1.Print"显示"；如果单击窗体，则执行语句Form1.Cls。

*注意：保存时必须存放在考生文件夹下，窗体文件名为lq3.frm，工程文件名为lq3.vbp。

（2）在名称为Form1的窗体上建立一个水平滚动条，名称为HS1，其最大值为100，最小值为0。

要求程序运行后，每次移动滚动框时，都执行语句Form1.PrintHS1.Value。

（如图所示）（程序中不能使用任何其他变量）*注意：保存时必须存放在考生文件夹下，窗体文件名为lq4.frm，工程文件名为lq4.vbp。

2.简单应用（2小题，每小题20分，共计40分）（1）在考生文件夹中有工程文件lq5.vbp及其窗体文件lq5.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号）但不能修改其它部分。

存盘时不得改变文件名和文件夹。

本题描述如下：在窗体上有两个单选按钮，名称分别为Op1和Op2，标题分别为“宋体”和“黑体”，一个文本框，名称为Text1，字体为楷体_GB2312，字号为四号字，还有一个命令按钮，名称为C1，标题为“切换”。

要求程序运行后，在文本框中输入“等级考试”（如左图所示），并选择一个单选按钮。

在单击“切换”按钮后，会根据所选的单选按钮来切换文本框中所显示的汉字字体（如右图所示）。

（2）在窗体上建立一个名称为Text1的文本框和一个名称为Cmd1，标题为“计算”的命令按钮（如图所示）。

程序运行后，单击“计算”命令按钮，通过在对话框输入整数12，放入整型变量a中，然后计算a!，（提示：运算结果应放入Long型变量中），在文本框中显示结果，并把结果存入文件out.txt中。

在考生文件夹中有一个标准模块mode.bas，该模块中提供了保存文件的过程putdata,考生可以直接调用。

*注意：保存时必须存放在考生文件夹下，窗体文件名为lq6.frm，工程文件名为lq6.vbp。

3．综合应用（1小题，计30分）在名称为Form1的窗体上建立一个文本框（名称为Text1，MultiLine属性为True，ScrollBars属性为2）和两个命令按钮（名称分别为Cmd1和Cmd2，标题分别为“读入数据”和“计算保存”）（如图所示）。

要求程序运行后，如果单击“读入数据”按钮，则读入“in.txt”文件中的100个整数，放入一个数组中（数组下界为1），同时在文本框中显示出来；如果单击“计算保存”按钮，则计算数组中大于或等于400并且小于800的所有数之和，把求和结果在文本框Text1中显示出来，同时把结果存入考生文件夹中的文件result.txt中。

（在prog.bas中的putdata过程可以把结果存入result.txt 文件，考生可以把该模块文件添加到自己的工程中，直接调用此过程）。

注意：文件必须存放在考生文件夹下，窗体文件名为lq7.frm，工程文件名为lq7.vbp，计算结果存入result.txt，否则没有成绩。

第50套1.基本操作（2小题，每小题15分共计30分）（1）在窗体上建立一个二级菜单，该菜单含有“文件”、“帮助”（名称分别为vbFile和vbHelp）两个主菜单项，其中“文件”菜单包括“打开”、“关闭”、“退出”三个子菜单项（名称分别为vbOpen、vbClose、vbExit）（如图所示）。

只建立菜单，不必定义其事件过程。

*注意：保存时必须存放在考生文件夹下，窗体文件名为lq1.frm，工程文件名为lq1.vbp。

（2）在名为Form1的窗体上画一个框架，名称为Frm1，标题为“框架”，高度为2500，宽度为4000；再在框架中画一个文本框，名称为Text1，高度为400，宽度为1200，其位置距框架的左边框600，距框架的上边框1200，文本框中的初始内容设置为“文本框”。