首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在学生文件夹下有一个工程文件sjl3.vbp(相应的窗体文件名为sjt3.frm),在窗体上添加一个名称为List1的列表框和一个名称为Text1的文本框,如图1所示。编写窗体的MouseDown事件过程。程序运行后,如果用鼠标单击窗体,则从键盘上输
(1)在学生文件夹下有一个工程文件sjl3.vbp(相应的窗体文件名为sjt3.frm),在窗体上添加一个名称为List1的列表框和一个名称为Text1的文本框,如图1所示。编写窗体的MouseDown事件过程。程序运行后,如果用鼠标单击窗体,则从键盘上输
admin
2018-06-29
67
问题
(1)在学生文件夹下有一个工程文件sjl3.vbp(相应的窗体文件名为sjt3.frm),在窗体上添加一个名称为List1的列表框和一个名称为Text1的文本框,如图1所示。编写窗体的MouseDown事件过程。程序运行后,如果用鼠标单击窗体,则从键盘上输入要添加到列表框中的项目(内容任意,不少于三个);如果用鼠标右键单击窗体,则从键盘上输入要删除的项目,将其从列表框中删除。程序的运行情况如图2所示。这个程序不完整,请把它补充完整,并能正确运行。
要求:去掉程序中的注释符,把程序中的?改为适当的内容,使其正确运行,但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4.vbp(相应的窗体文件名为sjt4.frm),其功能是通过调用过程FindMin求数组的最小值。程序运行后,在4个文本框中各输入一个整数,然后单击命令按钮,即可求出数组的最小值,并住窗体上显示出来(如图所示)。
要求:去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,们不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
选项
答案
(1)步骤1:打开本题工程文件,按表3.18所列在窗体画出控件并设置其属性。 [*] 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。 参考答案 Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Sinqle) If Button=1 Then Text1.Text=InputBox("请输入要添加的项目") List1.AddItem Text1.Text’将 Text1中的内容加入列表 End If If Button=2 Then Text1.Text=InputBox("请输入要删除的项目") ’列表总数用ListCount求得 For i =0 To List1.ListCount-1 ’判断列表项是否为要删除的项 If List1.List(i) = Text1.Text Then ’删除i所对应的项 List1.Removeltem i EndIf Next i EndIf End Sub 程序结束 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 (2)步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。 参考答案 Option Base 1 Private Function FindMin(a()As Integer) Dim Start As Integer Dim Finish As Integer,i As Integer Start=LBound(a)’求数组下界值 Fini sh=UBound(a)’求数组上界值 Min=a(Start)’将第一个数赋给最小值进行比较 For i=Start To Finish’循环判断找最小值 If a(i)
解析
(1)当在窗体上按下鼠标键时将触发其MouseDown事件,该事件过程的参数Button值为1时表示当前按下的是鼠标左键;当Button值为2时表示当前按下的是鼠标右键。向列表框添加项目使用Addhem方法,删除列表项使用RemoveItem方法。当执行删除操作时,本题在For循环语句中逐一判断列表中各项是否与输入内容一致,若一致则删除列表框中该项。
程序中用到了InputBox()函数,其格式为:
InputBox(prompt[,title][,default][,xpos][,ypos][,helpfile,context])
其中常用参数为prompt和title。prompt是一个字符串,其长度不得超过1024个字符,它是在对话框内显示的信息,用来提示用户输入。
title:是一个字符串,它是对话框的标题,显示在对话框顶部的标题区。
(2)文本框里的内容(包括数字)默认都是当做字符串来处理的,如果需要参与数据运算,则需先用Val()函数将其转化为数字(例如Val(Text1.Text))。CInt函数将数值转换为整型。
这里需要指出的是,利用Array对数组各元素赋值,声明数组的类型只能是Variant。
在本题的FindMin过程中,用变量Min记录最小值,最初把数组的第一个元素的值赋给Min,然后通过For循环语句将其后的元素依次与之比较,如果小于Min的值则与之交换,依次类推,最终Min的值就是数组各元素中的最小值。
在窗体上打印信息可以通过Print方法来实现,其形式为:
[对象.]Print要显示的内容
转载请注明原文地址:https://kaotiyun.com/show/sOGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在名称为Framel的框架中,有两个名称分别为opl、op2的单选按钮,标题分别为“单程”、“往返”,如图所示。
在考生文件夹下有一个工程文件sjt5.vbp,界面如图所示,其功能如下:①单击“读数据”按钮,则把考生文件夹下文件in5.dat中的12组整数(其中每组含有10个数,共计120个整数)读到数组a中;②单击“计算”按钮,则对每组数求平均
一棵二叉树共有25个结点,其中5个是叶子结点,则度为1的结点数为()。
窗体上有一个名称为HScrolll的滚动条,程序运行后,当单击滚动条两端的箭头时,立即在窗体上显示滚动框的位置(即刻度值)。下面能够实现上述操作的事件过程是()。
设窗体上有一个文本框Textl和一个命令按钮Commandl,并有以下事件过程:PrivateSubCommandl_Click()DimSAsString,chAsStringS=“”
执行语句DimX,YAsInteger后,()。
下列叙述中正确的是()。
产生100以内(不含100)2位随机整数的VisualBasic表达式是
在数据库系统中,数据模型包括概念模型、逻辑模型和
随机试题
下列对阿司匹林水杨酸反应的叙述,错误的是
出票人签发支付密码错误的支票,开户银行将处以按票面金额的5%但不低于()罚款。
( )是经济法坚持的原则。
以非现金资产进行债务重组时,债权人对于接受抵债资产过程中发生的运杂费、保险费等相关费用,应计入()。
出版社在年度出版计划已经审核、备案后还要增补选题,如果()将受到行政处罚。
阅读关于“台湾省”的图文资料,按要求完成教学设计任务。材料一《义务教育地理课程标准(2011年版)》中的内容标准要求:“认识台湾省自古以来一直是祖国不可分割的神圣领土;在地图上指出台湾省的位置和范围,分析其自然地理环境和经济发展特色。”材料二某
一、注意事项1.申论考试是对应考者阅读能力、综合分析能力、提出和解决问题能力、文字表达能力的测试。2.参考时限:阅读资料40分钟,参考作答110分钟。3.仔细阅读给定资料,按照后面提出的“作答要求”作答。二、给定资料1.沱
Telecommuting—substitutingthecomputerforthetriptothejob—hasbeenhailedasasolutiontoallkindsofproblemsrelatedt
距离债券到期时间的长短与债券价格的波动幅度之间的关系是()。
MigrantWorkersInthepasttwentyyears,therehasbeenanincreasingtendencyforworkerstomovefromonecountrytoanot
最新回复
(
0
)