注意:下面出现的“考生文件夹”均为%USER%
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上画一个名称为Label1的标签,标签的长和高分别为2000、300,有边框,并利用属性窗口设置适当的属性,使其居中显示“等级考试”,并使标签的外观如图所示。运行后的窗体见下图。
注意:
存盘时必须存放在考生文件夹下,工程文件名为sjt1.vbp,窗体文件名为sjt1.frm。
解题思路:
启动Visual Basic系统,创建一个Form1窗体。
在该窗体上画一个标签控件,通过其属性窗口将名称设为Label1,高(Min属性)设为300,宽(Width属性)设为2000,BorderStyle属性设为1,对齐格式(Alignment属性)设为2,标题(Caption属性)设为“等级考试”。
参考文件:c:/wexam/26990001/hlpsys/参考答案/sjt1.vbp、sjt1.frm、sjt1.vbw
请把这些文件复制到c:/wexam/26990001中,然后打开sjt1.vbp文件并运行。
(2)在名称为Form1的窗体上画一个名称为Image1的图像框,有边框,并可以自动调整装入图片的大小以适应图像框的尺寸; 再画三个命令按钮,名称分别为Command1、Command2、Command3,标题分别为“红桃”、 “黑桃”、“清除”。在考生目录下有二个图标文件,其名称分别为“Misc34.ico”和“Misc37.ico”。程序运行时,单击“红桃”按钮,则在图像框中显示红桃图案(即Misc34.ico文件,如图所示);单击“黑桃”按钮,则在图像框中显示黑桃图案(即Misc37.ico文件);单击“清除”按钮则清除图像框中的图案。请编写相应控件的Click事件过程,
实现上述功能。
注意:
要求程序中不得使用变量,每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。
解题思路:
启动Visual Basic系统,创建一个Form1窗体。
在该窗体上画一个图像框控件,通过其属性窗口将名称设为Image1,BorderStyle属性设为1,Stretch属性设为True。画三个命令按钮控件,通过其属性窗口将名称分别设为Command1、Command2、Command3,标题(Caption属性)分别设为“红桃”、 “黑桃”、“清除”。
单击“红桃”按钮(即运行Click事件过程),在该Click事件过程中加入语句:
Private Sub Command1_Click()
Image1.Picture = LoadPicture(App.Path & "/Misc34.ico")
End Sub
单击“黑桃”按钮(即运行Click事件过程),在该Click事件过程中加入语句:
Private Sub Command2_Click()
Image1.Picture = LoadPicture(App.Path & "/Misc37.ico")
End Sub
单击“清除”按钮(即运行Click事件过程),在该Click事件过程中加入语句:
Private Sub Command3_Click()
Image1.Picture = LoadPicture()
End Sub
参考文件:c:/wexam/26990001/hlpsys/参考答案/sjt2.vbp、sjt2.frm、sjt2.vbw
请把这些文件复制到c:/wexam/26990001中,然后打开sjt2.vbp文件并运行。
① 凡本网注明稿件来源为"原创"的所有文字、图片和音视频稿件,版权均属本网所有。任何媒体、网站或个人转载、链接转贴或以其他方式复制发表时必须注明"稿件来源:我考网",违者本网将依法追究责任;
② 本网部分稿件来源于网络,任何单位或个人认为我考网发布的内容可能涉嫌侵犯其合法权益,应该及时向我考网书面反馈,并提供身份证明、权属证明及详细侵权情况证明,我考网在收到上述法律文件后,将会尽快移除被控侵权内容。