![]() |
#2
vbvcr512014-03-19 17:27
|
只有本站会员才能查看附件,请 登录
控件数量:4个Label标签,2个Text文本框,1个Command按钮
核心源代码:

Private Sub Command1_Click()
Dim a As Double, b As Double '定义两个变量a,b均为双精度型。
a = Rnd '设定a为一个随机数
b = Rnd '设定b为一个随机数
Text1.Text = a '将a赋值给Text1文本框中的文本
Text2.Text = b '将b赋值给Text2文本框中的文本
If a > b Then '判断语句If,如果在a>b的条件下
MsgBox "A大", vbOKOnly, "提示" '弹出一个对话框,说A大
ElseIf a = b Then '判断另一种情况,在满足a=b的条件下
MsgBox "A和B一样大", vbOKOnly, "提示" '弹出一个对话框,A和B一样大
Else '否则,也就是在满足a<b的前提下
MsgBox "B大", vbOKOnly, "提示" '弹出一个对话框B大
End If '结束判断语句If
Print a '在窗体上输出a
End Sub
百度了一下Rnd随机数,百度上是这么定义的:Rnd 函数返回小于 1 但大于或等于 0 的值。Dim a As Double, b As Double '定义两个变量a,b均为双精度型。
a = Rnd '设定a为一个随机数
b = Rnd '设定b为一个随机数
Text1.Text = a '将a赋值给Text1文本框中的文本
Text2.Text = b '将b赋值给Text2文本框中的文本
If a > b Then '判断语句If,如果在a>b的条件下
MsgBox "A大", vbOKOnly, "提示" '弹出一个对话框,说A大
ElseIf a = b Then '判断另一种情况,在满足a=b的条件下
MsgBox "A和B一样大", vbOKOnly, "提示" '弹出一个对话框,A和B一样大
Else '否则,也就是在满足a<b的前提下
MsgBox "B大", vbOKOnly, "提示" '弹出一个对话框B大
End If '结束判断语句If
Print a '在窗体上输出a
End Sub
那么问题就出现了
只有本站会员才能查看附件,请 登录
如图 Q:如果定义是Rnd函数返回小于1但大于或等于0的值,那么Text文本框中的数字应该是0.579518.... 0.289562...那个小数点前面的那个0哪里去了?
虽然是一个很幼稚的问题,但还是要问。
