vb的操作题有答案.docx
- 文档编号:10790765
- 上传时间:2023-02-22
- 格式:DOCX
- 页数:59
- 大小:1.38MB
vb的操作题有答案.docx
《vb的操作题有答案.docx》由会员分享,可在线阅读,更多相关《vb的操作题有答案.docx(59页珍藏版)》请在冰豆网上搜索。
vb的操作题有答案
1.
(1)在考生文件夹中有工程文件,其中的窗体如图所示。
程序刚运行时,会生成一个有10个元素的整型数组。
若选中"查找最大值"(或"查找最小值")单选按钮,再单击"查找"按钮,则找出数组中的最大值(或最小值),并显示在标签Label2中。
请去掉程序中的注释符,把程序中的改为正确的内容。
注意:
考生不得修改窗体文件中已经存在的程序。
最后把修改后的文件按原文
件名存盘。
PrivateSubCommand1_Click()
x=a
(1)
y=a
(1)
Fori=2To10
If=TrueThen
Ifa(i)>xThen
x=a(i)
EndIf
ElseIfa(i) y=a(i) EndIf Next If=TrueThen =x Else =y EndIf EndSub 2. (2)在名称为Form1的窗体上画一个名称Shape1的形状控件,在属性窗口中将其 设置为圆形。 画一个名称为List1的列表框,并在属性窗口中设置列表项的 值分别为1、2、3、4、5。 将窗体的标题设为"图形控件"。 单击列表框中 的某一项,则将所选的值作为形状控件的填充参数。 例如,选择3,则形状 控件中被竖线填充。 如图所示。 要求: 程序中不得使用变量,每个事件过程中只能写一条语句。 存盘时必须存 放在考生文件夹下,工程文件名为,窗体文件名为。 在Shape控件中,可以用FillStyle属性设置图形的填充图案,0: 透明,2: 虚线,3: 点线,4: 点划线,5: 双点划线,6: 内实线。 List控件的Click事件过程为: PrivateSubList1_Click() = EndSub 3. (1)在名称为Form1的窗体上画一个文本框,名称为Text1;再画二个命令按钮,名称分别为C1、C2,标题分别为"隐藏"、"显示"(如图所示)。 请编写适当的事件过程,使得在运行时,如果单击"隐藏"按钮,则文本框消失,而如果单击"显示"按钮,则文本框显示出来。 程序中不得使用任何变量。 *注意: 存盘时必须存放在考生文件夹下,工程文件名为,窗体文件名为。 隐藏: =false 显示: =true 4.在窗体上画二个文本框,名称分别为Text1、Text2。 请设置适当的控件属性,并编写适当的事件过程,使得在运行时,如果在Text1中每输入一个字符,则显示一个"*",同时在Text2中显示输入的内容(如图所示)。 程序中不得使用任何变量。 *注意: 存盘时必须存放在考生文件夹下,工程文件名为,窗体文件名为。 答案: 将Text1的文本框的PasswordChar属性为"*"。 PrivateSubText1_Change() = EndSub 5. (1)在考生文件夹中有工程文件及其窗体文件,该程序是不完整的,请在有号的地方填入正确内容,然后删除及所有注释符(即'号)但不能修改其他部分。 存盘时不得改变文件名和文件夹。 本题描述如下: 在窗体上有一个列表框,名称为List1,一个文本框,名称为Text1,和一个命令按钮,名称为C1,标题为"复制"。 要求程序运行后,在列表框中自动建立四个列表项,分别为"Item1"、"Item2"、"Item3"、"Item4"如果选择列表框中的一项,则单击"复制"按钮时,可以把该项复制到文本框中(如图所示)。 PrivateSubCommand1_Click() DimiAsInteger Fori=0To3 =List1 Nexti EndSub 6在考生文件夹下有一个工程文件,相应的窗体文件为,此 外还有一个名为的文本文件,其内容如下: 324376582812985731425364758697132435465768 79805937 程序运行后,单击窗体,将把文件中的数据输入到二维数组Mat 中,在窗体上按5行、5列的矩阵形式显示出来,并输出矩阵左上-右下对角线 上的数据,如图所示。 在窗体的代码窗口中,已给出了部分程序,这个程序 不完整,请把它补充完整,并能正确运行。 要求: 去掉程序中的注释符,把程序中的改为正确的内容,使其实现上述功 能,但不能修改程序中的其他部分。 最后把修改后的文件按原文件名存盘。 解题方法: 打开中的Form1窗体,打开代码窗口,修改后的代码如下: OptionBase1 PrivateSubForm_Click() ConstN=5 ConstM=5 DimMat(M,N) Dimi,j Open&"\"&""ForInputAs#1 Fori=1ToN Forj=1ToM Input#1,Mat(i,j) Nextj Nexti Close#1 Print Print"初始矩阵为: " Print Fori=1ToN Forj=1ToM PrintTab(5*j);Mat(i,j); Nextj Print Nexti Print Print"左上-右下对角线上的数为: " Fori=1ToN Forj=1ToM Ifi=jThenPrintTab(5*j);Mat(i,j); Nextj Nexti EndSub 7.请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。 (1)在名称为Form1的窗体上画两个标签(名称分别为Label1和Label2,标题分别为“姓名”和“年龄”)、两个文本框(名称分别为Text1和Text2,Text属性均为空白)和一个命令按钮(名称为Command1,标题为“显示”)。 然后编写命令按钮的Click事件过程。 程序运行后,在两个文本框中分别输入姓名和年龄,然后单击命令按钮,则在窗体上显示两个文本框中的内容,如图所示。 要求程序中不得使用任何变量。 *注意: 存盘时必须存放在考生文件夹下,工程文件名为,窗体文件名为。 PrivateSubCommand1_Click() Print+”,现年”++“岁” EndSub 8.在名称为Form1的窗体上画一个图片框(名称为Picture1)、一个水平滚动条(名称为HScroll1)和一个命令按钮(名称为Command1,标题为“设置属性”),通过属性窗口在图片框中装入一个图形(文件名为,位于考生文件夹下),图片框的高度与图形的高度相同,图片框的宽度任意(如图1所示)。 编写适当的事件过程,程序运行后,如果单击命令按钮,则设置水平滚动条的如下属性: Min100 Max1500 LargeChange100 SmallChange10 之后就可以通过移动滚动条上的滚动块来放大或缩小图片框。 运行后的窗体如图2所示。 要求程序中不得使用任何变量。 *注意: 存盘时必须存放在考生文件夹下,工程文件名为,窗体文件名为。 图1图2 PrivateSubCommand1_Click() =1500 =100 =10 =100 EndSub PrivateSubHScroll1_Change() = EndSub 9.在考生文件夹下有工程文件及窗体文件,该程序是不完整的,请在有号的地方填入正确内容,然后删除及所有注释符(即'号),但不能修改其它部分。 存盘时不得改变文件名和文件夹,相应的dat文件也保存到考生文件夹下,否则没有成绩。 本题描述如下: 在名称为Form1的窗体上有五个Label控件和两个命令按钮,数据文件,存放考生的考号、姓名、成绩。 1)自定义一个数据类型stu,字符型数据定长为10。 2)按"开始"按钮后,能从考生文件夹下的中读出所有数据并写入考生文件夹下的文件中; 3)执行完毕,"开始"按钮变成"完成",且无效(变灰); PrivateTypestu numAsLong 'namAsString*10 scoreAsSingle 'Endtype PrivateSubCommand1_Click() DimrecAsstu DimiAsInteger myfile1=&"\"&"" myfile2=&"\"&"" Openmyfile1ForInputAs#1 Openmyfile2ForInputAs#2 Fori=1To8 Input#1,,, Write#2,,, NextI Close ="完成" =False EndSub 10.在Form1的窗体上画一个标签,其名称为Lab1;再画一个列表框,其名为L1,通过属性窗口向列表框中添加若干个项目,每个项目的具体内容不限,编写适当的事件过程。 程序运行后,如果双击列表框中的任意一项,则把列表中的项目数在标签中显示出来。 程序的运行情况如图所示。 不准使用任何变量。 *注意: 存盘时必须存放在考生文件夹下,工程文件名为,窗体文件名为。 PrivateSubL1_DblClick() = EndSub 11.在考生文件夹下有工程文件及窗体文件,该程序是不完整的,请在有号的地方填入正确内容,然后删除及所有注释符(即'号),但不能修改其它部分。 存盘时不得改变文件名和文件夹,相应的dat文件也保存到考生文件夹下,否则没有成绩。 本题描述如下: 在名称为Form1的窗体上有五个Label控件和两个命令按钮,数据文件,存放工人的编号、姓名、性别和体重。 1)按"开始"按钮后,能从考生文件夹下的中读出数据并把体重大于平均体重的工人的所有数据写入考生文件夹下的文件中; 2)执行完毕,"开始"按钮变成"完成",且无效。 PrivateSubCOMEXIT_Click() End EndSub PrivateSubCOMSTART_Click() DimiAsInteger DimtotalAsInteger DimaverAsSingle Dimnum(10),namstring(10),sexstring(10),wages(10) 'MyFile1=&"\"&“” 'MyFile2=&"\"&“” OpenMyFile1ForInputAs#1 OpenMyFile2ForOutputAs#2 Fori=1To10 'Input#1,num(i),namstring(i),sexstring(i),wages(i) total=total+wages(i) Nexti 'aver=total/10 Fori=1To10 'Ifaver Nexti '=“完成” '=fault EndSub PrivateSubLabel2_Click() EndSub 12.在考生文件夹中有文件及其窗体文件,该程序是不完整的,请在有号的地方填入正确内容,然后删除及所有注释符(即'号),但不能修改其它部分。 存盘时不得改变文件夹和文件名。 本题描述如下: 窗体上有一个名称为Text1的文本框;两个复选框,名称分别为Ch1和Ch2,标题分别为"爱心社"和"学通社"。 要求程序运行后,如果只选中Ch1,单击窗体,则在文本框中显示"报名参加爱心社";如果只选中Ch2,然后单击窗体,则在文本框中显示"报名参加学通社";如果同时选中Ch1和Ch2,单击窗体,则在文本框中显示"报名参加爱心社和学通社";如果Ch1和Ch2都不选取,在单击窗体后,则在文本框中什么都不显示。 OptionExplicit PrivateSubForm_Click() ="" If=1Then =+"爱心社" EndIf IfThen If<>""Then="爱心社"+"和" =+"学通社" EndIf If<>""Then ="报名参加"+ EndIf EndSub 13.请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。 (1)在名称为Form1的窗体上建立一个水平滚动条,请在属性窗口中把它的名称设置为HS1,Max属性设置为100,Min属性设置为0,Value属性设置为100。 程序运行后,滚动框位于滚动条最右端(如图所示),如果单击滚动条之外的窗体部分,则滚动框跳到最左端。 *注意: 1)只能直接为相应的属性赋值,不得使用变量。 2)保存时必须存放在考生文件夹下,窗体文件名为,工程文件名为。 答案: PrivateSubForm_click() =0 EndSub 14.)按下述要求在属性窗口中设置属性: 在名称为Form1的窗体中建立一个标签,名称为L1,在标签上显示"选课",其字号大小为四号;再建立三个复选框,名称分别为Chk1、Chk2和Chk3,标题分别为"操作系统"、"数据库原理"、"概率论",字体大小均为14,其中"概率论"被禁用。 *注意: 保存时必须存放在考生文件夹下,窗体文件名为,工程文件名为。 答案: PrivateSubForm_Load() =False EndSub 15.在考生文件夹下有一个工程文件,其窗体上画有2个名称分别为 Text1、Text2的文本框,其中Text1可多行显示。 请画2个名称为Command1、 Command2,标题为"产生数组"、"查找"的命令按钮。 如图所示。 程序功 能如下: 1)单击"产生数组"按钮,则用随机函数生成10个0~100之间(不含0和 100)互不相同的数值,并将它们保存到一维数组a中,同时也将这10个 数值显示在Text1文本框内; 2)单击"查找"按钮将弹出输入对话框,接收用户输入的任意一个数,并 在一维数组a中查找该数,若查找失败,则在Text2文本框内显示该数" 不存在于数组中";否则给出该数在数组中的位置。 要求: 请去掉程序中的注释符,把程序中的改为正确的内容,使其实现上述 功能,但不能修改窗体文件中已经存在的控件和程序。 最后把修改后的 文件按原文件名存盘。 PrivateSubCommand1_Click() ="": ="" Fori=1To10 a(i)=Fix(Rnd*99+1) Forj=1Toi-1 Ifa(i)=a(j)Then i=i-1 ExitFor EndIf Nextj Nexti Fori=1To10 =+Str(a(i))+Space (2) Nexti EndSub PrivateSubCommand2_Click() DimnumAsInteger,iAsInteger num=InputBox("请输入待查找的数") Fori=1To10 Ifa(i)=numThen =Str(num)+"是数组中的第"+Str(i)+"个值" ExitFor EndIf Nexti Ifi>10Then =Str(num)+"不存在于数组中" EndIf EndSub 16.在考生文件夹下有一个工程文件(相应的窗体文件名为 ),其功能是通过调用过程FindMax求数组的最大值,请装入该文件。 程 序运行后,在四个文本框中各输入一个整数,然后单击命令按钮,即可求 出数组的最大值,并在窗体上显示出来(如图所示)。 这个程序不完整, 请把它补充完整,并能正确运行。 要求: 去掉程序中的注释符,把程序中的改为正确的内容,使其实现上述功 能,但不能修改程序中的其他部分。 最后把修改后的文件按原文件名存 盘。 OptionBase1 PrivateFunctionFindMax(a()AsInteger) DimStartAsInteger DimFinishAsInteger,iAsInteger Start=LBound(a) Finish=UBound(a) Max=a(Start) Fori=StartToFinish Ifa(i)>MaxThenMax=a(i) Nexti FindMax=Max EndFunction PrivateSubCommand1_Click() Dimarr1 Dimarr2(4)AsInteger arr1=Array(Val,Val,Val,Val) Fori=1To4 arr2(i)=CInt(arr1(i)) Nexti M=FindMax(arr2) Print"最大值是: ";M EndSub 17.15 (1)在考生文件夹下有一个工程文件,窗体上有一个单选按钮数组,含三个单选按钮,均没有标题,请利用属性窗口,为单选按钮依次添加标题为“北京”、“上海”、“广州”;再添加一个标题为“显示”的命令按钮,如图所示。 程序的功能是在运行时,如果选中一个单选按钮后,单击“显示”按钮,则根据单选按钮的选中情况,在窗体上显示“我的出生地是北京”、“我的出生地是上海”或“我的出生地是广州”。 要求: 1)依次添加单选按钮标题为“北京”、“上海”、“广州”;设初始选中的是“广州”,添加命令按钮标题为“显示”。 2)去掉程序中的注释符,把程序中的改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分,也不能修改控件的其他属性。 最后把修改后的文件按原文件名存盘。 PrivateSubC1_Click() Fori=0To2 IfOp1(i).value=TrueThen Print"我的出生地是"+Op1(i).caption EndIf Next EndSub 18.在名称为Form1的窗体上画一个文本框(名称为Text1,Text属性为“国”,FontName属性为“黑体”)和一个水平滚动条(名称为HScroll1),如图1所示。 在属性窗口中对滚动条设置如下属性: Min10 Max100 LargeChange5 SmallChange2 编写适当的事件过程。 程序运行后,如果移动滚动条上的滚动框,则可扩大或缩小文本框中的“国”字。 运行后的窗体如图2所示。 要求程序中得使用任何变量。 *注意存盘时必须存放在考生文件夹下,工程文件名为,窗体文件名为。 解析 PrivateSubHScroll1_Change() = endSub 19.请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。 (1)在Form1的窗体上建立一个主菜单,标题为"操作",名称为Op,该菜单有两个子菜单,其标题分别为"显示"和"清除",其名称分别为Dis和Clea,编写适当的事件过程。 程序运行后,如果单击"操作"菜单中的"显示"命令,则在窗体上显示"等级考试";如果单击"清除"命令,则清除窗体上显示的内容。 程序的运行情况如图所示。 *注意: 存盘时必须存放在考生文件夹下,工程文件名为,窗体文件名为。 PrivateSubClea_Click() Cls EndSub PrivateSubDis_Click() Print"等级考试" EndSub 20.在考生文件夹下有一个工程文件,请在窗体上画两个单选按钮( 名称分别为Option1和Option2,标题分别为“添加项目”和“删除项目” ),一个列表框(名称为List1)和一个文本框(名称为Text1),如图1 所示。 编写窗体的Click事件过程。 程序运行后,如果选择“添加项目” 单选按钮,然后单击窗体,则从键盘上输入要添加的项目(内容任意,不 少于三个),并添加到列表框中;如果选择“删除项目”单选按钮,然后 单击窗体,则从键盘上输入要删除的项目,将其从列表框中删除。 程序的 运行情况如图2所示。 在考生文件夹下的工程文件(相应的窗体文件名为), 可以实现上述功能。 但这个程序不完整,请把它补充完整。 要求: 去掉程序中的注释符,把程序中的改为适当的内容,使其正确运行, 但不能修改程序中的其他部分。 最后把修改后的文件按原文件名存盘。 图1图2 PrivateSubForm_Click() If=TrueThen =InputBox("请输入要添加的项目") EndIf If=TrueThen =InputBox("请输入要删除的项目") Fori=0To-1 If(i)=Then i EndIf Nexti EndIf EndSub 21.在考生文件夹下有一个工程文件(相应的窗体文件名为 ),其功能是通过调用过程Sort将数组按降序排序,请装入该文件。 程序 运行后,在四个文本框中各输入一个整数(如图1所示),然后单击命令 按钮,即可使数组按降序排序,并在文本框中显示出来(如图2所示)。 这个程序不完整,请把它补充完整,并能正确运行。 要求: 去掉程序中的注释符,把程序中的改为正确的内容,使其实现上述功 能,但不能修改程序中的其他部分。 最后把修改后的文件按原文件名存 盘。 图1 PrivateSubSort(a()AsInteger) DimStartAsInteger,FinishAsInteger DimiAsInteger,jAsInteger,tAsInteger Start=LBound(a) Finish=UBound(a) Fori=FinishTo2Step-1 Forj=1ToFinish-1 Ifa(j) t=a(j+1) a(j+1)=a(j) a(j)=t EndIf Nextj Nexti EndSub 22.其功能是产
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 操作 答案