在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：
Public x As Integer
Private Sub Command1_Click()
x=10
Call s1
Call s2
MsgBox x
End Sub
Private Sub s1()
x=x+20
End Sub
Private Sub s2()
Dim x As Integer
x=x+20
End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果为( )。

A．10

B．30

C．40

D．50

古诗文默写。（8分）

小题1:            ？为有源头活水来。（朱熹《观书有感》）

小题2:长风破浪会有时，            。（李白《行路难》）

小题3:人生自古谁无死？             。（文天祥《过零丁洋》）

小题4:其必曰“先天下之忧而忧，            ”乎。（范仲淹《岳阳楼记》）

小题5:《己亥杂诗》中表现诗人虽辞官，但仍关心国家前途命运的诗句是“             ，              ”。

小题6:情怀是什么？情怀是范仲淹“浊酒一杯家万里，              ”对成就功名的向往；情怀是东坡居士胸中“但愿人长久，           ”的豪放旷达。