首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt3.vbp(相应的窗体文件名为sjt3.frm),在窗体上添加一个名称为List1的列表框和一个名称为Text1的文本框,如图1所示。编写窗体的MouseDown事件过程。程序运行后,如果用鼠标单击窗体,则从键盘上输入要添
在考生文件夹下有一个工程文件sjt3.vbp(相应的窗体文件名为sjt3.frm),在窗体上添加一个名称为List1的列表框和一个名称为Text1的文本框,如图1所示。编写窗体的MouseDown事件过程。程序运行后,如果用鼠标单击窗体,则从键盘上输入要添
admin
2016-06-23
51
问题
在考生文件夹下有一个工程文件sjt3.vbp(相应的窗体文件名为sjt3.frm),在窗体上添加一个名称为List1的列表框和一个名称为Text1的文本框,如图1所示。编写窗体的MouseDown事件过程。程序运行后,如果用鼠标单击窗体,则从键盘上输入要添加到列表框中的项目(内容任意,不少于三个);如果用鼠标右键单击窗体,则从键盘上输入要删除的项目,将其从列表框中删除。程序的运行情况如图2所示。这个程序不完整,请把它补充完整,并能正确运行。
要求:去掉程序中的注释符,把程序中的?改为适当的内容,使其正确运行,但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。
选项
答案
[操作步骤] 步骤1:打开本题工程文件,按表3.18昕列在窗体画出控件并设置其属性。 [*] 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。 参考代码(画下划线部分是需填入的内容) Private Sub Form_MouseDown(Button As Integer,Shift AS Integer,X As Single,Y As Single) 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.RemoveItem
i
End If Next i End If End Sub 程序结束 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/lvLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设已经在菜单编辑器中设计了窗体的快捷菜单,某顶级菜单为a1,且取消其“可见”属性。运行时,以下()事件过程可以使快捷菜单的菜单项响应鼠标左键单击和右键单击。
计时器文件设置时间间隔的属性是
在用通用对话框控件建立”打开”或”保存”文件对话框时,如果需要指定文件列表框所列出的文件类型是文本文件(即.txt文件),则正确的描述格式是()。
阅读下面的程序段:Fori=1To3Forj=1ToiFork=jTo4a=a+1NextkNextjNexti执行上面的三重循环后,a的值为()。
设有如下程序:OptionBase1PrivateSubCommand1_Click() Dima(10)AsInteger DimnAsInteger n=InputBox("输入数据")
一个控件在窗体上的位置由______和Top属性决定。
下列各种形式的循环中,输出“*”的个数最少的循环是()。
需求分析阶段的任务是确定
表达式(7\3+1)*(18\-1)的值是______。
A=7,B=3,C=4,则表达式AMOD3+B^3/C\5的值为______。
随机试题
不是固有牙槽骨的组织学特点的是
月经量少,色淡质稀,腰脊酸软足跟痛,或夜尿多,舌淡,脉沉弱。治法是
小儿特有的对能量的需要是
根据有关立法及司法解释的规定,对被判处死刑缓期执行的被告人可以同时决定对其限制减刑,因而涉及相关诉讼程序方面的问题。关于犯罪分子可以适用死刑缓期执行限制减刑的案件,下列选项正确的是:
根据关税法律制度的规定,下列各项中,经海关审查无误后可以免征进口关税的是()。
现代教育与传统教育的根本区别在于是否重视_____的培养。
InUnitedStates,the"BigApple"cityis______.
设f(x)在x>0上有定义,且对任意正实数x,yf(xy)=xf(y)+yf(x),f’(1)=2,试求f(x).
在考生文件夹下,对“雇员管理”数据库完成如下综合应用:①建立一个名称为VIEW1的视图,查询每个雇员的部门号、部门名、雇员号、姓名、性别、年龄和EMAIL。②设计一个名称为form2的表单,表单上设计一个页框,页框(PageFramel
【R1】______Itismorethanjustclothingandhairstylesthatareinstyleoneyearandoutofdatethenext.Itisawholewayof
最新回复
(
0
)