某男,从事接触汞作业, 3年后,出现口腔炎临床表现。去某省级医院就诊，尿汞测定超过正常上限值，经诊医生给该人开了“漫性汞中毒”的诊断书。请问：该诊断书是否有效为什么（15分）

在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label2和Command1，然后编写下列程序：
Private Sub func(L As Label)
L.Caption="1234"
End Sub Private Sub Form_Load()
Label1.Caption="ABCDE"
Label2.Caption=10
End Sub Private Sub Command1_Click()
a=Val(Label2.Caption)
Call func(Labell)
Label2.Caption=a
End Sub
程序运行后，单击命令按钮，则在两个标签中显示的内容分别为( )

A．ABCD和10
B．1234和100
C．ABCD和100
D．1234和10