1樓:網海1書生
text2.text = strreverse(text1.text)
private sub command1_click()dim m as long, t as long, n as integer
m = val(inputbox("輸入大於1的正整數m:", "輸入資料"))
n = 1
t = 0
do while t < m
n = n + 1
t = 2 ^ n
loop
print "2的"; n; "次方》="; mend sub
2樓:匿名使用者
反序:text2.text=strreverse(text1.text)
下面那段程式,實在不知道你是啥意思。。。do語句中的ture是變數?還是true被你寫錯了?無論如何都不對,那兒應該是一個表示式
3樓:匿名使用者
private sub command7_click() '反過來text2 = ""
dim a()
strtxt = text1
l = len(strtxt)
redim a(l)
for i = 1 to l
a(i) = mid(strtxt, i, 1)next i
for i = l to 1 step -1text2 = text2 & a(i)
next i
end sub
vb如何把檔案內容顯示在文字框中
vb6.0可以使用textbok控制元件或richtextbox控制元件實現將讀入文字檔案顯示於控制元件中。textbox 控制元件有時也稱作編輯欄位或者編輯控制元件,顯示設計時輸入的使用者輸入的 或執行時在 中賦予控制元件的資訊。為了在 textbox 控制元件中顯示多行文字,要將 multili...
如何在vb中檢查文字框中包含特定字元
以下為當在text1中按下按鍵時,判斷是否為m或m,如果是,則遮蔽輸入 private sub text1 keypress keyascii as integer if chr keyascii m or chr keyascii m then keyascii 0 end if end sub ...
怎樣用VB做個編寫程式,在文字框中顯示當前系統時間,並隨時間進行變化
你新增一個timer控制元件 interval屬性 100 新增事件 private sub timer1 timer text1.text format now,hh mm ss end sub private sub form load timer1.enabled trueend sub pr...