求解一道VB题。。。

显示全部楼层 · 2010-7-1 21:59:26

题目如下：
在名为Form1的窗体上绘制一个名为Text1的文本框。程序运行后，用户在文本框中输入的英文字母一律用大写显示（要求焦点在最右端）
应该比较简单吧。。。但是额VB不好。。。求代码。。谢谢~

千问 · 2010-7-1 21:59:26

sub cmd1_click()dim s1,s2 as stringdim l as integerdim i as integerdim str as stringstr=text1.textl=len(str)if l>0 thenfor i=1 to ls1=mid(str,i,1)if asc(s1)>=97 and asc(s1)<=122 then'如果是小写则转大写s2=s2 & ucase(s1)else'其它字符不变s2=s2 & s1end ifnext i'重新组织转后字符串text1.text=s2elsemsgbox "请在文本框

千问 · 2010-7-1 21:59:26

没有那么麻烦吧？看看下面这个....http://z.baidu.com/question/161047572.html