在窗体上画两个组合框，其名称分别为Combo1、Comb02，然后画两个标签，名称分别为Label1、 Labe12。要求程序运行后，如果在某个组合框中选择一个项目，则把所选中的项目在其下面的标签中显示出来。请填空使程序完整。
Private Sub Comb01_Click()
Call ShowItem(Combo1，Labe11)
End Sub
Private Sub Combo2_Click()
Call ShowItem(Combo2, Labe12)
End Sub
Public Sub ShowItem(tmpCombo As ComboBox, tmpLabel As Label)
______.Caption=______.Text
End Sub

男性，46岁，既往有乙肝病史，今日搬重物后呕出鲜红色血液约200ml，并有暗红色血块。体检：BP100/70mmHg，肝掌(+)，蜘蛛痣多枚，心肺(-)，腹平软，肝未扪及，脾侧卧3cm，全腹无压痛，移动性浊音(-)。呕血最可能的原因是

A．胃溃疡并出血
B．十二指肠球部溃疡出血
C．胃癌出血
D．食管贲门黏膜撕裂症
E．食管静脉曲张破裂出血