Public Class Form1
站在用户的角度思考问题，与客户深入沟通，找到衡阳县网站设计与衡阳县网站推广的解决方案，凭借多年的经验，让设计与互联网技术结合，创造个性化、用户体验好的作品，建站类型包括：网站制作、成都网站制作、企业官网、英文网站、手机端网站、网站推广、域名与空间、网站空间、企业邮箱。业务覆盖衡阳县地区。
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属性设置：AutoSize设置为F，Size设置为440，190，BACKCOLOR设置为WHITE
肯定可以嵌套，是你的判断语句出错了。
If c Mod b = 0 Then
哪来的c？既然没有赋值，那么c=0，这句始终成立，所以没有输出。
应该是：
If a Mod b = 0 Then
而且你的判定是素数的条件也不对，程序应该是这样的：
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) + "是素数！！" + Chr(13) + Chr(10) + Text1.Text
Next
因为数组是引用类型，所以直接赋值会出现这种情况
可以在kb=k后单独复制数组
kb.rr=k.rr.Clone
这样两个数组就是独立的了
之所以先kb=k是为了当其含有多个成员时值型成员可以直接复制，只需Clone引用类型的就行了
你确信只循环一次吗？我看不像，在最后添加上一句msgbox jishu1，多半显示3。
是在第二块代码中有问题，你应该把chaxun4 = xlsheet.Range("l1").Value + 2分别放到两个条件句中初始chaxun4变量。
因为上一个Do Until atmbianhaop = xlsheet.Range("B" chaxun4).Value 循环退出后，下一个循环一开始就符合退出条件了，所以循环没有进行了。
嵌套是指一个过程调用另一个过程的使用,递归过程是这个过程中调用本过程的使用。递归是嵌套的一种特殊形式，递归过程必须有“归点”，也就是终止调用本身的一个分支
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
