(1)在名称为Forml的窗体上画两个图片框,名称分别为Pl、P2,高度均为1900,宽度均为1700。通过属性窗口把图片文件picl.bmp放入P1中,把图片文件pic2:jpg放入P2中;再画一个命令按钮,名称为Cl,标题为“交换图片”(如图l-208

admin2012-10-09  30

问题 (1)在名称为Forml的窗体上画两个图片框,名称分别为Pl、P2,高度均为1900,宽度均为1700。通过属性窗口把图片文件picl.bmp放入P1中,把图片文件pic2:jpg放入P2中;再画一个命令按钮,名称为Cl,标题为“交换图片”(如图l-208所示)。编写适当的事件过程,使得在运行时,如果单击“交换图片”按钮,则在Pl中显示pic2.jpg,在P2中显示pic1.bmp。程序中不得使用任何变量,也不能使用第三个图片框。注意:存盘时必须存放在考生文件夹下,工程文件名为sjt3.vbp,窗体文件名为sjl3.frm。

(2)在考生文件夹下有一个工程文件sjt4.vbp,请在窗体上画两个复选框,名称分别为Chl、Ch2,标题分别为“程序设计”、“数据库原理”;然后画一个文本框,名称为Textl;再画一个命令按钮,名称为Cl,标题为“确定”(如图1-209所示)。请编写适当的事件过程,使得在运行时,选中复选框并单击“确定”按钮,就可以按照下表的要求把结果显示在文本框中。存盘时,工程文件名为sjt4.vbp,窗体文件名为sjt4.frm。
注意:考生不得修改窗体文件中已经存在的程序,退出程序时必须通过单击窗体右上角的关闭按钮。在结束程序运行之前,必须进行产生表1-9一个结果的操作。

选项

答案 第1小题 【操作步骤】 步骤l:新建一个“标准EXE”工程,在窗体Forml中如表2-122画出所列控件并设置其相关属性。 [*] 步骤2:打开代码编辑窗口,编写命令按钮的Click事件过程: 参考代码: PriVate Sub C1_Click() Picl.Picture=LoadPi cture(App.Path+ "\pic2.bmp") Pic2.Picture=LoadPicture(App.Path+ "\picl.bmp") End Sub 步骤3:按要求将文件保存至考生文件夹中。 第2小题 【操作步骤】 步骤l:打开考生文件中的本题工程文件sjt3.vbp,如表2-123在窗体中画出控件并设置属性。 步骤2:在代码编辑窗口,编写“确定”按钮的单击事件。 参考代码: Private Sub C1_C1ick() Textl.Text="我选的课是" If Chl.Value Then Textl.Text=Textl.Text+Chl.Caption End If If Ch2.Value=1 Then Textl.Text=Textl.Text+Ch2.Caption End If End Sub 步骤3:按要求将文件保存垒考生文件夹中。 [*]

解析   第1小题
    本题要求在程序运行后,单击“交换图片”命令按钮时,交换两个图片框中的图片。因此可在命令按钮的Click事件过程中,通过LoadPicture()函数分别为两个图片框重新加载图片。App.Path可返回当前工程文件所在的文件夹路径,是使用相对路径的一种用法。
    第2小题
    为实现本题所要求的功能可在“确定”按钮的单击事件过程中,先设置文本框的初始内容为“我选的课是”,然后用两个If语句分别判断两个复选框是否选中,若选中则将其对应信息输入文本框中。
转载请注明原文地址:https://kaotiyun.com/show/yChp777K
0

最新回复(0)