放大字体的倍数大小通过随机函数产生（Rnd）,范围在1-3倍之间 执行放大操作后，“放大”命令按钮应呈暗灰色 应该怎样编程呢？多谢了！！！
可以有两种方法：一是选中该对象后，在它的属性窗口中设置它的Font属性，将其中的“大小”设置得更大一些（汉字大小是“一号”大于“二号”，初号最大；数字大小是“磅数”越大则字体越大）；
方法二是在适当的地方添加代码，设置该对象的“FontSize”属性为更大一点的“磅数”。
方法二是在适当的地方添加代码，设置该对象的“FontSize”属性为更大一点的“磅数”。
温馨提示：答案为网友推荐，仅供参考
第1个回答 2010-03-10
用rnd函数生成一个int类型的数，然后赋给caption对象（或者其他对象）的字体大小属性
第2个回答 推荐于2017-09-16
Private Sub Command1_Click()
Randomize '初始化随机数因子(如果不加这句,每次放大数一样)
b = Label1.FontSize ' 取字体大小
Label1.FontSize = b * (Int((3 * Rnd) + 1)) '放大1-3倍
Command1.Enabled = False '按键变灰
End Sub本回答被提问者采纳
Randomize '初始化随机数因子(如果不加这句,每次放大数一样)
b = Label1.FontSize ' 取字体大小
Label1.FontSize = b * (Int((3 * Rnd) + 1)) '放大1-3倍
Command1.Enabled = False '按键变灰
End Sub本回答被提问者采纳
第3个回答 2015-11-03
Label1.Font.Size = Label1.Font.Size + 50
