您好，运行以下程序,在文本框Text1中输入一串字符，出现下面的情况，该怎么办？

Question

运行以下程序,在文本框Text1中输入一串字符,单击命令按钮command1,程序可把其中连续的大写字母串挑选出来，并写入列表联List1,如附图A-1所示。能不能也把代码贴出来呢，或是把思路告诉我！谢谢啦！！！十分十分紧急。 用VB.net !!!

Answer 1

private sub command1_click()dim i as integer,tmp as string,str as stringstr=""for i =1 to len(text1)tmp=mid(text1,i,1)if tmp>="A" and tmp<="Z" thenstr=str & tmpelseif str<>"" thenlist1.additem strstr=""end ifnextend sub

Answer 2

&nbsp;&nbsp;Private&nbsp;Sub&nbsp;Button1_Click(ByVal&nbsp;sender&nbsp;As&nbsp;System.Object,&nbsp;ByVal&nbsp;e&nbsp;As&nbsp;System.EventArgs)&nbsp;Handles&nbsp;Button1.Click&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dim&nbsp;i&nbsp;As&nbsp;Integer,&nbsp;tmp&nbsp;As&nbsp;String,&nbsp;str&nbsp;As&nbsp;String&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;str&nbsp;=&nbsp;""&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;For&nbsp;i&nbsp;=&nbsp;1&nbsp;To&nbsp;Len(TextBox1.Text)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;tmp&nbsp;=&nbsp;Mid(TextBox1.Text,&nbsp;i,&nbsp;1)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If&nbsp;tmp&nbsp;>=&nbsp;"A"&nbsp;And&nbsp;tmp&nbsp;<=&nbsp;"Z"&nbsp;Then&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;str&nbsp;=&nbsp;str&nbsp;&&nbsp;tmp&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ElseIf&nbsp;str&nbsp;<>&nbsp;""&nbsp;Then&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ListBox1.Items.Add(str)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;str&nbsp;=&nbsp;""&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End&nbsp;If&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Next&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If&nbsp;str&nbsp;<>&nbsp;""&nbsp;Then&nbsp;ListBox1.Items.Add(str)&nbsp;&nbsp;&nbsp;&nbsp;End&nbsp;Sub这个是vb.net 的