1樓：牛人影視
dim p as integer
用**框控制元件陣列。
private sub form_load()
給3個**框裝載影象。
picture1(0).picture=loadpicture("c:\"
picture1(1).picture=loadpicture("c:\"
picture1(2).picture=loadpicture("c:\"
picture1(1).visible=false'隱藏其中兩個**框。
picture1(2).visible=false
設定計時器。
end sub
private sub timer1_timer()
picture1(p).visible=false'隱藏正在顯示的**。
p=p+1if p=3 then p=0'迴圈顯示**。
picture1(p).visible=true
end sub
2樓：原創文章工作室
public i as integer
private sub form_load()i=1end sub
在time事件中。
if (i mod 3)=1 then
顯示第一個影象框。
elseif (i mod 3)=2 then顯示第二個影象框。
else顯示第三個影象框。
i=1 '這裡用i=1而不用i=i+1 怕執行時間長了之後i會溢位。
end if
3樓：
我對「橡皮樹的部落格」的做個補充：
控制元件資料根一般的陣列使用是相同的，你先新增一個picture控制元件，然後複製貼上控制元件就會提示是否使用控制元件資料，picture1(i)就代表控制元件陣列中第二個控制元件。
picture1(0).picture=loadpicture("c:\"是從外部讀取**，你要在屬性裡面設定了，就不需要了。
求用vb解答
4樓：聽不清啊
製作這個程式的時候先在窗體中加入一個標籤，並且把窗體標籤的內容設定為空，然後再製作一個命令按鈕，也把命令按鈕的顯示改為開始，再加入一個定時器控制元件。核心在於計時器控制元件中。需要設定一個全域性變數t，並且在窗體的裝載事件中設定t的值為60，並且把標籤的顯示就是等於t。
然後設定定時器控制元件的屬性，時間屬性為1000毫秒，每隔1000毫秒之後，定時器控制元件就觸發一次，把t的值減1，並且更新標籤的顯示內容，當t的值達到0的時候就不顯示0，而是顯示「時間到」三個漢字。並設定定時器控制元件的interval屬性為0
dim t as integer
private sub form_load()t = 60= t
= 開始"
end sub
private sub timer1_timer()t = t - 1
if t > 0 then
= t= 時間到"
end if
end sub
vb題目求解
5樓：匿名使用者
完整**如下：
dim s1, s2, l as doubledim i as integer
l = 1 +
s1 = 0
for i = 1 to 24
s1 = s1 + 1000 * l ^ i - 1)next i
s2 = 0
for i = 1 to 24
s2 = s2 + 1000 + i - 1) *100next i
if s1 > s2 then
msgbox "選擇a公司"
elsemsgbox "選擇b公司"
end if
執行結果顯示選擇：a
6樓：我tm不管
private sub form_click()print "加工資的方式a："
salary = 1000
for i = 1 to 24
salary = round(salary * 第" &i & 個月：" salarysuma = suma + salary
nextprint "加工資的方式a24個月工資總和：" sumaprint ""
print "加工資的方式b："
salary = 1000
for i = 1 to 24
salary = salary + 100print "第" &i & 個月：" salarysumb = sumb + salary
nextprint "加工資的方式b24個月工資總和：" sumbprint ""
print "加工資的方式a與加工資的方式b的差額：" suma - sumb
end sub
vb的問題
7樓：
int函式是取整的。
因此表示式的值是：32+23=55
三個vb的問題 求解
8樓：匿名使用者
第一個題，當i等於四的時候，已經超出了迴圈中最大值3了，所以就不會再次執行迴圈體中的內容，但結束後，i值經過了next後再加上步長1，這時i變成4了，已經超過了to 3的這個最大值，所以不會再繼續迴圈下去，這個題和後面的第三題有些相似。
第二個題，它是一個二維陣列，第一維中有2-5共四個陣列，第二維則是從0開始到5結束，也就是共6個陣列，最終元素個數為4*6=24個。它的結構如下：
a(2,0),a(2,1),a(2,2),a(2,3),a(2,4),a(2,5)
a(3,0),a(3,1),a(3,2),a(3,3),a(3,4),a(3,5)
a(4,0),a(4,1),a(4,2),a(4,3),a(4,4),a(4,5)
a(5,0),a(5,1),a(5,2),a(5,3),a(5,4),a(5,5)
第三題，第一次迴圈時，i是1，到了i=i*2時，i值為2，next是下一個，然後通過步長2，得到i值是4，這時開始第二次迴圈，到了i=i*2時，i值為8，經過next後再加上步長2，i值為10，還滿足迴圈條件，所以進行第三次迴圈，到了i=i*2時，i值變為20，然後通過next回到for，加上步長2，得到i值繫於22，此時，不滿足迴圈條件，程式退出迴圈，所以，最終得到的i值是22。
9樓：匿名使用者
但是我卻覺得最後這個i的值為3 還在i=1to3的範圍裡 還應該加步長1得4執行一次操作啊 最後應該是7啊 難道最後一次不用執行嗎。
i會增加1但迴圈內容不再執行！
a（2to5,5）2 to 5 為4，5為6或5 見option base 1,相乘就好了。24或20
是22，與（1）一樣的。i會增加2但迴圈內容不再執行！
10樓：匿名使用者
第一題迴圈次數 i值 a值 a的執行方式。
初始 0 1 無。
第一次 1 2 a＝a+1
第二次 2 4 a＝a+2
第三次 3 5 a＝a+1
到第三次的時候已經迴圈過第三次了，第四次i已經過了迴圈i＝1 to 3了。
第二題：二維陣列的個數計算方法是＝行*列。
行是2到5 也就是2，3，4，5 四行。
列是5那二維陣列的個數就是4*5＝20
第三題迴圈次數 s值 迴圈i值 執行i=i*2之後i值 next之後i值。
s＝s+1 i=i*2 i=i+2
初始 0 0
第一次 1＝0+1 1 2＝1*2 4＝2+2
第二次 2＝1+1 4 8＝4*2 10=8+2
第三次 3＝2+1 10 8＝10*2 22=10+2
第四次 i 值已經超過10 退出迴圈。
你分析錯誤的主要原因是next之後 i值還會因為step 2 而加上2，得22
你可以試試 for i=1 to 20 for迴圈結束之後i值得21了。
11樓：朱珈藍賀撥
第一題；首先i取值1 則a=a+1得2 再是i加步長1為2 則a=a+2得4 接下來i再加步長1等於3 a=a+1得5
這時候已經是正確答案5了 ，最後這個i的值為3 ，前面定義i= 1 to 3，所以到此就結束了。
第二題：二維陣列a(2 to 5,5),前面2 to5,是一維下標取值範圍為2到5，後面的5是二維下標為1到5，用數學的樹狀法可以知道a(2to5,5)有4*5=20個。
第三題：我也弄不明白。
vb問題 求解
12樓：柳晴桖
解決問題這些，然後qq的話放在開頭看的這麼調壓的方法都是不一樣的，每個人想的都是。
13樓：幸運的蒼老師
被問題求解，肯定要解釋好才行啊，是不是？
14樓：三冥界火麒麟三
未必問題是達到一定的標準才能非常靠譜。
15樓：匿名使用者
一問題求解你可以把他倆互算。
16樓：文化丶兔子
那種變成尾巴，你都可以自己去找到問題。
17樓：單調
問題題目有問題的話，你可知道他可能會更瞭解。
18樓：網友
這個問題應該是要專業的人去解，一般人是解不出的。
19樓：百小度
這個的話可以去進春上班，可以幫你解答的。
20樓：奚連
我覺得你可以去詢問一下你的老師，或者詢問一下你父母吧。
vb問題 求解
21樓：匿名使用者
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問題，求具體解釋
22樓：匿名使用者
對於3題：vb在進行運算的過程，需要用儲存單元存放中間運算過程，而這個儲存單元的型別是根據常數的型別決定的。
例如：x = 100 * 2
vb根據100和2決定用整型來儲存100*2的積。
現在第3題：
print 200 * true * 200會採用整型來儲存 200 * true * 200 的積，所以結果就產生「溢位」。（true轉換為-1）
對於4題：print 200 * false * 200vb首先將false轉換為0，所以結果為0對於6題：
print 200 * cint( *200vb首先將cint(運算得到1，所以也產生「溢位」。
產生「溢位」的原因是，整型型別範圍為：-32768 --32767
23樓：四十五度的主人
解答如下：
1. vb只識別英文標點符號，①裡面是中文的雙引號，所以不識別。
2. 可以，,兩數相乘，結果為40020,這個不需要多說吧？
3. 型別不匹配，true是boolean型別，返回值為1,但是不能與數字直接相乘。
4. 這個可以，false的值就是0,所得結果為0,,,好奇怪，為什麼false就行呢？
這個你先記住吧，我也不知道為什麼這麼規定。
5. fix(,這是個取整函式，得到整數1
6. cint("1",這是個string型別，不能直接與實數相乘，如果改成int(就可以了。
VB作業急求VB高手指點迷津，vb作業 急求VB高手！！！！！！！！！！！！！
完全照你圖做的 private sub command1 click dim a as integer print 1000以內的完數 for i 6 to 1000 s 0 n 0 t for j 1 to i 1 if i mod j 0 then s s j n n 1 redim prese...
急！！VB程式設計 求1！2！
先定義一個遞迴函式f x if x 0 return f x f x 1 if x 0 return x 1 然後再把你上面的式子用個迴圈加起來就行了 vb的具體語法我忘了 上面就說個大概意思 100的階乘是天文數字，vb算不出來 private sub command1 click print s...
急求一道vb程式設計題答案求幫忙,急求一道VB程式設計題答案！！！！！求幫忙！！！！
sub mand1 dim tmp as string dim arr tmp text1.text tmp replace tmp,預防中英文 混淆 if instr tmp,0 then msgbox 您輸入的格式不對！請重新輸入，要求有區回號 exit sub end if arr split...