|
VB反向輸出字符串 首先，我們需要在窗體上添加兩個文本框控件和兩個命令按鈕控件。如下圖。 1 第一種方法（簡單、直接） Private Sub Command1_Click() '直接用StrReverse內(nèi)部函數(shù) S1 = Text1.Text S2 = StrReverse(S1) Text2.Text = S2 End Sub 2 第二種方法 Private Sub Command2_Click() '綜合應(yīng)用內(nèi)部函數(shù)Len， Mid，和for循環(huán)。 Dim S1 As String 'S1存放原文本內(nèi)容 Dim S2 As String 'S2存放轉(zhuǎn)換后的文本內(nèi)容 S1 = Text1.Text S2 = '' For I = 1 To Len(S1) S2 = S2 Mid(S1, Len(S1) - I 1, 1) Next I Text2.Text = S2 End Sub 兩種方法比較，可知方法1不僅簡單而且快速，在VB實際編程開發(fā)中正確運用內(nèi)部函數(shù)非常重要哦。 程序運行后的界面： |
|
|
