问答题在考生文件夹中有一个工程文件vbsj5．vbp(相应的窗体文件为vbsj5．frm)。窗体Form1上有两个名称为Lab1和Lab2的标签，它们的标题分别为“密码”和“允许次数”；一个名称为Cmd1的命令按钮，其标题为“确定”；两个名称分别为Txt1和Txt2一的文本框。其中Txt1用来输入密码(输入时显示“*”)，无初始内容，Txt2的初始内容为3。已给出了Cmd1的事件过程，但不完整，要求去掉程序中的注释符“'”，把程序中的问号“?”改为正确内容，使得在运行时，在。Txt1中输入密码后，单击“确定”按钮，如果输入的是“123456”，则在Txt1中显示“密码正确”如图3—66所示；如果输入其他内容，单击“确定”后，弹出如图3—67所示的错误提示对话框，并且Txt2中的数字减1。最多可输入3次密码，若3次输入错误，则禁止再次输入。

问答题(1)在考生目录下有一个工程文件vbsj3．vbp，窗体上有一个命令按钮cmdNext(标题为“下一个”)。要求：在窗体上建立一个单选按钮数组optItem，含4个单选按钮，标题分别为“A”、“B”、“C”、“D”，初始状态下，“A”为选中状态。如图3—70所示。窗体文件中已经给出了命令按钮的Click事件过程，但不完整，请去掉程序中的注释符，把程序中的“?”改为正确的内容，使得每单击命令按钮一次，就选中下一个单选按钮，如果已经选中最后一个单选按钮，再单击命令按钮，则选中第1个单选按钮。注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。程序源码：PrivateSubcmdNextClick()'Fork=0To?IfoptItem(k)．ValueThen'n=?EndIfNextkoptItem(n)．Value=Falsen=n+1Ifn=4Then'n=?EndIfoptItem(n)．Value=TrueEndSub(2)在考生文件夹下有一个工程文件vbsj4．vbp，窗体上有两个文本框、三个单选按钮和一个命令按钮。运行时，在txtInput中输入若干个大写和小写字母，并选中一个单选按钮，再单击“转换”按钮，则按选中的单选按钮的标题进行转换，结果放入txtResult(如图3—71所示)。在给出的窗体文件中已经给出了全部控件，但程序不完整，要求：去掉程序中的注释符，把程序中的“?”改为正确的内容。注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。程序源码：PrivateSubcmdChange_Click()DimnAsInteger，kAsIntegerDimchAsString，aAsStringn=Len(txtInput．Text)ch=""Fork=1Ton'a=Mid$(txtInput．Text，?，1)IfOpt1．Value=TrueThenIfa＞="a"Anda＜="z"Thench=ch+UCase(a)ElseIfa＞="A"Anda＜="Z"Then'ch=ch+?ElSech=Ch+aEndIfEndIfIfOpt2．Value=TrueThench=UCase(txtInput)EndIfIfOpt3．Value=TrueThench=LCase(txtInput)EndIfNextk'txtResult=?EndSub

问答题(1)在名称为Form1的窗体上添加一个名称为Frame1、标题为“框架”的框架，在框架内添加两个名称分别为Option1、Option2的单选按钮，其标题分别为“第一项”、“第二项”。要求通过设置控件的属性将“第二项”初始值设置为被选中，框架为不可用。运行程序后的窗体如图所示。注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1．vbp，窗体文件名保存为sjt1．frm。(2)在名称为Form1的窗体上添加一个名称为Drivel的驱动器列表框，一个名称为Dirl的目录列表框，一个名称为Filel的文件列表框，名称为Labell、标题为“文件名”的标签和名称为Label2、BorderStyle为1的标签。将窗体的标题设置为“文件系统控件”，如图所示。请编写适当的程序，使得这三个文件系统控件可以同步变化，即当驱动器列表框中显示的内容发生变化时，目录列表框和文件列表框中显示的内容同时发生变化。单击文件列表框时，将在Label2中显示选中的文件名。注意：要求程序中不得使用变量，事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名保存为sjt2．vbp，窗体文件名保存为sjt2．frm。

问答题请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画一个名称为Labell、标题为“列表框的使用”的标签。再画一个名称为List1的列表框，列表中含有5个表项，表项内容分别为“北京”、“山西”、“辽宁”、“浙江”和“广东”，并且可以在列表中同时选择多个表项。运行后的窗体如图2．212所示。要求：存盘时必须存放在学生文件夹下，工程义件名为sjt1．vbp，窗体文件名为sjt1．frm。(2)在名称为Form1的窗体上画一个名称为lmagcl的图像框，其高、宽分别为2000、3000，且不随图片大小而变化：再画两个命令按钮，标题分别是“显示图片”和“隐藏图片”，名称分别为Cmd1、Cmd2，如图2．213所示。需编写两个命令按钮的Click事件过程，使得当单击“显示图片”按钮时，将当前文件夹下的图片文件“图片．jpg”显示在图像框中；而如果单击“隐藏图片”按钮，则清除图像框中的图片。要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sit2．frm。

问答题(1)在考生文件夹下有一个工程文件sjt3．vbp，窗体上已经有两个文件框，名称分别为Text1、Text2；还有一个命令按钮，名称为C1，标题为“确定”；请添加两个单选按钮，名称分别为Op1、Op2，标题分别为“男生”、“女生”，再添加两个复选框，名称分别为Ch1、Ch2，标题分别为“体育”、“音乐”。请编写适当的事件过程，使得程序在运行时，单击“确定”按钮后实现下面的操作：①根据选中的单选按钮，在Text1中显示“我是男生”或“我是女生”。②根据选中的复选框，在Text2中显示“我的爱好是音乐”或“我的爱好是体育”或“我的爱好是体育音乐”。如图所示。注意：不得修改已经给出的程序和已有控件的属性。在结束程序运行之前，必须选中一个单选按钮和军少一个复选框，并单击“确定”按钮。必须使用窗体右上角的关闭按钮结束程序，否则无成绩。(2)在考生文件夹下有一个工程文件sjt4．vbp。窗体上有一个名称为Timer1的计时器，一个名称为List1的列表框和一个名称为Label1的标签，如图所示。请通过属性窗口向列表框添加四个项目，分别是：“第一项”、“第二项”、“第三项”、“第四项”。程序运行后，将计时器的时间间隔设置为1秒钟，即每一秒钟从列表框中取出一个项目显示在Label1的标签中，首先显示“第一项”，然后，依次显示“第二项”、“第三项”、“第四项”，如此循环。在给出的窗体文件中已经有了全部控件和程序，但不完整，请添加List1中的项目，去掉程序中的注释符，把程序中的?改为正确的内容。注意：考生不得修改工程中已经存在的内容和控件属性，最后将修改后的文件按原文件名存盘。

问答题在考生文件夹下，存在一个数据库文件“samp2．accdb”，里面已经设计好三个关联表对象“tStud”、“tCourse”、“tScore”和一个临时表对象“tTemp”。试按以下要求完成设计。 (1)创建一个查询，按所属院系统计学生的平均年龄，字段显示标题为“院系”和“平均年龄”，所建查询命名为“qT1”。 要求：平均年龄四舍五人取整处理。 (2)创建一个查询，查找上半年入学的学生，并显示“姓名”、“性别”、“课程名”和“成绩”等字段内容，所建查询命名为“qT2”。 (3)创建一个查询，查找没有选课的同学，并显示其“学号”和“姓名”两个字段内容，所建查询命名为“qT3”。 (4)创建删除查询，将表对象“tTemp”中年龄值高于平均年龄(不含平均年龄)的学生记录删除，所建查询命名为“qT4”。

问答题请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。

问答题(1)在考生文件夹下有一个工程文件sjt3．vbp。程序的功能是通过键盘向文本框中输入大、小写字母及数字。单击“统计”按钮，分别统计输入字符串中大写字母、小写字母及数字字符的个数，并将统计结果分别显示在标签控件数组x中，如图3—167所示。在给出的窗体文件中已经添加了全部控件，但程序不完整。要求：去掉程序中的注释符，把程序中的“?”改为正确的内容。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。(2)考生文件夹下的工程文件sjt4．vbp中有两个名称分别为List1、List2的列表框控件，两个名称分别为Command1、Command2，标题分别为“＞＞”、“＜＜”的命令按钮。请在List1中添加“文本框”、“标签”、“列表框”、“单选钮”等表项，如图3—168所示。程序的功能是：单击“＞＞”按钮，将List1中的表项添加到List2中，同时将List1清空；单击“＜＜”按钮，将List2中的表项添加到List1中，同时将List2清空。程序已给出，但是不完整。请将程序中的注释符去掉，把“?”改为正确的内容，实现上述功能。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。

问答题(1)在考生文件夹下有一个工程文件sjt3．vbp。程序的功能是：1)程序运行时，文件列表框显示当前文件夹中的所有扩展名为．jpg的文件。2)双击文件列表框中某个图片文件名时，能在图像框中显示出该张图片，并将该图片文件的信息(包括路径及文件名)显示到标签中，如图3-42所示。3)“下一张"命令按钮的功能：选中并显示上次选中文件的下一个图片文件(如果文件列表框中没有被选中的图片文件或上次选中的是最后一个文件名，则从第1个图片文件始)。在当前程序所在文件夹中，已经提供了所需要的图片文件，运行时窗体如图所示。在给出的窗体文件中已经有了全部控件，但程序不完整。请将事件过程中的注释符去掉，把“?”改为正确的内容，以实现上述程序功能。注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。(2)在考生文件夹下有一个工程文件sjt4．vbp。程序的功能是：程序运行时，文本框中显示一篇英文短文，单击“查找”按钮时可输入查找内容，如图3-43所示。若未找到查找内容，查找结束；若找到查找-内容，被找到的内容在文本框中以反相显示(即呈选中状态)，每找到一次都给出提示，并在左下角文本框中显示累计的次数，如图344所示，若单击提示对话框的“是”按钮，则继续向后查找；若单击“否”按钮，则终止查找。在给出的窗体文件中已经有了全部控件，但程序不完整。请将事件过程中的注释符去掉，把“?”改为正确的内容，以实现上述程序功能。注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。

问答题请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1、标题为“框架练习”的窗体上画一个名称为Frame1、标题为“字体”的框架摔件；在框架中画两个单选按钮，名称分别为Option1、Option2，标题分别为“宋体”、“黑体”，标题在单选按钮的左边。运行后的窗体如图2．158所示。注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为sjtl．frm，上程文件名为sjtl．vbp。(2)在名称为Forml窗体上，画一个名称为Imagcl的图像框，在其中显示考生文件夹下的图片“pic2．jpg”，并设置适当属性使得图像框尺寸变化时图片尺寸可随之变化。再画一个水平滚动条和一个垂直滚动条，名称分别为HScroll1、VScroll1，它们的刻度范围部是1～3。如图2．159(a)所示。要求如下：①定义两个窗体级变量：length、high，并编写窗体的FormLoad事件过程，使length、high分别等于图像框的宽、高；②编写适当的事件过程，使得移动两个滚动条上的滚动块时，以刻度值作为图像框初始尺寸的倍数改变图像框相应方向的尺寸。例如：HScroll1的滚动块在刻度值为2的位置时，图像框的宽为初始宽度的2倍。如图2．159(b)所示。对于垂直滚动条也相同。注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为s；t2．frm，工程文件名为sjt2．vbp。要求程序中的两个变量必须是length、high，此外不能再使用其他变量，除FormLoad事件过程外，其他每个事件过程中只能写一条语句。

问答题在考生文件夹下有一个工程文件sjt5．vbp，窗体上有两个图片框，名称为P1、P2，分别用来表示信号灯和汽车，如图3-182所示，其中在P1中轮流装入“黄灯．ico”、“红灯．ico”、“绿灯．ico”文件来实现信号灯的切换；还有两个计时器Timer1和Timer2，Timer1用于变换信号灯，黄灯1秒，红灯2秒，绿灯3秒；Timer2用于控制汽车向左移动。运行时，信号灯不断变换，单击“开车”按钮后。汽车开始移动，如果移动到信号灯前或信号灯下，遇到红灯或黄灯，则停止移动，当变为绿灯后再继续移动。在窗体中已经给出了全部控件和程序，但程序不完整，要求阅读程序并去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件以原文件名存盘。

问答题在考生文件夹下完成如下简单应用：1．有一个工程文件ylc.vbp(相应的窗体文件名为ylc5.frm)，在窗体上画一个名为List1的列表框和一个名为Text1的文本框。编写窗体的MouseDown事件。程序运行后，如果用鼠标左键单击窗体，则从键盘上输入要添加到列表框的项目；如果用鼠标右键单击窗体，则从键盘上输入要删除的项目，将其从列表中删除。程序的运行情况如图23所示。注意：存盘时必须存放在考生文件夹下，工程文件名为ylc5.vbp，窗体文件名为ylc5.frm。

问答题(1)在考生文件夹下有一个工程文件sjt3．vbp，它的功能是在运行时只显示名为Form2的窗体，单击Form2上的“C2”按钮，则显示名为Forml的窗体：单击Forml上的“C1”按钮，则Forml的窗体消失。这个程序并不完整，要求如下：①把Form2设为启动窗体；把Forml上按钮的标题改为“隐藏”，把Form2上按钮的标题改为“显示”。②去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但小能修改程序中的其他部分。最后把修改后的文件存盘。③工程文件和窗体文件仍以原来的文件名存盘。正确程序运行后的界面如图2．242所示。(2)在考生文件夹下有一个工程文件sil4．vbp，它的功能是在文本框中输入一个整数，单击“移动”按钮后，如果输入的是正数，滚动条中的滚动框向右移动与该数相等的刻度，但如果超过了滚动条的最大刻度，则不移动，并且显示“文本框中的数值太大”；如果输入的是负数，滚动条中的滚动框向左移动与该数相等的刻度，但如果超过了滚动条的最小刻度，则不移动，并且显示“文本框中的数值太小”，如图2．243所示。要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的程序以原来的文件名存盘。

问答题(1)在名称为Form1的窗体上画两个名称分别为Framel、Frame2的框架，标题分别为“字号”、“修饰”；在Framel中画两个单选按钮，名称分别为Optionl、Option2，标题分别为“10号字”、“20号字"，且标题显示在单选按钮的左边；在Frame2中画一个名称为Checkl的复选框，标题为“下划线”。运行后的窗体如图3．174所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl．vbp，窗体文件名为sjtl．frm。(2)在名称为Form1的窗体上从上到下画两个文本框，名称分别为Text1、Text2；再画一个命令按钮，名称为Command1，标题为“选中字符数是”。程序运行时，在Text1中输入若干字符，选中部分内容后，单击“选中字符数是"按钮，则在Text2中显示选中的字符个数(如图3．175所示)。请编写按钮的Click事件过程。要求：不得使用变量，事件过程中只能写一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。

问答题在考生文件夹下有一个工程文件sjt5．vbp。其窗体中有一个名称为Text1的文本框数组，下标从0开始。程序运行时，单击“产生随机数”按钮，就会产生10个3位数的随机数，并放入Text1数组中，如图3—183(a)所示；单击“重排数据”按钮，将把Text1中的奇数移到前面，偶数移到后面，如图3—183(b)所示。文件中已经给出了所有控件和部分程序。要求：请去掉程序中的注释符，把程序中的“?”改为正确的内容，使其能正确运行，不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。提示：在“重排数据”按钮的事件过程中有对其算法的文字描述，请仔细阅读。

问答题请根据以下各小题的要求设计’VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml、标题为“框架”的窗体上画一个名称为Framel，且没有标题的框架。框架内含有两个单选按钮，名称分别为Opt1和Opt2、标题分别为“字体”、“大小”，如图3—163所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl．vbp，窗体文件名为sitl．frm。(2)考生文件夹下的工程文件sjt2．vbp中有一个由直线Linel、L,ine2和L,ine3组成的三角形，直线Linel、Line2和Line3的坐标值见表3—4：要求画一条直线Line4以构成三角形的高，且该直线的初始状态为不可见。再画两个命令按钮，名称分别是Cmdl、Cmd2，标题分别为“显示高”、“隐藏高”，如图3—164所示。请编写适当的事件过程，使得在运行时，单击“显示高”按钮，则显示三角形的高；单击“隐藏高”按钮，则隐藏三角形的高。注意：要求程序中不得使用变量，每个事件过程只能写一条语句。不得修改已经存在的控件，最后将修改后的文件按原文件名存盘。

问答题在考生文件夹中有一个工程文件sjt5．vbp，其功能是：找出矩阵元素的最大值，并求出矩阵对角线元素之和，窗体外观如图所示。程序运行时，矩阵数据被放入二维数组a中。当单击“找矩阵元素最大值”命令按钮时，找出矩阵中最大的数，并在标签Label3中显示。当单击“对角线元素之和”命令按钮时，计算矩阵主对角线元素之和，并在标签Label4中显示。文件中已给出部分程序，请编写“找矩阵元素最大值”及“对角线元素之和”两个命令按钮的事件过程中的部分程序代码。注意：不得修改程序的其他部分和控件属性。最后将修改后的文件按原文件名存盘。程序调试通过后，两个命令按钮的事件过程必须至少各执行一次。

问答题在考生目录下有一个工程文件sjt4．vbp，包含了所有控件和部分程序。程序运行时，请按以下顺序操作：1)单击“读入数据”按钮，可把考生目录下的文件in4．dat中的100个整数读到数组a中；2)从名称为Comb01的组合框中选中一项(如图3-51所示)。3)单击“计算”按钮，则可按该选项的要求对a中的数计算平均值(四舍五入取整或截尾取整)并放到文本框中。4)单击窗体右上角的关闭按钮结束程序。“读入数据”按钮的Click事件过程已经给出，请为“计算”按钮编写适当的事件过程实现上述功能。提示：存放前n个数之和的变量应使用Long类型。注意：不得修改已经存在的程序，在结束程序运行之前，必须进行一次计算，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。

问答题在考生文件夹下有一个工程文件sjt5.vbp，其中含3个窗体，标题分别为“启动”、“注册”、“登录”，运行时显示“启动”窗体，单击其上的按钮时将弹出对应窗体以进行注册和登录。 注册信息放在全局数组users中，注册用户数(最多10个)放在全局变量n中(均已在标准模块中定义)。 注册时用户名不能重复，且“口令”与“验证口令”须相同，注册成功则在“启动”窗体的标签中显示“注册成功”，否则显示相应错误信息。登录时，检验用户名和口令，若正确，则在“启动”窗体的标签上显示“登录成功”，否则显示相应的错误信息。 标准模块中函数finduser()的功能是：在users数组中搜索用户名(即参数ch)，找到则返回该用户名在users中的位置，否则返回0。 已经给出了所有控件和程序，但程序不完整，在Form2、Form3窗体文件中的横线处填写正确的内容。 注意：不得修改已经存在的程序和控件的属性，最后程序按原文件名存盘。 [题目提供的源程序] 1．标准模块源程序 Option Base 1 Public users(10,2) As String Public n As Integer Public Function finduser(ch As String) As Integer For k=1 To 10 If users(k,1)=ch Then finduser=k Exit Function End If Next k finduser=0 End Function 2．Form1源程序 Private Sub Command1_Click() Form2.Text1="" Form2.Text2="" Form2.Text3="" Label1.Caption="" Form2.Show End Sub Private Sub Command2_Click() Form3.Text2="" Label1.Caption="" Form3.Show End Sub 3．Form2源程序 Private Sub Command1_Click() Text1="" Text2="" Text3="" End Sub Sub writeusers() n=n+ (1) users(n,1)=Text1 users(n,2)=Text2 End Sub Private Sub Command2_Click() If Text1="" Then MsgBox("必须输入用户名!") Text1.SetFocus ElseIf finduser(Trim $ (Text1))＞ (2) Then MsgBox("此用户名已经存在!") ElseIf Text2＜＞Text3 Then MsgBox("口令验证错误!") Else writeusers (3) ="注册成功!" Form2.Hide End If End Sub 4．Form3源程序 Private Sub Command1_Click() k=finduser(Trim $ (Text1)) If k= (4) Then MsgBox("没有注册!") ElseIf Trim $(Text2) ＜＞ users( (5) ) Then MsgBox("口令错误!") Else Form1.Label1.Caption="登录成功!" Form3.Hide End If End Sub