在窗体上画一个名称为CorAmAnDl的命令按钮，然后编写如下程序；
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)
Dim AAsBoolEAn
sw=FAlsE
EnD suB
privAtE 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 FlmC(intnum)
EnD iF
EnD suB
程序运行后，单击命令按钮，将显示一个输入对话框，如果在对话框中输入25，则程序的执行结果为
A．输出0
B、输出2
C．输出45
D．无任何输出