新建一个工程。在窗体中画三个标签，名称分别为Label1、Label2和Label3，标题分别为“加数1”、“加数2”和“和”。在三个标签下分别有三个文本框(名称分别为Textl、TexQ和Text3)用来输入数字。要求编写一个事件过程，程序运行后在文本框Text1和Text2中输入数字，单击文本框删后其中输出两个数的和。如图14所示。程序中不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名为ylc2.vbp，窗体丈件名为ylc2.frm。
在名为Form1的窗体上建立一个文本框(名称为Text1，MultiLine属性为True，ScrollBars属性为2)和3个命令按钮(名称分别为Cmd1、Cmd2和Cmd3，标题分别为“读数”、“计算”和“保存”(如下图所示)。要求程序运行后，如果单击“读数”按钮，则读入in53.txt文件中的100个整数，放入一个数组中(数组下界为1)，同时在文本框中显示出来；如果单击“计算保存”按钮，则计算小于或等于500的所有数之和，并把求和结果在文本框Text1中显示出来，同时把该结果存入考生文件夹中的文件out53.txt中(在考生文件夹下有标准模块mode.bas，其中的putdata过程可以把结果存入指定的文件，考生可以把该模块文件添加到自己的工程中，直接调用此过程)。注意：文件必须存放在考生文件夹中，窗体文件名为execise53.frm，工程文件名为execise53.vbp，计算结果存入out53.txt文件，否则没有成绩。
有如下语句： Type Student Name As String Age As Integer Sex As String End Type Dim Stu As Student With Stu .Name＝"张红" .Age＝22 .Sex＝"女" End With 执行Print Stu.Age语句后的结果是
在Form1的窗体上建立一个主菜单，标题为“操作”，名为vbOp，该菜单有两个菜单项，其标题分别为“显示”和“清除”，其名称分别为vbDis和vbClear。编写适当的事件过程，使程序运行后，若单击“操作”菜单中的“显示”命令，则在窗体上显示VisualBasic：如果单击“清除”命令，则清除窗体上显示的内容。程序的运行情况如下图所示。注意：文件必须存放在考生文件夹中，工程文件名为execise41.vbp，窗体文件名为execise41.frm。
(1)在考生文件夹下有一个工程文件sjt3．vbp，窗体上有一个矩形和一个圆，还有垂直和水平滚动条各一个。程序运行时，移动某个滚动条的滚动块，可使圆做相应方向的移动。滚动条刻度值的范围是圆可以在矩形中移动的范围。以水平滚动条为例，滚动块在最左边时，圆靠在矩形的左边线上，如图1-64(a)所示；滚动块在最右边时，圆靠在矩形的右边线上，如图1-64(b)所示。垂直滚动条的情况与此类似。文件中已经给出了全部控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文件sjt4．vbp。窗体中已经给出了所有控件，如图1-65所示。运行时，单击“发射”按钮，航天飞机图标将向上运动，速度逐渐加快，全部进入云中后则停止，并把飞行距离(用坐标值表示)、所用时间(单位为秒)分别显示在标签Labell和Label2中；单击“保存”按钮，则把飞行距离、所用时间存入考生文件夹下的out4．txt文件中。文件中已经给出了程序。但不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。
栈的基本运算有三种：入栈、退栈和【 】。
在考生文件夹中有工程文件execise110.vbp及窗体文件execise110.frm。如下图所示，在名为Form1的窗体上有一个Labe1控件，4个Text控件及7个命令按钮，其功能如下，(1)开始启动工程时，界面上除Input及Quit按钮之外，其他按钮均不可用(灰色显示)。(2)单击Input按钮之后，利用InputBox让用户连续且必须录入10个数。若录入为非数字符号，则给出警告“输入数据无效，请重新输入数值数据，请输入第n个数”。(3)录入完毕后，Input按钮变灰，其他按钮变为可用状态。(4)按相应的按钮可分别求出所录入数据的升序、降序排列及最大、最小值，并在右侧对应的文本框中显示(注意用A(10)存放最大数，A(1)存放最小数)。(5)单击Clear按钮将所有文本框清空。本程序不完整，请补充完整，并能正确运行。要求：去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。
在考生文件夹下有一个工程文件sjt5．vbp，在窗体上给出了所有控件和不完整的程序，请去掉程序中的注释符，把程序中的?改为正确的内容。本程序的功能是：如果单击“取数”按钮，则把考生目录下的ins．txt文件中的15个姓名读到数组a中，并在窗体上显示这些姓名；当在Textl中输入一个姓名，或一个姓氏后，如果单击“查找”按钮，则进行查找，若找到，就把所有与Textl中相同的姓名或所有具有TextI中姓氏的姓名显示在Text2．中(如图1-14l所示)；若未找到，则在Text2中显示“未找到!”；若Textl中没有查找内容，则在Text2中显示“未输入查找内容!”。注意：考生不得修改程序的其他部分和控件的属性，最后把修改后的文件按原文件名存盘。
下列程序的功能是:当x100时,没有意义。请填空。
Private Sub Command1_Click()
Dim x As Single
x=InputBox("请输入x的值!")
Select Case x
Case Is < 50
y=0.8 * x
Case 50 To 100
y=0.7 * x
【 】
Print "输入的数据出界!"
End Select
Print x, y
End Sub
在软件生命周期法中，用户的参与主要在______。
设a=6，则执行 x=пF(a＞5，-1，0) 后，x的值为 ______。
(1)在窗体上添加通用对话框控件并编写适当的程序代码，要求程序运行时，双击窗口，可以弹出“颜色”对话框。程序运行时的窗体界面如图2-1所示。注意：保存时必须存放在考生文件夹下，窗体文件名为si1.frm，工程文件名为si1．vbp。(2)在窗体上绘制出3个文本框，名称分别为Text1、Text2和Text3。要求程序运行时，焦点位于Text1，当按Tab键时，焦点从，Text1越过Text2直接跳到Text3上。本题不得使用任何变量。程序运行时的窗体界面如图2—2所示。注意：保存时必须存放在考生文件夹下，窗体文件名为sj2．frm，工程文件名为sj2．vbp。
在窗体上画一个名称为Commandl的命令按钮和2个名称分别为Textl、Text2的文本框，然后编写如下程序： Function Fun(X As Integer，ByValy As Integer)As Integer x=X+Y If x<0 Then Fun=x Else Fun=v End If End Function Private Sub Commandl Click() Dim a As Integer，b As Integer a=-10：b=5 Text1．Text=Fun(a,b) Text2．Text=Fun(a，b) End Sub 程序运行后，单击命令按钮，Textl和Text2文本框显示的内容分别是__________和_________。
在考生文件夹下有一个工程文件sjt5．vbp，其窗体中有一个实心圆。程序运行时，当用鼠标左键单击窗体任何位置时，实心圆则向单击位置直线移动：若用鼠标右键单击窗体，则实心圆停止移动。窗体文件中已经给出了全部控件，但程序不完整。要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其能正确运行，不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。
在名为Form1的窗体上绘制两个标签(名称分别为Lab1和Lab2，标题分别为“姓名”和“年龄”)、两个文本框(名称分别为Text1和Text2，Text属性均为空白)和一个命令按钮(名称为Cmd1，标题为Display)。然后编写命令按钮的Click事件过程，使程序运行后，在两个文本框中分别输入姓名和年龄，然后单击命令按钮，则在窗体上显示两个文本框中的内容，如下图所示。注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为execise57.vbp，窗体文件名为execise57.frm。
有一个工程文件ylc6.vbp，要求程序运行后，如果多次单击列表框中的项，则可同时选择这几项。如果单击“显示”按钮，则在窗体上输出所有选中的列表项，如图22所示。要求修改列表框属性，运行时可以多选，并去掉程序中的注释，改为正确的内容。实现上述功能，不得修改程序的其他部分。题目提供的Command1对象的Click对象源代码如下：PrivateSubCommand1_Click()DimiAsIntegerFori=0To?If?ThenForm1.?(List1.List(i))EndIfNextiEndSub注意：存盘时必须存放在考生文件夹下，工程文件名为ylc6.vbp，窗体文件名为ylc6.frm。
在名称为Forml的窗体上绘制三个名称为Labell、Label2、Label3的控件和两个名称分别为COMSTART和COMEXIT、标题分别为“开始”和“退出”的命令按钮。编写函数Item(A，N)，其功能是由数字A组成的不多于N位数的整数，利用该函数求6666—666—66—6的值并把结果写入考生文件夹下的out．dat文件中。单击完毕，“开始”按钮变为“完成”，且无效，如图66—6所示。
(1)在Forml的窗体上绘制一个命令按钮，其名称为Commandl、标题为“隐藏”；再画一个文本框，其名称为Textl、内容为“模拟考试”。编写适当的事件过程。程序运行后，在窗体加载时使文本框不可见，如果双击窗体，则文本框出现；此时如果单击命令按钮，则隐藏文本框，如图67—1所示。注意：保存时必须存放在考生文件夹下，窗体文件名为sjl．frm，工程文件名为sjl．vbp。(2)在窗体Forml中绘制一个水平滚动条与一个标签，标签的名称为Labell，内容为空；水平滚动条的最大值为900，最小值为300，名称为HScrolll。要求编写适当的事件过程，只有当移动滚动条中的滚动块时，文本框才接收HScroll1的当前值，如图67—2所示。注意：保存时必须存放在考生文件夹下，窗体文件名为sj2．frm，工程文件名为sj2．vbp。
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在Forml的窗体上建立一个主菜单，标题为“命令”，名称为Com，该菜单有3个子菜单，其标题分别为“输出”、“删除”和“关闭”，其名称分别为Prin、Del和Close。编写适当的事件过程，程序运行后，如果单击“命令”菜单中的“输出”命令，则在窗体上显示“HelloWorld!”；如果单击“删除”命令，则删除窗体上显示的内容，“关闭”命令为关闭对话框。程序的运行情况如图37—1所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sjl．vbp，窗体文件名为sjl．frm。(2)在Form1的窗体上画一个标签，其名称为Labell；再画一个列表框，其名称为Listl，通过属性窗口向列表框中添加若干个项目，每个项目的具体内容不限，编写适当的事件过程。程序运行后，如果双击列表框中的任意一项，则把列表中的项目序号数和项目文本在标签中显示出来。程序中不准使用任何变量，运行情况如图37—2所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sj2．vbp，窗体文件名为sj2．frm。
在考生文件夹下有一个工程文件execise30.vbp，窗体文件execise30.frm中的ReadData1和ReadData2过程可以把in1.txt和in2.txt文件中的整数分别读入Arr1和Arr2数组中；而WriteData过程可以把计算出的整数值写到考生文件夹指定的文件中(整数值通过计算求得，文件名为out.txt)，可直接调用。请先装入工程文件execise30.vbp，然后完成以下操作：在名为Form1的窗体上绘制3个命令按钮，其名称分别为Cmd1、Cmd2和Cmd3，标题分别为Read、Calc和Save，如下图所示。程序运行后，如果单击Read按钮，则调用题目所提供的ReadDate1和ReadDate2过程读入in301.txt和in302.txt文件中的各20个整数，分别放入Arr1和Arr2两个数组中：如果单击Cac1按钮，则把两个数组中对应下标的元素相减，其结果放入第3个数组中(即：第一个数组的第n个元素减去第二个数组的第n个元素，其结果作为第3个数组的第n个元素。这里的n为1，2，…，20)，然后计算第3个数组各元素之和，并把所求得的和在窗体上显示出来；如果单击“Save”按钮，则把所求得的和存入考生文件夹的out30.txt文件中。运行窗体如图所示。注意：考生不得修改窗体文件中已经存在的程序，必须把求得的结果用“Save”按钮存入考生文件夹下的out30.txt文件中，否则没有成绩。存盘时，工程文件名仍为execise30.vbp，窗体文件名仍为execise30.frm。