现有如下一段程序：Private Sub Command1_Click（）x = UCase（InputBox（“输入：”）Select Case xCase “A”To“C”Print “考核通过！”Case “D”Print “考核不通过！”Case ElsePrint “输入数据不合法！”End SelectEnd Sub执行程序，在输入框中输入字母“B”，则以下叙述中正确的是

A. 程序运行出错
B. 在窗体上显示“考核通过！”
C. 在窗体上显示“考核不通过！”
D. 在窗体上显示“输入数据不合法！”