用VB迴圈巢狀結構設計一程式,用VB迴圈巢狀結構設計一程式

時間 2022-07-09 07:20:07

1樓:七星毛蟲

哥,看不到你的鏈結,說是圖形外部鏈結受限。

2樓:匿名使用者

我也不清楚了,這些只是**

以下的**只是死迴圈,用於任何乙個控制項!開始和結束的**我省略了,把**複製在中間就可以了!while和msgbox後面的數字可以是任何數,都一樣的

while 2

msgbox 2

wend

3樓:匿名使用者

看不到圖,重給個能看的鏈結吧.

關於vb兩重迴圈結構程式設計的問題 30

4樓:

哈哈 定義乙個二維陣列有*的地方陣列成員賦值為*,沒有的值為空如010

101010

不就是菱形了嗎?

然後只需迴圈巢狀結構輸出這個二維陣列即可,輸出二維陣列的例子,課本上應該有吧,你要做的只是把賦值部份改一下就好了,忒簡單了,一點挑戰都沒有

這個用vb的迴圈巢狀程式怎麼編寫 * 呈階梯行的 ** *** **** ***** 10

5樓:匿名使用者

您新建乙個工程,然後將下列**複製進去,執行就可以了private sub form_load()for i = 1 to 5

temp = temp & string(i, "*") & chr(13)

next i

msgbox temp

endend sub

6樓:

在視窗新增乙個command控制項,**放在控制項的click過程中private sub command1_click()dim i as integer

dim prtstr as string

for i = 1 to 5 step 1prtstr = prtstr & "*"

print prtstr

next i

end sub

7樓:甜咖啡很甜

private sub form_click()for i = 1 to 3

print string(i, "*"); space(5 - (i - 1)); string(i, "*"); space(5 - (i - 1)); string(i, "*")

next i

end sub

執行通過

8樓:費涵寒

肯定可以巢狀,是你的判斷語句出錯了。

if c mod b = 0 then

哪來的c?既然沒有賦值,那麼c=0,這句始終成立,所以沒有輸出。

應該是:

if a mod b = 0 then

而且你的判定是素數的條件也不對,程式應該是這樣的:

dim a, b, c as integerfor a = 100 to 200

for b = 2 to a - 1

if a mod b = 0 then exit fornext

if b = a then text1.text = str(a) + "是素數!!" + chr(13) + chr(10) + text1.text

next

9樓:琉璃藍瀨

for i =1 to n

for k = 1 to i+1

print*;

next

print

next

n 是乙個實數吧

不然是死迴圈了。

恩 應該是這樣的吧

10樓:

private sub command1_click()dim i as integer

for i = 1 to 5

print string(i,"*")

next i

end sub

11樓:匿名使用者

private sub command1_click()for j = 1 to 3

for i = 1 to 10

print "*";

next i

print

next j

end sub

vb的迴圈結構程式設計

12樓:

private sub command1_click()dim i as integer

dim s as string

for i = 1 to 9

if i < 3 then

s = string(i, "※")

elseif i < 9 then

s = "※" & string(i - 2, " ") & "※"

else

s = string(i, "※")

end if

print s

next i

end sub

在vb裡利用迴圈巢狀結構,實現九九乘法表。 5

13樓:

dim x(1 to 9, 1 to 9)

private sub command1_click()

for i = 0 to 8

label1(i).caption = ""

next i

for i = 1 to 9

label1(0).caption = label1(0).caption & " " & vbnewline

for j = 1 to 9

if x(i, j) < 10 then

label1(0).caption = label1(0).caption & " " & " " & x(i, j)

else

label1(0).caption = label1(0).caption & " " & x(i, j)

end if

next j

next i

end sub

private sub command2_click()

for i = 0 to 8

label1(i).caption = ""

next i

for i = 1 to 9

label1(0).caption = label1(0).caption & " " & vbnewline

for j = 1 to i

if x(i, j) < 10 then

label1(0).caption = label1(0).caption & " " & " " & x(i, j)

else

label1(0).caption = label1(0).caption & " " & x(i, j)

end if

next j

next i

end sub

private sub command3_click()

for i = 0 to 8

label1(i).caption = ""

next i

for i = 9 to 1 step -1

label1(0).caption = label1(0).caption & " " & vbnewline

for j = 1 to i

if x(i, j) < 10 then

label1(0).caption = label1(0).caption & " " & " " & x(i, j)

else

label1(0).caption = label1(0).caption & " " & x(i, j)

end if

next j

next i

end sub

private sub command4_click()

for i = 0 to 8

label1(i).caption = ""

next i

end sub

private sub form_load()

command1.caption = "矩 陣 顯 示"

command2.caption = "正三角顯示"

command3.caption = "倒三角顯示"

command4.caption = "清 除"

for i = 1 to 9

for j = 1 to 9

x(i, j) = i * j

next j

next i

end sub

14樓:王者l之風

private sub form_load()show

fontsize = 15

print tab(20); "九九乘法表"

dim i as integer

dim j as integer

print

print " *";

for i = 1 to 9

print tab(i * 6); i;

next

for i = 1 to 9

print

print i; " ";

for j = i to 9

print tab(j * 6); i * j; " ";

next j

next i

end sub

15樓:匿名使用者

不太理解你的意思 自己參考一下下面網頁上的第三個問題吧

在vb用迴圈結構設計二維陣列

16樓:

dim rnd as new random() '隨機數填充dim a as integer(,) = new integer(3, 2) {} '定義陣列

for row as integer = 0 to 3 '迴圈行for col as integer = 0 to 2 '迴圈列a(row, col) = rnd.next(10) '給陣列賦值隨機數

next

next

'textbox1是文字框控制項的名字

me.textbox1.text = string.empty '清空原來的文字

for row as integer = 0 to 3 '迴圈行for col as integer = 0 to 2 '迴圈列

17樓:匿名使用者

dim a(3, 3) as integer, i as integer, j as integer

for i = 1 to 3

for j = 1 to 3

a(i, j) = 2 * i - 2 + jprint

vb for迴圈巢狀

18樓:

因為迴圈先從最裡面一層開始,此時y=1,z=1 to 3,z迴圈3次之後,y也同時結束迴圈(y=1 to 1),然後最外層的x迴圈到2,所以執行的時候會有三次x=1,看圖,xyz的值如下:

19樓:匿名使用者

**不全沒法看,不知道你想要表達什麼

鋼結構設計軟體哪些比較好,鋼結構設計用什麼軟體

外行!鋼結構設計軟體太多了,pkpm,3d3s這是最常用的兩個,設計時選型號還要看國標嗎,國標就那些型號,要不太大要不太小,用料不合適,直接自定義截面就行,還有你說的最後一點,鋼結構設計圖就算是尺寸差了十萬八千里也沒問題,因為設計後面還有加工廠深化圖紙,也就是俗稱的拆圖,拆圖可以說是尺寸差一點都不行...

pkpm磚混結構設計,PKPM磚混結構設計?

05版為例 執行1 2 3 8 5 即可出板的圖了 再執行4 然後到pk中執行1 4 即可出樑的圖了 記住要開洞口 並且在牆底下要有樑或牆並把荷載加上 好好學吧 一.pmcad 1.三維建模 荷載輸入 整樓模型2.檢查各層佈置資訊 3.直接傳導計算 4。畫結構圖 然後形成 pk檔案 二.pk 選擇互...

砂型鑄件的結構設計,砂型鑄造對鑄件結構設計有什麼要求?

主要要考慮應力問題,拐角處要圓角,否則容易造成應力集中,產生裂紋或斷裂。其它的和一般結構設計差異不大。一 鑄件結構與鑄造工藝的關係。對鑄件結構的要求包括以下幾點 1.盡量避免鑄件起模方向存有外部側凹,以便於起模。2.盡量使分型面為平面。3.凸台和筋條結構應便於起模。4.垂直分型面上得不加工表面最好有...