首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Form1、标题为“欢迎”的窗体上画1个名称为Label1的标签,其标题内容为“欢迎使用本系统”,标题文字字体和字号分别为“宋体”、“三号”,标签大小能根据标题内
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Form1、标题为“欢迎”的窗体上画1个名称为Label1的标签,其标题内容为“欢迎使用本系统”,标题文字字体和字号分别为“宋体”、“三号”,标签大小能根据标题内
admin
2019-05-28
28
问题
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1、标题为“欢迎”的窗体上画1个名称为Label1的标签,其标题内容为“欢迎使用本系统”,标题文字字体和字号分别为“宋体”、“三号”,标签大小能根据标题内容自动调整,效果如图3—40所示。程序执行时,窗体的最大化按钮不可用,请设置相应属性。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjt1.vbp,窗体文件名为sjt1.frm。
(2)在名称为Form1的窗体上,画1个名称为Label1的标签,其标题为“横坐标X”,且能根据标题内容自动调整标签的大小;再画1个名称为Text1的文本框,其中的文字显示为空白;再画1个名称为Picture1的图片框,大小适中即可。
要求:编写适当的事件过程,使得程序运行时,如果鼠标在图片框中移动,则能在文本框Text1中显示鼠标在图片框中的当前位置的横坐标,运行情况如图3—41所示。
注意:要求程序中不得使用变量,事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。
选项
答案
第1小题 步骤1:新建一个“标准EXE”工程,在窗体Form1中加入一个标签控件。按表4—27设置其相关属性。 [*] 步骤2:按要求将文件保存至考生文件夹中。 第2小题 步骤1:新建一个“标准EXE”工程,在窗体Forml中加入一个文本框、标签和图片框。按表4—28设置其相关属性。 [*] 步骤2:在打开的代码编辑窗口中,编写图片框的的MouseMove事件代码。 参考代码: Private Sub Picture1_MouseMove(ButtonAs Integer,Shift As Integer,X As Single,Y As Single) Textl1.Text=X End Sub 步骤3:按要求将文件保存至考生文件夹中。
解析
第1小题:根据题目要求在窗体上加入一个标签控件,并设置相关属性。
第2小题:根据题目要求在窗体上加入文本框、标签和图片框,并设置相关属性。题目要求鼠标在图片框中移动时显示当前的横坐标,需要在图片框的MouseMove事件代码里面把横坐标显示在文本框里面。
转载请注明原文地址:https://kaotiyun.com/show/BPUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个命令按钮,然后编写如下程序:OptionBase1PrirateSubCommand1_Click()DimArr(10)AsIntegerFori=1To10Art(i)=11-iNextix=InputB
在名称为Form1的窗体上,画1个名称为Label1的标签,其标题为“横坐标X”,且能根据标题内容自动调整标签的大小;再画1个名称为Text1的文本框,其中的文字显示为空白;再画1个名称为Picture1的图片框,大小适中即可。要求:编写适当的事件过程,
如果在框架中画了2个复选框,且框架的Enabled属性被设置为False,2个复选框的Enabled属性被设置为True,则下面叙述中正确的是
为了暂时关闭计时器,应把它的一个属性设置为False。这个属性是
如果把文本框的Enabled属性设置为False并运行程序,则以下叙述中正确的是
为了在运行时能显示窗体左上角的控制框(即系统菜单),应执行的操作是
以下关于命令按钮的叙述中正确的是
随机试题
欧﹒亨利小说的独特风格是“________”。
下列选项与HCV感染慢性化机制有关的因素是
尿毒症贫血的主要原因是
生气之根指的是()
水俣病属于风疹病毒有
根据五轮学说,瞳仁位于中央,候脾,属肉轮。()
开展工程建设监理活动首先应当由( )主持制定设备监理规划。
雾灵山有()之称。
被称为“美国公立学校之父”的贺拉斯·曼的教育思想还包括
李某欠赵某1万元,赵某为了索要1万元将李某关在地窖里,后由于地窖缺氧李某死亡,赵某的行为构成()。
最新回复
(
0
)