[问答题]注意：下面出现的“”均为c：wexam25160001。
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。
(1)在Form1的窗体上画一个名称为Text1的文本框，然后建立一个主菜单，标题为“操作”，名称为Op，该菜单有两个子菜单，其标题分别为“显示”和“退出”，其名称分别为Dis和Exit，编写适当的事件过程。程序运行后，如果单击“操作”菜单中的“显示”命令，则在文本框中显示“计算机考试”；如果单击“退出”命令，则结束程序运行。程序的运行情况如图11-1所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
(2)在窗体上画一个列表框，名称为L1，通过“属性”窗口向列表框中添加4个项目，分别为“WHBB”、“HIJK”、“QWEI”和“POIU”，单击列表框中的某一项，则该项就从列表框中消失。程序的运行情况如图11-2和图1l-3所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjtt2.frm。

提示：未搜索到的试题可在搜索页快速提交，您可在会员中心"提交的题"快速查看答案。

答案

查看答案

搜题

相关试题

[单项选择题]关于面向对象的程序设计，下列叙述中错误的是()。
A．任何一个对象构成一个独立的模块
B．一个对象不是独立存在的实体，各个对象之间有关联，相互依赖
C．下一层次的对象可以继承上一层次对象的某些属性
D．上述三种说法都正确

查看答案解析

[填空题]如图所示，在列表框List1中已经有若干人的简单信息，运行时在Text1文本框(即“查找对象”右边的文本框)输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查找，若找到，则把该人的信息显示在Text2文本框中。若有多个匹配的列表项，则只显示第1个匹配项；若未找到，则在Text2中显示“查无此人”。请填空。
PrivateSubCommand1_Click()
DimkAsInteger，nAsInteger，foundAsBoolean
found=False
n=Len(______)
k=0
Whilek＜List1.ListCountAndNotfound
IfText1=Lefts(List1.List(k)，n)Then
Text2＝______
found＝True
EndIf
k＝k+1
Wend
IfNotfoundThen
Text2＝“查无此人”
EndIf
EndSub