VB题目及答案

十五次作业1.在名为Form1的窗体上建立一个名为Text1的文本框，将MultiLine属性设置为True，ScrollBars属性设置为2。同时建立两个名称分别为Cmd1和Cmd2的命令按钮，标题分别为Read和Save(如下图所示)。要求程序运行后，如果单击Read按钮，则读入in1.txt文件中的100个整数，放入一个数组中(数组下界为1)，同时在文本框中显示出来；如果单击Save按钮，则计算数组中大于或等于l并且小于400的所有数之和，把求和结果在文本框text1中显示出来，同时把计算结果存入考生文件夹中的文件out1.txt中。程序中对文件的操作统一使用相对路径；窗体文件名为execise1.frm，工程文件名为execise1.vbp，计算结果存入outl．txt。Dimb%(1To100)PrivateSubCommand1_Click()Dimi%i=1OpenApp.Path+\in1.txtForInputAs#1DoWhileNotEOF(1)Input#1,b(i)Text1=Text1+Space(2)&b(i)i=i+1LoopClose#1EndSubPrivateSubCommand2_Click()Dimsum!Fori=1To100Ifb(i)400Thensum=sum+b(i)NextiText1=sumOpenApp.Path+\out1.txtForOutputAs#2Write#2,Text1Close#2EndSub2.建立文件in4.txt，文件中有几行汉字。请在窗体Form1上绘制一个文本框，名称为Text1，能显示多行；再绘制一个命令按钮，名称为Cmd1，标题为“保存”。并编写适当的事件过程，使得在加载窗体时，把in4.txt文件的内容显示在文本框中，然后在文本的最前面手工插入一行汉字：“计算机等级考试”，如下图所示。最后单击“保存”按钮，可以把文本框中修改过的内容存到文件out4.txt中。以execise4.vbp为文件名存储工程文件，以execise4.frm为文件名存储窗体文件。PrivateSubCommand1_Click()OpenApp.Path+\out4.txtForOutputAs#2Print#2,Text1Close#2EndSubPrivateSubForm_Load()OpenApp.Path+\in4.txtForInputAs#1DoWhileNotEOF(1)LineInput#1,aText1.Text=Text1.Text&aLoopClose#1EndSub十四次作业3.在名为Form1的窗体上绘制一个名为Text1的文本框和4个名称分别为Opt1、Opt2、Opt3和Opt4，标题分别为“东方”、“南方”、“西方”和“北方”的单选按钮，编写适当的Click事件过程，使程序运行后，若单击“东方”单选按钮，在文本框中显示字符串“计算机学院”；如果单击“南方”单选按钮，在文本框中显示字符串“电子信息工程学院”(如下图所示)；如果单击“西方”单选按钮，在文本框中显示字符串“经济管理学院”；如果单击“北方”单选按钮，在文本框中显示字符串“人文学院”。文件必须存放在考生文件夹中，窗体文件名为execise3.frm，工程文件名为execise3.vbp。PrivateSubOption1_Click()IfOption1=TrueThenText1.Text=计算机学院EndSubPrivateSubOption2_Click()IfOption2=TrueThenText1=电子信息工程学院学院EndSubPrivateSubOption3_Click()IfOption3=TrueThenText1=经济管理学院学院EndSubPrivateSubOption4_Click()IfOption4=TrueThenText1=人文学院EndSub4.在名为Form1的窗体上绘制一个文本框(名称为Text1，Text属性为“京”，Font属性为“宋体”)和一个水平滚动条(名称为HS1)。在属性窗口中对滚动条设置如下Min10Max100LargeChange5SmallChange2编写适当的事件过程，使程序运行后，若移动滚动条上的滚动框，则可扩大或缩小文本框中的“京”字。运行后的窗体如下图所示。文件必须存放在考生文件夹中，工程文件：execise4.vbp，窗体文件名为execise4.frm。PrivateSubHScroll1_Change()Text1.FontSize=HScroll1.ValueEndSubPrivateSubHScroll1_Scroll()Text1.FontSize=HScroll1.ValueEndSub7.在名为Form1的窗体上绘制两个文本框，名称分别为Text1和Text2，均无初始内容；再建立一个下拉菜单，菜单标题为“操作”，名为vbOp，此菜单下含有两个菜单项，名称分别为vbCopy和vbClear，标题分别为“复制”和“清除”。请编写适当的事件过程，使得在程序运行时，单击“复制”菜单项，则把Text1中的内容复制到Text2中，单击“清除”菜单项，则清除Text2中的内容(即在Text2中填入空字符串)。运行时的窗体如下图所示。文件必须存放在考生文件夹中，工程文件名为execise7.vbp，窗体文件名为execise7.frm。PrivateSubvbclear_Click()Text2.Text=EndSubPrivateSubvbcopy_Click()Text2.Text=Text1.TextEndSub8.在考生文件夹中建立一个工程文件execise8.vbp，相应的窗体文件为execise8.frm。名为Form1的窗体上有一个名称为Cmd1、标题为“计算”的命令按钮；两个水平滚名称分别为HS1和HS2，其Max属性均为100，Min属性均为l；4个标签，名称分别为Lab1、Lab2、Lab3和Lab4，标题分别为“运算数1”、“运算数2”、“运算结果”和空白；此外，还有4个单选按钮，名为Opt1、Opt2、Opt3、Opt4，标题分别为“+”、“-”、“*”和“／”。程序运行后，移动两个滚动条中的滚动框，用滚动条的当前值作为运如果选中一个单选钮，然后单击命令按钮，相应的计算结果将显示在Lab4中，程序运行情况如下图所示PrivateSubCommand1_Click()IfOption1=TrueThenLabel4=HScroll1.Value&+&HScroll2.Value&=&HScroll1.Value+HScroll2.ValueIfOption2=TrueThenLabel4=HScroll1.Value&-&HScroll2.Value&=&HScroll1.Value-HScroll2.ValueIfOption3=TrueThenLabel4=HScroll1.Value&*&HScroll2.Value&=&HScroll1.Value*HScroll2.ValueIfOption4=TrueThenLabel4=HScroll1.Value&/&HScroll2.Value&=&HScroll1.Value/HScroll2.ValueEndSub9.在考生文件夹中有一个工程文件execise9.vbp，相应的窗体为execise9.frm。在名为form1的窗体中有一个名称为Cmd1的命令按钮(标题为“开始倒计数”)和一个名称为timer1的计时器。请在窗体上绘制一个标签(名称为Labl，标题为“请输入一个正整数”)、一个文本框(名称为Textl，初始内容为空白)(如下图所示)。程序运行后，在文本框中输入一个正整数，此时如果按回车键，则可使文本框中的数值每隔1秒减1(倒计数)：当减到0时，倒计数停止，清空文本框，并把焦点移到文本框中。PrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenTimer1.Enabled=TrueEndIfEndSubPrivateSubTimer1_Timer()t=Val(Text1.Text)t=t-1Text1.Text=tIft=0ThenTimer1.Enabled=FalseText1.Text=Text1.SetFocusEndIfEndSub第十三次作业课本279页第7、8题。7.PrivateSubCommand1_Click()Dimss1AsStringss1=Text1Calldelestr(ss1,Text2)Text3=ss1EndSubPrivateSubdelestr(s1$,s2$)Dimi%i=InStr(s1,s2)ls2=Len(s2)DoWhilei0s1=Left(s1,i-1)+Mid(s1,i+ls2)i=InStr(s1,s2)LoopEndSub8.PrivateSubmaxlength(s$,maxword$)i=InStr(s,)maxword=DoWhilei0word=Left(s,i-1)IfLen(maxword)Len(word)Thenmaxword=words=Mid(s,i+1)i=InStr(s,)LoopIfLen(s)Len(maxword)Thenmaxword=sEndSubPrivateSubCommand1_Click()DimaAsString,sAsStrings=Text1.TextCallmaxlength(s,a)Text2=aEndSub第十二次作业1.在考生文件夹下建立一个工程文件execise25.vbp(相应的窗体文件为execise25.frm)，请在窗体上绘制一个名为Text1的文本框；绘制一个名为Cmd1，标题为“计算”的命令按钮；再绘制两个单选按钮，名称分别为Optl和Opt2，标题分别为“求300到500之间能被3整除的数之和”、“求500到700之间能被7整除的数之和”，选择相应的单选按钮，单击按钮，即可在文本框中显示相应结果，如下图所示。将求任意正整数间被n整除之和做成一个函数或子过程，否则无成绩。PrivateSubCommand1_Click()IfOption1=TrueThenText1=zc(300,500,3)IfOption2=TrueThenText1=zc(500,700,7)EndSubPrivateFunctionzc!(a%,b%,n%)Dimi%Fori=aTobIfiModn=0Thenzc=zc+iNextiEndFunction2、将上题改为调用子过程实现。PrivateSubCommand1_Click()Dimss!IfOption1=TrueThenCallzc(300,500,3,ss)IfOption2=TrueThenCallzc(500,700,7,ss)Text1=ssEndSubPrivateSubzc(a%,b%,n%,s!)Dimi%Fori=aTobIfiModn=0Thens=s+iNextiEndSub第十一次作业1.建立一个工程文件execise1.vbp和一个窗体文件execise1.frm，请在Form1窗体上建3个单选按钮，其标题分别为“7！”、“8！”、“9！”，再绘制一个名称为Cmd1的命令按钮，标题为“计算”：绘制一个名称为Text1的文本框，如图所示。程序的功能是在选定一个单选按钮并单击“计算”按钮后，可以计算出相应的阶乘值，在Text1中显示该阶乘值。其中，求阶乘部分用函数实现。PrivateSubCommand1_Click()IfOption1=TrueThenText1=jc(7)IfOption2=TrueThenText1=jc(