vb的操作题有答案.docx

1、vb的操作题有答案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 El

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

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

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

5、分。存盘时不得改变文件名和文件夹。本题描述如下：在窗体上有一个列表框，名称为List1，一个文本框，名称为Text1，和一个命令按钮，名称为 C1，标题为复制。要求程序运行后，在列表框中自动建立四个列表项，分别为Item1、Item2、Item3、Item4如果选择列表框中的一项，则单击复制按钮时，可以把该项复制到文本框中（如图所示）。 Private Sub Command1_Click()Dim i As IntegerFor i = 0 To 3 = List1Next i End Sub6 在考生文件夹下有一个工程文件，相应的窗体文件为，此 外还有一个名为的文本文件，其内容如下： 32

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

7、tion Base 1Private Sub Form_Click() Const 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 左上

8、- 右下对角线上的数为： For i = 1 To N For j = 1 To M If i = j Then Print Tab(5 * j); Mat(i, j); Next j Next iEnd Sub7.请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。 （1）在名称为Form1的窗体上画两个标签（名称分别为Label1和Label2，标题分别为“姓名”和“年龄”）、两个文本框（名称分别为Text1和Text2，Text属性均为空白）和一个命令按钮（名称为Command1，标题为“显示”）。然后编写命令按钮的Click事件过程。程序运行后，在两个文本框中

9、分别输入姓名和年龄，然后单击命令按钮，则在窗体上显示两个文本框中的内容，如图所示。要求程序中不得使用任何变量。 *注意：存盘时必须存放在考生文件夹下，工程文件名为，窗体文件名为。 Private Sub Command1_Click()Print +”,现年”+“岁”End Sub8.在名称为Form1的窗体上画一个图片框（名称为Picture1）、一个水平滚动条（名称为HScroll1）和一个命令按钮（名称为Command1，标题为“设置属性”），通过属性窗口在图片框中装入一个图形（文件名为，位于考生文件夹下），图片框的高度与图形的高度相同，图片框的宽度任意（如图1所示）。编写适当的事件过程

10、，程序运行后，如果单击命令按钮，则设置水平滚动条的如下属性： Min 100 Max 1500 LargeChange 100 SmallChange 10 之后就可以通过移动滚动条上的滚动块来放大或缩小图片框。运行后的窗体如图2所示。要求程序中不得使用任何变量。 *注意：存盘时必须存放在考生文件夹下，工程文件名为，窗体文件名为。 图1 图2Private Sub Command1_Click() = 1500 = 100 = 10 = 100End Sub Private Sub HScroll1_Change()=End Sub9.在考生文件夹下有工程文件及窗体文件，该程序是不完整的，请在

11、有号的地方填入正确内容，然后删除及所有注释符（即 号），但不能修改其它部分。存盘时不得改变文件名和文件夹，相应的 dat文件也保存到考生文件夹下，否则没有成绩。本题描述如下：在名称为Form1的窗体上有五个Label控件和两个命令按钮，数据文件，存放考生的考号、姓名、成绩。1）自定义一个数据类型stu，字符型数据定长为10。2）按开始按钮后，能从考生文件夹下的 中读出所有数据并写入考生文件夹下的文件中；3）执行完毕，开始按钮变成完成，且无效（变灰）； Private Type stu num As Long nam As String * 10 score As SingleEnd typeP

12、rivate Sub Command1_Click()Dim rec As stuDim i As Integermyfile1 = & & myfile2 = & & Open myfile1 For Input As #1Open myfile2 For Input As #2For i = 1 To 8Input #1, , , Write #2, , , Next I Close = 完成 = FalseEnd Sub10.在Form1的窗体上画一个标签，其名称为Lab1；再画一个列表框，其名为L1，通过属性窗口向列表框中添加若干个项目，每个项目的具体内容不限，编写适当的事件过程。程序

13、运行后，如果双击列表框中的任意一项，则把列表中的项目数在标签中显示出来。程序的运行情况如图所示。不准使用任何变量。*注意：存盘时必须存放在考生文件夹下，工程文件名为，窗体文件名为。 Private Sub L1_DblClick() = End Sub11.在考生文件夹下有工程文件及窗体文件，该程序是不完整的，请在有号的地方填入正确内容，然后删除及所有注释符（即 号），但不能修改其它部分。存盘时不得改变文件名和文件夹，相应的 dat文件也保存到考生文件夹下，否则没有成绩。本题描述如下：在名称为Form1的窗体上有五个Label控件和两个命令按钮， 数据文件，存放工人的编号、姓名、性别和体重。1

14、）按开始按钮后，能从考生文件夹下的中读出数据并把体重大于平均体重的工人的所有数据写入考生文件夹下的文件中；2）执行完毕，开始按钮变成完成，且无效。 Private Sub COMEXIT_Click()EndEnd SubPrivate Sub COMSTART_Click()Dim i As IntegerDim total As IntegerDim aver As SingleDim num(10), namstring(10), sexstring(10), wages(10) MyFile1 = & & “” MyFile2 = & & “”Open MyFile1 For Inpu

15、t As #1Open MyFile2 For Output As #2For i = 1 To 10 Input #1, num(i), namstring(i), sexstring(i), wages(i) total = total + wages(i)Next iaver = total / 10For i = 1 To 10 If averwages(i) Then Write #2, num(i), namstring(i), sexstring(i), wages(i)Next i = “完成” = faultEnd SubPrivate Sub Label2_Click()E

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

17、ExplicitPrivate Sub Form_Click() = If = 1 Then = + 爱心社 End If If Then If Then = 爱心社 + 和 = + 学通社 End If If Then = 报名参加 + End IfEnd Sub13. 请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。（1）在名称为Form1的窗体上建立一个水平滚动条，请在属性窗口中把它的名称设置为HS1，Max属性设置为100，Min属性设置为0，Value属性设置为100。程序运行后， 滚动框位于滚动条最右端（如图所示），如果单击滚动条之外的窗体部分，则滚动

18、框跳到最左端。*注意：1）只能直接为相应的属性赋值，不得使用变量。2）保存时必须存放在考生文件夹下，窗体文件名为，工程文 件名为 。 答案：Private Sub Form_click() = 0End Sub14. ）按下述要求在属性窗口中设置属性：在名称为Form1的窗体中建立一个标签，名称为L1，在标签上显示选课，其字号大小为四号；再建立三个复选框，名称分别为Chk1、Chk2和Chk3，标题分别为操作系统、数据库原理、概率论，字体大小均为14，其中概率论被禁用。*注意：保存时必须存放在考生文件夹下，窗体文件名为，工程文件名为。 答案：Private Sub Form_Load() =

19、FalseEnd Sub15. 在考生文件夹下有一个工程文件，其窗体上画有2个名称分别为 Text1、Text2的文本框，其中Text1可多行显示。请画2个名称为Command1、 Command2，标题为产生数组、查找的命令按钮。如图所示。程序功 能如下： 1）单击产生数组按钮，则用随机函数生成10个0100之间（不含0和 100）互不相同的数值，并将它们保存到一维数组a中，同时也将这10个 数值显示在Text1文本框内； 2）单击查找按钮将弹出输入对话框，接收用户输入的任意一个数，并 在一维数组a中查找该数，若查找失败，则在Text2文本框内显示该数 不存在于数组中；否则给出该数在数组中的

20、位置。 要求： 请去掉程序中的注释符，把程序中的 改为正确的内容，使其实现上述 功能，但不能修改窗体文件中已经存在的控件和程序。最后把修改后的 文件按原文件名存盘。 Private Sub Command1_Click() = : = For i = 1 To 10 a(i) = Fix(Rnd * 99 + 1) For j = 1 To i - 1 If a(i) = 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 iEnd SubPrivate S

21、ub 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 IfEnd Sub16.在考生文件夹下有一个工程文件（相应的窗体文件名为 ），其功能是通过调用过程FindMax求数组的最大值，请装入该文件。程 序运行后，在四个文本框中各输入一个整数

22、，然后单击命令按钮，即可求 出数组的最大值，并在窗体上显示出来（如图所示）。这个程序不完整， 请把它补充完整，并能正确运行。 要求： 去掉程序中的注释符，把程序中的改为正确的内容，使其实现上述功 能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存 盘。 Option Base 1Private Function FindMax(a() As Integer) Dim Start As Integer Dim Finish As Integer, i As Integer Start = LBound(a) Finish = UBound(a) Max = a(Start) For

23、i = Start To Finish If a(i) Max Then Max = a(i) Next i FindMax = MaxEnd FunctionPrivate 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 最大值是: ; MEnd Sub17. 15（1）在考生文件夹下有一个工程文件，窗体上有一个单选按钮数组，含三个单

24、选按钮，均没有标题，请利用属性窗口，为单选按钮依次添加标题为“北京”、“上海”、“广州”；再添加一个标题为“显示”的命令按钮，如图所示。程序的功能是在运行时，如果选中一个单选按钮后，单击“显示”按钮，则根据单选按钮的选中情况，在窗体上显示“我的出生地是北京”、“我的出生地是上海”或“我的出生地是广州”。要求：1） 依次添加单选按钮标题为“北京”、“上海”、“广州”；设初始选中的是“广州”，添加命令按钮标题为“显示”。2） 去掉程序中的注释符，把程序中的改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的其他属性。最后把修改后的文件按原文件名存盘。 Private Su

25、b C1_Click() For i = 0 To 2 If Op1(i).value = True Then Print 我的出生地是 + Op1(i).caption End If NextEnd Sub18.在名称为Form1的窗体上画一个文本框（名称为Text1，Text属性为“国”，FontName属性为“黑体”）和一个水平滚动条（名称为HScroll1），如图1所示。在属性窗口中对滚动条设置如下属性： Min 10 Max 100 LargeChange 5 SmallChange 2 编写适当的事件过程。程序运行后，如果移动滚动条上的滚动框，则可扩大或缩小文本框中的“国”字。运行

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

27、考生文件夹下，工程文件名为，窗体文件名为。 Private Sub Clea_Click()ClsEnd SubPrivate Sub Dis_Click()Print 等级考试End Sub20. 在考生文件夹下有一个工程文件，请在窗体上画两个单选按钮（ 名称分别为Option1和Option2，标题分别为“添加项目”和“删除项目” ），一个列表框（名称为List1）和一个文本框（名称为Text1），如图1 所示。编写窗体的Click事件过程。程序运行后，如果选择“添加项目” 单选按钮，然后单击窗体，则从键盘上输入要添加的项目（内容任意，不 少于三个），并添加到列表框中；如果选择“删除项目”

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

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