運(yùn)行以下程序,在文本框Text1中輸入一串字符,單擊命令按鈕command1,程序可把其中連續(xù)的大寫(xiě)字母串挑選出來(lái)，并寫(xiě)入列表聯(lián)List1,如附圖A-1所示。能不能也把代碼貼出來(lái)呢，或是把思路告訴我！謝謝啦?。?！十分十分緊急。 用VB.net !!!
2 回答
UYOU
TA貢獻(xiàn)1878條經(jīng)驗(yàn) 獲得超4個(gè)贊
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陽(yáng)
TA貢獻(xiàn)1859條經(jīng)驗(yàn) 獲得超6個(gè)贊
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 |
這個(gè)是vb.net 的
添加回答
舉報(bào)
0/150
提交
取消