vb的操作题(有答案).pdf

《vb的操作题(有答案).pdf》由会员分享，可在线阅读，更多相关《vb的操作题(有答案).pdf（48页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、1.（1）在考生文件夹中有工程文件，其中的窗体如图所示。程序刚运行时，会生成一个有10个元素的整型数组。若选中查找最大值（或查找最小值）单选按钮，再单击查找按钮，则找出数组中的最大值（或最小值），并显示在标签Label2中。请去掉程序中的注释符，把程序中的 改为正确的内容。注意：考生不得修改窗体文件中已经存在的程序。最后把修改后的文件按原文 件名存盘。Private Sub Command1_Click()x=a(1)y=a(1)For i=2 To 10 If =True Then If a(i)x Then x=a(i)End If ElseIf a(i)y Then y=a(i)End

2、If Next If =True Then =x Else =y End If End Sub 2.（2）在名称为Form1的窗体上画一个名称Shape1的形状控件，在属性窗口中将其 设置为圆形。画一个名称为List1的列表框，并在属性窗口中设置列表项的 值分别为1、2、3、4、5。将窗体的标题设为图形控件。单击列表框中 的某一项，则将所选的值作为形状控件的填充参数。例如，选择3，则形状 控件中被竖线填充。如图所示。要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存 放在考生文件夹下，工程文件名为，窗体文件名为。在 Shape 控件中，可以用 FillStyle 属性设置图形

3、的填充图案，0：透明，2：虚线，3：点线，4：点划线，5：双点划线，6：内实线。List控件的Click事件过程为：Private Sub List1_Click()=End Sub 3.（1）在名称为Form1的窗体上画一个文本框，名称为Text1；再画二个命令按钮，名称分别为C1、C2，标题分别为隐藏、显示（如图所示）。请编写适当的事件过程，使得在运行时，如果单击隐藏按钮，则文本框消失，而如果单击显示按钮，则文本框显示出来。程序中不得使用任何变量。*注意：存盘时必须存放在考生文件夹下，工程文件名为，窗体文件名为。隐藏：=false 显示：=true 4.在窗体上画二个文本框，名称分别为Te

4、xt1、Text2。请设置适当的控件属性，并编写适当的事件过程，使得在运行时，如果在Text1中每输入一个字符，则显示一个*，同时在Text2中显示输入的内容（如图所示）。程序中不得使用任何变量。*注意：存盘时必须存放在考生文件夹下，工程文件名为，窗体文件名为。答案：将Text1 的文本框的 PasswordChar 属性为*。Private Sub Text1_Change()=End Sub 5.（1）在考生文件夹中有工程文件及其窗体文件，该程序是不完整的，请在有号的地方填入正确内容，然后删除及所有注释符（即号）但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下：在窗体上有一个

5、列表框，名称为List1，一个文本框，名称为Text1，和一个命令按钮，名称为 C1，标题为复制。要求程序运行后，在列表框中自动建立四个列表项，分别为Item1、Item2、Item3、Item4如果选择列表框中的一项，则单击复制按钮时，可以把该项复制到文本框中（如图所示）。Private Sub Command1_Click()Dim i As Integer For i=0 To 3 =List1 Next i End Sub 6 在考生文件夹下有一个工程文件，相应的窗体文件为，此 外还有一个名为的文本文件，其内容如下：32 43 76 58 28 12 98 57 31 42 53 64

6、 75 86 97 13 24 35 46 57 68 79 80 59 37 程序运行后，单击窗体，将把文件中的数据输入到二维数组 Mat 中，在窗体上按5行、5列的矩阵形式显示出来，并输出矩阵左上-右下对角线 上的数据，如图所示。在窗体的代码窗口中，已给出了部分程序，这个程序 不完整，请把它补充完整，并能正确运行。要求：去掉程序中的注释符，把程序中的 改为正确的内容，使其实现上述功 能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。解题方法：打开中的Form1窗体，打开代码窗口，修改后的代码如下：Option Base 1 Private Sub Form_Click()C

7、onst N=5 Const M=5 Dim Mat(M,N)Dim i,j Open&For Input As#1 For i=1 To N For j=1 To M Input#1,Mat(i,j)Next j Next i Close#1 Print Print 初始矩阵为：Print For i=1 To N For j=1 To M Print Tab(5*j);Mat(i,j);Next j Print Next i Print Print 左上-右下对角线上的数为：For i=1 To N For j=1 To M If i=j Then Print Tab(5*j);Mat(i

8、,j);Next j Next i End Sub 7.请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。（1）在名称为Form1的窗体上画两个标签（名称分别为Label1和Label2，标题分别为“姓名”和“年龄”）、两个文本框（名称分别为Text1和Text2，Text属性均为空白）和一个命令按钮（名称为Command1，标题为“显示”）。然后编写命令按钮的Click事件过程。程序运行后，在两个文本框中分别输入姓名和年龄，然后单击命令按钮，则在窗体上显示两个文本框中的内容，如图所示。要求程序中不得使用任何变量。*注意：存盘时必须存放在考生文件夹下，工程文件名为，

9、窗体文件名为。Private Sub Command1_Click()Print+”,现年”+“岁”End Sub 8.在名称为Form1的窗体上画一个图片框（名称为Picture1）、一个水平滚动条（名称为HScroll1）和一个命令按钮（名称为Command1，标题为“设置属性”），通过属性窗口在图片框中装入一个图形（文件名为，位于考生文件夹下），图片框的高度与图形的高度相同，图片框的宽度任意（如图1所示）。编写适当的事件过程，程序运行后，如果单击命令按钮，则设置水平滚动条的如下属性：Min 100 Max 1500 LargeChange 100 SmallChange 10 之后就可以

10、通过移动滚动条上的滚动块来放大或缩小图片框。运行后的窗体如图2所示。要求程序中不得使用任何变量。*注意：存盘时必须存放在考生文件夹下，工程文件名为，窗体文件名为。图 1 图 2 Private Sub Command1_Click()=1500 =100 =10 =100 End Sub Private Sub HScroll1_Change()=End Sub 9.在考生文件夹下有工程文件及窗体文件，该程序是不完整的，请在有号的地方填入正确内容，然后删除及所有注释符（即 号），但不能修改其它部分。存盘时不得改变文件名和文件夹，相应的 dat文件也保存到考生文件夹下，否则没有成绩。本题描述如下

11、：在名称为Form1的窗体上有五个Label控件和两个命令按钮，数据文件，存放考生的考号、姓名、成绩。1）自定义一个数据类型stu，字符型数据定长为10。2）按开始按钮后，能从考生文件夹下的 中读出所有数据并写入考生文件夹下的文件中；3）执行完毕，开始按钮变成完成，且无效（变灰）；Private Type stu num As Long nam As String *10 score As Single End type Private Sub Command1_Click()Dim rec As stu Dim i As Integer myfile1=&myfile2=&Open myfi

12、le1 For Input As#1 Open myfile2 For Input As#2 For i=1 To 8 Input#1,Write#2,Next I Close =完成 =False End Sub 10.在Form1的窗体上画一个标签，其名称为Lab1；再画一个列表框，其名为L1，通过属性窗口向列表框中添加若干个项目，每个项目的具体内容不限，编写适当的事件过程。程序运行后，如果双击列表框中的任意一项，则把列表中的项目数在标签中显示出来。程序的运行情况如图所示。不准使用任何变量。*注意：存盘时必须存放在考生文件夹下，工程文件名为，窗体文件名为。Private Sub L1_Db

13、lClick()=End Sub 11.在考生文件夹下有工程文件及窗体文件，该程序是不完整的，请在有号的地方填入正确内容，然后删除及所有注释符（即 号），但不能修改其它部分。存盘时不得改变文件名和文件夹，相应的 dat文件也保存到考生文件夹下，否则没有成绩。本题描述如下：在名称为Form1的窗体上有五个Label控件和两个命令按钮，数据文件，存放工人的编号、姓名、性别和体重。1）按开始按钮后，能从考生文件夹下的中读出数据并把体重大于平均体重的工人的所有数据写入考生文件夹下的文件中；2）执行完毕，开始按钮变成完成，且无效。Private Sub COMEXIT_Click()End End Su

14、b Private Sub COMSTART_Click()Dim i As Integer Dim total As Integer Dim aver As Single Dim num(10),namstring(10),sexstring(10),wages(10)MyFile1=&“”MyFile2=&“”Open MyFile1 For Input As#1 Open MyFile2 For Output As#2 For i=1 To 10 Input#1,num(i),namstring(i),sexstring(i),wages(i)total=total+wages(i)Ne

15、xt i aver=total/10 For i=1 To 10 If averwages(i)Then Write#2,num(i),namstring(i),sexstring(i),wages(i)Next i =“完成”=fault End Sub Private Sub Label2_Click()End Sub 12在考生文件夹中有文件及其窗体文件，该程序是不完整的，请在有号的地方填入正确内容，然后删除及所有注释符（即号），但不能修改其它部分。存盘时不得改变文件夹和文件名。本题描述如下：窗体上有一个名称为Text1的文本框；两个复选框，名称分别为Ch1和Ch2，标题分别为爱心社和学

16、通社。要求程序运行后，如果只选中Ch1，单击窗体，则在文本框中显示报名参加爱心社；如果只选中Ch2，然后单击窗体，则在文本框中显示报名参加学通社；如果同时选中 Ch1 和Ch2，单击窗体，则在文本框中显示报名参加爱心社和学通社；如果Ch1和Ch2都不选取，在单击窗体后，则在文本框中什么都不显示。Option Explicit Private Sub Form_Click()=If =1 Then =+爱心社 End If If Then If Then =爱心社+和 =+学通社 End If If Then =报名参加+End If End Sub 13.请根据以下各小题的要求设计Visual

17、 Basic应用程序（包括界面和代码）。（1）在名称为Form1的窗体上建立一个水平滚动条，请在属性窗口中把它的名称设置为HS1，Max属性设置为100，Min属性设置为0，Value属性设置为100。程序运行后，滚动框位于滚动条最右端（如图所示），如果单击滚动条之外的窗体部分，则滚动框跳到最左端。*注意：1）只能直接为相应的属性赋值，不得使用变量。2）保存时必须存放在考生文件夹下，窗体文件名为，工程文 件名为。答案：Private Sub Form_click()=0 End Sub 14.）按下述要求在属性窗口中设置属性：在名称为Form1的窗体中建立一个标签，名称为L1，在标签上显示选课

18、，其字号大小为四号；再建立三个复选框，名称分别为Chk1、Chk2和Chk3，标题分别为操作系统、数据库原理、概率论，字体大小均为14，其中概率论被禁用。*注意：保存时必须存放在考生文件夹下，窗体文件名为，工程文件名为。答案：Private Sub Form_Load()=False End Sub 15.在考生文件夹下有一个工程文件，其窗体上画有2个名称分别为 Text1、Text2的文本框，其中Text1可多行显示。请画2个名称为Command1、Command2，标题为产生数组、查找的命令按钮。如图所示。程序功 能如下：1）单击产生数组按钮，则用随机函数生成10个0100之间（不含0和

19、100）互不相同的数值，并将它们保存到一维数组a中，同时也将这10个 数值显示在Text1文本框内；2）单击查找按钮将弹出输入对话框，接收用户输入的任意一个数，并 在一维数组a中查找该数，若查找失败，则在Text2文本框内显示该数 不存在于数组中；否则给出该数在数组中的位置。要求：请去掉程序中的注释符，把程序中的 改为正确的内容，使其实现上述 功能，但不能修改窗体文件中已经存在的控件和程序。最后把修改后的 文件按原文件名存盘。Private Sub Command1_Click()=:=For i=1 To 10 a(i)=Fix(Rnd*99+1)For j=1 To i-1 If a(i)

20、=a(j)Then i=i-1 Exit For End If Next j Next i For i=1 To 10 =+Str(a(i)+Space(2)Next i End Sub Private Sub Command2_Click()Dim num As Integer,i As Integer num=InputBox(请输入待查找的数)For i=1 To 10 If a(i)=num Then =Str(num)+是数组中的第+Str(i)+个值 Exit For End If Next i If i 10 Then =Str(num)+不存在于数组中 End If End S

21、ub 16.在考生文件夹下有一个工程文件（相应的窗体文件名为 ），其功能是通过调用过程FindMax求数组的最大值，请装入该文件。程 序运行后，在四个文本框中各输入一个整数，然后单击命令按钮，即可求 出数组的最大值，并在窗体上显示出来（如图所示）。这个程序不完整，请把它补充完整，并能正确运行。要求：去掉程序中的注释符，把程序中的改为正确的内容，使其实现上述功 能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存 盘。Option Base 1 Private Function FindMax(a()As Integer)Dim Start As Integer Dim Finish

22、As Integer,i As Integer Start=LBound(a)Finish=UBound(a)Max=a(Start)For i=Start To Finish If a(i)Max Then Max=a(i)Next i FindMax=Max End Function Private Sub Command1_Click()Dim arr1 Dim arr2(4)As Integer arr1=Array(Val,Val,Val,Val)For i=1 To 4 arr2(i)=CInt(arr1(i)Next i M=FindMax(arr2)Print 最大值是:;M

23、End Sub 17.15（1）在考生文件夹下有一个工程文件，窗体上有一个单选按钮数组，含三个单选按钮，均没有标题，请利用属性窗口，为单选按钮依次添加标题为“北京”、“上海”、“广州”；再添加一个标题为“显示”的命令按钮，如图所示。程序的功能是在运行时，如果选中一个单选按钮后，单击“显示”按钮，则根据单选按钮的选中情况，在窗体上显示“我的出生地是北京”、“我的出生地是上海”或“我的出生地是广州”。要求：1）依次添加单选按钮标题为“北京”、“上海”、“广州”；设初始选中的是“广州”，添加命令按钮标题为“显示”。2）去掉程序中的注释符，把程序中的改为正确的内容，使其实现上述功能，但不能修改程序中的

24、其他部分，也不能修改控件的其他属性。最后把修改后的文件按原文件名存盘。Private Sub C1_Click()For i=0 To 2 If Op1(i).value=True Then Print 我的出生地是+Op1(i).caption End If Next End Sub 18.在名称为Form1的窗体上画一个文本框（名称为Text1，Text属性为“国”，FontName属性为“黑体”）和一个水平滚动条（名称为HScroll1），如图1所示。在属性窗口中对滚动条设置如下属性：Min 10 Max 100 LargeChange 5 SmallChange 2 编写适当的事件过程

25、。程序运行后，如果移动滚动条上的滚动框，则可扩大或缩小文本框中的“国”字。运行后的窗体如图2所示。要求程序中得使用任何变量。*注意存盘时必须存放在考生文件夹下，工程文件名为，窗体文件名为。解析 Private Sub HScroll1_Change()=end Sub 19.请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。（1）在Form1的窗体上建立一个主菜单，标题为操作，名称为Op，该菜单有两个子菜单，其标题分别为显示和清除，其名称分别为 Dis和Clea，编写适当的事件过程。程序运行后，如果单击操作菜单中的显示命令，则在窗体上显示等级考试；如果单击清除命令，

26、则清除窗体上显示的内容。程序的运行情况如图所示。*注意：存盘时必须存放在考生文件夹下，工程文件名为，窗体文件名为。Private Sub Clea_Click()Cls End Sub Private Sub Dis_Click()Print 等级考试 End Sub 20.在考生文件夹下有一个工程文件，请在窗体上画两个单选按钮（名称分别为Option1和Option2，标题分别为“添加项目”和“删除项目”），一个列表框（名称为List1）和一个文本框（名称为Text1），如图1 所示。编写窗体的Click事件过程。程序运行后，如果选择“添加项目”单选按钮，然后单击窗体，则从键盘上输入要添加的

27、项目（内容任意，不 少于三个），并添加到列表框中；如果选择“删除项目”单选按钮，然后 单击窗体，则从键盘上输入要删除的项目，将其从列表框中删除。程序的 运行情况如图2所示。在考生文件夹下的工程文件（相应的窗体文件名为），可以实现上述功能。但这个程序不完整，请把它补充完整。要求：去掉程序中的注释符，把程序中的改为适当的内容，使其正确运行，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。图1 图2 Private Sub Form_Click()If =True Then =InputBox(请输入要添加的项目)End If If =True Then =InputBox(请输入要删

28、除的项目)For i=0 To -1 If(i)=Then i End If Next i End If End Sub 21.在考生文件夹下有一个工程文件（相应的窗体文件名为 ），其功能是通过调用过程Sort将数组按降序排序，请装入该文件。程序 运行后，在四个文本框中各输入一个整数（如图1所示），然后单击命令 按钮，即可使数组按降序排序，并在文本框中显示出来（如图2所示）。这个程序不完整，请把它补充完整，并能正确运行。要求：去掉程序中的注释符，把程序中的改为正确的内容，使其实现上述功 能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存 盘。图1 Private Sub Sort(

29、a()As Integer)Dim Start As Integer,Finish As Integer Dim i As Integer,j As Integer,t As Integer Start=LBound(a)Finish=UBound(a)For i=Finish To 2 Step-1 For j=1 To Finish-1 If a(j)arrN(i)Then Min=arrN(i)End If Next i Print Min End Sub 23.在名称为Form1的窗体上画一个标签（名称为Label1，标题为“输入信息 ”）、一个文本框（名称为Text1，Text属性为

30、空白）和一个命令按钮（名称为Command1，标题为“显示”），如图1所示。然后编写命令按钮的 Click事件过程。程序运行后，在文本框中输入“计算机等级考试”，然 后单击命令按钮，则标签和文本框消失，并在窗体上显示文本框中的内容。运行后的窗体如图2所示。要求程序中不得使用任何变量。*注意：存盘时必须存放在考生文件夹下，工程文件名为，窗体文件 名为。Private Sub Command1_Click()=False =False Print End Sub 24.在名称为Form1的窗体上画一个文本框，其名称为Text1，然后通过属性窗 口设置窗体和文本框的属性，实现如下功能：1）在文本框中

31、可以显示多行文本 2）在文本框中显示垂直滚动条 3）文本框中显示的初始信息为“程序设计”4）文本框中显示的字体为三号规则黑体 5）窗体的标题为“设置文本框属性”完成设置后的窗体如图所示。要求：不编写任何代码。*注意：存盘时必须存放在考生文件夹下，工程文件名为，窗体文件 名为。新建一个工程，在窗体上添加一个文本框Text1，并将其MultiLine属性设置为True，ScrollBars属性设置为2-Vertical，Text属性设置为“程序设计”，FontName设置为“黑体”，FontSize设置为“三号”。再选中窗体，设置其Caption属性为“设置文本框属性”。最后按照题目要求保存文件即

32、可。25.在名称为Form1的窗体上画两个命令按钮（见图1），其名称分别为Cmd1 和Cmd2，编写适当的事件过程。程序运行后，如果单击命令按钮Cmd1，则 可使该按钮移到窗体的左上角（只允许通过修改属性的方式实现）；如果 单击命令按钮Cmd2，则可使该按钮在长度和宽度上各扩大到原来的2倍。程序的运行情况如图2所示。要求：不得使用任何变量。*注意：存盘时必须存放在考生文件夹下，工程文件名为，窗体文件 名为。Private Sub Cmd1_Click()=0 =0 End Sub Private Sub Cmd2_Click()=*2 =*2 End Sub 26.在Form1的窗体上画一个名

33、称为P1的图片框，然后建立一个主菜单，标题为操作，名称为Op，该菜单有两个子菜单，其标题分别为显示和清除，名称分别为Dis和Clea，编写适当的事件过程。程序运行后，如果单击操作菜单中的显示命令，则在图片框中显示等级考试；如果单击清除命令，则清除图片框中的信息。程序的运行情况如图所示。*注意：存盘时必须存放在考生文件夹下，工程文件名为，窗体文件名为。程序中不得使用任何变量。Private Sub Clea_Click()End Sub Private Sub Dis_Click()等级考试 End Sub 27.在Form1的窗体上画一个列表框，名称为L1，通过属性窗口向列表框中添加4个项目，

34、分别为AAAA、BBBB、CCCC和DDDD，编写适当的事件过程，过程中只能使用一条命令。程序运行后，如果双击列表框中的某一项，则把该项添加到列表框中。程序的运行情况如图所示。*注意：存盘时必须存放在考生文件夹下，工程文件名为，窗体文件名为。Private Sub L1_DblClick()End Sub 28.在Form1的窗体上画一个标签，其名称为Lab1；再画一个列表框，其名为L1，通过属性窗口向列表框中添加若干个项目，每个项目的具体内容不限，编写适当的事件过程。程序运行后，如果双击列表框中的任意一项，则把列表中的项目数在标签中显示出来。程序的运行情况如图所示。不准使用任何变量。*注意：

35、存盘时必须存放在考生文件夹下，工程文件名为，窗体文件名为。Private Sub L1_DblClick()=End Sub 29.在考生文件夹下有一个工程文件，请在窗体上画两个框架，其名 称分别为F1和F2，标题分别为“交通工具”和“到达目标”。在F1中画两 个单选按钮，名称分别为Op1和Op2，标题分别为“飞机”和“火车”。在 F2中画两个单选按钮，名称分别为Op3和Op4，标题分别为“广州”和“昆 明”。画一个标签，其名称为Lab1，宽度为3000，高度为375。编写适当 事件过程。程序运行后，选择不同单选按钮时产生的显示结果见下表 交通工具到达目标第一种情况飞机广州坐飞机去广州第二种情

36、况飞机昆明坐飞机去昆明第三种情况火车广州坐火车去广州第四种情况火车昆明坐火车去昆明单击窗体后产生的结果(标签中显示的内容)选中的单选按钮 程序的运行情况如图所示。存盘时，工程文件名为，窗体文件名 为。注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必 须至少进行上面的一种操作。退出程序时必须通过单击窗体右上角的 关闭按钮。Private Sub Form_Click（)If =True Then If =True Then =坐飞机去广州 ElseIf =True Then =坐飞机去昆明 End If ElseIf =True Then If Then =坐火车去广州 Els

37、eIf =True Then =坐火车去昆明 End If End If End Sub 30.在考生文件夹下有一个工程文件，请在窗体上画二个文本框，其 名称分别为Text1、Text2，文本框内容分别设置为“等级考试”、“计算 机”。然后画一个标签，其名称为 Lab1，高度为375，宽度为2000。再画 两个单选按钮，名称分别为Op1和Op2，标题分别为“交换”和“连接”，最后再画一个命令按钮，其名称为C1，标题为“确定”，编写适当的事件 程序。程序运行后，如果选中“交换”单选按钮并单击“确定”按钮，则 Text1文本框中内容与Text2文本框中内容进行交换，并在标签处显示“交 换成功”（如

38、图所示）；如果选中“连接”单选按钮并单击“确定”按钮 后，则把交换后的Text1和Text2的内容连接起来，并在标签处显示连接后 的内容。存盘时，工程文件名为，窗体文件名为。注意：不得修改已经给出的程序。在结束程序运行之前，必须选中一个单 选按钮，并单击“确定”按钮。退出程序时必须通过单击窗体右上角的关 闭按钮，否则可能无成绩。Private Sub C1_Click（)If=1 Then =计算机 =等级考试 =交换成功 Else =+End If End Sub 31.在名称为Form1的窗体上画一个名称为C1、标题为改变颜色的命令按 钮，窗体标题为改变窗体背景色。编写程序，使得单击命令按

39、钮时，将窗体的背景颜色改为红色（&HFF&）。运行程序后的窗体如图所示。要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存 放在考生文件夹下，工程文件名为，窗体文件名为。Private Sub C1_Click()=&HFF&End Sub 32.在考生文件夹下有一个工程文件，窗体如图所示。运行程序时，从 数据文件中读取学生的成绩（均为整数）。要求编写程序，统计总人数，并 统计不及格、6069、7079、8089及90100各分数段的人数，将统计 结果显示在相应的文本框中。结束程序之前，必须单击保存按钮，保存 统计结果。注意：不能修改程序的其他部分和控件属性。程序调试通过后，

40、运行程序，将 统计结果显示在文本框中，再按保存按钮保存数据，否则无成绩。最后把修改后的文件按原文件名存盘。答案：统计按钮的主要代码如下：Private Sub Command1_Click()Dim a As Integer,b As Integer,c As Integer Dim d As Integer,e As Integer,i As Integer Dim score As Single For i=1 To n score=arr(i)Select Case score Case Is=0 Then pos=pos+Arr(k)Else neg=neg+Arr(k)End If

41、Next k =正数之和为：&Str(pos)=负数之和为：&Str(neg)End Sub 38.在考生文件夹下有一个工程文件（相应的窗体文件名为），其功能是通过调用过程Average求数组的平均值，请装入该文件。程序运行后，在四个文本框中各输入一个整数，然后单击命令按钮，即可求出数组的平均值，并在窗体上显示出来（如图所示）。这个程序不完整，请把它补充完整，并能正确运行。Private Function Average(a()As Integer)As Single Dim Start As Integer,Finish As Integer Dim i As Integer Dim Sum

42、 As Integer Start=LBound(a)Finish=UBound(a)Sum=0 For i=Start To Finish Sum=Sum+a(i)Next i Average=Sum/Finish End Function 39.在窗体（名称为Form1，KeyPreview属性为True）上画一个列表框（名称为 List1）和一个文本框（名称为Text1），如图1所示。编写窗体的KeyDown事件过程。程序运行后，如果按“A”键，则从键盘上输入要添加到列表框中的项目（内容任意，不少于三个）；如果按“D”键，则从键盘上输入要删除的项目，将其从列表框中删除。程序的运行情况如图

43、 2所示。在考生文件夹下有一个工程文件（相应的窗体文件名为），可以实现上述功能。但这个程序不完整，请把它补充完整。要求：去掉程序中的注释符，把程序中的改为适当的内容，使其正确运行，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。图1 图2 解题方法：打开工程文件和相应的窗体文件名为，点击工具箱中的ListBox和TextBox控件图标，然后在窗体上拖拉出一个列表框、一个文本框。打开代码窗口，补充如下的代码：Private Sub Form_KeyDown(KeyCode As Integer,_ Shift As Integer)If Chr(KeyCode)=A Then =I

44、nputBox(请输入要添加的项目)End If If Chr(KeyCode)=D Then =InputBox(请输入要删除的项目)For i=0 To If(i)=Then i End If Next i End If End Sub 40.在考生文件夹下有工程文件及窗体文件，该程序是不完整的，请在有号的地方填入正确内容，然后删除及所有注释符（即 号），但不能修改其它部分。存盘时不得改变文件名和文件夹。本题描述如下：在名称为Form1的窗体上有一个Label控件，4个Text控件及7个命令按钮，功能如下：1）开始启动工程时，界面上除开始录入及退出按钮之外,其它按钮均不可用（灰色显示）。2

45、）单击开始录入按钮之后，利用INPUTBOX让用户连续且必须录入 10个数。若录入为非数字符号，则给出警告输入数据无效，请重新输入数值数据，请输入第n个数。3）录入完毕后，开始录入变灰，其它变为可用状态。4）按相应的按钮可分别求出所录入数据的升序、降序排列及最大数和最小数并在右侧对应的文本框中显示。（注意用A(10)存放最大数，A(1)存放最小数）5）单击清除按钮将所有文本框清空。For i=1 To N-1 For j=i+1 To N If Val(a(j)Then MsgBox 文本框中的数值太大 ElseIf +Then MsgBox 文本框中的数值太小 Else =+End If E

46、nd Sub 46.在考生文件夹中有文件及其窗体文件，该程序是不完整的，请在有号的地方填入正确内容，然后删除及所有注释符（即号），但不能修改其它部分。存盘时不得改变文件夹和文件名。本题描述如下：窗体上有一个名称为Text1的文本框；两个复选框，名称分别为Ch1和Ch2，标题分别为爱心社和学通社。要求程序运行后，如果只选中Ch1，单击窗体，则在文本框中显示报名参加爱心社；如果只选中Ch2，然后单击窗体，则在文本框中显示报名参加学通社；如果同时选中 Ch1 和Ch2，单击窗体，则在文本框中显示报名参加爱心社和学通社；如果Ch1和Ch2都不选取，在单击窗体后，则在文本框中什么都不显示。Option

47、Explicit Private Sub Form_Click()=If =1 Then =+爱心社 End If If Then If Then =“爱心社”+和 =+学通社 End If If Then =报名参加+End If End Sub 48.在考生文件夹下有一个工程文件，请在Form1窗体中画三个标签，名称分别为B1、B2、L1，标题分别为“字号”、“字体”、“计算机等级考试”，其中L1的高为500，宽为3000；再在B1、B2标签的下面画两个组合框，名称分别为Cb1、Cb2，并为Cb1添加项目：“10”、“15”、“20”，为Cb2添加项目：“黑体”、“隶书”、“宋体”,以上请

48、在设计时实现。请编写适当的事件过程，使得在运行时，当在Cb1中选一个字号、在Cb2中选一个字体，标签L1中的文字立即变为选定的字号和字体。如图所示。注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须选择一个字号和字体。必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，按原文件名存盘，程序中不能使用任何变量。Private Sub Combo1_Click()Dim i As Integer For i=o To 2 =Combo1 Next i End Sub Private Sub Combo2_Click()Dim i As Integer For i=o To 2

49、=Combo2 Next i End Sub 49.在考生文件夹下有一个工程文件，相应的窗体文件为，在窗体上有一个命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出01000范围内不能被7整除的整数的个数，并在文本框中显示出来。在窗体的代码窗口中，已给出了部分程序，其中计算不能被7整除的 整数的个数的操作在通用过程Fun中实现，请编写该过程的代码。要求：请勿改动程序中的任何内容，只在Function Fun()和End Function之间填入你编写的若干语句。最后把修改后的文件按原文件名存盘。Function Fun()Dim i As Integer,num As Integer

50、For i=0 To 1000 If i Mod 7 0 Then num=num+1 End If Next i =num End Function 在考生文件夹下有一个工程文件。窗体中已经给出了所有控件（如图所示）。请编写适当的事件过程完成以下功能：单击“读数”按钮，则把考生文件夹下的文件中的一个整数放入Text1；单击“计算”按钮，则计算出大于该数的第1个素数，并显示在Text2中；单击“存盘”按钮，则把找到的素数存到考生文件夹下的文件中。注意：在结束程序运行之前，必须单击“存盘”按钮，把结果存入文件，否则无成绩。最后把修改后的文件按原文件名存盘。Private Sub Command1