vb的操作题(有答案)(83页).doc

1.（1）在考生文件夹中有工程文件sj126.vbp，其中的窗体如图所示。程序刚运行时，会生成一个有10个元素的整型数组。若选中"查找最大值"（或"查找最小值"）单选按钮，再单击"查找"按钮，则找出数组中的最大值（或最小值），并显示在标签Label2中。请去掉程序中的注释符，把程序中的 ？改为正确的内容。 注意： 考生不得修改窗体文件中已经存在的程序。最后把修改后的文件按原文 件名存盘。 Private Sub Command1_Click() x = a(1) y = a(1) For i = 2 To 10 If Option1.Value = True Then If a(i) > x Then x = a(i) End If ElseIf a(i) < y Then y = a(i) End If Next If Option1.Value = True Then Label2.Caption = x Else Label2.Caption = y End IfEnd Sub2.（2）在名称为Form1的窗体上画一个名称Shape1的形状控件，在属性窗口中将其 设置为圆形。画一个名称为List1的列表框，并在属性窗口中设置列表项的 值分别为1、2、3、4、5。将窗体的标题设为"图形控件"。单击列表框中 的某一项，则将所选的值作为形状控件的填充参数。例如，选择3，则形状 控件中被竖线填充。如图所示。 要求： 程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存 放在考生文件夹下，工程文件名为sj107.vbp，窗体文件名为sj107.frm。 在Shape控件中，可以用FillStyle属性设置图形的填充图案，0：透明，2：虚线，3：点线，4：点划线，5：双点划线，6：内实线。List控件的Click事件过程为：Private Sub List1_Click()Shape1.FillStyle = List1.TextEnd Sub3.（1）在名称为Form1的窗体上画一个文本框，名称为Text1；再画二个命令按钮，名称分别为C1、C2，标题分别为"隐藏"、"显示"（如图所示）。请编写适当的事件过程，使得在运行时，如果单击"隐藏"按钮，则文本框消失，而如果单击"显示"按钮，则文本框显示出来。程序中不得使用任何变量。*注意：存盘时必须存放在考生文件夹下，工程文件名为sjt3.vbp，窗体文件名为sjt3.frm。 隐藏：text1.visible=false显示：text1.visible=true4. 在窗体上画二个文本框，名称分别为Text1、Text2。请设置适当的控件属性，并编写适当的事件过程，使得在运行时，如果在Text1中每输入一个字符，则显示一个"*"，同时在Text2中显示输入的内容（如图所示）。程序中不得使用任何变量。*注意：存盘时必须存放在考生文件夹下，工程文件名为sjt4.vbp，窗体文件名为sjt4.frm。 答案：将Text1的文本框的PasswordChar属性为"*"。Private Sub Text1_Change()Text2.Text = Text1.TextEnd Sub5. （1）在考生文件夹中有工程文件wy69.vbp及其窗体文件wy69.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号）但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下：在窗体上有一个列表框，名称为List1，一个文本框，名称为Text1，和一个命令按钮，名称为 C1，标题为"复制"。要求程序运行后，在列表框中自动建立四个列表项，分别为"Item1"、"Item2"、"Item3"、"Item4"如果选择列表框中的一项，则单击"复制"按钮时，可以把该项复制到文本框中（如图所示）。 Private Sub Command1_Click()Dim i As IntegerFor i = 0 To 3 Text1.Text = List1Next iEnd Sub6 在考生文件夹下有一个工程文件sj31.vbp，相应的窗体文件为sj31.frm，此 外还有一个名为datain.txt的文本文件，其内容如下： 32 43 76 58 28 12 98 57 31 42 53 64 75 86 97 13 24 35 46 57 68 79 80 59 37 程序运行后，单击窗体，将把文件datain.txt中的数据输入到二维数组 Mat 中，在窗体上按5行、5列的矩阵形式显示出来，并输出矩阵左上-右下对角线 上的数据，如图所示。 在窗体的代码窗口中，已给出了部分程序，这个程序 不完整，请把它补充完整，并能正确运行。 要求： 去掉程序中的注释符，把程序中的 ？ 改为正确的内容，使其实现上述功 能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 解题方法：打开sjt5.vbp中的Form1窗体，打开代码窗口，修改后的代码如下：Option Base 1Private Sub Form_Click() Const N = 5 Const M = 5 Dim Mat(M, N) Dim i, j Open App.Path & "" & "datain.txt" 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, j); Next j Next iEnd Sub7.请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。 （1）在名称为Form1的窗体上画两个标签（名称分别为Label1和Label2，标题分别为“姓名”和“年龄”）、两个文本框（名称分别为Text1和Text2，Text属性均为空白）和一个命令按钮（名称为Command1，标题为“显示”）。然后编写命令按钮的Click事件过程。程序运行后，在两个文本框中分别输入姓名和年龄，然后单击命令按钮，则在窗体上显示两个文本框中的内容，如图所示。要求程序中不得使用任何变量。 *注意：存盘时必须存放在考生文件夹下，工程文件名为sj39.vbp，窗体文件名为sj39.frm。 Private Sub Command1_Click()Print Text1.text+”,现年”+text2.text+“岁”End Sub8.在名称为Form1的窗体上画一个图片框（名称为Picture1）、一个水平滚动条（名称为HScroll1）和一个命令按钮（名称为Command1，标题为“设置属性”），通过属性窗口在图片框中装入一个图形（文件名为p02.jpg，位于考生文件夹下），图片框的高度与图形的高度相同，图片框的宽度任意（如图1所示）。编写适当的事件过程，程序运行后，如果单击命令按钮，则设置水平滚动条的如下属性： Min 100 Max 1500 LargeChange 100 SmallChange 10 之后就可以通过移动滚动条上的滚动块来放大或缩小图片框。运行后的窗体如图2所示。要求程序中不得使用任何变量。 *注意：存盘时必须存放在考生文件夹下，工程文件名为sj40.vbp，窗体文件名为sj40.frm。 图1 图2Private Sub Command1_Click()HScroll1.Max = 1500HScroll1.Min = 100HScroll1.SmallChange = 10HScroll1.LargeChange = 100End Sub Private Sub HScroll1_Change()Picture1.width=HScroll1.valueEnd Sub9.在考生文件夹下有工程文件wy54.vbp及窗体文件wy54.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即 '号），但不能修改其它部分。存盘时不得改变文件名和文件夹，相应的 dat文件也保存到考生文件夹下，否则没有成绩。本题描述如下：在名称为Form1的窗体上有五个Label控件和两个命令按钮，数据文件stud1.dat，存放考生的考号、姓名、成绩。1）自定义一个数据类型stu，字符型数据定长为10。2）按"开始"按钮后，能从考生文件夹下的stud1.dat 中读出所有数据并写入考生文件夹下的stud.dat文件中；3）执行完毕，"开始"按钮变成"完成"，且无效（变灰）； Private Type stu num As Long' nam As String * 10 score As Single'End typePrivate Sub Command1_Click()Dim rec As stuDim i As Integermyfile1 = App.Path & "" & "student.dat"myfile2 = App.Path & "" & "student1.dat"Open myfile1 For Input As #1Open myfile2 For Input As #2For i = 1 To 8Input #1, rec.num, rec.nam, rec.scoreWrite #2, rec.num, rec.nam, rec.scoreNext I Close Command1.Caption = "完成"Command1.Enabled = FalseEnd Sub10.在Form1的窗体上画一个标签，其名称为Lab1；再画一个列表框，其名为L1，通过属性窗口向列表框中添加若干个项目，每个项目的具体内容不限，编写适当的事件过程。程序运行后，如果双击列表框中的任意一项，则把列表中的项目数在标签中显示出来。程序的运行情况如图所示。不准使用任何变量。*注意：存盘时必须存放在考生文件夹下，工程文件名为sjt14.vbp，窗体文件名为sjt14.frm。 Private Sub L1_DblClick()Lab1.Caption = L1.ListCountEnd Sub11.在考生文件夹下有工程文件wy55.vbp及窗体文件wy55.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即 '号），但不能修改其它部分。存盘时不得改变文件名和文件夹，相应的 dat文件也保存到考生文件夹下，否则没有成绩。本题描述如下：在名称为Form1的窗体上有五个Label控件和两个命令按钮， 数据文件worker.dat，存放工人的编号、姓名、性别和体重。1）按"开始"按钮后，能从考生文件夹下的worker.dat中读出数据并把体重大于平均体重的工人的所有数据写入考生文件夹下的worker1.dat文件中；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 = App.Path & "" & “worker.dat”' MyFile2 = App.Path & "" & “worker1.dat”Open MyFile1 For Input 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 i'aver = total / 10For i = 1 To 10' If aver<wages(i) Then Write #2, num(i), namstring(i), sexstring(i), wages(i)Next i'COMSTART.Caption = “完成”'COMSTART.Enabled = faultEnd SubPrivate Sub Label2_Click()End Sub12在考生文件夹中有文件wy22.vbp及其窗体文件wy22.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号），但不能修改其它部分。存盘时不得改变文件夹和文件名。本题描述如下：窗体上有一个名称为Text1的文本框；两个复选框，名称分别为Ch1和Ch2，标题分别为"爱心社"和"学通社"。要求程序运行后，如果只选中Ch1，单击窗体，则在文本框中显示"报名参加爱心社"；如果只选中Ch2，然后单击窗体，则在文本框中显示"报名参加学通社"；如果同时选中 Ch1 和Ch2，单击窗体，则在文本框中显示"报名参加爱心社和学通社"； 如果Ch1和Ch2都不选取，在单击窗体后，则在文本框中什么都不显示。 Option ExplicitPrivate Sub Form_Click() Text1.Text = "" If Ch1.Value = 1 Then Text1.Text = Text1.Text + "爱心社" End If If Ch2.Value Then If Text1.Text <> "" Then Text1.Text = "爱心社" + "和" Text1.Text = Text1.Text + "学通社" End If If Text1.Text <> "" Then Text1.Text = "报名参加" + Text1.Text End IfEnd Sub13. 请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。（1）在名称为Form1的窗体上建立一个水平滚动条，请在属性窗口中把它的名称设置为HS1，Max属性设置为100，Min属性设置为0，Value属性设置为100。程序运行后， 滚动框位于滚动条最右端（如图所示），如果单击滚动条之外的窗体部分，则滚动框跳到最左端。*注意：1）只能直接为相应的属性赋值，不得使用变量。2）保存时必须存放在考生文件夹下，窗体文件名为wy14.frm，工程文 件名为wy14.vbp 。 答案：Private Sub Form_click()HScroll1.Left = 0End Sub14. ）按下述要求在属性窗口中设置属性：在名称为Form1的窗体中建立一个标签，名称为L1，在标签上显示"选课"，其字号大小为四号；再建立三个复选框，名称分别为Chk1、Chk2和Chk3，标题分别为"操作系统"、"数据库原理"、"概率论"，字体大小均为14，其中"概率论"被禁用。*注意：保存时必须存放在考生文件夹下，窗体文件名为wy15.frm，工程文件名为wy15.vbp。 答案：Private Sub Form_Load()Check3.Enabled = FalseEnd Sub15. 在考生文件夹下有一个工程文件sj113.vbp，其窗体上画有2个名称分别为 Text1、Text2的文本框，其中Text1可多行显示。请画2个名称为Command1、 Command2，标题为"产生数组"、"查找"的命令按钮。如图所示。程序功 能如下： 1）单击"产生数组"按钮，则用随机函数生成10个0100之间（不含0和 100）互不相同的数值，并将它们保存到一维数组a中，同时也将这10个 数值显示在Text1文本框内； 2）单击"查找"按钮将弹出输入对话框，接收用户输入的任意一个数，并 在一维数组a中查找该数，若查找失败，则在Text2文本框内显示该数" 不存在于数组中"；否则给出该数在数组中的位置。 要求： 请去掉程序中的注释符，把程序中的 ？改为正确的内容，使其实现上述 功能，但不能修改窗体文件中已经存在的控件和程序。最后把修改后的 文件按原文件名存盘。 Private Sub Command1_Click() Text1.Text = "": Text2.Text = "" 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 Text1.Text = Text1.Text + Str(a(i) + Space(2) Next iEnd SubPrivate Sub Command2_Click() Dim num As Integer, i As Integer num = InputBox("请输入待查找的数") For i = 1 To 10 If a(i) = num Then Text2.Text = Str(num) + "是数组中的第" + Str(i) + "个值" Exit For End If Next i If i > 10 Then Text2.Text = Str(num) + "不存在于数组中" End IfEnd Sub16.在考生文件夹下有一个工程文件sj127.vbp（相应的窗体文件名为sjt4.frm ），其功能是通过调用过程FindMax求数组的最大值，请装入该文件。程 序运行后，在四个文本框中各输入一个整数，然后单击命令按钮，即可求 出数组的最大值，并在窗体上显示出来（如图所示）。这个程序不完整， 请把它补充完整，并能正确运行。 要求： 去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功 能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存 盘。 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 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(Text1.Text), Val(Text2.Text), Val(Text3.Text), Val(Text4.Text) For i = 1 To 4 arr2(i) = CInt(arr1(i) Next i M = FindMax(arr2) Print "最大值是: " MEnd Sub17. 15（1）在考生文件夹下有一个工程文件sj10.vbp，窗体上有一个单选按钮数组，含三个单选按钮，均没有标题，请利用属性窗口，为单选按钮依次添加标题为“北京”、“上海”、“广州”；再添加一个标题为“显示”的命令按钮，如图所示。程序的功能是在运行时，如果选中一个单选按钮后，单击“显示”按钮，则根据单选按钮的选中情况，在窗体上显示“我的出生地是北京”、“我的出生地是上海”或“我的出生地是广州”。要求：1） 依次添加单选按钮标题为“北京”、“上海”、“广州”；设初始选中的是“广州”，添加命令按钮标题为“显示”。2） 去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的其他属性。最后把修改后的文件按原文件名存盘。 Private Sub 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 编写适当的事件过程。程序运行后，如果移动滚动条上的滚动框，则可扩大或缩小文本框中的“国”字。运行后的窗体如图2所示。要求程序中得使用任何变量。 *注意存盘时必须存放在考生文件夹下，工程文件名为sj20.vbp，窗体文件名为sj20.frm。 解析 Private Sub HScroll1_Change()Text1.fontsize=hscroll1.valueend Sub 19. 请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。（1）在Form1的窗体上建立一个主菜单，标题为"操作"，名称为Op，该菜单有两个子菜单，其标题分别为"显示"和"清除"，其名称分别为 Dis和Clea，编写适当的事件过程。程序运行后，如果单击"操作"菜单中的"显示"命令，则在窗体上显示"等级考试"；如果单击"清除"命令，则清除窗体上显示的内容。程序的运行情况如图所示。*注意：存盘时必须存放在考生文件夹下，工程文件名为sjt13.vbp，窗体文件名为sjt13.frm。 Private Sub Clea_Click()ClsEnd SubPrivate Sub Dis_Click()Print "等级考试"End Sub20. 在考生文件夹下有一个工程文件sj43.vbp，请在窗体上画两个单选按钮（ 名称分别为Option1和Option2，标题分别为“添加项目”和“删除项目” ），一个列表框（名称为List1）和一个文本框（名称为Text1），如图1 所示。编写窗体的Click事件过程。程序运行后，如果选择“添加项目” 单选按钮，然后单击窗体，则从键盘上输入要添加的项目（内容任意，不 少于三个），并添加到列表框中；如果选择“删除项目”单选按钮，然后 单击窗体，则从键盘上输入要删除的项目，将其从列表框中删除。程序的 运行情况如图2所示。 在考生文件夹下的工程文件sj43.vbp（相应的窗体文件名为sj43.frm）， 可以实现上述功能。但这个程序不完整，请把它补充完整。 要求： 去掉程序中的注释符，把程序中的？改为适当的内容，使其正确运行， 但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 图1 图2Private Sub Form_Click() If Option1.Value = True Then Text1.Text = InputBox("请输入要添加的项目") List1.AddItem Text1.Text End If If Option2.Value = True Then Text1.Text = InputBox("请输入要删除的项目") For i = 0 To List1.ListCount - 1 If List1.List(i) = Text1.Text Then List1.RemoveItem i End If Next i End IfEnd Sub21. 在考生文件夹下有一个工程文件sj44.vbp（相应的窗体文件名为sj44.frm ），其功能是通过调用过程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.其功能是产生30个0999的随机整数，放入一个数组中，然后输出其中 的最小值。程序运行后，单击命令按钮（名称为Command1，标题为"输 出最小值"），即可求出其最小值，并在窗体上显示出来（如图所示）。 这个程序不完整，请把它补充完整，并能正确运行。 要求： 去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功 能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存 盘。 Private Sub Command1_Click() Dim arrN(30) As Integer Dim Min As Integer Randomize For i = 1 To 30 arrN(i) = Int(Rnd * 1000) Next i Min = arrN(1) For i = 2 To 30 If Min > arrN(i) Then Min = arrN(i) End If Next i Print MinEnd Sub23. 在名称为Form1的窗体上画一个标签（名称为Label1，标题为“输入信息 ”）、一个文本框（名称为Text1，Text属性为空白）和一个命令按钮（ 名称为Command1，标题为“显示”），如图1所示。然后编写命令按钮的 Click事件过程。程序运行后，在文本框中输入“计算机等级考试”，然 后单击命令按钮，则标签和文本框消失，并在窗体上显示文本框中的内容。 运行后的窗体如图2所示。要求程序中不得使用任何变量。 *注意： 存盘时必须存放在考生文件夹下，工程文件名为sj19.vbp，窗体文件 名为sj19.frm。 Private Sub Command1_Click()Label1.Visible = FalseText1.Visible = FalsePrint Text1.TextEnd Sub24. 在名称为Form1的窗体上画一个文本框，其名称为Text1，然后通过属性窗 口设置窗体和文本框的属性，实现如下功能： 1）在文本框中可以显示多行文本 2）在文本框中显示垂直滚动条 3）文本框中显示的初始信息为“程序设计” 4）文本框中显示的字体为三号规则黑体 5）窗体的标题为“设置文本框属性” 完成设置后的窗体如图所示。 要求： 不编写任何代码。 *注意： 存盘时必须存放在考生文件夹下，工程文件名为sj29.vbp，窗体文件 名为sj29.frm。 新建一个工程，在窗体上添加一个文本框Text1，并将其MultiLine属性设置为True，ScrollBars属性设置为2-Vertical，Text属性设置为“程序设计”，FontName设置为“黑体”，FontSize设置为“三号”。再选中窗体，设置其Caption属性为“设置文本框属性”。最后按照题目要求保存文件即可。25. 在名称为Form1的窗体上画两个命令按钮（见图1），其名称分别为Cmd1 和Cmd2，编写适当的事件过程。程序运行后，如果单击命令按钮Cmd1，则 可使该按钮移到窗体的左上角（只允许通过修改属性的方式实现）；如果 单击命令按钮Cmd2，则可使该按钮在长度和宽度上各扩大到原来的2倍。 程序的运行情况如图2所示。 要求： 不得使用任何变量。 *注意： 存盘时必须存放在考生文件夹下，工程文件名为sj30.vbp，窗体文件 名为sj30.frm。 Private Sub Cmd1_Click()Cmd1.Left = 0Cmd1.Top = 0End SubPrivate Sub Cmd2_Click()Cmd2.Height = Cmd2.Height * 2Cmd2.Width = Cmd2.Width * 2End Sub26. 在Form1的窗体上画一个