一件衬衣正面要钉5颗纽扣，每个袖口要钉1颗纽扣，一件衬衣要钉几颗纽扣？现在有65颗纽扣，能钉几件衬衣？还剩几颗纽扣？

标准模块中有如下程序代码：
Public x As Integer, y As Integer
Sub var_pub()
x=10 : y=20
End Sub
Private Sub Command1_Click()
Dim x As Integer
Call vat_pub
x = x + 100
y = y + 100
Print x ; y
End Sub
运行程序后单击命令按钮，窗体上显示的是( )。

A) 100 100
B) 100 120
C) 110 100 D) 110 120