vb.net嵌套循环 c语言中嵌套循环

vb.net 关于循环语句

我写了一段代码，注意你读取的方法，我改进了一下 Imports System.IO ‘代码窗体的最上端一定要声明

成都创新互联公司主要从事网站设计制作、成都网站设计、网页设计、企业做网站、公司建网站等业务。立足成都服务瑞安,十载网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:028-86922220

Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim sr As StreamReader Dim TextBox As Control

Dim i As Integer

i = 1

For Each TextBox In Me.Controls

If TypeName(TextBox) = "TextBox" Then sr = New StreamReader("c:\save\" i ".ini", System.Text.Encoding.Default) ’注意选择编码方式，按你原来的方法，未设置编码，显示的是乱码！路径请按你的情况改！ TextBox.Text = sr.ReadToEnd()

i += 1 End If

MsgBox("已经载入" i - 1 "个文件") End Sub注意：这样的代码是倒序的，第一个文本框显示的是最后一个文件的内容！请酌情处理！

在VB.NET中怎么实现多窗体同步

这是一个有趣的问题我保证某些聪明的编程好手会建议我使用委托在这种事情发生之前让我们先探究一下这个问题的几种解决方案假定我有两个窗体每个窗体都有两个 textbox 控件 txt stData 和 txt ndData 我怎样才能保持这两个窗体中的控件同步呢？对于我们讨论的问题来说有两个或十个窗体都不重要问题是相同的第一个办法相对简单事实上它甚至比我们直接使用委托更为简单我想委托有时会给人用牛刀杀鸡的感觉首先我建立一个类它包含我希望与应用程序中的所有窗体共享的属性(参见 Figure ) 例如 MyData 和 MoreData 拥有每个窗体都能显示的数据我将很快回到这个类来第二正如我早先提到的我用相同的控件(txt stData 和 txt ndData)建立了两个窗体你可以参考 Figure 的布局两个窗体都有完全相同的数据并且我将很快解释为什么下面我建立一个名为 modGeneral 的模块并加入下面一行代码 Friend DataStuff As DataClass 这一行代码为我的新类 DataClass 创建了一个友元变量使你可以完全访问程序集对这个简单例子来说也就是指完整的应用程序然后我添加了下面的代码到 Form 的 Load 事件 DataStuff = New DataClass Me txt stData DataBindings Add( Text DataStuff MyData ) Me txt ndData DataBindings Add( Text DataStuff MoreData ) 第一行建立一个 DataClass 新实例下面两行代码将数据绑定到 textbox 控件对这个窗体而言就这么些操作！现在你怎样让它们与 Form 和其它窗体上的数据同步呢？将下面两行加入到 Form 的窗体load 事件中去 Me txt stData DataBindings Add( Text DataStuff MyData ) Me txt ndData DataBindings Add( Text DataStuff Moredata ) 这个方法容易确保所有窗体上的几乎任何类型的数据处于同步状态你可以简单地将控件绑定到某个类的相同实例上这就行了现在来看另一个方法我创建了一个名为 frmBase 的新窗体这时我在上面放一个 textbox (txtNextData)和 label 我想让应用程序的每个窗体都共享这个 textbox 和 label 并且我希望它们互相之间保持同步于是我重建这个工程通过从新的 frmBase 中的继承我创建了 Form 和Form 因此它们继承了所有新的控件但是我怎样能保持这些控件同步呢？这时必须写一点代码去达到此效果这些代码在单个的类中通过简单地调用一个函数而被复用 Figure 中的代码展示了这个称为 modGeneral 模块它的第一个任务是定义两个变量 MyForms 和 localNextData MyForms 是一个集合它将包含我想要同步的窗体列表 localNextData变量将储存所有我想要在窗体里显示的数据注意这些变量可以驻留于某个类中而不是某个模块里 AddForm 过程来自 modGeneral 带一个窗体实例参数并将其加入 MyForms 集合中我将在UpdateControlsNextData 过程中使用这个集合以决定哪些窗体要更新 AddForm 也调用UpdateControlsNextData 来确保一个新窗体是用正确的数据更新的 modGeneral 中的其它代码是 NextData 属性这些属性的 set 存取器更新 localNextData 并也调用 UpdateControlsNextData 去同步所有窗体这时所有我需要做的是在想要改变它时设置 NextData 通过调用 UpdateControlsNextData 所有窗体将被更新第三个方法是定制链接它是第二个方法的精华版我创建它以获得多一些窗体控件处理的灵活性例如我只想跟踪和处理某些窗体这些窗体包含必须同步的控件这个方法还可以让我自己定义拟同步的控件并且只处理这些控件的窗体我为这个办法添加了另一个模块 (modGeneralv ) 如 Figure 所示该模块包括一个集合(MyFormsToUpdate) 其中包含所有我想要同步的窗体这个模块还有一个新的数组 (ControlsToUpdate) 它提供一个我要同步的控件列表该数组的定义如下 Private ControlsToUpdate() As String = { txtCustomer txtAddress txtName } 这个模块里有一个新的替代 AddForm 的改良版本叫做 AddFormToUpdate 该方法工作方式与AddForm 类似但现在它只添加拥有一个或多个 ControlsToUpdate 数组中控件的窗体因此只有那些含有特定控件的窗体在更新集合中它使我可以从每个窗体中调用该函数如果我决定以后添加某个特定的控件它将会被自动添加到窗体列表我只需对窗体代码做细小的改动便可以实现这个模块还包含 UpdateControlsOnAllForms 过程它执行更新代替上一个方法中使用的一个应用程序级变量我现在使用主窗体的概念因此我可以将那个窗体的值拷贝到集合中的所有其它窗体 UpdateControlsOnAllForms 其实就是一组简单的 For Nexts 循环遍历某个窗体的所有控件找到需要更新的控体并更新它们为了在我的窗体中实现这一功能我在窗体的 Load 事件中加入了这一行代码 AddFormToUpdate(Me) 另外一种可选的方法我可以将它添加到构造函数这一行代码将把当前窗体实例添加到集合进行更新现在让我们考察单个事件过程 Private Sub txt_Leave(ByVal sender As Object _ ByVal e As System EventArgs) Handles txtAddress Leave _ txtCustomer Leave txtName Leave UpdateControlsOnAllForms(Me) End Sub 这段代码将我想要同步的所有三个控件 (txtAddress txtCustomer 和 txtName)的 Leave 事件捆绑到一个事件句柄上这时我可以添加一行代码来调用 UpdateControlsOnAllForms Me 被传递到该过程调用从而导致其它窗体与该窗体同步现在我有三个版本的代码它们都可以同步窗体中控件因此我可以进行选择我可能已经使用了自定义事件在 DataClass 中定义某个事件并让每个窗体都预订它然后当这个事件触发时这些窗体可以从每个事件句柄中获取新的数据并设置适当的控件但是这样做所需的代码量一点也不会比第一种方法中将控件绑定到类来得少我可以构建单个实现更新的过程并将该过程放到某个模块中我需要向该过程传递窗体实例来实现更新我可以用类中的某个事件句柄触发这个过程此过程看起来就像这样 Sub UpdateControls(ByVal ThisForm As frmBase) With ThisForm txtNextData Text = localNextData End With End Sub ThisForm 参数被定义为 frmBase 类型以便它可以访问 IntelliSense 并获得窗体的自定义属性简单地将它写成 Form 将无法显示 frmBase 中的属性及其派生窗体另一选择是使用委托当然委托可以让我将委托调用重定向到每个窗体的方法上如果我使用多播机制那么我可以让每个窗体都处理该事件并更新相应的控件用委托建立这样的功能听起来确实简单但对我来说它更麻烦且没有实践价值此外与第三个方法中的 For Next 循环嵌套相比这个代码并不难理解毕竟一个应用程序花费最大的部分仍然是它的维护 lishixinzhi/Article/program/net/201311/11593

vb.net 循环结构嵌套

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

Label1.Text = Label1.Text vbCrLf

End Sub

End Class

label属性设置：AutoSize设置为F，Size设置为440，190，BACKCOLOR设置为WHITE

VB中可以FOR循环语句中嵌套for语句嘛?如果不行为什么系统不报错！系统环境（vb。net win7）谢谢！！！

肯定可以嵌套，是你的判断语句出错了。

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

If b = a Then Text1.Text = Str(a) + "是素数！！" + Chr(13) + Chr(10) + Text1.Text

简述vb.net过程的嵌套调用和递归调用

嵌套是指一个过程调用另一个过程的使用,递归过程是这个过程中调用本过程的使用。递归是嵌套的一种特殊形式，递归过程必须有“归点”，也就是终止调用本身的一个分支

网站栏目：vb.net嵌套循环 c语言中嵌套循环
本文网址：http://pwwzsj.com/article/hgigop.html