求个随机数生成器-广知网

VB中有专门生成随机数的函数 . 给你的代码,你加进去,并添上相应控件就行了.然后看下代码就很容易明白了.谢谢. Private Sub Form_Load() ***.caption = "随机画圆" ***.caption = "随机文字" ***.caption = "立体图形" ***.caption = "随机图像" ***.caption = "退出" ***.scalemode = 1 ***.scalemode = 1 ***.picture = LoadPicture("D:\My Documents\My Pictures\hah.jpg") End Sub '注释: 随机画圆动画 Private Sub Command1_Click() Dim XPos, YPos ***.cls Do nn = Int(100 * Rnd) If nn > 0 Then ***.drawwidth = nn End If XPos = Rnd * ***.scalewidth YPos = Rnd * ***.scaleheight ***.pset (XPos, YPos), RGB(Rnd * 256, Rnd * 256, Rnd * 256) DoEvents Loop End Sub '注释: 随机文字动画 Private Sub Command2_Click() ***.cls Do nn = Int(45 * Rnd) If nn > 0 Then ***.fontsize = nn End If ***.currentx = Rnd * ***.scalewidth - 1000 ***.currenty = Rnd * ***.scaleheight ***.forecolor = RGB(Rnd * 256, Rnd * 256, Rnd * 256) ***.print "enjin 你个猪！" n = n + 1 If n > 50 Then n = 0 ***.backcolor = QBColor(Rnd * 15) End If DoEvents Loop End Sub '注释: 立体随机动画 Private Sub Command3_Click() Dim m, n ***.drawwidth = 1 ***.backcolor = RGB(210, 150, 0) ***.cls Do m = Rnd * ***.scalewidth n = Rnd * ***.scaleheight - 500 For i = 0 To Rnd * 800 ***.line (m, n + 2.5 * i)-(m + i / 2, n + 2 * i), RGB(180, 180, 180) ***.line (m, n + 2.5 * i)-(m - i / 2, n + 2 * i), RGB(80, 80, 80) Next i DoEvents Loop End Sub '注释: 随机图像显示 Private Sub Command4_Click() Do xx = Rnd * ***.width yy = Rnd * ***.height ***.paintpicture ***.picture, xx, yy, ***.width, ***.height DoEvents Loop End Sub '注释: 退出按钮 Private Sub Command5_Click() End End Sub