VB 文本框 Rookie 问题

private sub text1_change()if len( >10 then '如果 text1 大于 10 个单词。

len( '将 text2 的光标移动到末尾。

right(, len( -10) '多余的单词显示在 text2 中。

left(, 10) 'text1 中的前 10 个字符是字符。

len( 'text1 的光标移动到末尾。

end if

end sub

测试通过。 你试图再次得分。

private sub text1_change()zifu = left(,10)

dim aa =if len(a) -10 > 0 then= right(a, len(a) -10)else end if

end sub

关键的错误是你直接限制它的长度，使其长度不能大于 10它的本质是不可能大于 10这与程序控制不同。

最多只有十个字符，那么 len（a）-10 不能大于 0，可以去掉试试。

关键是这句话（标记的那行）：

在文本框的按键事件中，keyascii 可以控制输入的内容。

例如，在以下**中：

private sub text1_keypress(keyascii as integer)

keyascii = 101

end sub

您可以强制将输入转换为 E（101 是小写字母 E 的 ASCII 代码），依此类推。

也就是说，上面的 keyascii=asc（ucase（x）） 也具有转换文本的相同目的。

弄清楚这一点，其余的就不难理解了。

分步分析：x=chr（keyascii）。

CHR （** 用于将 ASCII 代码转换为文本（** 是整数）。

如果输入 a，则 x 将是转换后的 a

keyascii=asc(ucase(x))

如上所述，keyASCII可以控制输入内容，则ucase（x）为大写兆字节A，ASC（**起到将文团猜字符转换为ASCII码的作用（**为整数），则其返回值为大写字母A（65）的ASCII码。 然后句子变成：keyascii = 65

然后根据上面的解释，你就会明白了。

最后一句话不需要解释。