1樓：狄爍
看了半天你的**,頭疼...
看明白了,兩個do while檢查不嚴格,改成下面就可以了.
do while ((cstr(n) <> cstr(chr(10))) and (cstr(n) <> cstr(chr(13))) and (cstr(n) <> ""))
do while ((cstr(n) <> cstr(chr(10))) and (cstr(n) <> cstr(chr(13))) and (cstr(n) <> ""))
自己寫了個,你看看是不是你需要的效果
private sub command1_click()
dim checkpos as long '當前需要檢查字元的位置
dim txtlen as long 'richtextbox1的文字長度
dim strtext as string 'richtextbox1的文字
dim strfind as string '要查詢的字串
dim selpos as long 'richtextbox1的selstart
dim sellen as long 'richtextbox1的sellength
strtext = richtextbox1.text
strfind = text1
txtlen = len(strtext)
checkpos = instr(1, strtext, strfind) '查詢字串
do while checkpos <> 0 '找到則執行
selpos = checkpos '儲存下一個strfind的起始位置
sellen = len(strfind) 'sellen的最小長度
checkpos = checkpos + sellen '跳到下一個需要檢查的字元
do while mid$(strtext, checkpos, 1) <> chr(10) _
and mid$(strtext, checkpos, 1) <> chr(13) _
and checkpos <= txtlen '檢查
checkpos = checkpos + 1
sellen = sellen + 1
loop
richtextbox1.selstart = selpos
richtextbox1.sellength = sellen
richtextbox2.text = richtextbox2.text + richtextbox1.seltext + chr(13)
checkpos = instr(selpos + 1, strtext, strfind)
loop
end sub
2樓：火星飛人
你宣告的m時整形變數
m = richtextbox1.selstart返回的會不會是字元型變數
改為：m = val(richtextbox1.selstart)
vb問題求助
3樓：涐吢銥舊囿儚
picvoltage 這是一個picturebox控制元件的名稱。
在窗體內畫上一個picturebox
控制元件後，再在屬性視窗中，(名稱)那兒，可更改控制元件的名字。
picvoltage.scale (0, 50)-(maxplotno, 0)
這句是設定 picvoltage 控制元件的「度量範圍」，即把它的「有效顯示區域」的左上角
座標設定為(0, 50），右下角設定為(maxplotno, 0)
再解釋一下，我這兒說的「有效區域」是指它可用來輸出的範圍，如果它是無邊框
的，則整個控制元件的區域都是「有效區域」；如果有邊框，就是除開邊框後，剩下
的內部的那塊矩形區域。
picvoltage.drawwidth = 2
設定 picvoltage控制元件的「畫線寬度」為2 。可以簡單的理解為「它的畫筆粗細」。
picturebox的圖形方法（line、circle、pset等）畫出的線條粗細，就受這個參
數的控制。它的初始預設值是 1 。
這個 drawwidth不受 .scale（及相關）引數設定的影響，總是「象素」為單位的。
4樓：
應該是一個 picturebox控制元件的名稱。
你開啟設計介面上，然後右邊的屬性視窗中，有個下拉框，你看下是否 有這個名稱
5樓：
應該是一個表示電壓的**框。
vb問題求助!
6樓：柔誠遊羅
ifm=3
then
a(m-1)=a(i-2)
else
a(m)=a(i)
ifi=3
then
a(i+1)=a(m-4)
這兩句只是代表當m和i等於3時，應該輸出的值定義a(5)的意義是，定義了一個陣列，是用於存放後面a陣列的值
vb問題求助
7樓：匿名使用者
private sub text1_keypress(keyascii as integer)
if keyascii >= 97 and keyascii <= 122 then
label1.caption = label1.caption & chr(keyascii - 32)
else
label1.caption = label1.caption & chr(keyascii)
end if
end sub
vb問題求助！！！急~~~~ 30
8樓：平晴虹
如果是為了應付作業，用vb做很簡單的，書很多，買來一本學學，大同小異。
如果是以後從事這個行業的話，用.net做吧，可以學到很多知識。
也可以找人來做應付了事，找我吧，給200元怎麼樣，還教你每條**什麼意思。
9樓：甲甲蟲
簡單，但是很累人的東西，純屬體力活，你要是想找人代做倒可以聯絡我。
10樓：
大哥,自己動動腦筋吧~
這種東西說做就做嗎?
哪個地方不會在上來問嘛
求助vb問題 10
11樓：匿名使用者
如果是求思路,那你要說明你**不能實現.
如果求人做程式,這裡估計沒人有閒功夫,有閒功夫的不一定做出來
12樓：匿名使用者
贊同2樓。
自己先做，有問題大家會樂於幫助，但要做個完全程式，除非你的要求別人現有。
13樓：井葉孤彤
............蛋疼
14樓：印元斐布緞
private
subcommand1_click()
fun(「abcdefg」)
'''顯示fun函式返回的值,給fun函式輸入的值是"abcdefg"
endsub
function
fun(st
asstring)
asstring
'''定義一個公有字串型函式
stlen=len(st)
''''
stlen=輸入的字元的長度
temp=」」
''清空temp
fork
'''''
語句有錯
fun=temp
'''''
返回temp的值
endfunction
15樓：司寇賢柏媼
temp=」」
fork
fun=temp
樓主我實在不懂你這三句是什麼意思，temp、k兩個變數沒有定義，這樣執行的話肯定出錯的。這是題目答案嗎，太荒唐了，或者可能你只貼上來一小段**，請把完整**貼上來看看。
16樓：
你要的什麼程式功能描述還是不夠明白
VB程式設計問題，VB程式設計問題
dim a,b 定義兩個變體型變數a，b，在該模組範圍內有效 private sub form load 窗體載入事件觸發的函式 a picture1.width 記錄 框控制元件picture1的寬度到a變數 b picture1.height 記錄 框控制元件picture1的高度到b變數 hs...
vb 整除的問題，VB 整除的問題
private sub command1 click dim n as integer,sum as longn cint text1.text if n 1000 or n 1 thenmsgbox 輸入數值超範圍 exit sub end if for i 0 to n step 3sum su...
vb的問題 5，關於vb的小問題
首先timer1在屬性那設定interval 設為100,表示100毫秒 label1屬性的caption設為 上機測試。dim step as integer private sub command1 click trueend sub private sub command2 click fla...