题目内容:
完成下面的程序,使显示结果如下图所示。
Private Sub Form_Click()
FontSize=18
Samples=" "
x=(ScaleWidth_TextWidth(Samples))/2
y=(ScaleHeight_TextHeight(Samples))/2
CurrentX=x
CurrentY=y
Sample$
End Sub
参考答案:
完成下面的程序,使显示结果如下图所示。
Private Sub Form_Click()
FontSize=18
Samples=" "
x=(ScaleWidth_TextWidth(Samples))/2
y=(ScaleHeight_TextHeight(Samples))/2
CurrentX=x
CurrentY=y
Sample$
End Sub