问答题在名称为Forml的窗体上建立一个名称为“menul”、标题为“文件”的弹出式菜单，其含有三个菜单项，它们的标题分别为：“打开”、“关闭”、“保存”，名称分别为“ml”、“m2”、“m3”。再添加一个命令按钮，名称为“Commandl”、标题为“弹出菜单”。要求：编写命令按钮的Click事件过程，使程序运行时，单击“弹出菜单”按钮可弹出“文件”菜单(如图所示)。注意：程序中不得使用变量，事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名保存为sjt2．vbp，窗体文件名保存为sit2．frm。
问答题(1)在考生目录下有一个工程文件vbs2-3．vbp，窗体上有一个命令按钮cmdNext(标题为“下一个”)。要求：在窗体上建立一个单选按钮数组optltem，含4个单选按钮，标题分别为“A”、“B”、“C”、“D”，初始状态下，“A”为选中状态。如图3．70所示。窗体文件中已经给出了命令按钮的Click事件过程，但不完整，请去掉程序中的注释符，把程序中的“?”改为正确的内容，使得每单击命令按钮一次，就选中下一个单选按钮，如果已经选中最后一个单选按钮，再单击命令按钮，则选中第1个单选按钮。注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。程序源码：PriVateSubcmdNext_Click()'Fork=0To?IfOptItem(k)．ValueThen'n=?EndIfNextkoptItem(n)．Value=Falsen=n+1Ifn=4Then'n=?EndIfoptItem(n)．Value=TrueEndSub(2)在考生文件夹下有一个工程文件vbsj4．vbp，窗体上有两个文本框、三个单选按钮和一个命令按钮。运行时，在txtlnput中输入若干个大写和小写字母，并选中一个单选按钮，再单击“转换”按钮，则按选中的单选按钮的标题进行转换，结果放入txtResult(如图3．71所示)。在给出的窗体文件中已经给出了全部控件，但程序不完整，要求：去掉程序中的注释符，把程序中的“?”改为正确的内容。注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。程序源码：PrivateSubcmdChange_Click()DimnAsInteger，kAsIntegerDimchAsString，aAsStringn=Len(txtInput．Text)ch=""Fork=1Ton'a=Mid$(txtInput．Text，?，1)IfOptl．Value=TrueThenIfa>="a"Anda="A"Anda<="Z"Then'Ch=Ch+?Elsech=ch+aEndIfEndIfIfOpt2．Value=TrueThench=UCase(txtInput)EndIfIfOpt3．Value=TrueThench=LCase(txtInput)EndIfNextk'txtResult=?EndSub
问答题在考生文件夹下有一个过程文件sjt5.vbp，窗体上有两个图片框，名称为P1、P2，分别用来表示信号灯和汽车，其中在P1中轮流装入“黄灯.ico”、“红灯.ico'、“绿灯.ico”文件来实现信号灯的切换；还有两个计时器Timer1和Timer2，Timer1用于变换信号灯，黄灯1秒，红灯2秒，绿灯3秒；Timer2用于控制汽车向左移动。运行时，信号灯不断变换。单击“车按”按钮后，汽车开始移动，如果移动到信号灯前或信号灯下，遇到红灯或黄灯，则停止移动，当变为绿灯后再继续移动。在窗体中已经给出了全部控件和程序，但程序不完整，要求阅读程序并去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件以原文件名存盘。sjt5.frm文件内容如下： Dim a%,b As Boolean Private Sub C1_Click() ' Timer2.Enabled=? b=True End Sub Private Sub Timer1_Timer() a=a+1 If a＞6 Then a=1 End If Select Case a Case 1 P1.Picture=LoadPicture("黄灯.ico" ) Case 2,3 P1.Picture=LoadPicture("红灯.ico") Case 4,5,6 ' P1.Picture=LoadPicture("?") If b Then Timer2.Enabled=True End Select End SubPrivate Sub Timer2_Timer() If (a＜4) And (P2.Left＞P1.Left And P2.Left＜P1.Left+P1.Width) Or P2.Left＜=100 Then' Timer2.Enabled=? Else' P2.Move? —10,P2.Top,P2.Width,P2.Height End IfEnd Sub
问答题以下数列：1，1，2，3，5，8，13，21…的规律是从第3个数外始，每个数都是其前面两个数之和。在考生文件夹下有一个工程文件sjt5．vbp。窗体中已经给出了所有控件，如图所示。请编写适当的事件过程完成如下功能：选中一个单选按钮后，单击“计算”按钮，则计算出上述数列第n项的值，并在文本框中显示，n是选中的单选按钮后面的数值(提示：因计算结果较大，应使用长整型变量)。注意：不能修改已经给出的程序和已有的控件的属性；在结束程序运行之前，必须选中一个单选按钮，并单击“计算”按钮以获得一个结果；必须使用窗体右一卜角的关闭按钮结束程序，否则无成绩。最后把修改后的文什按原文件名存盘。
问答题在考生文件夹中有工程文件sj4.vbp及窗体文件sj4.frm。在名为Form1的窗体上有两个框架、7个标签和7个文本框，所有控件已经画好。该程序的功能是：根据给定的图形的三边的边长来判断图形的类型。若为三角形，则同时计算出为何种三角形，及三角形的周长和面积。要求完成“判断并计算”按钮的如下功能：①判断输入的条件是否为三角形，若是三角形，则在Text1中显示“是三角形”；在Text2中显示是何种三角形。②单击“重新输入”按钮可以清空所有显示框．且按钮本身变为无效状态。当单击“判断并计算”按钮之后重新恢复为可用状态。附加信息：①三角形存在的条件为任一边不为0，且任两边之和大于第三边。②若一边具有a2+b2=c2，则为直角三形；若所有边具有a2+b2＞c2，则为锐角三角形；若一边具有a2+b2＜c2，则为钝角三角形。本程序不完整，请补充完整，并能正确运行。程序运行情况如下图所示。要求：去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不得修改其他部分。最后按原文件名并在原文件夹中保存修改后的文件。
问答题在窗体上建立三个菜单(名称分别为Read、Calc和Save，标题分别为“读入数据”、“计算并输出”和“存盘”)，然后添加一个文本框(名称为Text1，可显示多行，ScrollBars属性设置为2)(如图所示)。程序运行后，如果执行“读入数据”命令，则读入datainl．txt文件中的100个整数，放入一个数组中，数组的下界为1；如果单击“计算并输出”按钮，则把该数组中小于50的元素显示在文本框中，求出它们的和，并把所求得的和显示在窗体上；如果单击“存盘”按钮，则将所求得的和存入考生文件夹下的dataout．txt文件中。在考生文件夹下有一个工程文件sjt5．vbp。窗体文件中的ReadData．过程可以把datainl．txt文件中的100个整数读入Arr数组中；而WriteData过程可以把指定的整数值写到考生文件夹下指定的文件中(整数值通过计算求得，文件名为dataout．txt)。注意：考生不得修改窗体文件中已经存在的程序。存盘时，工程文件名仍保存为sjt5．vbp，窗体文件名仍保存为sit5．frm。
问答题在名称为Forml的窗体上添加一个名称为Labell的标签，在属性窗口中把BorderStyle属性设置为1(如图l所示)，编写适当的事件过程。使得程序在运行后，如果单击窗体，则可使标签移到窗体的右上角(只允许在程序中修改适当属性来实现)。要求：不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt2．vbp，窗体文件名保存为sjt2．frm。
问答题在考生文件夹下有一个工程文件sjt5．vbp，已给出了部分控件和部分程序。程序运行时，请在窗体上画三个标签，其名称分别为Label1、Label2和Label3，标题分别为“姓名”、“电话号码”和“邮政编码”。再画三个文本框，其名称分别为Text1、Text2和Text3，初始内容均为空白，如图2．239所示。程序运行后，如果单击“显示第三个记录”按钮，则读取考生文件夹下in5．txt文件中的第三个记录，将该记录的三个字段分别显示在三个文本框中(该文件是一个用随机存取方式建立的文件，共有5个记录)。单击“保存”按钮，则把该记录(三个字段)保存到考生文件夹下的顺序文件out5．txt中。请编写“显示第三个记录”按钮的Click事件过程，以实现上述功能。注意：考生不得修改已经存在的程序，必须用“保存”按钮存储结果，否则无成绩。最后，按原文件名把程序存盘。
问答题在考生文件夹下有一个工程文件sjt4．vbp。其窗体上有一个圆，相当于一个时钟，当程序运行时通过窗体的Activate事件过程在圆上产生1两个刻度点，并完成其他初始化工作；另有长、短2条(红色、蓝色)直线，名称分别为Linel和Line2，表示两个指针。程序运行时，单击”开始”按钮，则每隔0．5秒Linel(长指针)顺时针转动一个刻度，Line2(短指针)顺时针转动1／1两个刻度(即长指针转动一圈，短指针转动一个刻度)，单击”停止”按钮，两个指针停止转动，如图2-52所示。在窗体文件中已经给出了全部控件，但程序不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容。提示：程序中的符号常量x0、y0是圆心到窗体左上角的距离，radius是圆的半径。注意：不能修改程序中的其他部分和控件的属性。最后把修改后的文件按原文件名存盘。
问答题中有一个工程文件sjt4.vbp。该程序的功能是：程序运行时，向文本框控件数组Text1(有5个文本框)中任意输入5个数，单击名称为Command1的命令按钮，则找出其中最小数并在标签lblResult中显示。给出的窗体文件中已经有了全部控件，但程序不完整，其中函数FindMin的作用是返回两个数中的较小数。要求：去掉程序中的注释符，把程序中的?改为正确的内容。
注意：不能修改程序的其他部分和控件属性，最后将修改后的文件按原文件名进行存盘。
问答题在窗体上创建三个命令按钮，名称分别为Command1、Command2和Command3，标题分别为“导入数据”、“计算”和“保存数据”，以及一个文本框，名称为Text1。编写事件过程，使得在运行时，单击“导入数据”按钮，从考生文件里读入data.txt文件(其中有20个整数)，在Text1中显示。单击“计算”，采用冒泡算法排序。单击“保存数据”，存入out.txt文件中。程序运行界面如图29所示。
问答题(1)在考生目录下有一个工程文件sjt3．vbp，有两个名称分别为Form1和Form2的窗体，Form1为启动窗体，程序执行时Form2不显示。Form1中有菜单(如图3—48(a)所示)，程序运行时，若单击“格式”菜单项，则显示Form2窗体(如图3—48(b)所示)，选中一种字号和字体后单击“确定”按钮，则可改变Form1上文本框的字号和字体，并使Form2窗体消失。若单击“退出”菜单项，则结束程序的运行。文件中已经给出了所有控件和程序，但程序不完整，要求：1)利用属性窗口设置适当的属性，使Form1窗体标题栏右上角的最大化按钮、最小化按钮消失(如图3—48(a)所示)。2)利用属性窗口把Form2窗体的标题设置为“格式”(如图3—48(b)所示)。3)请去掉程序中的注释符，把程序中的“?”改为正确的内容。注意：不能修改程序中的其他部分和其他控件的属性。最后把修改后的文件按原文件名存盘。(2)在考生目录下有一个工程文件sjt4．vbp，包含了所有控件和部分程序。程序运行时，请按以下顺序操作：1)单击“读入数据”按钮，可把考生目录下的文件in4．dat中的100个整数读到数组a中。2)从名称为Combol的组合框中选中一项(如图3—49所示)。3)单击“计算”按钮，则可按该选项的要求对a中的数计算平均值(四舍五入取整或截尾取整)并放到文本框中。4)单击窗体右上角的关闭按钮结束程序。“读入数据”按钮的Click事件过程已经给出，请为“计算”按钮编写适当的事件过程实现上述功能。提示：存放前n个数之和的变量应使用Long类型。注意：不得修改已经存在的程序，在结束程序运行之前，必须进行一次计算，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。
问答题在名称为Form1的窗体上添加一个标签，其名称为Label1，然后通过属性窗口设置窗体和标签的属性，实现如下功能：①窗体标题为“设置标签属性”；②标签的位置为：距窗体左边界500，距窗体顶边界300；③标签的标题为“等级考试”；④标签的AutoSize属性为True；⑤标签带有边框。程序的运行情况如图所示。要求：不编写任何代码。注意：存盘时必须存放在下，工程文件名保存为sjt1.vbp，窗体文件名保存为sjt1.frm。
问答题在名称为Form1的窗体上添加一个名称为Label1、标题为“滚动条控件”的标签，一个名称为HScroll1的水平滚动条。请通过属性窗口设置属性使水平滚动条取值范围的最大值为100，最小值为1，滚动条的高度为300，宽度为3000，滚动块的初始位置为20。程序运行后的窗体如图所示。注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1.vbp，窗体文件名保存为sjt1.frm。
问答题在名称为Forml的窗体上添加一个名称为Labell，标题为“口令”的标签；添加一个名称为Textl的文本框；再添加三个命令按钮，名称分别为Cormnandl、Command2、Command3．标题分别为“显示口令”、“隐藏口令”、“重新输入”。程序运行时，在Textl中输入若干字符，单击“隐藏口令”按钮，则只显示与字符同样数量的“*”(如图2所示)；单击“显示口令”按钮，则正常显示输入的字符(如图l所示)，单击“重新输入”按钮，则清除Textl中的内容，并把光标定位到Textl中。要求：请按要求添加所有控件，编写命令按钮的Click事件过程，程序中不得使用变量，在“显示口令”、“隐藏口令”按钮的事件过程中只能写1条语句。存盘时必须存放在考生文件夹下，工程文件名为sitE．vbp，窗体文件名为sitE．frm。
问答题在考生目录下有一个工程文件sjt5．vbp。窗体中已经给出了所有控件(如图3—116所示)。请编写适当的事件过程完成以下功能：单击“读数”按钮，则把考生目录下的in5．txt文件中的一个整数放入Text1；单击“计算”按钮，则计算出大于该数的第一个素数，并显示在。Text2中；单击“存盘”按钮，则把找到的素数存到考生目录下的out5．txt文件中。注意：在结束程序运行之前，必须单击“存盘”按钮，把结果存入out5．txt文件，否则无成绩。最后把修改后的文件按原文件名存盘。
问答题在考生目录下有一个工程文件sjt3．vbp，包含了所有控件和部分程序，如图3-180所示。要求如下：①利用属性窗口设置适当的属性，使Text1、Text2中数据右对齐；②请编写适当的程序完成以下功能：在Text1中输入40(度数)，选择组合框中的一个项目，单击“计算”按钮，则根据所选择的项目，计算出相应的正弦、余弦值(保留3位小数，第4位截去，π取3．14159)，并显示在Text2中。注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须进行一种计算；在Text1中输入的必须是40；必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后按原文件名存盘。
问答题注意：下面出现的“考生文件夹”均为c：/wexam/25160001。在考生文件夹下有一个工程文件sjt5.vbp，其窗体上有两个标签L1和L2，标题分别为“口令”和“允许次数”；一个命令按钮C1，标题为“确定”：两个文本框名称分别为为Text1和Text2，其中Text1用来输入口令(输入时，显示“*”)，无初始内容；Text2的初始内容为3。程序给出了C1的事件过程，但不完整，要求去掉程序中的注释符，把程序中的?改为正确内容，使得在运行时，在Text1中输入口令后，单击“确定”按钮，如果输入的是“123456”则在Text1中显示“口令正确”；如果输入其他内容，单击“确定”后，弹出如图19-5所示的错误提示对话框，并且Text2中的数字减1。最多可输入3次口令，若3次都输入错误，则禁止再次输入。注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
问答题(1)在考生文件夹下有一个工程文件sjt3．vbp，其窗体中有一个红色方框和一个计时器控件。程序运行时每隔0．5秒，方框的颜色交替变为黄色和红色(黄色值为&HFFFF&；红色值为&HFF&)；若单击鼠标右键，则停止变色；若单击鼠标左键，则方框左上角移到鼠标点击的位置处(如图3—53所示)。请将事件过程中的注释符去掉，把“?"改为正确的内容，以实现上述程序功能。注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。(2)在考生文件夹下有一个工程文件sjt4．vbp，其窗口上有2个名称分别为Command1和Command2，标题分别为“开始查找”和“重新输入”的命令按钮：有2个名称分别为Text1和Text2、初始值均为空的文本框。1)在Text1文本框中输入仅含字母和空格(空格用于分隔不同的单词)的字符串后，单击“开始查找”按钮，则可以将输入字符串中最长的单词显示在Text2文本框中，如图3．54所示。2)单击“重新输入”按钮，则清除Text1和Text2中的内容，并将焦点设置在Text1文本框中，为下一次输入做好准备。请将“开始查找”命令按钮Click事件过程中的注释符去掉，把“?”改为正确内容，以实现上述程序功能。注意：考生不得修改窗体文件中已经存在的控件和程序。最后，程序按原文件名存盘。