问答题在考生目录下有一个工程文件sjt5．vbp。窗体中已经给出了所有控件(如图3—116所示)。请编写适当的事件过程完成以下功能：单击“读数”按钮，则把考生目录下的in5．txt文件中的一个整数放入Text1；单击“计算”按钮，则计算出大于该数的第一个素数，并显示在Text2中；单击“存盘”按钮，则把找到的素数存到考生目录下的out5．txt文件中。注意：在结束程序运行之前，必须单击“存盘”按钮，把结果存入out5．txt文件，否则无成绩。最后把修改后的文件按原文件名存盘。

问答题在考生文件夹下有一个工程文件sj4.vbp，窗体中有3个标签，名称分别为Label1、Label2和Label3，标题分别为“字型”、“字体”、“模拟考试”；在Label1和Label2标签的下面有两个组合框，名称分别为Combo1和Combo2，并为Combo1添加项目：“下画线”、“黑体”和“斜体”，为Comb02添加项目：“华文行楷”、“隶书”和“宋体”。请编写适当的事件过程，使得程序在运行时，当在Combo1中选一个字号、在Combo2中选一个字体，标签Label3中的文字立即变为选定的字号和字体，如下图所示。注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须选择一个字号和字体。必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后按原文件名存盘，程序中不能使用任何变量。

问答题在考生文件夹下有一个工程文件sjt5.vbp，其功能是：找出矩阵元素的最大值，并求出矩阵对角线元素之和，窗体外观如图8所示。程序运行时，矩阵数据被放入二维数组a中。当单击“找矩阵元素最大值”命令按钮时，找出矩阵中最大的数，并显示在标签Label3中。当单击“对角线元素之和”命令按钮时，计算矩阵主对角线元素之和，并显示在标签Label4中。文件中已给出部分程序，请编写“找矩阵元素最大值”及“对角线元素之和”两个命令按钮的事件过程中的部分程序代码。注意：不得修改程序的其他部分和控件属性，最后把修改后的文件按原文件名存盘。程序调试通过后，两个命令按钮的事件过程必须至少各执行一次。[题目提供的源程序]标准模块sjt5.bas内容：PublicSubsave(1AsControl)OpenApp.Path&"/out5.txt"ForAppendAs#1Print#1,1.CaptionClose#1EndSub窗体Form1的内容：OptionBase1Dima(4,4)AsIntegerPrivateSubCommand1_Click()'考生应编写的程序'不得修改以下部分saveLabel3EndSubPrivateSubCommand2_Click()'考生应编写的程序'不得修改以下部分saveLabel4EndSubPrivateSubForm_Load()OpenApp.Path&"/in5.txt"ForInputAs#1Fori=1To4Forj=1To4Input#1,a(i,j)NextjNextiClose#1EndSub

问答题在考生文件夹下有一个工程文件sjt5．vbp，其窗体上有两个标签L1和L2，标题分别为“口令”和“允许次数”；一个命令按钮C1，标题为“确定”；两个文本框名称分别为Text1和Text2。其中Text1用来输入口令(输入时，文本框内容显示“*”)，初始内容为空；Text2的初始内容为3。并给出了C1的事件过程，但不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容，使得程序运行时，在Text1中输入口令后，单击“确定”，如果输入的是“123456”则在Text1中显示“口令正确”；如果输入其他内容，单击“确定”后，弹出错误提示对话框(如图所示)，并且Text2中的数字减1。最多可输入3次口令，若3次都输入错误，则禁止再次输入。注意：不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。

问答题在考生文件夹下有一个数据库文件“samp3．accdb”，里面已经设计好了表对象“tAddr”和“tUser”，同时还设计出窗体对象“fEdit”和“fEuser”。请在此基础上按以下要求补充“fEdit”窗体的设计。(1)将窗体中名称为“Lremark”的标签控件上的文字颜色改为“蓝色”(蓝色代码为#0072BC)、字体粗细改为“加粗”。(2)将窗体标题设置为“显示／修改用户口令”。(3)将窗体边框改为“细边框”样式，取消窗体中的水平和垂直滚动条、记录选择器、导航按钮和分隔线；保留窗体的关闭按钮。(4)将窗体中“退出”命令按钮(名称为“cmdquit”)上的文字颜色改为棕色(棕色代码为128)、字体粗细改为“加粗”，并在文字下方加下划线。(5)在窗体中还有“修改”和“保存”两个命令按钮，名称分别为“CmdEdit”和“CmdSavc”。其中“保存”命令按钮在初始状态为不可用，当单击“修改”按钮后，“保存”按钮变为可用，同时在窗体的左侧显示出相应的信息和可修改的信息。如果在“口令”文本框中输入的内容与在“确认口令”文本框中输入的内容不相符，当单击“保存”按钮后，屏幕上应弹出如图2．3所示的提示框。现已编写了部分VBA代码，请按照VBA代码中的指示将代码补充完整。要求：修改后运行该窗体，并查看修改结果。注意：不要修改窗体对象“fEdit”和“fEuser”中未涉及的控件、属性；不要修改表对象“tAddr”和“tUser”。程序代码只能在“*****Add*****”与“*****Add*****”之间的空行内补充一行语句，完成设计，不允许增删和修改其他位置已存在的语句。

问答题(1)考生文件夹下有一个工程文件sjt3．vbp，其窗体上有1个名称为Text1的控件数组；一个标题为"排序"的命令按钮。程序运行时，在文本框数组中输入8个整数，如图3—29(a)所示；然后单击”排序”按钮，则8个整数按降序排序，如图3—29(b)所示。在给出的窗体文件中已经有了全部控件，但程序不完整。请将事件过程中的注释符去掉，把“?”改为正确的内容，以实现上述程序功能。注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。(2)在考生文件夹下有工程文件sjt4．vbp。其窗体界面如图3—30所示，可以实现以下功能：“添加项目”按钮可以把在组合框编辑区中输入的新项目添加到组合框列表中，但不能添加重复项目；“删除项目”按钮从列表中删除选中的项目；“添加爱好”按钮把组合框编辑区中的内容追加到下面的文本框原有内容之后；“清除爱好”按钮清除该文本框内容。在给出的窗体文件中已经有了全部控件，但程序不完整。请将事件过程中的注释符去掉，把“?”改为正确的内容，以实现上述程序功能。注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。

问答题(1)在考生文件夹下有一个工程文件sit3．vbp，相应的窗体文件为sit3．frm。在名称为Forml的窗体上有一个名称为Text1的文本框和名称为Command1、标题为“确定”的命令按钮，一个名称为List1的列表框和两个名称分别为Option1和Option2、标题分别为“添加”和“删除”的单选按钮，如图2．3(a)所示。程序运行后，如果选择单选按钮Optionl并在文本框中输入一个字符串，然后单击“确定”命令按钮，则把文本框中的字符串添加到列表框中，并清除文本框，如图2—3(b)所示；如果选择列表框中的一项和单选按钮Option2，并单击“确定”命令按钮，则删除列表框中所选择的项目，如图2．3(c)所示；如果不选择列表框中的项目，或者没有在文本框中输入字符串，则单击“确定”命令按钮后，将显示一个信息框“未输入或未选择项目”，如图2—3(d)所示。该程序不完整，请把它补充完整。要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。最后用原来的文件名保存工程文件和窗体文件。(2)在考生文件夹下有一个工程文件sjt4．vbp，相应的窗体文件为sit4．frm。在窗体上有一个命令按钮，其名称为Commandl，标题为“计算”。程序运行后，如果单击命令按钮，程序将根据下面的公式计算π的值：n／4=1．1／3+1／5．1／7+……，所提供的窗体文件已给出了命令按钮的事件过程，程序运行结果如图2．4所示。该程序不完整，请把它补充完整。要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。最后用原来的文件名保存工程文件和窗体文件。

问答题请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画一个文本框，名称为Text1，内容为“VB程序设计”；再画两个命令按钮，其名称分别为Command1和Command2，标题分别为“扩大”和“缩小”，如图3—93所示，编写适当的事件过程。程序运行后，每单击Command1命令按钮一次，文本框中文本的字体扩大1．2倍；每单击Command2单选按钮一次，文本框中文本的字体缩小1．2倍。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjjt1．frm。(2)在名称为Form1的窗体上画一个列表框，其名称为List1，通过属性窗口向列表框中输入9个项目，分别为10、20、30、40、50、60、70、80、90；画一个文本框，其名称为Text1，初始内容为空白；再画一个水平滚动条，其名称为HScroll1，Min属性和Max属性分别为0和100，如图3—94(a)所示，编写适当的事件过程。程序运行后，如果单击列表框中的某个项目，则在文本框中显示该项目内容，并把滚动条的滚动框移到相应的位置，如图3—94(b)所示。要求：不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。

问答题请根据以下各小题的要求设汁Visua1Basic应用程序(包括界面和代码)。(1)在名称为Forml、标题为“鼠标光标形状”的窗体上画一个名称为Text1的文本框。请通过属性窗口设置适当属性，使得程序运行时，鼠标在文本框中时，鼠标光标为箭头(Arrow)形状；在窗体中其他位置处，鼠标光标为十字(Cross)形状。注意：存盘时必须存放在考生文件夹下，工程义件名为sjtl．vbp，窗体文件名为sjtl．frm。(2)在名称为Forml的窗体上画两个标签，名称分别为Label1、Label2，标题分别为“扦始位置”、“选中的字符数”；画三个文奉框，名称分别为Text1、Text2、Text3，再画一个名称为Commandl，标题为“显示选中信息”的命令按钮。程序运行时，存Text1中输入若干字符，并用鼠标选中一些字符后，单击“显示选中信息”按钮，则把选中的第一个字符的顺序号显示在Text2中，选中的字符个数显示在Text3中，如图2．139所示。要求：画出所有摔什，编写命令按钮的Click事件过程。注意：要求程序中小得使用变量，事什过程中只能写两条语句，分别用于显示第一个字符的顺序号和显示选中的字符个数。存龠时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。

问答题在考生文件夹下有一个工程文件sjt5.vbp，其窗体中有一个实心圆。程序运行时，当用鼠标左键单击窗体任何位置时，实心圆则向单击位置直线移动；若用鼠标右键单击窗体，则实心圆停止移动。窗体文件中已经给出了全部控件，但程序不完整。 要求：请在程序中的横线处填写正确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。 [题目提供的源程序] Dim stepy As Integer '纵向移动增量 Dim stepx As Integer '横向移动增量 Const LEFT_BUTTON=1 Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) Dim x0 As Integer, y0 As Integer, a As Single, radius As Integer radius=Shape1.Width/2 '圆的半径 If Button=LEFT_BUTTON Then x0=Shape1.Left+radius '圆心的x坐标 y0=Shape1.Top+radius '圆心的y坐标 If x=x0 Then stepy=Sgn(y-y0)*50 stepx={{U}} {{U}} {{/U}} {{/U}} Else a=(y-y0)/(x-x0) '斜率 stepx=Sgn(x-y0)*50 {{U}} {{U}} {{/U}} {{/U}}=a * stepx If Abs(stepy)＞Abs(stepx) Then stepy=Sgn(y-y0)*50 stepx=stepy/a End If End If {{U}} {{U}} {{/U}} {{/U}}=True Else {{U}} {{U}} {{/U}} {{/U}}=False End If End Sub Private Sub Timer1_Timer() Shape1.Move Shape1.Left+stepx, Shape1.Top+{{U}} {{U}} {{/U}} {{/U}} End Sub

问答题请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为。Form1，标题为“图书”的窗体上画1个名称为Cmb1的下拉式组合框。下拉列表中有“少儿读物”“传记文学”和“武侠小说”3个表项内容。运行后的窗体如图3—14所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。(2)在名称为Form1的窗体上，画1个能根据标题内容自动调整大小的标签，其名称为Label1，标题为VisualBasic，字号为14号字。再画2个名称分别为Command1、Command2，标题分别为“放大”“缩小”的命令按钮。效果如图3—15所示。要求：编写适当的事件过程，使得每单击“放大”按钮一次，Label1中所显示的标题内容自动增大3个字号；每单击“缩小”按钮时，Label1中所显示的标题内容自动缩小3个字号。注意：要求程序中不能使用变量，每个事件过程中只能写一条语句。保存时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。

问答题请根据以下各小题的要求设计VisaulBasic应用程序(包括界面和代码)。1．在窗体(名称为Form1)上画1个列表框(名称为L1)和1个水平滚动条(名称为HS1，Min属性为0，Max属性为100，SmallChange属性为2，LargeChange属性为10)，编写适当的事件过程。程序运行后，如果把滚动框移到某个位置，然后单击窗体，则在列表框中显示“滚动条的当前值是：xx”，如图1—1所示，其中xx是滚动框所在的位置。存盘时，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。2．在名称为Form1的窗体上画一个文体框，其名称为Text1，然后通过属性窗口设置窗体和文本框的属性，实现如下功能：1)在文本框中可以显示多行文本2)在文本框中显示垂直滚动条3)文本框中显示的初始信息为“程序设计”4)在文本框中显示的字体为三号规则黑体5)窗体的标题为“设置文本框属性”。完成设置后的窗体如图1—2所示。要求：不编写任何代码。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。

问答题在下有一个工程文件sjt5.vbp，界面如图所示，其功能如下：①单击“读数据”按钮，则把考生文件夹下文件in5.dat中的12组整数(其中每组含有10个数，共计120个整数)读到数组a中；②单击“计算”按钮，则对每组数求平均值，并将所求各级数的平均值截尾取整后存入s数组中；③单击“显示”按钮，则将所求各组数的平均值显示在文本框架Text1中；④单击“存盘”按钮则把计算结果存盘。在给出的窗体文件中已经有了全部控件，且“读数据”、“显示”和“存盘”按钮的Click事件过程已经给出，请为“计算”按钮编写适当的事件过程以实现上述功能。注意：不得修改已经存在的程序，在结束程序运行之前，必须用“存盘”按钮存储计算结果，否则无成绩。最后，程序按原文件名存盘。

问答题注意：下面出现的“考生文件夹”均为c：/wexam/25160001。(1)在考生文件夹下有工程文件sjt3.vbp及窗体文件sjt3.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即'号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下：在窗口中有一个RichText文本框控件和一个文本框控件，名称分别为rtx1和Text1，两个命令按钮，名称分别为Command1和Command2，标题分别为“加入SJT01.TXT”、“统计字符个数”。要求程序运行后，单击command1将考生文件夹下的sjt01.txt的内容显示到rtx1中；单击“统计字符个数”按钮统计rtx1中有多少个字符，将结果显示在Text1中。程序运行结果如图13-4所示。(2)在考生文件夹下有工程文件sjt4.vbp及窗体文件sjt4.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即'号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下：在窗体上有一个名为Image1的图像框，要求程序运行后，鼠标左键点击图像框，则图像框变大；鼠标右键点击图像框，图像框变小。设计界面如图13-5所示。

问答题在考生文件夹下有一个工程文件sjt5．vbp，窗口有2个名称分别为Command1和Command2、标题分别为“读数据”和“排序”的命令按钮，有2个标题分别为“数组A”和“数组B”的标签。请将窗体标题设置为“完全平方数排序”：再画2个名称分别为Text1和Text2、初始内容都为空的文本框，并且可多行显示，有乖直滚动条，如图3-47所示。程序功能如下：1)单击“读数据”按钮，则把考生文件夹下in5．dat文件中的100个正整数读入数组A，并将它们显示在Text1文本框中；2)单击“排序”按钮，则首先将这100个数中的所有完全平方数放入数组B中，并将它们按降序排列显示在Text2文本框中。提示：一个整数若是另一个整数的平方，那么它就是完全平方数。如144=122，所以144就是一个完全平方数。要求：去掉注释符，把?改为正确内容，并添加代码使得“排序”命令按钮的Click事件过程可以实现上述功能。提示：Sort过程可以把求出的完全平方数进行排序，可以直接调用。注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须进行“排序”，且须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。

问答题在考生文件夹下有一个数据库文件“samp3．accdb”，里面已经设计了表对象“tEmp”、窗体对象“fEmp”、宏对象“mEmp”和报表对象“rEmp”。同时，给出窗体对象“fEmp”的“加载”事件和“预览”及“打印”两个命令按钮的单击事件代码，请按以下功能要求补充设计。 (1)将窗体“fEmp”上的标签“bTitle”以“特殊效果：阴影”显示。 (2)已知窗体“fEmp”上的3个命令按钮中，按钮“btl”和“bt3”的大小一致且左对齐。现要求在不更改“bt1”和“bt3”大小位置的基础上，调整按钮“bt2”的大小和位置，使其大小与“bt1”和“bt3”相同，在水平方向左对齐“bt1”和“bt3”，竖直方向在“bt1”和“bt3”之间的位置。 (3)在窗体“fEmp”的“加载”事件中设置标签“bTitle”以红色文本显示；单击“预览”按钮(名为“bt1”)或“打印”按钮(名为“bt2”)，事件过程传递参数调用同一个用户自定义代码(mdPnt)过程，实现报表预览或打印输出；单击“退出”按钮(名为“bt3”)，调用设计好的宏“mEmp”，以关闭窗体。 (4)将报表对象“rEmp”的记录源属性设置为表对象“tEmp”。 注意：不要修改教据库中的表对象“tEmp”和宏对象“mEmp”；不要修改窗体对象“fEmp”和报表对象“rEmp”中未涉及的控件和属性。 程序代码只允许在“*****Add*****”与“*****Add*****”之间的空行内补充一行语句、完成设计，不允许增删和修改其他位置已存在的语句。

问答题考生文件夹下有一个工程文件sjt5．vbp。在窗体Form1上有两个标题分别是“产生数据”和“重新排列”的命令按钮，有两个标题为“原始数据”和“排列数据”的标签。程序功能如下。①单击“产生数据”按钮，则随机产生20个一位整数，存入数组a中，并同时显示在Text1中。②单击“重新排列”按钮，则重新排列数组a中的元素：使等值的元素相邻存放，并且保持它们在数组a中首次出现的相对次序；最后将排列结果显示在Text2中。某一次运行结果如图所示。请将“审新排列”按钳的Click事件过程中的注释符去掉，把“?”改为正确内容，以实现上述程序功能。注意：考生不得修改窗体文件中已经存在的控件和程序，最后程序按原文件名存盘。

问答题(1)请在名称为Form1的窗体上添加一个名称为H1的水平滚动条，并在属性窗口中设置它的属性值，使其满足下列要求：它的最小刻度值为1，最大刻度值为100，在程序运行时，用鼠标单击滚动条上滚动框以外的区域(不包括两边按钮)，滚动框移动10个刻度。再在滚动条下面画两个名称分别为L1和L2的标签，并分别显示1和100，运行时的窗体如图所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sitl．vbp，窗体文件名为sitl．frm。(2)在名称为Form1的窗体上添加两个名称分别为Text1和Text2的文本框，初始内容均为空；再建立一个下拉菜单，菜单标题为“操作”，名称为M1，此菜单卜含有两个菜单项，名称分别为Copy和Clear，标题分别为“复制”、“清除”，请编写适当的事件过程，使得在程序运行时，单击“复制”选项菜单，则把Text1中的内容复制到Text2中，单击“清除”选项菜单，则清除Text2中的内容(即在Text2中填入空字符串)。运行时的窗体如图所示。要求在程序中不得使用任何变量，每个事件过程中只能写一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。

问答题注意：下面出现的“考生文件夹”均为c：/wexam/25160001。请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画一个文本框，名称为Text1：再画两个命令按钮，名称分别为C1和C2，标题分别为“隐藏”和“显示”。请编写适当的事件过程，使得在运行时，如果单击“隐藏”按钮，则文本框消失，而如果单击“显示”按钮，则文本框显示出来，如图9-1和图9-2所示。程序中不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。(2)在窗体上画两个文本框，名称分别为Text1和Text2。请设置适当的控件属性，并编写适当的事件过程，使得在运行时，如果在Text1中每输入一个字符，则显示一个“*”，同时在Text2中显示输入的内容，如图9-3所示。程序中不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。

问答题在名称为Form1的窗体上添加一个名称为Shape1的形状控件，位置在窗体的顶部，在属性窗口中将其设置为圆形。添加一个名称为Timer1的计时器，在属性窗口中将其设置为禁用，时间间隔为0.5秒，窗体如图所示。请编写窗体的Load事件过程和计时器的事件过程，使得程序一开始运行，计时器即变为可用，且每隔0.5秒形状控件向下移动100。注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在下，工程文件名保存为sjt2.vbp，窗体文件名保存为sjt2.frm。