还剩2页未读,继续阅读
文本内容:
操作第三套卷VB基本操作、在名称为标题为“标签”的窗体上,添加一个名称为内容为“计算机等1Forml,Lablel,级考试字型为四号字的标签请设置适当的属性以满足下述要求窗体不带有最大化、最小化及关闭按钮;1标签带有边框;2标签可依据标题指定的内容自动调整其大小3运行后的窗体如图所示注意存盘时必须存放在考生文件夹下,工程文件名保存为窗体文件名保存为sjtl.vbp,stjl.frmo、在名称为的窗体上添加一个名称为内容为“程序设计”的文本框,且显示2Forml Textl,为三号字、居中;再添加两个命令按钮,标题分别是“粗体”和“斜体”,名称分别为Command、如图所示1Command2o要求编写两个命令按钮的事件过程,使得单击“斜体”按钮时,文本框的内容显Click示为斜体格式;单击“粗体”按钮时,文本框的内容显示为粗体格式注意程序中不得使用变量,每个事件过程只能写一条语句存盘时必须存放在考生文件夹下,工程文件名保存为窗体文件名保存为stj
2.vbp,stj
2.frmo简单应用题、在考生文件夹有一个工程文件其中的窗体中有一个名为的文本框,初始文1stj
3.vbp,Textl本为一个计时器;一个标签;一个有两个元素的单选按钮数组,名称为标题依次为0;Opl,“1秒”、秒”;两个命令按钮,名称分别为、标题分别为“开始计数”、“停止计数”,“3Cl C2,同时给出了两个事件过程,但并不完整在运行时要完成下面的功能;单击一个单选按钮,可以设置计时间隔为秒或秒;若单击“开始计数”,则中的13Textl数按设定的时间间隔每次加若单击“停止计数则中的数不再变化1;Textl请按下述要求设置属性和编写程序,以便实现上述功能;()设置计时器的属性,使其在初始状态下不计时1()去掉程序中的注释符,把程序中的?改为正确的内容2()为两个命令按钮编写适当的事件过程,每个事件过程中只能有一条语句,不能使用3变量注意不能修改已有程序的其他部分和控件的其他属性最后将修改后的文件按原文件名存盘程序代码()Private SubCl_Click End Sub()Private SubOpl_Click IndexAs IntegerSelect CaseCase0Timer
1.Interval=1000Case1Timerl.Interval=3000End SelectEnd Sub()Private SubTimerl_TimerTextl.Text=.Text+1EndSub、在考生文件夹有一个工程文件其功能如下2stj
4.vbp,()单击“读数据”按钮,则把考生文件夹下文件中已按升序方式排列的个数1in
4.dat60读入数组并在中显示;A,Textl()单击“输入”按钮将弹出输入框,供接收用户输入的任意一个数;2()单击“删除”按钮,则首先判断“输入”的数是否存在于数组中,若存在,则将3A该数从数组中删除,并将删除后数组的内容重新显示在中,若不存在,则给出相应A ATextl提示在给出的窗体文件中已经有了全部控件(如图所示),但程序不完整,要求去掉“删除按钮事件过程中的注释符,把?改为正确的内容,以实现上述程序功能Click注意不得修改已经存在的内容和控件属性,最后将修改后的文件按原文件名存盘程序代码Dim a100As Integer,num As Integer,n AsIntegerPrivate Sub Commandl_ClickDim kAsIntegern=60Open App.Path\in
4.dat”For InputAs#1For k=1To nInput#1,akTextl=Textl+Strak+Space2Next kClose#1EndSub请输入一个数”Private Sub Command2_Click num=InputBoxEnd SubPrivateSubCommand3_Click,“读数据”事件过程中已给出的初值Fori=ITon nIf num=Then ExitForNext iIfThen该数不存在于数组中,不能执行删除操作!”MsgBox”Elsen=n-1Forj=iToaj=NextEnd IfTextl=,以下程序段将执行删除操作后的数组重新显示在中a TextlFor k=1To Textl=Textl+Strak+Space2Next kEndSub综合应用题在考生文件夹下有一个工程文件窗体上有两个标题分别为“读数据”、“统计”stj
5.vbp,的按钮和初始文本为空,名称分别为和的两个文本框,如图所示Textl Text2程序功能如下
①单击“读数据”按钮,将考生文件夹下的文件(该文件仅含字母和空格)显示“in
5.dat”在中(该过程已给出)Textl
②在中选中内容后,点击“统计按钮”,统计选中文字中出现次数最多的字母(不分Textl大小写),以大写形式将该字母显示在中Text2要求去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分最后将修改后的文件按原文件名存盘读数据选中文本中程序代码:Option Base1Dim xAs String,max_n AsIntegerPrivate SubCommandl_ClickOpen App.Path\in
5.dat”For InputAs#1s=InputLOFl,#lClose#lTextl.Text=sEnd SubPrivateSubCommand2_ClickDim a26As Integersl=st=Textl.SelText二心Text2If si=0Then请先选择文本”MsgBox”ElseFor i=1To sic=Midst,i,1If c”Thenn=AscUCasec-AscnAn+1an=End IfNextimax_n=al:n=1Forj=To26IfThenmax_n=ajEnd IfNextjFor i=1To26IfThenText
2.Text=Text
2.Text+””+ChrAsc,AH+i-1End IfNextiEnd IfEndSub。