关于本站
管理团队
  
胡杨林-福建IT·互动主题区  [登录] [注册] [发表新文章]  

作者: NoNoToday 收藏:0 回复:0 点击:3258 发表时间: 2007.04.20 23:09:52

tab函数和rnd函数


  与 Print # 语句或 Print 方法一起使用,对输出进行定位。
  语法
  
  
  Tab[(n)]
  
  
  可选的 n 参数是在显示或打印列表中的下一个表达式之前移动的列数。若省略此参数,则 Tab 将插入点移动到下一个打印区的起点。这就使 Tab 可用来替换国别中的逗号,此处,逗号是作为十进制分隔符使用的。
  说明
  
  
  如果当前行上的打印位置大于 n,则 Tab 将打印位置移动到下一个输出行的第 n 列上。如果 n 小于 1,则 Tab 将打印位置移动到列 1。如果 n 大于输出行的宽度,则 Tab 函数使用以下公式计算下一个打印位置:
  
  
  n Mod width
  
  
  例如,如果 width 是 80,并指定 Tab(90),则下一个打印将从列 10 开始(90/80 的余数)。如果 n 小于当前打印位置,则从下一行中计算出来的打印位置开始打印。如果计算后的打印位置大于当前打印位置,则从同一行中计算出来的打 印位置开始打印。
  
  
  输出行最左端的打印位置总是 1。在使用 Print # 语句将数据写入文件时,最右端的打印位置是输出文件的当前宽度,这一宽度可用 Width # 语句设置。
  [B]注意[/B] 要确保表格列的宽度足以容纳较宽的字符串。
  
  
  当 Print 方法与 Tab 函数一起使用时,打印的外观将会被分割为均匀、定宽的列。各列的宽度等于选用字体内以磅数为单位的所有字符的平均宽度。但是,在 已打印字符的个数与那些字符所占据的定宽列的数目之间不存在任何关系。例如,大写字母 W 占据超过一个定宽的列,而小写字母 i 则占据少于一个定宽的列。
  1、Rnd函数 返回一个包含随机数值的 Single
  语法
  Rnd[(number)]
  
  如果 number 的值是 Rnd 生成
  小于 0 每次都使用 number 作为随机数种子得到的相同结果。
  大于 0 序列中的下一个随机数。
  等于 0 最近生成的数。
  省略 序列中的下一个随机数。
  
  
  说明
  
  Rnd 函数返回小于 1 但大于或等于 0 的值。
  
  number 的值决定了 Rnd 生成随机数的方式。
  
  对最初给定的种子都会生成相同的数列,因为每一次调用 Rnd 函数都用数列中的前一个数作为下一个数的种子。
  
  在调用 Rnd 之前,先使用无参数的 Randomize 语句初始化随机数生成器,该生成器具有根据系统计时器得到的种子。
  
  为了生成某个范围内的随机整数,可使用以下公式:
  
  Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
  
  这里,upperbound 是随机数范围的上限,而 lowerbound 则是随机数范围的下限。
  
  注意 若想得到重复的随机数序列,在使用具有数值参数的 Randomize 之前直接调用具有负参数值的 Rnd。使用具有同样 number 值的 Randomize 是不会得到重复的随机数序列的。
  
  
  2、Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
  Rnd 函数示例
  本示例使用 Rnd 函数随机生成一个 1 到 6 的随机整数。
  
  Dim MyValue
  MyValue = Int((6 * Rnd) + 1) ' 生成 1 到 6 之间的随机数值


原创    收   藏  

回复


回复主题: 回复在论坛 回复到信箱
回复内容:
附加签名:
上传贴图:
图片要求:长宽建议不超过:650×650。大小:300K 以内,文件后缀名必须为:.gif 或.jpg 或.png
      
版主推荐:
文坛新文:
作者其它文章:

Copyright 2002-2008 版权所有
胡杨林© All rights reserved.
服务支持拓商网