1樓：匿名使用者
b = rnd(a / n) 不對。
應改為：
b = a \ n
**中記得判斷text2中的值，不能為0.
還有，text1是控制元件，從控制元件中取值時，要指定控制元件的屬性，這是一個程式設計習慣。
2樓：網海1書生
private sub command1_click()a = len(text1)
n = val(text2)
b = int(rnd(1) * a / n)for i = 1 to b
label1.caption = label1.caption & mid(text1, 1 + (i - 1) * n, n) & vbcrlf
next i
label1.caption = label1.caption & vbcrlf & right(text1, a - b * n)
end sub
3樓：製作問題專家
private sub command1_click()dim i as integer
dim n as integer
dim 臨時字串 as string
dim 最後一行字串數量 as integerlabel1.caption = ""
n = val(text2.text) + val(0)b = int(len(text1.text) / n)if b * n < len(text1.
text) then最後一行字串數量 = len(text1.text) - b * n
else
最後一行字串數量 = 0
end if
for i = 1 to b + 1
臨時字串 = left(text1.text, i * n)if i = b + 1 then
label1.caption = label1.caption & right(臨時字串, 最後一行字串數量)
else
label1.caption = label1.caption & right(臨時字串, (len(臨時字串) - (i - 1) * n)) & vbcrlf
end if
doevents
next
end sub
vb中題目:在文字框text1中輸入一串字元,單擊ocmmand1時,在label1中顯示最大字元
4樓：谷歌vip使用者
private sub command1_click()
if len(text1.text) = 0 then exit sub '如果內容為空則退出
dim i as long
dim maxasc as long
dim tmpasc as long
maxasc = ascw(left$(text1.text, 1))
if len(text1.text) > 1 then
for i = 2 to len(text1.text)
tmpasc = ascw(mid$(text1.text, i, 1))
if tmpasc > maxasc then maxasc = tmpasc
next
end if
label1.caption = chrw(maxasc)
end sub
5樓：白木道人
private sub command1_click()max=val(left(text1,1))for i= 2 to len(text1)if val(mid(text1,i,1)) > max then max=val(mid(text1,i,1))
next i
end sub
6樓：匿名使用者
dim a as string
dim b as integer
dim temp as string
a=text1.text
b=len(a)
for i as integer=1 to bif temp end if next label1.text=temp 7樓： 建一個陣列,把字串分割成字元,迴圈比對,找出asc最大的就是了 vb編怎樣使text1中輸入的所有字元,都以*顯示 8樓：小丁創業 實現的方法和詳細的操作步驟如下： 1、第一步，設定程式介面，包括標籤，文字框和命令按鈕，如下圖所示，然後進入下一步。 2、其次，完成上述步驟後，根據標題的要求設定物件的屬性，如下圖所示，然後進入下一步。 3、接著，完成上述步驟後，編寫程式**。 首先要定義變數，如下圖所示，然後進入下一步。 4、然後，完成上述步驟後，使用「for-next」迴圈結構語句進行**的編寫，如下圖所示，然後進入下一步。 5、隨後，完成上述步驟後，在「for-next」迴圈結構語句中，必須巢狀「if」語句，如下圖所示，然後進入下一步。 6、最後，完成上述步驟後，開始執行程式，輸入一個正數以驗證結果，如下圖所示。這樣，問題就解決了。 9樓：刺友互 1、設定程式介面，包括標籤，文字框，命令按鈕。 2、再按照題目要求，設定物件的屬性。 3、編寫程式的**。先定義變數。 4、使用for-next迴圈結構語句，編寫的**。 5、在for-next迴圈結構語句中，還要再巢狀一個if語句。 6、執行程式，輸入某個正數，驗證結果。 10樓：匿名使用者 1、修改文字框的passwordchar屬性可以做到。 2、vb6示例：（在窗體上新增text1文字框）private sub form_load()text1.passwordchar = "*" end sub 11樓：匿名使用者 用passwordchar屬性 設定成「*」向文字框輸入時便顯示為* 12樓：匿名使用者 text 裡有個屬性叫 passwordchar 只要設定 為 "*" 就ok了 13樓：匿名使用者 text1.passwordchar = "*" vb中,如何使滑鼠選中text1中的一些字元後,在text2中顯示出第一個字元的順序號，在text3中顯示選中字元個數 14樓： private sub text1_click()text2.text = instr(text1.text, left(text1.seltext, 1)) text3.text = text1.sellengthend sub 15樓：匿名使用者 你說的順序號是，ascii碼的值還是英文中在第幾個？？不懂。 只要告訴我什麼是順序號，就會做了 vb 如何讓結果顯示在label中 16樓：聽不清啊 private sub command1_click() m = val(text1.text): n = val(text2.text) label1.caption = "" if m < 1 then m = 1 for i = m to n s = 1: t = 0 for j = 2 to i \ 2 if i mod j = 0 then s = s + j next j if s = i then label1.caption = label1.caption & i & "的因子是1" for j = 2 to i \ 2 if i mod j = 0 then label1.caption = label1.caption & "," & j next j label1.caption = label1.caption & vbcrlf end if next i end sub 記得標籤的高度要做得稍大一點哦，不然的話多行就無法顯示啦！ 17樓：匿名使用者 label1.caption=m 18樓：讀書沒鳥用 label1.caption=你要顯示的內容 vb程式設計問題:程式執行時，在文字框text1中輸入1個字串，單擊命令按鈕command1時，程式能統計出輸入 19樓：萬能導師 1.首先，在表單中新增一個文字框，如下圖。 2.點選文字框,設定文字框的屬性在屬性視窗中,空的文字內容,並設定文字框的啟用屬性為false,如下圖所示。 3.雙擊「獲取資訊」命令按鈕編寫特殊的程式**,如下圖所示。在提取資訊時,您需要使用相關函式擷取字串,如左、右,中期,等等。您還需要使用instr函式找到字元,如下所示。 4.雙擊「清除」命令按鈕，編寫程式**，如下圖。 5.雙擊「exit」命令按鈕，編寫程式**，如下圖。 6.當你最終輸入一個字串,輸入完成後,如下所示。 20樓：匿名使用者 1、首先，在窗體上面新增一個文 本框。2、單擊文字框，在屬性視窗設定文字框的屬性，清空文字內容，將文字框的enabled屬性設定為false。 3、雙擊「提取資訊」命令按鈕，編寫程式的**，如下圖所示。提取資訊時，需要使用擷取字串相關的函式，如left,right,mid等。本題還需要使用instr函式查詢字元。 4、雙擊「清空」命令按鈕，編寫程式的**。 5、雙擊「退出」命令按鈕，編寫程式的**。 6、最後輸入字串時，就可以出輸入了。 21樓：黎洪璋 需要新建一個使用者窗體userform1，在窗體上建立text1、text2、text3和text4文字框，然後再建立一個命令按鈕，在命令按鈕裡輸入**: userform1.textbox2. value = userform1.textbox1.value 具體怎麼判斷字母個數和字元個數可以從網上查查，我現在沒時間查了，就隨便寫一句吧。呼叫窗體的命令是userform1.show 22樓： 可以依次取出每個字元，將其轉化為ascii值，這樣判斷語句會簡單些 23樓：匿名使用者 俺是會的人，沒寫**，能說一下思路麼？ 24樓：匿名使用者 private sub command1_click()text2.text = 0 text3.text = 0 text4.text = 0 for i = 1 to len(text1.text)if mid(text1.text, i, 1) like "[a-z]" or mid(text1. text, i, 1) like "[a-z]" then text3.text = val(text3.text) + 1elseif mid(text1.text, i, 1) like "[0-9]" then text2.text = val(text2.text) + 1else text4.text = val(text4.text) + 1end if next end sub 是for i n to 1 step 1 next i 這樣嗎？上述就是從n 到1的遞減迴圈，不知道對你有幫助沒？怎麼會有空格，你把 複製到vb的 視窗過程裡，會自動去掉空格的，也就是負1了，估計是筆誤，應該是 step 1 空格是自動生成的，實際上就是 1啦，就和你打 form load 然後按回... 步長預設為1 你也可以設定 for i 1 to 10 step 2 此處步長為2 vb中迴圈結構fori 1to10step2的步長是?for i 1 to 10 step 2步長為2 意思是 每次加 2 i被賦值如下13 579然後就停止迴圈了 步長即step 後面的數字，如果for 語句後沒有... vb6.0使用mid 函式來讀取字串中指定數量的字元。mid 函式 返回 variant string 其中包含字串中指定數量的字元。語法 mid 函式示例 本示例使用 mid 語句來得到某個字串中的幾個字元。dim mystring,firstword,lastword,midwords myst...VB中，for迴圈的STEP設定為1，是什麼意義，注意，不是負1，是減號和1中間有空格
在vb中,迴圈結構fori 1to1o的步長是
VB如何讀取字串中的指定字元