vb.net查询循环语句 vb常用循环语句
vb.net 关于循环语句
我写了一段代码,注意你读取的方法,我改进了一下 Imports System.IO ‘代码窗体的最上端一定要声明
创新互联,为您提供重庆网站建设、成都网站制作、网站营销推广、网站开发设计,对服务成都PE包装袋等多个行业拥有丰富的网站建设及推广经验。创新互联网站建设公司成立于2013年,提供专业网站制作报价服务,我们深知市场的竞争激烈,认真对待每位客户,为客户提供赏心悦目的作品。 与客户共同发展进步,是我们永远的责任!
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
Next
MsgBox("已经载入" i - 1 "个文件") End Sub注意:这样的代码是倒序的,第一个文本框显示的是最后一个文件的内容!请酌情处理!
VB中的循环语句有哪些
1、do while...loop:当条件为True时循环,,在进入循环之前检查条件。
2、do...loop while:当条件为True循环,在循环至少运行一次后检查条件。
3、do until...loop:当条件为false循环,在进入循环之前检查条件。
4、do.. loop until:当条件为false循环,在循环至少运行一次后检查条件。
5、While...Wend: 当条件为Ture时循环。
6、for....next:指定循环次数,使用计数器重复运行语句。
7、for Each...next:对于集合中的每项或数组中的元素,重复执行每个语句。
8、for Each...in:从一个集合中取出每一个元素。
9、循环嵌套:就是在一个大循环内可以包含一个小循环。
10、强行退出循环就知道这么多,呵呵11
vb.net中关于循环语句 求教大家弱智的问题
要弄清楚这两个问题,就要明白For循环语句的语法规则:
For循环语句,首先是判断循环条件,如果循环条件不合理,则循环不执行。
那么看第一个语句,循环范围是 i = -3.5 to 5.5,显然这个是一个从-3.5到5.5的递增范围,可是后面的Step却是一个负数,表示以0.5的步长递减。取值范围要求从小到大,可是步长改变却是由大变小,显然这个循环条件自相矛盾,所以循环将不会执行,也就是循环执行的次数是0次!
如果循环条件合理,则开始执行循环语句,直到根据步长变换,下一个值超出循环范围则终止。
For j = 6 to 2 Step -2
Next
完整写法就是:
For j = 6 to 2 Step -2
Next j
Next j的意思就是下一个j值。结合本题,下一个j值等于6-2=4,这个时候,就是循环语句的第二个规则,判断循环变量的值是否超出循环范围,我们这里的j=4,显然是在6 to 2这个范围之内,所以循环继续,到下一个j的时候为2,依然在循环范围内;到这里,6,4,2我们的循环执行了3次,准备第4次循环的时候j = 2 -2 = 0超过了6 to 2这个范围,那么循环终止。
所以i循环内的每一个j循环将执行3次。
vb.net RadioButton 利用For循环语句查找被选中的RadioButton
将这些RadioButton控件放入一个容器中,,以Panel1为例,代码如下:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For Each R As RadioButton In Panel1.Controls
If R.Checked Then
Debug.WriteLine(R.Name " 被选中.")
End If
Next
End Sub
把那三个GroupBox放在Panel1中就行了.
新闻名称:vb.net查询循环语句 vb常用循环语句
文章路径:http://myzitong.com/article/hhojse.html