VB求解啊 急,求用VB解答

2023-05-26 10:45:11 字數 5923 閱讀 2452

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高手!!!!!!!!!!!!!1

吾桐語 完全照你圖做的 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 p...

急!!VB程式設計 求1!2!3100

展翅東南飛 先定義一個遞迴函式f x if x 0 return f x f x 1 if x 0 return x 1 然後再把你上面的式子用個迴圈加起來就行了 vb的具體語法我忘了 上面就說個大概意思 100的階乘是天文數字,vb算不出來 private sub command1 click p...

VB程式求解

1樓 網友 1 因為x,y是sub from click的區域性變數,因此在sub proc1中x,y的值為空值,因此,a,b為空值,print a,b列印出2個0來。2 因為vb預設是按地址傳遞,因此a,b為空值導致其實參x,y也被更改為空值,因此,print x,y為兩個0.所以最終的答案為 0 ...

急求一道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...

用vb計算,用VB計算N!

我也很無聊。dim result as long dim n as integer 初始化result n result 1 n cint text1.text 使用while while n 0 result result n n n 1 loop 使用for dim i as integer f...

急求VB倒計時器求各位哥哥姐姐咯!VB我只會一點點!盡

要用timer 就行 求 vb 10秒倒計時 dim test as long private sub form load timer1.interval 1000test 10 text1.text timer1.enabled trueend sub private sub timer1 tim...

急求vb答案考試要用跪求了

答案是 第一題 36 第二題 55 第三題 2 6 4 6 8 1.36 2.55 3.2 6 4 6 8 逐鹿傳說 我就瘋了 你不就是要結果嗎 你能把 敲到baidu上 就不能在vb裡敲一下 然後執行一下啊 第一題 36 第二題 55 第三題 2 6 4 6 8 測試過,完全正確。 我暈 把 複製...

VB程式設計題。。求助,vb程式設計題求解!!!謝謝各位了!!

我已經做好了,郵箱?發給你!vb程式設計題求解!謝謝各位了!vb程式設計題。求助! 做了一個指標式動態時鐘,是以系統時間顯示的,有時 分 秒的指標,也有數字顯示。但是沒有你說的校時功能,因為是系統時間,不需要校時。秒針的角度轉動同時改變分針和時針的角度轉動,並且最小轉動角度為6度 一圈是360度,符...

用VB怎麼把12345變成,用VB怎麼把12345變成54321

最簡單bai的就是用strreverse函式 du假設zhitext1.text 12345在發生 mand1的單dao擊事件時要專讓text2.text 54321 語句屬為 private sub mand1 click text2.text strreverse text1.text end ...

VB求助 求Sn a aa aaa aaaaaa aaa n個a

當i不等於n的時候在s字串最後加上一個 號,當輸出最後一個字串,比如22222時候i 5,n 5,這個時候不要再s最後加上 號 如果有這句,比如a 2,n 5時候輸出是這樣的 當a 2時,n 5時,s 2 22 222 2222 22222如果沒有這句if i n then s s 那麼輸出是這樣的...