[已解决]怎么样在代码里运用随机函数

9910343

怎么样在代码里运用随机函数 插入行.zip (12.67 KB, 下载次数: 5)

2012-9-20 19:46 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hrpotter

2012-9-20 19:58

1. Dim I
   
2. Dim J
   
3. 
   
4. Private Sub UserForm_Initialize()
   
5.     I = Int(Rnd() * 100000000)
   
6.     J = Int(I * 0.005 + 25.5)
   
7.     Me.TextBox1 = I
   
8.     Me.TextBox2 = J
   
9. End Sub
   
10. Private Sub CommandButton1_Click()
    
11.     If Val(TextBox1.Value) = I And Val(TextBox2.Value) = J Then
    
12.         MsgBox "注册成功"
    
13.     End If
    
14. End Sub

复制代码

跳转到最佳答案楼层

hrpotter

1. Dim I
   
2. Dim J
   
3. 
   
4. Private Sub UserForm_Initialize()
   
5.     I = Int(Rnd() * 100000000)
   
6.     J = Int(I * 0.005 + 25.5)
   
7.     Me.TextBox1 = I
   
8.     Me.TextBox2 = J
   
9. End Sub
   
10. Private Sub CommandButton1_Click()
    
11.     If Val(TextBox1.Value) = I And Val(TextBox2.Value) = J Then
    
12.         MsgBox "注册成功"
    
13.     End If
    
14. End Sub

复制代码

9910343

hrpotter 发表于 2012-9-20 19:58

Val(TextBox1.Value)前面为什么要加上val
I = Int(Rnd() * 100000000)怎么样改成I=INT(RAND()*10000000)

9910343

hrpotter 发表于 2012-9-20 19:58

刚才没看到你已改了，谢谢

hrpotter

9910343 发表于 2012-9-20 20:03
Val(TextBox1.Value)前面为什么要加上val
I = Int(Rnd() * 100000000)怎么样改成I=INT(RAND()*10000000)

加val是把文本框里的string型的数字转换成数值型的，这样才能比较，不然两个类型不一样，永远不会相等的