在程序运行时,单击"转换"按钮,可以把Text1中的小写字母转 换为大写,把大写字母转换为小写,其他字符不变。 Private Sub Command1_Click() If Text1.Text >= "A" And Text1 <= "Z" Then 1 Text1.Text = LCase(Text1.Text......
B 将其Autosize属性值设置为True 15 设在窗体上有一个名称为Commandl的命令按钮和一个名称为Textl的文本框。要求单击 Commandl按钮时可把光标移到文本框中。下面正确的事件过程是___。 A Private Sub Command1_Click() Text1.Set......
VB_Description = "查找 FindStr,如果模板中有 FindStr 则返回 True" If Len(FindStr) = 0 Then C_ErrMsg = 2 Exit Function End If mysel.Find.ClearFormatting mysel.Find.Replacement.ClearFormatting With mysel.Find .Text =......
VB_Description = "查找 FindStr,如果模板 中有 FindStr 则返回 True" If Len(FindStr) = 0 Then C_ErrMsg = 2 Exit Function End If mysel.Find.ClearFormatting mysel.Find.Replacement.ClearFormatting With mysel.Find .Text ......