vb.net 教程 2-4 流程控制:循环语句 For each...Next
来源:互联网 发布:cctv下载网络电视下载安装 编辑:程序博客网 时间:2024/06/04 22:46
当需要为集合或数组的每个元素重复执行一组语句时,可以使用 For Each...Next 循环,通过For Each遍历出每个元素。
还是采用《流程控制:循环语句 For...Next》中的题目
一组数按照由小到大的顺序进行排序:
Sub Main() '需要排序的数字在数组内 Dim source() As Integer = {32, 12, 44, 43, 79, 1, 10, 65, 21, 53} '外层循环每一次循环结束时,输出数组 Dim outputString As String = "" '对循环次数进行计数 Dim counti As Integer = 0 Dim i As Integer Dim j As Integer Dim tmp As Integer '循环 For i = 0 To 8 outputString = "" '嵌套循环 For j = 0 To (8 - i) '循环次数+1 counti += 1 '如果前面那个数大于后面那个数,就把前面那个数排到后面 If source(j) > source(j + 1) Then tmp = source(j) source(j) = source(j + 1) source(j + 1) = tmp End If Next '枚举出source中的每个元素 For Each k As Integer In source outputString &= k & " " Next Console.WriteLine(outputString) Next '输出循环次数 Console.WriteLine("循环次数:{0}", counti) Console.ReadKey() End Sub
运行结果如下:
可以看到外层循环了9次,虽然在第5次就得到了正确的结果,但是这个只是和代码内数组中的数值顺序有关系。
各位读者可以更换一下顺序:Dim source() As Integer = {79, 65, 53, 44, 12, 10, 21, 32, 43, 1}
0 0
- vb.net 教程 2-4 流程控制:循环语句 For each...Next
- vb.net 教程 2-3 流程控制:循环语句 For...Next 2
- vb.net 教程 2-3 流程控制:循环语句 For...Next 1
- 浅析VB For Each.Next语句
- VBS基础篇 - 循环语句(4) - For Each...Next
- vb.net 教程 2-2 流程控制:选择语句
- vb.net 教程 2-1 流程控制:条件判断语句
- For Each...Next 语句
- For Each...Next 语句
- ASP--VB流程控制,for循环
- JAVA流程控制语句 循环 while for
- 控制流程语句之while循环语句、do-while循环语句、for循环语句
- PHP流程控制语句-for、foreach循环语句
- for循环控制语句
- SHELLcase流程控制和for、while循环语句的使用
- 流程控制陷阱(Switch语句,标签,if语句,for循环,foreach循环的循环计数器)
- ASP中For…Next循环语句
- vb.net的循环语句
- Java的位运算符实例——与(&)、非(~)、或(|)、异或(^)
- git 常用命令
- 浅析 ThreadLocal
- 正确导入svn拉取的工程
- 推荐eclipse velocity一款插件 --- veloeclipse
- vb.net 教程 2-4 流程控制:循环语句 For each...Next
- mybatis 打印sql log配置
- 【MIT 公开课】Computer Science and Programing Lession7
- 《圈圈教你玩USB》 第三章 USB鼠标的实现——看书笔记(1)
- svn 如何解决冲突
- js获取上传文件内容(未完待续)
- Mondrian的schema中,如何做到同一纬度的不同level数据作为查询条件来用?
- mac磁盘满解决方案
- 机器学习项目实战之用户流失预警