完成下面的程序 使显示结果如下图所示。 PrivateSubForm_Click() FontSize=18 Sample$="
结果,程序
已帮助 人
完成下面的程序,使显示结果如下图所示。
Private Sub Form_Click()
FontSize=18
Sample$=" 【8】 "
x=(ScaleWidth-TextWidth(Sample$) ) /2
y=(ScaleHeight-TextHeight(Sample$) ) /2
CurrentX=x
CurrentY=y
【9】 Sample$
End Sub
