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

admin2019-06-11  24

问题 (1)在名称为Form1的窗体上画两个图片框,名称分别为P1、P2,高度均为1900,宽度均为1700,通过属性窗口把图片文件pic1.bmp 放入P1中,把图片文件pic2.jpg 放入P2 中;再画一个命令按钮,名称为C1,标题为“交换图片”(如图1-156所示)。编写适当的事件过程,使得在运行时,如果单击“交换图片”按钮,则在P1中显示pic2.jpg,在P2中显示pic1.bmp。程序中不得使用任何变量,也不能使用第三个图片框。

    注意:存盘时必须存放在考生文件夹下,工程文件名为sjt3.vbp,窗体文件名为sjt3.frm。
    (2)在考生文件夹下有一个工程文件sjt4.vbp,请在窗体上画两个复选框,名称分别为Ch1、Ch2,标题分别为“程序设计”、“数据库原理”;然后画一个文本框,名称为Text1;再画一个命令按钮,名称为C1,标题为“确定”(如图1-157所示)。请编写适当的事件过程,使得在运行时,选中复选框并单击“确定”按钮,就可以按照下表的要求把结果显示在文本框中。存盘时,工程文件名为sjt4.vbp,窗体文件名为sjt4.frm。

    注意:考生不得修改窗体文件中已经存在的程序,退出程序时必须通过单击窗体右上角的关闭按钮。在结束程序运行之前,必须进行产生表1-5一个结的操作。

选项

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

解析
转载请注明原文地址:https://kaotiyun.com/show/3RUp777K
0

最新回复(0)