求解一道VB題目,一道vb題目求解。

時間 2022-01-13 05:40:10

1樓:匿名使用者

由圖上**,經執行所得值如下:

a(3,2) 的值是 1,a(1,2) 的值是9,a(2,3) 的值是 7.

如下圖所示:

2樓:

我只能看懂vb**,vb的除錯那些不太熟。我用c語言寫了乙個一樣的程式,把每一步的計算過程輸出出來了,你看一下。

下面是c語言的**,有興趣你可以自己去執行一下看看。

#include

int main ()

; //宣告乙個4*4的二維陣列,並初始化為0int x,y;

for (x = 1;x <= 3;x++)printf("\n");

}printf("\n");

a[i][j] = k;  //a[3][2] = 1for (k = 2;k <= 9;k++)else if(i <= n && j > n)else if(i > n && j > n)else if (i <= n && j <= n && a[i][j] != 0)

else

a[i][j] = k;

}printf("\n");

for (x = 1;x <= 3;x++)printf("\n");

}return 0;}

一道vb題目求解。

3樓:繁花落盡紫禁城

我們就是超級巨星,超級巨星。我們有傳遞快樂的魔力。。。我們就是超級巨星,超級巨星。

我們有傳遞看來的魔力。。。。我們就是超級巨星,超級巨星。我們一傳遞快樂的魔力。。。。。

我們就是超級巨星,超級巨星,我們有傳遞快樂的能力………………yenh ……

4樓:皇妃子

他一直有個騎行環遊中國的夢想,從大三開始就積極在各大平台**上聯絡驢友,可就在準備出發的當口,他實習的公司正好趕上業務增長的繁忙期,每天連按時下班都是奢望,更別說請幾個月的長假。

他的經理也說得直白:「你可以走,但肯定回不來,這個崗位多少個應屆生在競爭,哪兒可能留到你旅遊完再來幹。」

他恨不得轉身就飛奔而去,卻迫於囊中羞澀,父母又以斷絕經濟援助要,依舊得乖乖地打卡上班加班。

他跟我吐槽說,這個社會真是太壞了,一點也不鼓勵年輕人追求夢想體驗生活。

求解一道高中vb題目!

5樓:匿名使用者

private sub form_click()dim i as integer

dim s as integer

s = 1

for i = 1 to 9

s = (s + 1) * 2

next i

print "s="; s

end sub

是1534個 迴圈9次。因為第十天已經剩下1個 就沒再吃了 樓上那位 han4422951 - 都司 七級 初始值s為1 你還用除2 真服你了。~

6樓:匿名使用者

dim a%, s%, i%

a = 1 : s = 0

for i = 1 to 9

s = a * 2 + 2

a = s

next

print "s="; s

你拿筆自己演算一下就會知道,每一天的桃子數總是第二天的兩倍多兩個,第四行**就是根據每天的桃子數算出前一天的桃子數,然後再根據前一天的桃子數算出再前一天的桃子數,這個迴圈不能迴圈十次,因為迴圈了九次後已經是最初一天的桃子數了!最後的答案是1534

7樓:who絕版笨_我

這不是數學題嗎?

dim taozi as long

taozi=1

for i=1 to 10

taozi=taozi+1

taozi=taozi*2

next i

msgbox "桃子總數: " & trim(taozi)

8樓:匿名使用者

private sub form_clickdim n%,i%

x=1print"第10天的桃子數為:1個"

for i= 9 to 1 step-1

x=(x+1)*2

print"第";i;"天的桃子數為:";x;"個"

next i

end sub

求解決一道vb題目 20

9樓:哲宇寶寶

擴充套件名為vbp的工程檔案中包含有 。a.工程中所有模組的有關資訊b.每個窗體模組中的所有控制項的有關資訊c.每個模組中所有變數的有關資訊d.每個模組中所有過程的有關資訊

解答:i的迴圈為1,2 j的迴圈為1,2,3,4 當j為奇數時做a=a-1;然後做a=a 1 所以 i=1:j=1:

a=a 1 >>a=1 i=1:j=2:a=a-1:

a=a 1 >>a=1 i=1:j=3:a=a 1 >>a=2 i=1:

j=4:a=a-1:a=a 1 >>a=2 i=2:

j=1:a=a 1 >>a=3 i=2:j=2:

a=a-1:a=a 1 >>a=3 i=2:j=3:

a=a 1 >>a=4 i=2:j=4:a=a-1:

a=a 1 >>a=4 所以最後的結果時4

10樓:聽不清啊

b=i \ 10 mod 10

print i

11樓:明恬謐

private sub command1_click()dim s as integer

for s = 100 to 999

if s = mid(s, 1, 1) ^ 3 + mid(s, 2, 1) ^ 3 + mid(s, 3, 1) ^ 3 then

text1.text = text1.text & s & vbcrlf

end if

next s

end sub

求一道VB題目急求

按照你的意思,相當於把陣列按正序和反序分別輸出。編寫程式如下 dim a 1 to 20 as integer,i as integer for i 1 to 20 a i inputbox 請輸入第 str i 個數 next i for i 1 to 20 print a i next i pr...

求1道小學VB程式設計題目謝謝,急求!一道VB程式設計題 謝謝!

private sub form click dim i j s i 1,j 0 do while s 2000 j i j s s j i i 1 loop print n i print s s end sub 有點不記得了 大概是這樣的 你自己除錯一下哈!private sub form cl...

一道數學題目,求解,數學一道題目,求解

題目是這樣的如圖,c 90 ac bc,bd平分 abc,交ac於d,de ab於e,若ab 5cm,則 bde的周長為多少?解 利用 dcb deb aas 得de cd.因為 c 90 ac bc,所以bc ac 5 2 根號2 設 cd x 則de x,ad 5 2 根號2 x 在直角 dea...