请教VB题目,忘好心人帮忙~!

来源：百度知道 编辑：UC知道 时间：2024/06/27 08:53:49
(1)在名称为Form1的窗体上画一个名称为Frame1，标题为“目的地”的框架在框架中添加三个复选框，名称分别为Check1、Check2、Check3，其标题分别是“上海”、“广州”、“巴黎”。请编制适当的事件过程，使得程序运行时，把选中的复选框标题显示在窗体上，
(2)在名称为Form1的窗体上画一个名称为Picture1的图片框，其宽和高分别为1700、1900。请编写适当事件过程，使得在运行时，单击图片框，则装入自己选定的图形文件pic1.bmp，如图所示。单击窗体则图片框中的图形消失。要求程序中不得使用变量，每个事件过程中只能写一条语句。
谢谢了!
我初学VB,所以问题很弱智,希望大家能帮帮我,我很着急,谢谢了
恩,谢谢楼下那位,其实我并不是完全不会,就是细节总有问题,第一个程序运行了多次,一直告诉我需要调试,我真的不知道该怎么办了,希望你能写的详细一点,可以吗,拜托你了.

第一题
Private Sub Check1_Click()
If Check1.Value = 1 Then
Check2.Value = 0: Check3.Value = 0
Me.Caption = "上海"
End If
End Sub

Private Sub Check2_Click()
If Check2.Value = 1 Then
Check1.Value = 0: Check3.Value = 0
Me.Caption = "广州"
End If
End Sub

Private Sub Check3_Click()
If Check3.Value = 1 Then
Check1.Value = 0: Check2.Value = 0
Me.Caption = "巴黎"
End If
End Sub

Private Sub Form_Load()
Picture1.Height = 1700: Picture1.Width = 1900
Frame1.Caption = "目的地": Check2.Caption = "上海": Check1.Caption = "广州": Check3.Caption = "巴黎"
End Sub

第二题
Private Sub Form_Load()
Picture1.AutoSize = True
Picture1.Height = 1700: Picture1.Width = 1900
End Sub

Private Sub Picture1_Click()
Picture1.Picture = LoadPicture("c:\123.jpg")
End Sub

是完全都