richtextbox获取某行_richtextbox 光标_richtextbox和textbox(7)

数值函数

(4)随机函数可以模拟自然界中各种随机现象，它所产生的随机数，可以 提 供给各种运算或试验使用 rnd通常与int函数配合使用 生成[a, b]区间范围内的随机整数，可以采用 int((b-a+1)*rnd + a) 例如 int(4*rnd+1)可以产生1～4之间(含1和4)的随机整数。可以是1，2， 3或4，这由vb运行时随机给定

使用rnd函数之前，先用randomize语句来初始化随机数

例2.1 给定一个两位正整数(如36)，交换个位数和十位数的位置，把 处理后的数显示在窗体上

编写的窗体单击事件过程代码如下：

private sub form_click() dim x as integer, a as integer dim b as integer, c as integer x = 36 a = int(x / 10) b = x mod 10 求十位数 求个位数

c = b * 10 + a

print "处理后的数: "; c end sub

生成新的数

运行程序后单击窗体，输出结果是：

处理后的数：63

把上述程序改为以下形式，效果是否一样

想一想

private sub form_click() dim x as integer, a as integer dim b as integer, c as integer

x = 36 a = x 10 b = x – 10 * a c = b * 10 + a print "处理后的数: "; c end sub

求十位数 求个位数

通常，解决某个问题的程序方法有多种， 我们应该从中选择较优的一种方法。

作业：通过随机函数产生2个两位正整数，求这2

个数之和并显示出来

例2.2

通过随机函数产生2个两位正整数，求这2个数 之和并显示出来

编写的窗体单击事件过程代码如下： private sub form_click() dim a as integer, b as integer, c as integer randomize 初始化随机数 a = int(90 * rnd + 10) 产生[10,99]区间内的随机整数 b = int(90 * rnd + 10) c=a+b 求两数之和 print "产生的两个随机数: "; a, b print "和数: "; c end sub 运行程序后单击窗体，输出结果是： 产生的两个随机数：56 71 和数：127

再次运行程序，单击窗体后 输出另一组结果是： 产生的两个随机数：18 37 和数：55

转换函数

转换函数用来实现不同类型数据之间的转换。

1.asc(字符串)---求字符串表达式第一个字符的ascii码.

2.chr(数值)---把ascii码值转换成字符. 3.lcase(字符串)---大写字母转换成小写字母.

4.ucase(字符串)---小写字母转换成大写字母.

5. str(数值表达式)——把数值转换为字符串。 6. val（字符串）——把字符串转换为数字数值，忽略字符串中的非数 字字符。

说明：val函数将数字字符串转换为数值型数字时，会自动 将字符串中的空格去掉，并依据字符串中排列在前面的 数值常量来定值，例如： val("a12") 的值为 0 val("1.2e2") 的值为 120 val("12a12") 的值为 12

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/jisuanjixue/article-29087-7.html