Private Sub Form_Load()
Combo1.AddItem "大专"
Combo1.AddItem "本科"
Combo1.AddItem "硕研究生"
Combo1.AddItem "博士研究生"
Combo2.AddItem "无"
Combo2.AddItem "学士"
Combo2.AddItem "硕"
Combo2.AddItem "博士"
End Sub

Private Sub Image1_Click()

Str =
Right = Right(Str, 3)
If Right <> "jpg" Then
mgbox "你选的不是图片"
Else
Image.Stretch = ture
Image1.Picture = LoadPicture(Str)
End If
End Sub


当我选中单击image控件时就报出Str参数不可选。。
本来应该是要调出选择框的。

simpson 骂的好。。。学习学习。。。。我是新手