在窗体上画一个名称为CommAnD1的命令按钮，然后编写如下程序：
Dim swAsBoolEAn
FunCtion FunC(xAs intEgEr)As intEgEr
iF x＜20 thEn
y=x
ElsE
y=20+x
EnD iF
FunC=y
EnD FunCtion
privAtE suB Form_mousEDownButtonAs intEgEr，shiFtAs intEgEr，xAs singlE，yAs singlE)
sw=FAlsE
EnD suB
pDvAtE suB Form_mousEupButtonAs intEgEr，shiFtAs intEgEr，xAs singlE，yAs singlE)
sw=truE
EnD suB
privAtE suBCommAnD1_CliCk()
Dim intnumAs intEgEr
intnum=inputBox("")
iF sw thEn
print FunC(intnum)
EnD iF
EnD suB
程序运行后，单击命令按钮，将显示一个输入对话框，如果在对话框中输入25，则程序的执行结果为
A．输出0
B、输出25
C．输出45
D．无任何输出