UC知道这个原代码是用什么程序才可以运行,能不能解释下句子!
来源：百度知道 编辑：UC知道 时间：2024/06/01 17:52:51
Private Sub Form_Click()
Dim daxie As Boolean
daxie = True
s=LCase(text1)
Print s
For i = 1 To Len(s)
zifu = Mid(s, i, 1)
If daxie Then s = Left(s, i - 1) & UCase(zifu) & Right(s, Len(s) - i)
If zifu = "!" Or zifu = "," Or zifu = "." Then
daxie = True
Else
daxie = False
End If
Next i
text1=s
End Sub
在文本框输入长字母串，要求每句首个字母一定要大写，其他为小
写，并且以“.”or“?”or“!”为句子结束符，即在“.”or“?”or
“!”后的第一个字母又要大写，其他小写，比如输入“aSd.asd!
asD.asd?”按按钮后文本框输入“Asd.Asd!Asd.Asd?”
Dim daxie As Boolean
daxie = True
s=LCase(text1)
Print s
For i = 1 To Len(s)
zifu = Mid(s, i, 1)
If daxie Then s = Left(s, i - 1) & UCase(zifu) & Right(s, Len(s) - i)
If zifu = "!" Or zifu = "," Or zifu = "." Then
daxie = True
Else
daxie = False
End If
Next i
text1=s
End Sub
在文本框输入长字母串，要求每句首个字母一定要大写，其他为小
写，并且以“.”or“?”or“!”为句子结束符，即在“.”or“?”or
“!”后的第一个字母又要大写，其他小写，比如输入“aSd.asd!
asD.asd?”按按钮后文本框输入“Asd.Asd!Asd.Asd?”
应该是VB吧
Private Sub Form_Click() //窗体单击事件
Dim daxie As Boolean //定义DAXIE变量为逻辑型
daxie = True //对变量赋值
s=LCase(text1) //将text1的内容转为小写字符串并对S赋值
Print s //输出 s
For i = 1 To Len(s) //循环次数为字符串S的长度
zifu = Mid(s, i, 1)
If daxie Then s = Left(s, i - 1) & UCase(zifu) & Right(s, Len(s) - i)
If zifu = "!" Or zifu = "," Or zifu = "." Then
daxie = True
Else
daxie = False
End If
Next i //循环步进
text1=s
End Sub