计算机考试二级VB机试文档

《计算机考试二级VB机试文档》由会员分享，可在线阅读，更多相关《计算机考试二级VB机试文档（165页珍藏版）》请在装配图网上搜索。

1、1. 综合应用题在窗体Forml上建立3个菜单(名称分别为vbRead、vbCalc和vbSave,标题分别为读数计算“和“存盘”)，然后绘制一个文本框(名称为Textl, MultiLine属性设置为True, Scroll Bars 属性设置为2),如下图所示。 Forml读重itW存盘70573018t 4883T er 一94 S2546S7 ST 1029二J图66-5程序运行后，如果执行读数命令，则读入in45.txt文件中的100个整数，放入一个数组中，数组的下界为1；如果执行“计算”命令，则把该数组中下标为奇数的元素在文本框中显示出来，求出它们的和，并把所求得的和在窗体上显示出

2、来；如果执行“存盘”命令，则把所求得的和存入考生文件夹下的out45.txt文件中。在考生文件夹下有一个工程文件sj5.vbp,考生可以装入该文件。窗体文件sj5,frm中的ReadData过程可以把in45.txt文件中的100个整数读入Arr数组中；而WriteData 过程可以把指定的整数值写到考生文件夹指定的文件中(整数值通过计算求得，文件名为 out45.txt)o注意：考生不得修改窗体文件中已经存在的程序。存盘时，工程文件名仍为sj5.vbp,窗体文件名仍为sj5.fmio1 .打开题目所给工程文件；2 .执行工具”菜单中的菜单编辑器”命令，打开菜单编辑器；在标题栏中输入读数，在名

3、称栏中输入vbRead；单击”下一个按钮，在标题栏中输入计算，在“名称”栏中输入“vbCacl；单击下一个按钮，在标题”栏中输入存盘，在名称栏中输入vbSave；3.单击工具箱中的TextBox控件图标，在窗体上拖拉出一个文本框，在属性窗口设置其名为 Textl, Muiti 1 ine属性值为Turn, Scrol IBars属性设置为2：4 .打开代码窗口输入如下代码：PrivateSubvbCalc_Click()Text 1. TextiFor i=l To 100 Step 2Textl. Text=Textl. Text&Arr(i)&Space(5)temp=temp+Arr(i

4、)Next iPrinttempEndSubPrivateSubvbRead_Click()ReadDataEndSubPrivateSubvbSave_Click()WriteData*out45. txt, tempEndSub5 .按要求保存文件即完成本题。2.三、综合应用题在考生的文件夹下有一个工程文件sj5. vbp,相应的窗体文件为sj5. frm。在窗体Forml上有两个命令按钮，其名称分别为Cmdl和Cmd2,标题分别为文件写入和文件读出，如下图所示。其中文件写入”命令按钮事件过程用来建立一个通讯录，以随机存取方式保存到文件out57. txt 中；而文件读出命令按钮事件过程用

5、来读出文件out57.txt中的每个记录，并在窗体I：显示出来。通讯录中的每个记录由3个字段组成，结构如下：姓名(Name)电话(Tel)邮政编码(Pos)Abed(010)51688765100065a(ia各土段的类型和长度为:姓名(Name)：字符串15电话(Tel)：字符串15邮政编码(Pos)长整型(Long)程序运行后，如果单击文件写入”命令按钮，则可以随机存取方式打开文件out57.txt,并根据提示向文件中添加记录，每写入一个记录后，都要询问是否再输入新记录，回答Y(或y)则输入新记录，回答N(或n)则停止输入；如果单击”文件读出命令按钮，则可以随机存取方式打开文件。ut57.

6、txt,读出文件中的全部记录，并在窗体上显示出来。该程序不完整，请把它补充完整。要求：1 .去掉程序中的注释符把程序中的问号？”改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。2 .文件out57.txt中已有3个记录，请运行程序，单击文件写入命令按钮，向文件out57.txt 中添加以下2个记水(全部采用西文方式)，如下图所示。Abed (010)51688765100065Efgh (010)516843211000443 .运行程序，单击文件读出”命令按钮，在窗体上显示全部记录。4 .用原来的文件名保存工程文件和窗体文件。图67-51 .打开题目所给工程文件；2 .将注释语句

7、改为：Rec Num=RecNum+lPut#l, RecNum,PersLoop While UCase(asp)=YRec Num=L0F(l)/Len(Pers)Get#l, i,Pers3 .按要求保存文件即完成本题。3.三、综合应用题在名为Forml的窗体上建立一个文本框(名称为Textl, MultiLine属性为True, ScrollBars属性为2)和两个命令按钮(名称分别为Cmdl和Cmd2,标题分别为Read和Save,如下图所示。 form，-101x170S 5335T9209 X!709453T396971949 T6T 536472B327982958969624

8、353:393155751034529597940153320T583451905281 T852899196316Z7 VI5619135436T?5133532W $5243T9Bad I Sr图68-5要求程序运行后，如果单击Read按钮，则读入inl8. txt文件中的100个整数，放入一个数组中(数组下界为1)；如果单击Save按钮，则挑出100个整数中的所有奇数，在文本框Textl中显示出来,并把所有奇数之和存入考生文件夹中的文件outl8. txt中(在考生文件夹下有标准模块 model. bas,其中putdata过程可以把一个整型数存入out 18. txt文件，考生可以把该

9、模块文件添加到自己的工程中)。注意：程序中对文件的操作统一使用相对路径；文件必须存放在考生文件夹中，窗体文件名为sj5. frm,工程文件名为sj5. vbp；结果存入outl8. txt文件，否则没有成绩。1.新建一个名为Forml的窗体：2 .单击工具箱中的TextBox控件图标，在窗体上拖拉出一个文本框，在属性窗口设置该文本框名称为Textl,将 Multi Li ne属性设置为True, ScrollBars属性设置为2；3 .单击工具箱中的CommandButton控件图标，在窗体上拖拉出两个命令按钮，在属性窗口设置该命令按钮名称分另ij 为Cmd 1和Cmd2, Capt i on

10、 分另i为 Read 和Save ；4 .打开代码窗口输入如下代码：DPr i vat eSubCmd1_C1i ck 0OpcnApp. Path&*in. txt*For!nputAs#lTextl.Text=*Fori=lTolOOInputttl,a (i)Textl. Text=Text1. Text&a(i)&Space(l)NextiClose#1EndSubPrivateSubCmd2_Click()Textl. Text=* s=0Fori=lTolOOIfa(i)Mod2O0ThenTextl. Tcxt=Text 1. Text&a(i)&Space(l) s=s+a(i

11、)End IfNextputdatas EndSub 5.按要求保存文件即完成木题。4.三、综合应用题在考生文件夹下有一个工程文件sj5.vbp及窗体文件sj5.frm。在窗体Forml上给出了所有控件和不完整的程序，请去掉程序中的注释符，把程序中的问号？”改为正确的内容。本程序的功能是：如果单击读取按钮，则把考生目录下的in39.txt文件中的15个姓名读到数组a中，并在窗体上显示这些姓名：当在Textl中输入一个姓名，或一个姓氏后，如果单击查找按钮,则进行查找，若找到，就把所有与Textl中相同的姓名或所有具有Textl中姓氏的姓名显示在 Text2中（如下图所示）：若未找到，则在Text

12、2中显示不存在！；若Textl中没有查找内容，则在Text2中显示未输入查找内容！:图69-5注意：考生不得修改程序的其他部分和控件的屈性，最后把修改后的文件按原文件名存盘。1 .打开题目所给工程文件；2 .将注释语句改为：Closeftln=Len（Textl. Text）IfLeft（a（k）, n）=Textl. TextThenc=c+a（k）Text2. Text=c3 .按要求保存文件即完成本题。5.三、综合应用题编写一个程序，输入货物的数量及单价，求总价，并输出。程序界面如下图所示。图70-5窗体标题设置为售货机，窗体上的两个标签（分别命名为Labi和Lab2,标题为货物的数据量

13、（个）：和贸物的单价（元）：两个文本框分别命名为Textl和Text2,命令按钮名称为Cmdl （标题为总价=，结果显示在名为Piel的图片框中）。当用户输入货物的数量与单价后，单击总价=”按钮，输出正确的结果。注意：在存盘时，工程文件名为sj5.vbp,窗体文件名为sj5.frm。L新建一个名为Forml的窗体,设置Caption属性为售货机2 .单击工具箱中的Label控件图标，在窗体上拖拉出两个个标签，在其属性窗口设置名称分别为Labi和Lab2, Caption属性分别为货物的数量（个）：和”货物的单价（元）：；3 .单击工具箱中的TextBox控件图标，在窗体上拖拉出两个文本框，按照

14、题目耍求在属性窗口设置其名称属性分别为Textl和Text2, Text属性为空白；4 .单击工具箱中的CommandButton控件图标，在窗体上拖拉出一个命令按钮，在属性窗口设置该命令按钮名称为Cmdl, Caption为总价=；5 .单击工具箱中的PictureBox控件图标，在窗体上拖拉出一个图片框，在属性窗口设置该图片框名称为Piel；6 .打开代码窗口输入如下代码：PrivateSubCmdl_Click()DimaAsInteger dimbAsCurrency a=Val(Textl. Text) b=Val(Text2.Text) Piel.CisPiel.Printa*bE

15、ndSub7 .按要求保存文件即完成本题。6 .三、综合应用题在考生文件夹下有工程文件sj5.vbp及窗体文件sj5.frm,该程序是不完整的，请根据下面的描述，补充Select分支结构部分，以满足题目的要求。注意：不得增行或减行，也不能更改程序的结构。存盘时不得改变文件名和文件夹。本题描述如下：在窗体Forml上有4个标签控件与4个文本框，以及一个命令按钮。窗体上所有控件的属性都在程序代码中设置。本程序运行时使用随机数模拟掷3次硬币(硬币有两面，字面和花面)，会出现4种组合情况，即全是字面、两字一花、两花一字和全是花面，统计各种情况出现的概率。程序运行时的窗体界面如图6-5所示.* Fora

16、l图6-5根据题意，将一个命令按钮，4个标签和4个文本框控件添加到窗体中，命令按钮的名称为 Command 1, Caption属性为“开始”，标签的C叩tion属性分别为“全是字面”、“两字一花”、“一字两花和“全是花面”，文本框的名称分别为Textl、Text2、Text3和Text% Text属性都为空。双击 Command 1进入代码窗口，编写如下代码：Private Sub Commandl_Click()Dim i As IntegerDim a As IntegerDim b As IntegerDim c As IntegerDim d As IntegerDim tmp As

17、 Integera =0全是字面的次数b =0两字一花的次数c =0一字两花的次数d=0全是画面的次数For i =1 To 1000 ，进行1000次实验tmp = Rnd() + Rnd() + Rnd()如果Rnd返回1则是字面，否则是画面Select Case tmpCase 3: a = a + 1Case 2: b = b + 1Case 1: c = c + 1Case 0: d = d + 1Case Else: EndEnd SelectNext iTextl.Text = CStr(a/ 1000)Text2.Text = CStr(b / 1000)Text3.Text

18、= CStr(c / 1(X)0)Text4.Text = CStr(d / 1000)全是字面两字一花一字两花全是画面将全是字面的概率显示在Textl中 将两字一花的概率&示在Text2中 将一字两花的概率显示在Text3中 将全是画面的概率显示在Text4中End Sub单击,按钮运行程序，并按要求保存。7 .三、综合应用题在考生文件夹下有一个工程文件sj5.vbp,窗体上有两个名称分别为Textl和Text2的文本框；一个名称为Command 1,标题为“计算保存的命令按钮：两个复选框，名称分别为Checkl 和Check2,标题分别为能被5整除和能被6整除”，如图7-5所示。图7-5请

19、编写适当的事件过程，使得在运行时，根据选中的复选框，再单击计算保存”按钮，就可以按照夏选框后的文字要求计算0到Textl输入的数字之间的个数，并把计算结果放入文本框Text2中，并存入文件out5.txt中，最后把已经修改的I二程文件和窗体文件以原来的文件名存盘。注意：考生不得修改窗体文件中已经存在的程序，退出程序时必须通过单击窗体右上角的关闭按钮。在结束程序运行之前，必须至少要进行一种计算，否则不得分。在Visual Basic中，使用Mod运算符来判断一个数是否可以被另一个数整除，如果计算结果为0,则表示可以整除，否则不能整除。窗口代码补充如F：Private Sub Command l_

20、Click()Dim a As IntegerDim b As IntegerDim num As Integer Dim i As Integer If Check 1. Value =1 Then a =5Elsea=1 End If If Checkl Value =1 Then b =6 Elseb=1 End If num =0 For i =1 To Val(Text l.Text)IfiModa =0 AndiModbnum = num +1 End If，如果Checkl选中，则a为5否则a为1OThen，判断是否能被两个同时整除 如果能则计数加1Next iText2.Tex

21、t = num，将结果显示在Text2上Open .out5.txt For Output As #1打开文件准备写入Print #1, num将结果写入文件Close #1关闭文件End Sub单击，按钮运行程序，并按要求保存。8 .三、综合应用题在考生文件夹下有工程文件sj5.vbp及窗体文件sj5.frm,该程序是不完整的，请在有?”的地方填入正确内容，然后删除?”及代码前的所有注释符（即，号），但不能修改其他部分。存盘时不得改变文件名和文件夹。图8-5窗体Forml中有一命令按钮与一个水平滚动条。命令按钮的名称为Command，标题为移动”;水平滚动条的名称为HScrolll。单击移动

22、按钮后，在弹出的对话框中输入数值。输入一个整数后，单击移动，滚动条中的滚动块移动到指定的刻度，如果超过了滚动条的最大刻度，则不移动，并且在窗体上显示输入的数值太大，如果超过了滚动条的最小刻度，则不移动，并且在窗体上显示”输入的数值太小、如图8-5所示。本题主要考查滚动条的属性和IF语句的使用。滚动条常用于取代数据的键盘输入，通过调整滚动条滑块的位置即可改变其Value属性的值。滚动条的Max属性、Min属性限定了滚动条所能表示的最大值和最小值，即Value属性值的取值范围，在程序中改变Value属性的值，滚动条滑块会随之移动到相应位置。InputBox。函数用于显示一个输入框，提示用户输入个数

23、据，该函数返回值默认为字符串类型。在代码窗口编写如下代码：Private Sub Command l_Click()Dim a As Integera = Val(InputBox(请输入数值)If a HScrolll.Max ThenCisPrint”输入的数值太大”Elself a HScrolll.Min ThenCisPrint ”输入的数值太小ElseCisHScroIll .Value = aEnd IfEnd Sub单击，按钮运行程序，并按要求保存。通过输入对话框输入数值如果数值大于滚动条的最大值在窗口上显示“输入的数值太大”加果数值小于滚动条的最小值，在窗口上显示“输入的数值

24、太小”如果在范围内，则将滚动条移动指定的距9 .三、综合应用题在考生文件夹下有一个工程文件sj5.vbp,窗体上有一个文本框，名称为Textl,可以多行显示。还有3个命令按钮，名称分别为Commandl、Command2和Command3,标题分别为读取数据、降序排列和“保存。”读取数据按钮的功能是从考生文件夹下的in5.dat文件中读取40个整数到数组中，并在Textl中显示出来；”降序排列按钮的功能是对这40个数降序排序，并显示在Text2中；“保存按钮的功能是把排好序的40个数存到考生文件夹下的out5.dat文件中。程序运行界面如图9-5所示。图9-5在窗体中已经给出了全部控件和部分程

25、序，要求阅读程序并去掉程序中的注释符，把程序中的”?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件按原文件名存盘。本题在排序中，使用双重循环，外循环每循环一次，确定内循环循环的次数，内循环就是把本次循环中最小的数，放在数组的最后而，这样就可以实现对40个数的降序排序。原代内补充后如下：Dim a(40) As LongDim str(40) As StringDim tex As StringDim i As IntegerPrivate Sub Commandl_Click()读取数据tex =Open H.in5.dat For I

26、nput As #1For i =1 To 40Input #1, a(i)，逐个读取40个数据str(i)= a(i) tex = tex + str(i)+ M ，将数组放到一个字符串中 Next i Close #1 Text 1.Text = tex在Tex”中显示字符串End SubPrivate Sub Command3_Click()*保存数据Open H.out5.dat For Output As #1Print #1, Text 1.TextClose #1End Sub并在Command2的Click事件中编写以下代码： Private Sub Command2_Clic

27、k() For i =1 To 40，降序排列temp = a(i) Forj =1 To iIf ad) temp Then读取的数据比原位置的数据大For k = j_To j +1 Step -1a(k)= a(k -1)数据向后偏移一个 Next k a(j)= temp Exit ForEnd If Next j Next i tex = For i =1 To 40 tex = tex + CStr(a(i)+” Next iText1.Text = tex在textl中显示排序后的结果Open .out5.txt For Output As #2 Print #2, Textl.

28、Text Close #1 End Sub单击，按钮运行程序，并按要求保存。12 .三、综合应用题在考生文件夹下有工程文件sj5.vbp及窗体文件sj5.frm,该程序是不完整的，请将程序代码补充完整，但不能修改其他部分。存盘时不得改变文件名和文件夹，相应的txt文件也保存到考生文件夹下，否则没有成绩。本题描述如F：在名称为Forml的窗体上有3个Label控件和两个命令按钮，命令按钮的名称为Commandl与 Command2,标题为读取与保存并退出。考生文件夹下的数据文件in5.txt存放一些字符。要求程序运行时，按读取按钮后，能从考生文件夹下的in5.txt中读出数据并识别出其中的非字母

29、元素，按保存并退出”按钮后，将非字母元素写入考生文件夹下的out5.txt文件中（以标准格式在一行中输出）；执行完毕，”读取按钮变成完成，且无效（变灰），单击”保存并退出”按钮,程序结束，如图13-5所示。图13-5本题主要考查文件的读入，根据一定的条件筛选后再输出到另一个文件中。其中用到了判断是否读到文件尾函数EOF()、将字符转换成ASCII码函数Asc()和求字符串长度函数Len()。补后的代码如下：Dim str As StringPrivate Sub Command l_Click()Dim tmp As String str = ,n,Open H.in5.txtu For In

30、put As #1 While EOF(D = FalseInput #1, tmp str = str + tmp WendCommand 1 .Enabled = FalseCommand 1 .Caption =完成End Sub，打开文件准备读取，读取文件知道文件尾将读取的文本放入tmp中将imp放入字符串中command 1不可用command的Caption属性变为完成Private Sub Command2_Click()Dim rel As StringDim tmp As StringDim i As Integer rel =,M,For i = 1 To Len(str)

31、 tmp = Mid(str, i, 1)利用for循环遍历字符串逐个取出用来判断If Asc(tmp) Asc(nzu) Thenrel = rel + tmp如果不是字母，则放入输出字符串中End IfNext iOpen H.out5.txtn For Output As #2将得到的字符串写入文件Print #2, relClose #2Unload MeEnd Sub单击，按钮运行程序，并按要求保存。14.三、综合应用题在考生文件夹下有一个工程文件sj5.vbp,相应的窗体文件为sj5.frm,此外还有一个名为 sjin.txt的文本文件，其内容如下：1011121314151617

32、181920212223242526程序运行后，单击窗体，将把文件sjin.txt中的数据输入到维数组Arr中，在窗体中按4行4列的矩阵形式显示出来，并在我xtl输出矩阵右上-左下对角线上的数据，如图15-6所示。图15-6在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它补充完整，并能正确运行。要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。根据题意，将一个文本框控件控件和一个标签添加到窗体中，文本框的名称为Textl, Text 属性为空，标签的C叩tion属性为“右上-左下对角线的数”，具体代

33、码如卜.(其中*4-1+1)代表对角线的数在数组中的位置)：Private Sub Form_Click()Dim Arr(i6) As IntegerDim i As IntegerDim str As StringDim tmp As StringOpen sjin.txt For Input As #1打开文件Cis ，清空窗口Fori =1 To 16Input #1, Arr(i)利用循环读取16个数tmp = Arr(i)str = str + tmp +将数组放入字符串里面If _L Mod4=0ThenPrint str每当读取4个则输出并换行str =,M,，字符串清空End

34、 IfNext iClose #1获得对角线的数放入字符串里而，在textl中显示出来Fori=1 To 4tmp = Arr(i *4- i +1)str = str + tmp +” Next iText 1.Text = strEnd Sub单击，按钮运行程序，并按要求保存。15 .三、综合应用题在考生文件夹下有一个工程文件sj5.vbp,相应的窗体文件为sj5.frm,此外还有一个名为 sjin.txt的文本文件，其内容如卜：1011121314151617181920212223242526程序运行后，单击窗体，将把文件sjin.txt中的数据输入到一维数组Ait中，在窗体中按4行4

35、列的矩阵形式显示出来，并在Textl输出矩阵右上-左下对角线上的数据，如图15-6所示。图15-6在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它补充完整，并能正确运行。要求：去掉程序中的注释符，把程序中的”?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。根据题意，将个文本框控件控件和一个标签添加到窗体中，文本框的名称为Textl, Text 属性为空，标签的Caption属性为“右上-左下对角线的数”，具体代码如下(其中(1*4北+1)代表对角线的数在数组中的位置)：Private Sub Form_Click()Dim Arr

36、(16) As IntegerDim i As IntegerDim str As StringDim tmp As StringOpen .sjin.txt1 For Input As #1_打开文件 str =Cis ，清空窗口Fori=1 To 16Input #1, Arr(i)利用循环注取16个数tmp = Arr(i)str = str + tmp +将数组放入字符串里面If J_ Mod 4 = 0 Then Print str str 二”End IfNext iClose #1For i = 1 To 4tmp = Arr(i * 4 - i + 1) str = str +

37、 tmp + ”悔当读取4个则输出并换行 字符串清空获得对角线的数放入字符串里面Next iText 1.Text = str，在 text 1中显示出来End Sub单击,按钮运行程序，并按要求保存。16 .三、综合应用题在考生文件夹下有一个工程文件sj5.vbp,其窗体上有一个文本框，名称为Textl,可以多行显示:有一个名称为Commonl的通用对话;还有3个命令按钮，名称分别为Commandl、Command2和Command3,标题分别为“打开文件、大写和保存。程序运行时窗体界面如图16-5所示。图16-5命令按钮的功能是：单击打开文件按钮，弹出打开文件对话框，默认打开文件的类型为文

38、本文件”。选择考生文件夹下的in5.txt文件后，该文件中的内容显示在Textl中：单击大写”按钮，程序将把Textl中的所有小写英文字母转换成大写；单击保存按钮，把Textl中的内容存入考生文件夹下的。ut5.txt文件中。在窗体中已经给出了部分程序。要求：请去掉程序中的注释符把程序中的?”改为正确的内容。但不能修改程序中的其他部分，也不能修改控件的属性。编写大写按钮的Click事件过程，最后把修改后的文件按原文件名存盘。注意：考生不得修改已有的程序和控件的属性，必须时考生文件夹下的in5.txt文件进行转换，并把转换结果通过存盘”按钮存入考生文件夹下的out5.txt文件中，否则会影响成绩

39、。本题主耍考查通用对话框使用、顺序文件的打开和Ucase()函数的使用。通用对话框(CommonDialog)提供打开文件、保存文件、设置打印选项、选择颜色和字体、显示帮助等操作的一组标准对话框，该控件运行时不可见。其Action属性用于设置被打开对话的类型，Filter (过滤器)属性用于指定在对话框的文件列表中显示文件的类型。例如，过滤器为*.txt表示显示所有的文本文件。语法为“对象名.Filter=描述I文件扩展名首先要根据ASCII码来判断是否为小写字母，然后再用Ucase函数将小写字母转换为大写字母，补充后的具体代码如下：Dim str As StringPrivate Sub C

40、ommand l_Click()Dim tmp As String str = Commonl.Filter=文本文件(*.txt)l*.txt Common 1.ShowOpen如果文件存在则进行读取If Common l.FileName o ThenOpen Common l.FileName For Input As #1判断是否读取完成将读取的字符串放入str,在Textl中显示读取的字符串将修改后的字符串写入文件中While EOF(1)= FalseInput #1, tmp str = str + tmp WendEnd IfClose #1Textl.Text = strEn

41、d SubPrivate Sub Command2_Click()Texil .Text = UCase(Text 1.Text)End SubPrivate Sub Command3_Click()Open H.out5.txtH For Output As #1Print #1, Textl.TextClose #1End Sub单击，按钮运行程序，并按要求保存。17 .三、综合应用题在考生文件夹中有工程文件sj5.vbp及其窗体文件sj5.frm,该程序是不完整的，请在有?的地方填入正确内容，然后删除?”及代码前的所有注释符（即号）但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描

42、述如下：在名称为Forml的窗体上有两个命令按钮，其名称分别为Comandl和Comand2,两个单选按钮，名称分别为Optionl和Option2,标题分别为50150的素数”和“200350的素数，一个文本框，名称为Textl,标题分别为“计算”和保存，程序运行界面如图18-5所示。如果选中一个单选按钮并单击“计算”按钮，则计算出该单选按钮标题所指明的所有素数之和。并在文本框中显示出来。如果单击保存按钮，则把计算结果存入”out5.txt”文件中，该文件必须放在考生文件夹中。（在考牛.文件夹中有标准模块mode.bas,其中的isPrimeNum函数可以判断整数x是否为素数，如果是素数，则

43、函数返回True,否则返回False,而writeData过程可以把结果存入指定的文件，考生可以将该模块文件添加到自己的工程中。）图18-5注意：必须把其中一种素数之和存入考生文件夹下的。ut5.txt文件中，否则没有成绩。保存程序时必须存放在考生文件夹下，窗体文件名为sj5.frm,工程文件名为sj5.vbp。素数的判断准则就是看该数是否除了1及其本身以外别无其他约数，若是则该数就是素数，否则就不是素数。本题判断素数的标准模块mode.bas已经写好了，只要将它添加到工程中即可。在“工程”窗口中单击右键，在弹出的快捷菜单中选择“添加”一“添加模块”，然后在弹出对话框的“现存”选项卡中选择“m

44、ode.bas，单击“确定”即添加成功。补充后的代码如下：Private Sub Command l_Click()Dim min As IntegerDim max As Integer Dim i As Integer If Option 1.Value = True Then，根据选中的Option来设置For循环上卜限min =50 max =150Elsemin=200max =350End If total =0 For i = min To maxIf isPrimeNum(i)= True Then调用mode.bas的isPrimeNum函数判断素数total = total

45、 + iEnd If Next i Text 1.Text = total End SubPrivate Sub Command2_Click()writeData (total)，调用 mode.bas 的 writeData 来进行数据保存End Sub标准模块mode.bas中的代码如卜.：Function isPrimeNum(num As Integer) As Boolean isPrimeNum = True Dim i As Integer For i =2To num -1If num Mod i =0 ThenisPrimeNum = FalseExit For End I

46、fNext iEnd FunctionFunction writeData(total As Long)Open out5.txtH For Output As #1Write #1, total Close #1 End Function单击,按钮运行程序，并按要求保存。19.三、综合应用题在考生文件夹下有一个工程文件sj5.vbp,窗本Forml上有两个标签、两个文本框与一个命令按钮。其中命令按钮的名称为Command、标题为查找；文本框的名称分别是Textl与Text2,内空；标签名称分别是Labell与Label2,标题为“查找内容、查找结果。窗体上给出了所有程序需要的控件，但程序代码

47、是不完整的，请去掉程序中的注释符把程序中的?”改为正确的内容。本程序的功能是：当在Textl中输入一个姓氏后，如果单击查找按钮，则在in5.txt中进行查找，若找到，就把所有与Texll中相同姓氏的姓名显示在Text2中，如图20-5所示；若未找到，则在Text2中显示未找到！；若Textl中没有查找内容，单击查找按钮，则在Text2中显示未输入查找内容！图2P5注意：考生不得修改程序的其他部分和控件的属性，把修改后的文件按原文件名存盘。本题程序功能描述为：先用Open语句打开文件in5.lxl,用While循环的Input#方法读取文件,再判断若有输入，用For循环在in5.txt文件中逐一

48、查找与Textl中内容相符的元素，相符的标准是 Textl.Text = Mid(str(i)J,1),若有相匹配的，则在文本框中显示结果，若没找到则显示“未找到”,若Textl中未输入内容，则显示“未输入查找内容！”的提示。补充后的代码如下：Dim str() As StringDim num As IntegerDim rel As StringPrivate Sub Command l_Click()Dim tmp As StringDim j As IntegerDim i As Integer num =0relOpen n.in5.txtM For Input As#1打开文件进行

49、读取While EOF(l):Fake判断是否读取到文件末尾Input #1, tmpnum = num +1，获得字符串个数WendClose #1ReDim str(num)，重新分配数组控件Open .in5.txt For Input As #1For i = 1 To numInput #1, str(i)Next iClose #1For i = 1 To numFor j = 1 To Len(stKi)该取字符串数组利用For循环进行查找逐个字符查找IfTextl.IexL=Mid(str(i),j, l)Thenrel = rel + str(i) + ”将查找到的结果放入字

50、符串中Elsej=j + l如果没有查找则计数加1End If Next j Next iIf rel = n Thenrel =未找到！如果没有查找到则显示未找到End IfIfTextl.Text =Thenrel =未输入查找内容！End IfText2.Text = rel在Text2中显示结果End Sub单击，按钮运行程序，并按要求保存。21 .三、综合应用题在考生文件类下存一个工程文件sj5.vbp在名称为Forml的窗体上画一个文本框，名称为 Textl,允许多行显示;再画3个命令按钮,名称分别为Command、Command? ifU Commands,标题分别为读取文本、“

51、大写和”保存，运行界面如图21-5所示。请编写适当的事件过程，使得在运行时，单击“读取文本”按钮，则从考生文件夹中读入sjiiuxt文件(文件中只有字母和空格)，放入Textl中；单击大写按钮，则把Textl中的所有小写字母转换为大写字母：单击保存按钮，则把Textl中的内容存入sjout.txt文件中。UGC (USER GENERATED - CONTENT) IS VERY HOT. THERE ARE SOME TYPICAL UCG WEBSITE WHICH IS VERY FAMOUSSUCH AS YOUTUBETUDOUDOUBANMYSPACE BUJG AND SO ON

52、 FROM THE BEGINNING OF TKE POPULATION OF INTERNETTHERE WERE UGCBUT TMENNO ONE HAS NOTIFY THEMSUCH AS BBSWKICH ISzJ读取文本卷;I 保存图21-5注意：去掉程序中的注释符，把程序中的?改为正确的内容，考生必须把转换后的内容用保存按钮存入sjout.txt文件，否则无成绩。考生的工程文件以文件名sj5.vbp存盘，窗体文件以文件名sj5.frm存盘。文本框的MultLine属性设置其是否能多行显示，为True表示能多行显示，为False表示不能多行显示。ScrollBars属性设置其是

53、否有滚动条，值为0时表示没有滚动条，值为1时表示有水平滚动条，值为2时表示有垂直滚动条，值为3时表示水平、垂直滚动条都有，对文件的操作一般包括以下步骤：打开或建立文件：进行读/写操作；关闭文件。要将字符串的小写字母转换成大写字母，可以通过UCase函数实现。UCase函数将小写字母转换成大写字母，而大写或非字母字符均保持不变。其语法格式为：UCase(string),省略string 为任何有效的字符串表达式。根据题意，将一个文本框控件和3个命令按钮添加到窗体中，文本框的名称为Textl、 MultiLine属性为True、ScrollBar属性为2,命令按钮的名称分别为Commandl、Command2和 Commands, Caption分别为“读取文本”、“大写”和“保存”，设置完成后双击Commandl进入代码编写窗口，其中Mid。函数是将字符串中的字符提取出来，以判断字符是不是小写字母，EOF()函数判断文件是否读取完成，补充后的具体代码如下：Dim rel As StringPrivate Sub Command