通过按钮使VB文本框字体随机放大1-3倍

答案:2 悬赏:0

解决时间 2021-03-11 10:13

提问者网友：唤魂
2021-03-11 06:56

Private Sub Command1_Click() Randomize Text1.FontSize = Int(Text1.FontSize) * Rnd * 3 End Sub 这个语句运行后怎么会是随机放大或者缩小按道理应该是随机放大1-3倍啊这个语句该怎么写呢？我是新手，只有10分了

最佳答案

二级知识专家网友：而你却相形见绌
2021-03-11 07:29

首先rnd的取值范围是0～1，因此rnd*3取值范围是0～3，不是1～3，因此你的程序会缩小 sub form_load() text1.tag=text1.fontsize end sub Private Sub Command1_Click() Randomize Text1.FontSize =text1.tag * (Rnd * 2+1) End Sub

满意请采纳

全部回答

1楼网友：桑稚给你看
2021-03-11 09:08

private sub command1_click() randomize text1.fontsize = text1.fontsize * int(rnd() * 3) end sub private sub command2_click() text1.fontsize = oldsize '还原原来大小。 end sub private sub form_load() dim oldsize oldsize = text1.fontsize '记录原来的text1的字体大小。 end sub

我要举报

如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

大家都在看

• 鑫路鞋业怎么去啊，有知道地址的么

• 国三玉柴发动机气门大有劲吗?

• 路由中的【端口触发模板】详细解释？

• 周欣欣的妈妈最近工作很忙,周欣欣想帮她妈妈

• 谁知道北京像素游戏公司（代表作寻仙）里的美

• 为什么手机计算出的流量与手机运行商计算出的

• SORISA仪+眼部护理

• 京东金融小金库每天邀请的人都清空？

• 单位门禁刷卡机怎么逃跑