首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在名称为Form1的窗体上添加一个名称为Image1的图像框,有边框,并可以自动调整装入图片的大小以适应图像框的尺寸;再添加三个命令按钮,名称分别为Command1、Command2、Command3,标题分别为“红桃”、“黑桃”、“清除”。在考生文件夹下
在名称为Form1的窗体上添加一个名称为Image1的图像框,有边框,并可以自动调整装入图片的大小以适应图像框的尺寸;再添加三个命令按钮,名称分别为Command1、Command2、Command3,标题分别为“红桃”、“黑桃”、“清除”。在考生文件夹下
admin
2016-06-23
53
问题
在名称为Form1的窗体上添加一个名称为Image1的图像框,有边框,并可以自动调整装入图片的大小以适应图像框的尺寸;再添加三个命令按钮,名称分别为Command1、Command2、Command3,标题分别为“红桃”、“黑桃”、“清除”。在考生文件夹下有两个图标文件,其名称分别为“Misc34.ico”和“Misc37.ico”。程序运行时,单击“黑桃”按钮,则在图像框中显示黑桃图案(Misc37.ico文件);单击“红桃”按钮,则在图像框中显示红桃图案(Misc34.ico文件,如图所示);单击“清除”按钮则清除图像框中的图案。请编写相应控件的Click事件过程,实现上述功能。
注意:要求程序中不得使用变量,每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下,工程文件名保存为sjt2.vbp,窗体文件名保存为sjt2.frm。
选项
答案
[操作步骤] 步骤1:建立界面,添加相应的控件并设置控件的属性。程序中涉及的控件及属性见表3.48。 [*] 步骤2:打开代码编辑窗口,在指定位置编写如下代码。 参考代码 Private Sub Command1_Click() Image1.Picture=LoadPicture(App.path&"\Misc 34.ico")’加载图片 End Sub Private Sub Command2_Click() Image1.Picture=LoadPicture(App.path&"\Misc37.ico") End Sub Private Sub Command3_Click() Set Image1.Picture=Nothing’清除Image1中的图片 End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/IvLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
常用的黑箱测试有等价分类法、______、因果图法和错误推测法4种。
下列程序的功能是:当x<50时,y=0.8×x;当50≤x≤100时,y=0.7×x;当x>100时,没有意义。请填空。PrivateSubCommand1_Click()DimxAsSingle x=InputBox("
以下语句中哪句可以选择指定的表项或取消已选择的表项
下列程序段的执行结果为a=3:b=1Fori=1To3 f=a+b:a=b:b=f Printf NextI
在用通用对话框控件建立“打开”或“保存”文件对话框时,如果需要指定文件列表框所列出的文件类型是文本文件(即.txt文件),则正确的描述格式是
在窗体上画一个名为Command1的命令按钮,其Command1_Click事件过程如下:SubCommand1_Click()DimstudentAsstudtypeDimrecord_noAsInteger
决定控件上文字的字体、字形、字号、效果的属性是
双击窗体中的对象后,VisualBasic将显示的窗口是
在运行阶段,要在文本框Text1获得焦点时选中文本框中的所有内容,则对应的事件过程是()。
某二叉树中有n个度为2的结点,则该二叉树中的叶子结点数为
随机试题
领导决策中以“满意标准”代替“最优标准”就是【】
乳痈肿痛可用何药
自汗、盗汗并见,其病机是()
在常用的账务处理程序中,共同的财务处理工作有()。
招募说明书的主要内容不包括()。
为抑制通货膨胀,中央银行可以采取的公开市场操作是()。
不规则需求是指某些物品或者服务的市场需求在不同季节,或一周不同日子,甚至一天不同时间上下波动很大的一种需求状况。根据上述定义,下列哪项属于不规则需求?
以太网中的计算机相互通信时,为了避免冲突,采用下面( )方法和协议。
打开查询设计器建立查询的命令是
DothefollowingstatementsagreewiththeviewsofthewriterinReadingPassage2?Inboxes16-21onyouranswersheetwriteY
最新回复
(
0
)