導航:首頁 > 編程語言 > gvariant編程

gvariant編程

發布時間:2023-01-06 08:58:25

A. vb如何編程

Option Explicit
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Dim S As String, S1 As String, S2 As String
Dim I As Integer, J As Integer
Dim G As Integer, Hw As Boolean, Find As Boolean
S = Text1.Text
Text1.Text = Text1 + vbCrLf
S1 = S
G = 0
Do While S1 <> ""
Find = False
For I = 1 To Len(S1)
If Mid(S1, I, 1) = " " Or I = Len(S1) Then
Find = True
S2 = Trim(Left(S1, I))
If I = Len(S1) Then S1 = "" Else S1 = Right(S1, Len(S1) - I)
For J = 1 To Len(S2) \ 2
If Mid(S2, J, 1) <> Mid(S2, Len(S2) - J + 1, 1) Then
Hw = False
Exit For
End If
Hw = True
Next
If Hw Then
G = G + 1
Text1.Text = Text1 + " " + S2
End If
End If
If Find Then Exit For
Next
Loop
Text1.Text = Text1.Text + vbCrLf + "共有" + Str(G) + "個迴文串"
End If
End Sub
已經運行過了,沒問題!即使串與串之間多輸入幾個空格也不影響查找!

閱讀全文

與gvariant編程相關的資料

熱點內容
怎樣關閉照片加密 瀏覽:520
文件夾變拉鏈 瀏覽:605
伺服器未在運行什麼意思 瀏覽:405
單片機應用大賽 瀏覽:462
博格上海壓縮機有限公司 瀏覽:27
招行車貸解壓有費用嗎 瀏覽:700
總統命令小說 瀏覽:818
安卓手機為什麼卡成狗 瀏覽:384
廣州市公司軟體加密 瀏覽:230
燈光設計手冊pdf 瀏覽:767
java虛線 瀏覽:428
androidio流 瀏覽:797
伺服器怎麼改nvr 瀏覽:937
真空壓縮袋怎樣打開 瀏覽:80
證券市場基礎知識pdf2012 瀏覽:720
mastercam自動編程視頻 瀏覽:11
如何得知加密類型 瀏覽:40
單片機匯編讓主程序循環執行 瀏覽:371
電訊APP是干什麼的 瀏覽:534
程序員互相之間不能透露薪水 瀏覽:974