学习VB时遇到一些问题

Question

各位好。我是VB初学者，现在在学习VB时遇到一些问题。
题目是这样的，一个文本框，还有三个按钮，一个是 放大，还有个是 缩小  还有 还 原
就是随机放大三倍的，好像是  int (Rnd*3+1) 的  请问下你们知道吗 谢谢啦

Answer 1

随机放大文本框及其内容： 
Dim i As Integer
 i = Int(Rnd * 3 + 1)
 Text1.Text = i
 Text1.Width = Text1.Width * i
 Text1.Height = Text1.Height * i
 Text1.FontSize = Text1.FontSize * i
随机缩小代码类似

Answer 2

vb 的 rnd 是 0< rnd <1