首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Form1的窗体上画一个名称为List1的列表框,在属性窗口中为列表框添加三个选项:北京、上海、天津。再建立一个下拉菜单,菜单标题为“文件”,名称为Fil
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Form1的窗体上画一个名称为List1的列表框,在属性窗口中为列表框添加三个选项:北京、上海、天津。再建立一个下拉菜单,菜单标题为“文件”,名称为Fil
admin
2019-05-28
41
问题
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上画一个名称为List1的列表框,在属性窗口中为列表框添加三个选项:北京、上海、天津。再建立一个下拉菜单,菜单标题为“文件”,名称为File,此菜单下含有一个子菜单项,标题为“显示列表框”,名称为Show,初始状态为选中,运行时的效果如图3—165所示。
注意:存盘时,将文件保存至考生文件夹下,且窗体文件名为sjt1.frm,工程文件名为sjt1.vbp。
(2)新建一个名称为Form1,标题为“使用输入对话框”的窗体,该窗体上无任何控件。请编写适当的事件过程,使得运行程序并单击窗体时,出现输入对话框,该对话框的标题为“等级考试”,提示信息为“请输入”,默认值为“Basic”。如图3—166所示。
注意:存盘时,将文件保存至考生文件夹下,且窗体文件名为sjt2.frm,工程文件名为sjt2.vbp。要求程序中不得使用变量,每个事件过程中只能写一条语句。
选项
答案
(1)【操作步骤】 步骤1:新建一个“标准EXE”工程,按要求画出控件并设置属性。 步骤2:新建一个“标准EXE”工程,选择【工具】→【菜单编辑器】命令,打开菜单设计器按要求设置建立菜单项。 步骤3:按要求将文件保存至考生文件夹中。 (2)【操作步骤】 步骤1:新建一个“标准EXE”工程,将窗体Form1的Caption属性设置为“使用输入对话框”。 步骤2:打开代码编辑窗口,编写以下事件过程。参考代码: Private Sub Form Click() InputBox"请输入","等级考试","Basic" End Sub 步骤3:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/GJUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
文本框Text1的KeyDown事件过程如下:PrivateSubTextl_KeyDown(KeyCodeAsInteger,ShiftAsInteger)EndSub其中参数KeyCode的值表示的是发生此事件时(
软件设计中模块划分应遵循的准则是()。
下列针对框架控件的叙述中,错误的是()。
在名称为Fralnel的框架中,有两个名称分别为op1、op2的单选按钮,标题分别为“单程”、“往返”,如图所示。以下叙述中,正确的是()。
以下关于VB文件的叙述中,错误的是()。
在考生文件夹下有一个工程文件sjt3.vbp。程序的功能是:1)程序运行时,文件列表框显示当前文件夹中的所有扩展名为jpg的文件。2)双击文件列表框中某个图片文件名时,能在图像框中显示出该张图片,并将该图片文件的信息(包括路径
设工程文件包含两个窗体文件Form1.frm、Form2.frm及一个标准模块文件Module1.bas。两个窗体上分别只有一个名称为Command1的命令按钮。Forml的代码如下:PublicxAsIntegerPr
在黑盒测试方法中,设计测试用例的主要根据是()。
软件调试的目的是()。
以下不属于VisualBasic数据文件的是
随机试题
下列适宜选用肠内营养支持的患者为()。
房室瓣关闭始于
A.AFPB.P53C.P16D.CEAE.CAl9—9对原发性肝细胞性肝癌诊断和判断预后有意义的是
双人CPCR中,胸外心脏按压与人工呼吸的配合比例为
我国《安全生产法》规定,某现场施工人员发现脚手架有倒塌的危险时,停止作业并撤离现场,这是从业人员所具有的()。
ETF基金最大的特色是( )。
下列可以不征或免征土地增值税的是()。
下列有关文学常识的表述错误的一项是()。
Americanshaveagreatloveforinformalityandnowhereisthisbetterexpressedthanintheirlovefornicknames(昵称、绰号).Upong
Thetechnologytomakemachinesquieter
最新回复
(
0
)