📄 qqexp011.html
字号:
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html">
<meta name="Generator" content="千千VB站 VB函数清单">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>千千VB站 VB函数清单</title>
</head>
<body text="#000000" bgcolor="#FFFFFF" link="#2020A0" vlink="#FF0000" alink="#FF0000">
<marquee><b><blink><font color="#000000">读取乱数</font></blink></b></marquee>
<center>
<hr width="100%" szie="4">
</center>
<p> ●如何读取乱数。<br>
数字变数 = Rnd
<p> Rnd传回值是小於1的小数，若我们要取整数0到9为<br>
数字变数 = Int(Rnd * 10)
<p> 若我们要取整数2到11为<br>
数字变数 = Int(Rnd * 10 + 2)
<p>
程序第一次执行所得到的乱数与以後执行所得到的乱数会一模一样，因为VB内的乱数只是一个固定的表，调用Rnd只不过是依序提出乱数表内的值。<br>
如何解决？使用乱数初始化<br>
→Randomize 数值<br>
乱数初始化就是说当我们提出乱数时在再乘上一个数值，若这个数值是会变动的，那每次程序执行所得到的乱数就会不一样。<br>
→Randomize Timer<br>
→RanDomize Val(Right(Time$, 2))
<p> Ex:<br>
<font color="#0000FF">Private Function</font> MyRnd() <font color="#0000FF">As
Integer</font><br>
<font color="#0000FF">Randomize</font>
Timer<br>
MyRnd = Int(Rnd * 10)<br>
<font color="#0000FF">End Function</font>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -