vb的操作题有答案Word格式.docx

1、 上的数据，如图所示。 在窗体的代码窗口中，已给出了部分程序，这个程序 不完整，请把它补充完整，并能正确运行。 要求： 去掉程序中的注释符，把程序中的 ？ 改为正确的内容，使其实现上述功 能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。解题方法：打开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

2、 i = 1 To N For j = 1 To M Input #1, Mat（i, j） Next j Next i Close #1 Print Print 初始矩阵为： Print Tab（5 * j）; Mat（i, j）;左上 - 右下对角线上的数为： If i = j Then Print Tab（5 * j）;7.请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。 （1）在名称为Form1的窗体上画两个标签（名称分别为Label1和Label2，标题分别为“姓名”和“年龄”）、两个文本框（名称分别为Text1和Text2，Text属性均为空白）和一个

3、命令按钮（名称为Command1，标题为“显示”）。然后编写命令按钮的Click事件过程。程序运行后，在两个文本框中分别输入姓名和年龄，然后单击命令按钮，则在窗体上显示两个文本框中的内容，如图所示。要求程序中不得使用任何变量。 *注意：存盘时必须存放在考生文件夹下，工程文件名为sj39.vbp，窗体文件名为sj39.frm。Print Text1.text+”,现年”+text2.text+“岁”8.在名称为Form1的窗体上画一个图片框（名称为Picture1）、一个水平滚动条（名称为HScroll1）和一个命令按钮（名称为Command1，标题为“设置属性”），通过属性窗口在图片框中装入一

4、个图形（文件名为p02.jpg，位于考生文件夹下），图片框的高度与图形的高度相同，图片框的宽度任意（如图1所示）。编写适当的事件过程，程序运行后，如果单击命令按钮，则设置水平滚动条的如下属性： Min 100 Max 1500 LargeChange 100 SmallChange 10 之后就可以通过移动滚动条上的滚动块来放大或缩小图片框。运行后的窗体如图2所示。存盘时必须存放在考生文件夹下，工程文件名为sj40.vbp，窗体文件名为sj40.frm。 图1 图2HScroll1.Max = 1500HScroll1.Min = 100HScroll1.SmallChange = 10HSc

5、roll1.LargeChange = 100End Sub Private Sub HScroll1_Change（）Picture1.width=HScroll1.value9.在考生文件夹下有工程文件wy54.vbp及窗体文件wy54.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即 号），但不能修改其它部分。存盘时不得改变文件名和文件夹，相应的 dat文件也保存到考生文件夹下，否则没有成绩。本题描述如下：在名称为Form1的窗体上有五个Label控件和两个命令按钮，数据文件stud1.dat，存放考生的考号、姓名、成绩。1）自定义一个数据类型stu，字

6、符型数据定长为10。2）按开始按钮后，能从考生文件夹下的stud1.dat 中读出所有数据并写入考生文件夹下的stud.dat文件中；3）执行完毕，按钮变成完成，且无效（变灰）；Private Type stu num As Long nam As String * 10 score As SingleEnd typeDim rec As stumyfile1 = App.Path &student.datmyfile2 = App.Path &student1.datOpen myfile1 For Input As #1Open myfile2 For Input As #2For i =

7、 1 To 8Input #1, rec.num, rec.nam, rec.scoreWrite #2, rec.num, rec.nam, rec.scoreNext I Close Command1.Caption = Command1.Enabled = False10.在Form1的窗体上画一个标签，其名称为Lab1；再画一个列表框，其名为L1，通过属性窗口向列表框中添加若干个项目，每个项目的具体内容不限，编写适当的事件过程。程序运行后，如果双击列表框中的任意一项，则把列表中的项目数在标签中显示出来。程序的运行情况如图所示。不准使用任何变量。*注意：存盘时必须存放在考生文件夹下，工程

8、文件名为sjt14.vbp，窗体文件名为sjt14.frm。Private Sub L1_DblClick（）Lab1.Caption = L1.ListCount11.在考生文件夹下有工程文件wy55.vbp及窗体文件wy55.frm，该程序是不完整的，请在有？在名称为Form1的窗体上有五个Label控件和两个命令按钮， 数据文件worker.dat，存放工人的编号、姓名、性别和体重。1）按按钮后，能从考生文件夹下的worker.dat中读出数据并把体重大于平均体重的工人的所有数据写入考生文件夹下的worker1.dat文件中；2）执行完毕，且无效。Private Sub COMEXIT_

9、Click（）EndPrivate Sub COMSTART_Click（）Dim 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）

10、, sexstring（i）, wages（i） total = total + wages（i）Next iaver = total / 10 If averwages（i） Then Write #2, num（i）, namstring（i）, sexstring（i）, wages（i）COMSTART.Caption = “完成”COMSTART.Enabled = faultPrivate Sub Label2_Click（）12在考生文件夹中有文件wy22.vbp及其窗体文件wy22.frm，该程序是不完整的，请在有？及所有注释符（即存盘时不得改变文件夹和文件名。窗体上有一个名称

11、为Text1的文本框；两个复选框，名称分别为Ch1和Ch2，标题分别为爱心社和学通社。要求程序运行后，如果只选中Ch1，单击窗体，则在文本框中显示报名参加爱心社；如果只选中Ch2，然后单击窗体，则在文本框中显示报名参加学通社如果同时选中 Ch1 和Ch2，单击窗体，则在文本框中显示报名参加爱心社和学通社 如果Ch1和Ch2都不选取，在单击窗体后，则在文本框中什么都不显示。Option Explicit Text1.Text = If Ch1.Value = 1 Then Text1.Text = Text1.Text + If Ch2.Value Then If Text1.Text Then

12、 Text1.Text = + Then报名参加 + Text1.Text13. 请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。（1）在名称为Form1的窗体上建立一个水平滚动条，请在属性窗口中把它的名称设置为HS1，Max属性设置为100，Min属性设置为0，Value属性设置为100。程序运行后， 滚动框位于滚动条最右端（如图所示），如果单击滚动条之外的窗体部分，则滚动框跳到最左端。1）只能直接为相应的属性赋值，不得使用变量。2）保存时必须存放在考生文件夹下，窗体文件名为wy14.frm，工程文 件名为wy14.vbp 。答案：Private Sub For

13、m_click（）HScroll1.Left = 014. ）按下述要求在属性窗口中设置属性：在名称为Form1的窗体中建立一个标签，名称为L1，在标签上显示选课，其字号大小为四号；再建立三个复选框，名称分别为Chk1、Chk2和Chk3，标题分别为操作系统、数据库原理概率论，字体大小均为14，其中被禁用。保存时必须存放在考生文件夹下，窗体文件名为wy15.frm，工程文件名为wy15.vbp。Private Sub Form_Load（）Check3.Enabled = False15. 在考生文件夹下有一个工程文件sj113.vbp，其窗体上画有2个名称分别为 Text1、Text2的文本

14、框，其中Text1可多行显示。请画2个名称为Command1、 Command2，标题为产生数组的命令按钮。如图所示。程序功 能如下： 1）单击按钮，则用随机函数生成10个0100之间（不含0和 100）互不相同的数值，并将它们保存到一维数组a中，同时也将这10个 数值显示在Text1文本框内； 2）单击按钮将弹出输入对话框，接收用户输入的任意一个数，并 在一维数组a中查找该数，若查找失败，则在Text2文本框内显示该数 不存在于数组中否则给出该数在数组中的位置。 请去掉程序中的注释符，把程序中的 ？改为正确的内容，使其实现上述 功能，但不能修改窗体文件中已经存在的控件和程序。最后把修改后的

15、文件按原文件名存盘。: 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 Text1.Text = Text1.Text + Str（a（i） + Space（2）Private Sub Command2_Click（） Dim num As Integer, i As Integer num = InputBox（请输入待查找的数） If a（i） = num Then Text2.Text = Str（num） + 是

16、数组中的第 + Str（i） + 个值 If i 10 Then不存在于数组中16.在考生文件夹下有一个工程文件sj127.vbp（相应的窗体文件名为sjt4.frm ），其功能是通过调用过程FindMax求数组的最大值，请装入该文件。程 序运行后，在四个文本框中各输入一个整数，然后单击命令按钮，即可求 出数组的最大值，并在窗体上显示出来（如图所示）。这个程序不完整， 请把它补充完整，并能正确运行。 去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功最后把修改后的文件按原文件名存 盘。Private Function FindMax（a（） As Integer） Dim Star

17、t As Integer Dim Finish As Integer, i As Integer Start = LBound（a） Finish = UBound（a） Max = a（Start） For i = Start To Finish Max Then Max = a（i） FindMax = MaxEnd Function 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 ar

18、r2（i） = CInt（arr1（i） M = FindMax（arr2）最大值是:; M17. 15（1）在考生文件夹下有一个工程文件sj10.vbp，窗体上有一个单选按钮数组，含三个单选按钮，均没有标题，请利用属性窗口，为单选按钮依次添加标题为“北京”、“上海”、“广州”；再添加一个标题为“显示”的命令按钮，如图所示。程序的功能是在运行时，如果选中一个单选按钮后，单击“显示”按钮，则根据单选按钮的选中情况，在窗体上显示“我的出生地是北京”、“我的出生地是上海”或“我的出生地是广州”。要求：1） 依次添加单选按钮标题为“北京”、“上海”、“广州”；设初始选中的是“广州”，添加命令按钮标题为

19、“显示”。2） 去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的其他属性。 Private Sub C1_Click（） For i = 0 To 2 If Op1（i）.value = True Then我的出生地是 + Op1（i）.caption Next18.在名称为Form1的窗体上画一个文本框（名称为Text1，Text属性为“国”，FontName属性为“黑体”）和一个水平滚动条（名称为HScroll1），如图1所示。在属性窗口中对滚动条设置如下属性： Min 10 Max 100 LargeChange 5 Smal

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

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

22、键盘上输入要添加的项目（内容任意，不 少于三个），并添加到列表框中；如果选择“删除项目”单选按钮，然后 单击窗体，则从键盘上输入要删除的项目，将其从列表框中删除。程序的 运行情况如图2所示。 在考生文件夹下的工程文件sj43.vbp（相应的窗体文件名为sj43.frm）， 可以实现上述功能。但这个程序不完整，请把它补充完整。改为适当的内容，使其正确运行， 但不能修改程序中的其他部分。 Text1.Text = InputBox（请输入要添加的项目 List1.AddItem Text1.Text If Option2.Value = True Then请输入要删除的项目 For i = 0 T

23、o List1.ListCount - 1 If List1.List（i） = Text1.Text Then List1.RemoveItem i21. 在考生文件夹下有一个工程文件sj44.vbp（相应的窗体文件名为sj44.frm ），其功能是通过调用过程Sort将数组按降序排序，请装入该文件。程序 运行后，在四个文本框中各输入一个整数（如图1所示），然后单击命令 按钮，即可使数组按降序排序，并在文本框中显示出来（如图2所示）。 这个程序不完整，请把它补充完整，并能正确运行。 图1Private Sub Sort（a（） As Integer） Dim Start As Integer, Finish As Integer Dim i As Integer, j As Integer, t As Integer 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） = t22.其功能是产生30个0999的随机