1樓：網友
ak = '文字框內容。
num = len(ak) '文字框內容長度。
k = 變數。
for i = num to 1 step -1 '倒序迴圈。
k = mid(ak, i, 1) '倒數第i個字元。
bk = bk & k '連線字元。
bk '另一文字框賦值。
next i
總之，該程式的目的是讓text1文字框中的內容倒置於text2中。
2樓：網友
這段**的作用是把反寫一遍放到text2中。
3樓：網友
dim ak as string, bk as string, k as string, i as integer '定義變數。
ak = 『ak賦值。
num = len(ak) 』len函式返回 的位元組。
k = k清空。
for i = num to 1 step -1 』i從位元組數逐步減一到1
k = mid(ak, i, 1) 『mid函式是在裡從第i個位元組開始取出乙個位元組（這裡的i是在ak先從num位開始取到第1位，即是從後面逐一取到前面，再逐一連線起來）
bk = bk & k 』逐一將每個迴圈取出的乙個位元組連線起來。
bk 『在text2中顯示出來。
next i
這段**的作用就是是把反寫放到text2中。
如何使用vb編寫乙個簡單的小程式？
4樓：信必鑫服務平臺
在桌面上，滑鼠左鍵雙擊程式，在開啟的vb6主介面上，左邊是工具選單欄，單擊標籤按鈕，在form1視窗上，繪製出一label1，然後在其屬性視窗上改個名字，如caption為第一數，如下圖所示。
接著，用同樣的方法，在form1視窗上繪製出第二數，並且在左邊工具選單欄，單擊文字框按鈕，並繪製出來。在文字框屬性欄的text屬性上，將其text1刪除，也就是清空資料，如下圖所示。
然後，反覆用第一步驟和第二步驟做成如圖所示的介面來，學習需要反覆練習，在練習中不斷進步。這裡是做簡單的加法程式，如下圖所示。
接著，加法程式的介面做好後，還不能執行加法運算，必須還要在form1視窗上繪製出乙個命令按鈕來，在左邊工具選單欄，單擊命令按鈕，並繪製出來。然後給其屬性視窗下caption改名為計算，如下圖所示。
然後，程式看起來是做好了，單擊如圖所示的執行按鈕，彈出自己做出的form1視窗，輸入數字3和6，然後單擊計算。可是結果並沒有出現，如下圖所示。
最後，前面5個步驟只是做了程式的介面，想要程式出結果，那必須加些**了，既然是簡單程式，只加一行**就可以了。雙擊命令按鈕，在**視窗中輸入如下： = val( +val(後，再單擊執行，輸入數字，單擊計算，此時就出現結果了，如下圖所示。
急求用VB編小程式，急求用VB編一個小程式
簡單的,用text控制元件的sel屬性,dim n as long,num as longprivate sub command1 click l len text2 n instr n,text2,text1 text2.setfocus if n l and n 0 thentext2.sels...
關於vb的程式，懇請指點！謝謝
function jfy a as integer,b as integer as integer jfy a b end function 前邊加上public public function jfy a as integer,b as integer as integer jfy a b end...
求VB高手VB小程式明天考試了這道題做到一半做不出來了
這個太簡單了！dim a as integer,b as integer,c as integer private sub hscroll1 change a hscroll1.value b hscroll2.value c hscroll3.value if option1.value true...