Question

vb代码翻译

Dim n as integer
Dim t0 as string, t1 as string
if keyascii<> 13 then
else
text2=""
n=1
t0="."
t1= mid(text1,n,1)
Do while n<= Len(text1)
t1=LCase(t1)
if t0="."or t0="?" or t0"!" then t1=Ucase(t1)
text2=text2+1
n=n+1
t0=t1
t1= mid(text2,n,1)
loop
end if
看不懂啊。。。麻烦翻一下
最上面还有一行是 private sub text1_keypress

Answer 1

Private Sub Text1_KeyPress(KeyAscii As Integer)'按下任一键时，获得键码(KeyAscii)并触发本过程
Dim n as integer '声明整形变量 n
Dim t0 as string, t1 as string '声明2个字符串变量t1,t2
if keyascii<> 13 then '如果按下的不是回车键
else '否则（按下了回车键）
text2="" '清空Text2
n=1 '并给n赋值1
t0="." '给t0赋值"."
t1= mid(text1,n,1) '将text1中从第n个字符之后的1个字符取出放入t1
Do while n<= Len(text1) '如果n小于text1中字符串的长度就执行循环体
t1=LCase(t1) '将t1中的字母转换成小写
if t0="."or t0="?" or t0="!" then t1=Ucase(t1) '如果t0="."或者 t0="?" 或者 t0="!" 那么将t1中的字母转换成大写
text2=text2+1 '将text2中的数字增加1
n=n+1 '将n中的数字增加1
t0=t1 '将t1中的值放入t0
t1= mid(text2,n,1) '将text2中从第n个字符之后的1个字符取出放入t1
loop '循环体结束
end if'否则部分结束
End Sub'过程结束

Answer 2

求text1里面有多少个东东

Answer 3

Dim n as integer '定义N为数字整型变量
Dim t0 as string, t1 as string '定义T0,T1两个字符串变量
if keyascii<> 13 then '判断键盘输入是否为回车
else
text2="" 'TEXT2赋值为空
n=1 'N赋值为1
t0="." 'T0赋值为"."
t1= mid(text1,n,1) '从TEXT1中返回1个字符,从第N个返回
Do while n<= Len(text1) 'len(TEXT1)返回TEXT1中字符数
t1=LCase(t1) '将T1中字符转换成小写
if t0="."or t0="?" or t0"!" then t1=Ucase(t1) 这里有点问题,t0"!" 中间没有运算符,UCASE(T1)是将T1转换成大写
text2=text2+1 'TEXT2自加
n=n+1 'N自加
t0=t1 'T1赋值给T0
t1= mid(text2,n,1) '从TEXT2中返回1个字符,从N开始
loop
end if

private sub text1_keypress '按下和松开键盘时触发事件

PS:抱歉我实在不懂这个程序存在的意义,首先,TEXT文本没有属性.
程序开始TEXT2="" 后面又要用这个空字符串+数字...后面还用返回字符串函数MID.字符串要加整型是要转换数据类型的.

本人不才,只能逐句翻译,看不懂程序意思.对程序作者我只能膜拜!

Answer 4

程序的目的就是在text1中按下回车后把
. ? !符号后的字母变为大写,其他的小写
text2=text2+1
这里应该是text2=text2+t1才说得通
有点类似于自动把开头的英文单词字母大写,其他小写的功能