高端textbox：richtextbox的一个小地方，希望大家能够看一看

--------------------编程问答-------------------- 有人在么？可以帮忙看看嘛 --------------------编程问答-------------------- 代码不全吧
Randomizei，这个参数在你给你程序段中有什么用？
没看出来 --------------------编程问答-------------------- --------------------编程问答--------------------

引用 3 楼 worldy 的回复:

Public Sub test()

    Randomize

    

    Dim L As Long, P As Long

    Dim C As Long

    

    With rtfText

        P = Int((Rnd * Len(.Text)) + 1)

        C = 32 + (AscB("z") - 32) * Rnd '计算一个可以显示的字符

        .SelStart = P

        .SelLength = 1

        .SelText = Chr(C)

        .SelStart = P

        .SelLength = 1

        .SelColor = &HFFFFFF * Rnd

    End With

End Sub

这个确实有点没看懂~~我再看看 --------------------编程问答--------------------

引用 2 楼 maomaoxiong 的回复:

代码不全吧
Randomizei，这个参数在你给你程序段中有什么用？
没看出来

Randomize 后来我删了  没什么用   --------------------编程问答-------------------- 没有测试到楼主所说的现象：

Private Sub Command1_Click()

Dim a As String

Dim b As String

Dim c As String

s = RichTextBox1.Text

D = Len(RichTextBox1.Text)

Randomize

i = Int(Rnd * D) + 1

a = Left(RichTextBox1, i - 1)

b = Right(RichTextBox1, Len(s) - i)

c = Mid(s, i, 1)

If c = 1 Then

c = 0

Else

c = 1

End If

'Text2.Text = a & c & b

RichTextBox1.SelStart = i - 1

RichTextBox1.SelLength = 1

RichTextBox1.SelColor = vbRed

End Sub

--------------------编程问答-------------------- Randomize 是随机函数的初始化函数，这样就不会每次启动程序的时候随机的位置变成一样了
不过一般后边都跟个数字什么的 ，比如 Randomize Timer --------------------编程问答-------------------- Randomize 语句
      

初始化随机数生成器。

语法

Randomize [number]

可选的 number 参数是 Variant 或任何有效的数值表达式。

说明

Randomize 用 number 将 Rnd 函数的随机数生成器初始化，该随机数生成器给 number 一个新的种子值。如果省略 number，则用系统计时器返回的值作为新的种子值。

如果没有使用 Randomize，则（无参数的）Rnd 函数使用第一次调用 Rnd 函数的种子值。

注意 若想得到重复的随机数序列，在使用具有数值参数的 Randomize 之前直接调用具有负参数值的 Rnd。使用具有同样 number 值的 Randomize 是不会得到重复的随机数序列的。
--------------------编程问答-------------------- RichTextBox1.Refresh ？

补充：VB ,  基础类