運行以下程序,在文本框Text1中輸入一串字符,單擊命令按鈕command1,程序可把其中連續的大寫字母串挑選出來，并寫入列表聯List1,如附圖A-1所示。能不能也把代碼貼出來呢，或是把思路告訴我！謝謝啦！??！十分十分緊急。 用VB.net !!!
2 回答
UYOU
TA貢獻1878條經驗 獲得超4個贊
private sub command1_click()
dim i as integer,tmp as string,str as string
str=""
for i =1 to len(text1)
tmp=mid(text1,i,1)
if tmp>="A" and tmp<="Z" then
str=str & tmp
elseif str<>"" then
list1.additem str
str=""
end if
next
end sub
BIG陽
TA貢獻1859條經驗 獲得超6個贊
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i As Integer, tmp As String, str As String str = "" For i = 1 To Len(TextBox1.Text) tmp = Mid(TextBox1.Text, i, 1) If tmp >= "A" And tmp <= "Z" Then str = str & tmp ElseIf str <> "" Then ListBox1.Items.Add(str) str = "" End If Next If str <> "" Then ListBox1.Items.Add(str) End Sub |
這個是vb.net 的
添加回答
舉報
0/150
提交
取消