1樓：匿名使用者
呵呵，我試試。
function maxlength$(s$)dim t$()i&,j&
t=split(s) '以空格分割字串s到陣列tfor i=0 to ubound(s) '遍歷陣列t'如果當前單詞比原最長單詞長，記錄當前單詞的陣列元素的序號。
if len(t(i))>len(t(j)) then j=inextmaxlength=t(j) '函式返回最長單詞。
end function
在這兒寫的，沒進vb除錯。應該沒問題的。
2樓：圖杭科技
excel的列對應sql資料庫表中的欄位。可以直接倒過去。不用程式設計。
vb問題 求解
3樓：匿名使用者
1,b棧的進出方式：先進後出，後進先出！
第一次：進e1,e2 [棧中存著（從上到下）：e2,e1]僅讀出為： e2
第二次進入：e3,e4 [棧中存著：e4,e3,e1]僅讀出： e4 [棧中剩下的存著：e3,e1]再讀出，則為：e3,e1
所以整體進入棧的順序為：e1,e2,e3,e4而整體出棧的順序為：
e2,e4,e3,e1
2b和上題一樣仍是考進棧出棧 記住先進後出（後進先出）所以出棧順序肯定是反著來 只有b滿足這個條件。
求高手解一道vb，謝謝！
4樓：東谷秋
錯了吧。結果x跟i應該都是21
來看下過程：
x的初值是5
i = 1 to 20 step 2
就是從1到20每次遞增2所以是。
到21的時候超出20，迴圈不再執行。
所以迴圈一共執行10次。
看一下執行過程。
x的值 i的值。
第一次 5 1
第二次 5 3
第三次 6 5
這裡說一下，因為x在小於5的時候\5(整除5)都是0所以x的值不會有變化。
第四次 7 7
第五次 8 9
第六次 10 11
第九次 18 17
第十次 21 19
到這裡i還要在遞增2，所以值就變成了21，在去判斷21是否小於20因為不小於20，所以迴圈不再被執行，x的值還是21所以結果是21 21
即x=21 i=21
ps：\是整除的意思 /是除以的意思，不要搞混哦。
完畢，希望對你有用，謝謝~~
一些vb問題
5樓：匿名使用者
1、print輸出時，是靠逗號和分號來連線下一個輸出內容的，雖然逗號表示隔一段距離輸出，分號表示緊密相連，但是總是將本來應該下一行輸出的內容「拉」到同一行。
如果光溜溜的輸入一個print，後面自然不帶分號和逗號，那必然換行，輸出內容了，但是內容是「空」，你是看不見的。而這個「空」後面，不帶逗號和分號，後續輸出內容自然另成一行。
2、str表示將數字轉化成字元，所以裡面只能是數字，你如果純粹輸出數字比如print 5，得到的5前面也是有空格的，這個空格是放正負號的，不信你輸-5看看，由此，str轉化後，前面也得有空格。
3、可以修改，但是不建議這樣改，你可以在form_load的時候add進去。
4、想不想show，就看你自己需要不需要。
5、k的取值分別是10, 25 40，迴圈3次，掉出迴圈後k為55，s就是10+25+40
6樓：匿名使用者
1.不能 2.格式問題 3.可以 4.有多個視窗有時候
7樓：網友
能表示換行而非另加一空行嗎 【可以】,(n為數字)是字元，為什麼前後還有空格 【這個是vb的問題，可以用trim(str(n))】
3.下拉選單框的text屬效能在屬性視窗修改嗎 【可以，但需這個的style屬性值為0】
4.什麼時候formload 中要加show 【當你需要載入且顯示另一個未顯示（或隱藏了）的視窗時】
k=10 to 50 step 15s=s+k
next k
print s
s=75】s=多少。
請教vb問題
8樓：匿名使用者
涉及的知識：
1，產生隨機數。
2，陣列。3，排序演算法。
解決思路：1，產生隨機數：
x = int(rnd*10)
2，本題用二維陣列，第1維存放0-9，第2維存放對應出現的次數。
定義陣列，並初始化，使得陣列的第一維，存放0-9的數字，即：
d(1,0)=0;d(1,1)=1;d(1,2)=2;..d(1,9)=9;
dim d(1 to 2,0 to 9) as integerdim i as integer
for i=0 to 9
d(1,i)=i
d(2,i)=0 '第2維設定0
next i
3，排序演算法，網上很多搜一下就有。
完整**：1，初始化。
dim d(1 to 2, 0 to 9) as integerdim i as integer
for i = 0 to 9
d(1, i) =i
d(2, i) =0
next i
2，產生隨機數，並計數。
dim x as integer
randomize
for i = 1 to 200
x = int(rnd * 10)
d(2, x) =d(2, x) +1 '說明：假設x=5,那麼d(1,5)裡存放的是5，這樣使得d(2,5)增加1
next i
3，排序。dim j as integer
for i = 0 to 9 - 1
for j = i + 1 to 9
if d(2, i) d(1, i) =d(1, j)
d(1, j) =x
x = d(2, i)
d(2, i) =d(2, j)
d(2, j) =x
end if
next j
next i
4，輸出排序結果。
print "數字", 結果"
for i = 0 to 9
print d(1, i), d(2, i)next i
以下vb問題，請高手解答
9樓：匿名使用者
1.現有一件原價1000元**產品，如果單價降5元，銷量就能增加10件。那麼，按照這樣的**手段，持續下降2天，銷量增加20件；下降3
天，銷量增加30件……如果持續下降20天，銷售**為多少？（900元）增加銷量多少件？（200件）
for i =1000 to 900 step___5___
s=_s+10___
next i
print 」20t天后的銷售**為」;i,」增加銷量」;s;」件」
2.學校要求學生每學期練字200頁，每天至少練字2頁，最多練字10頁。
for y =_2 to 10___
t =_200/y___
print 」每天練」;y;」頁」;」需要」;t;」天」
next y
3. 現有一個自我評價的程式。如果自我評價的分數小於3分，則顯示「只退不進」；如果自我評價的分數大於3分，小於10分，則顯示「不。
進不退」；如果自我評價的分數大於10分，則顯示「只進不退」。
let x=
if x>3 then
if x <10 then
print 」 不進不退___
elseprint 」 只進不退」
__end if___
elseprint 」 只退不進」
end if
4.有一個用身高-體重測試健康狀況的方法，如果身高小於160並且體重超過160，則為「亞健康身體」；如果身高大於160並且體重小於160
則有「健康身體」。（題意純屬杜撰）
let sg=
let tz=
if sg>160 and __tz<160___then
print 」健康身體」
elseif__sg<160 and __tz>160_then__
print 」 身體亞健康」
end if
end if
月考只考了60分，但他知道「刻苦學習提升成績」的道理。為此，tom放棄每週的活動來學習，他計劃每週提高5分成績，直到獲得90
分才能去上活動課。程式執行後，成績不到90分時輸出「繼續努力」，成績達到90分後，輸出「恢復活動課」。
cj=60do while cj<90
print "繼續努力"
cj=cj+5
loopprint "恢復活動課"
有哪位大神會vb第三題，求指教！
10樓：匿名使用者
單擊按鈕一次 for迴圈2次。
第一次時y=0 x=2
第二次時y=2 x=4
單擊按鈕第二次時 因為x變數定義為靜態變數 值被保留第一次時y=4 x=6
第二次時y=10 x=8
單擊按鈕第三次時。
第一次時y=8 x=10
第二次時y=18 x=12
結果是列印12 18
請教VB問題
tab n 從最左第1列開始算起定位於第n列，若當前列印位置已超過n列，則定位於下一行的第n列，這是常常定位不好出現的問題。在格式定位中，tab用得最多。spc n 從前一列印位置起空n個空格。例如，下面程式段顯示了tab與spc的區別，效果如圖所示。private sub commandl cli...
vb問題！請教大蝦一下
看了下,好像這樣才是樓主的意思 共需一個text控制元件和一個button控制元件 dim i as integer dim findstr as long 全域性變數 findstr為查詢到的位置 i為字串長度 private sub form load text1.text 比如查詢你好再點選按...
求解VB程式設計題（初學者），請教一道VB陣列程式設計題（大學初學者），謝謝！！！
恕我直言,要查錯遠遠比解題麻煩多了.所以,如果可以,請把題目補充出來,晚一點我再看回來.祝好運.我也貼一段 function ishuiwen n as double as boolean 判斷是否迴文數 ishuiwen false dim m,i as double m 0 i n while ...