下列可引起血清钾增高的是（）。

A.严重腹泻

B.代谢性碱中毒

C.急性肾衰竭

D.原发性醛固酮增多症

E.肾上腺皮质功能亢进症

下列程序的运行结果是( )。
Private Sub Form_Click()
Dim k As Integer
n=5
m=1
k=1
Do
m=m+2
k=k+1
Loop Until k＞n
Print m
End Sub

A) 1
B) 12
C) 11
D) 32