Public?Class?Form1
站在用戶的角度思考問題,與客戶深入溝通,找到衡陽縣網(wǎng)站設(shè)計與衡陽縣網(wǎng)站推廣的解決方案,憑借多年的經(jīng)驗,讓設(shè)計與互聯(lián)網(wǎng)技術(shù)結(jié)合,創(chuàng)造個性化、用戶體驗好的作品,建站類型包括:網(wǎng)站制作、成都網(wǎng)站制作、企業(yè)官網(wǎng)、英文網(wǎng)站、手機端網(wǎng)站、網(wǎng)站推廣、域名與空間、網(wǎng)站空間、企業(yè)郵箱。業(yè)務(wù)覆蓋衡陽縣地區(qū)。
For?i?=?1?To?9
For?j?=?1?To?9
If?j?=?i?Then
Label1.Text?=?Label1.Text??"?"??i??"*"??j??"="??IIf(i?*?j??9,?i?*?j,?i?*?j??"?")
End?If
Next
Label1.Text?=?Label1.Text??vbCrLf
Next
End?Sub
End?Class
label屬性設(shè)置:AutoSize設(shè)置為F,Size設(shè)置為440,190,BACKCOLOR設(shè)置為WHITE
肯定可以嵌套,是你的判斷語句出錯了。
If c Mod b = 0 Then
哪來的c?既然沒有賦值,那么c=0,這句始終成立,所以沒有輸出。
應(yīng)該是:
If a Mod b = 0 Then
而且你的判定是素數(shù)的條件也不對,程序應(yīng)該是這樣的:
Dim a, b, c As Integer
For a = 100 To 200
For b = 2 To a - 1
If a Mod b = 0 Then Exit For
Next
If b = a Then Text1.Text = Str(a) + "是素數(shù)??!" + Chr(13) + Chr(10) + Text1.Text
Next
因為數(shù)組是引用類型,所以直接賦值會出現(xiàn)這種情況
可以在kb=k后單獨復(fù)制數(shù)組
kb.rr=k.rr.Clone
這樣兩個數(shù)組就是獨立的了
之所以先kb=k是為了當(dāng)其含有多個成員時值型成員可以直接復(fù)制,只需Clone引用類型的就行了
你確信只循環(huán)一次嗎?我看不像,在最后添加上一句msgbox jishu1,多半顯示3。
是在第二塊代碼中有問題,你應(yīng)該把chaxun4 = xlsheet.Range("l1").Value + 2分別放到兩個條件句中初始chaxun4變量。
因為上一個Do Until atmbianhaop = xlsheet.Range("B" chaxun4).Value 循環(huán)退出后,下一個循環(huán)一開始就符合退出條件了,所以循環(huán)沒有進(jìn)行了。
嵌套是指一個過程調(diào)用另一個過程的使用,遞歸過程是這個過程中調(diào)用本過程的使用。遞歸是嵌套的一種特殊形式,遞歸過程必須有“歸點”,也就是終止調(diào)用本身的一個分支
dim s() as string
For Each fm1 In Panel1.Controls
dim i=0
if fm1.GetType.ToString = "System.Windows.Forms.TextBox" Then
s(i)=fm1.text
i+=1
End If
Next