精华内容
下载资源
问答
  • for循环 1.语法结构 2.执行顺序 3.注意说明 (一)语法结构: For 循环变量=初值 to 终值【step 步长】 【循环体】 【Exit for】 Next 【循环变量】【,循环变量】 计算1累加到100的和 Dim i as integer '声明变量i...

    for循环

    1.语法结构

    2.执行顺序

    3.注意说明

    (一)语法结构:
    For 循环变量=初值 to 终值【step 步长】
    【循环体】
    【Exit for】
    Next 【循环变量】【,循环变量】

    计算1累加到100的和
    
    Dim i as integer         '声明变量i
    Dim sum as long          '声明变量sum
    i=1:sum=0                '将1赋值给变量i,将0赋值给变量sum
    For  i=1 to 100 step 1   '循环1-100之间的数,循环完一次就将i+1
    	sum=i+sum        '将sum+i的值赋值给新的sum
    Next i
    print sum                '循环结束后输出结果sum
    
    

    执行顺序

    ①将1赋值给i,然后判断i是否在1-100区间内
    ②如果在,执行循环体内的sum=sum+i
    ③由于step 1,所以相当于变量i=i+1
    ④再继续判断是否在1-100区间内
    ⑤一直判断到 i>100 跳出循环,输出sum

    说明
    1、步长:默认为1时可以省略,不可为0
    2、循环次数:Int(终值-初值)/步长+1
    3、For-Next循环次数可以使用嵌套循环

    for循环的嵌套使用

    Dim i as integer       
    Dim j as integer         
    i=1:j=1               
    For  i=1 to 2 step 1  
    print "*"
    	For j=1 to 2 step 1
    	print "#"
    	Next j     
    Next i
    print sum       
    

    for嵌套的例子
    九九乘法表

    Dim i as Integer
    Dim j as Integer 
    i=1:j=1
    For i=1 to 9
    	For j=1 to i  '注意一行里面输出的列的个数不能超过行的个数;所以终值是i所以第一个循环跟第二个的循环次数相同
    	Print i & "*" & j & "=" & i * j;space(2);   ’在输出语句后面加分号(;)代表着 连着输出不换行
    	Next j
    print   '把第一行循环的结果全部输出在一行上 ,再换行
    Next i
    
    展开全文
  • VB程序设计及应用

    2012-11-26 14:07:12
    中文名: VB程序设计及应用 作者: 李淑华图书分类: 软件 资源格式: PDF 版本: 文字版 出版社: 高等教育出版社书号: 7-04-014767-X发行时间: 2004年04月 地区: 大陆 语言: 简体中文 简介: 内容简介: 本书是新...
  • Visual Basic 6.0 程序设计教程 第三章结构化程序设计与数组 重点 选择结构 IF结构情况选择结构 循环结构 For/NextWhile/Wend Do/Loop循环 多重循环 双重循环 数组 一维和二维数组 2 1 1 1 1 1 1 40 求算式 前 项的...
  • VB课程设计俄罗斯方块

    热门讨论 2011-02-25 10:46:55
    1.3程序设计思想 游戏是用来给大家娱乐的,所以要能在使用的过程中给大家带来快乐,消除大家的疲劳,所以我们在游戏中添加了漂亮的场景和动听的音乐,设置了过关升级的功能,激发大家的娱乐激情。 从游戏的基本玩法...
  • VB具有丰富数据类型是种符合结构化设计思想语言而且简单易学此外作为种设计语言VB还有 ...许多独到的处,本工程为vb.net2010制作的简单12选5和12选3选号程序,使用了随机数和for循环语句,仅供新入门的菜鸟参考.
  • 程序基本控制结构 本章学习目标 掌握顺序结构程序设计的特点 掌握If.Then.Else语句的语法格式及执行特点 掌握If.Then.Else语句的嵌套 掌握多条件选择结构Select Case语句格式及执行特点 熟练掌握For.Next循环语句的...
  • Visual.Basic.NET程序设计案例教程

    热门讨论 2012-01-24 14:19:08
    第3章 VB.NET程序设计语言基础 3.1 数据类型 3.2 变量 3.2.1 变量名的命名规则 3.2.2 变量的声明 3.2.3 变量的作用域 3.3 常量 3.4 运算符 3.5 表达式 3.6 VB.NET常用内部函数 3.6.1 数值函数 3.6.2 字符函数 3.6.3 ...
  • vb讲义课件

    2012-07-29 16:38:31
    Visual Basic 程序设计概述 语言基础 基本的控制结构顺序结构 选择结构 For循环 Do循环 VB辅助控制语句、数组和自定义函数 使用过程、函数和递归程序及常用算法设计 VB程序调试及编译方法 常用控件
  • 第10章 VBA程序设计基础 在Access中,建立完窗体只是实现了功能工作的一半;通过宏与窗体的结合,能完成一些较为简单的数据库对象管理工作,例如打开或关闭一个表,输出一个消息框等。但宏的运行速度比较慢,且功能...
  • Excel VBA程序设计.doc

    2009-07-06 22:16:12
    Excel VBA程序设计.doc 目 录 一、VBA语言基础 1 第一节 标识符 1 第二节 运算符 1 第三节 数据类型 1 第四节 变量与常量 1 第五节 数组 2 第六节 注释和赋值语句 2 第七节 书写规范 2 第八节 判断语句 2 第九节 ...
  • ExcelVBA程序设计.doc

    2011-04-05 21:32:51
    二、VISUAL BASIC程序设计网络教学 1 第一课 VBA是什么 1 1.1 VBA是什么 1 1.2 EXCEL环境中基于应用程序自动化的优点 1 1.3 录制简单的宏 2 1.4 执行宏 2 1.5 查看录制的代码 2 1.6 编辑录制的代码 3 1.7 录制宏的...
  • C程序设计语言(第2版·新版中文)

    热门讨论 2010-10-22 19:43:48
    《C程序设计语言》(第2版新版)讲述深入浅出,配合典型例证,通俗易懂,实用性强,适合作为大专院校计算机专业或非计算机专业的C语言教材,也可以作为从事计算机相关软硬件开发的技术人员的参考书。《C程序设计语言》...
  • 《Excel VBA程序设计》 CHM电子书目录 一、VBA语言基础 1 第一节 标识符 1 第二节 运算符 1 第三节 数据类型 1 第四节 变量与常量 1 第五节 数组 2 第六节 注释和赋值语句 2 第七节 书写规范 2 第八节 判断语句 2...
  • VB中的SQL语言——增、删、改、查

    万次阅读 热门讨论 2014-08-19 21:11:44
    SQL语言是一种交互式查询语言,允许用户直接查询存储数据,但它不是完整的程序语言,如它没有DO或FOR类似的循环语句,因此它可以嵌入到另一种语言中,也可以借用VBVB.NET、C、JAVA等 高级语言,

         结构化查询语言简称SQL,SQL是一种数据库查询和程序设计语言,用于存取数据以及查询、更新和管理关系数据库系统。SQL语言主要有四个部分:数据定义语言、数据操纵语言、嵌入式SQL语言的使用规定、数据控制语言。今天我们介绍其中的一部分,数据操纵语言——增、删、改、查。

    SQL语言是一种交互式查询语言,允许用户直接查询存储数据,但它不是完整的程序语言,如它没有DO或FOR类似的循环语句,因此它可以嵌入到另一种语言中,借用VB、VB.NET、C、JAVA等高级语言对关系数据库进行操作。在做学生管理系统和机房收费系统时,我们配置ODBC用于连接数据库与VB,在模块中定义函数ExecuteSQL用于执行SQL语句。等做好这些工作后,我们就可以在VB中对数据库进行操作了。下面介绍一下在VB中如何利用SQL语句操纵数据库。

    一、数据查询(以查询学生信息为例)

    简单查询语句可通过Select语句限定数据源来实现。在Select语句中使用关键字、字句等。

    例1 比较条件查询

    	txtsql = "select * from student_info where cardno= '" & txtCardNO & "'"   	'查询student_info中cardno为某一限定值的记录
    
    	set mrc = ExecuteSQL(txtsql,msgtext)  						'执行SQL语句	

    例2  计算查询结果

     在机房收费系统中的实现结账功能的代码中用到了此类代码:

     <span style="white-space:pre">	</span>txtsql = "select sum(addmoney) from recharge_info where date = '" & Date & "'"		'查询Recharge_info中addmoney字段值的综合  
    
    <span style="white-space:pre">	</span>Set mrc = ExecuteSQL(txtsql, msgtext)							'执行SQL语句
    
    <span style="white-space:pre">	</span>txtRechargeCash.Text=mrc.fields(0)							'将查询出来的结果赋值给文本框

    以上的两个例子中的Where子句是Select语句中最常用的限定条件,另外还有AS子句、Like子句等。虽然,Select查询语句有很多种,但它们共通的一点是只要查询某一特定的记录时,在Select查询语句中就会出现限定条件。

    二、数据注入(已添加学生信息为例)

    1、我们在VB中引用ADO实现访问所用到的数据中的数据,通过AddNew方法添加一条新的记录,再通过Update方法保存当前的记录。

    	txtsql = "select * from student_info "                                 '查询出student_info表
    
    	set mrc = ExecuteSQL(txtsql,msgtext)  					'执行SQL语句
    
            mrc!StuNO=Trim(txtStuNo.Text)
            mrc!StuName=Trim(txtStuName.Text)
            mrc!Class=Trim(txtClass.Text)
             :                        :
    <span style="white-space:pre">										</span>'向数据库中添加信息
    
            mrc.Update      '更新数据库


    2、使用Insert 语句向数据库注入数据

            txtsql = "insert into student_info(Student_ID,Student_Name,Student_Sex,ClassNo,Grade,born_date,ru_date)"  values ('" & txtStuID & "','" & txtName & "','" & txtSex & "','" & txtClassNO & "','" & txtGrade & "','" & txtborn_date & "','" & txtRuDate & "')"		<span style="white-space:pre">				</span>'向student_info中注入数据
            set mrc = ExecuteSQL(txtsql,msgtext)         <span style="white-space:pre">		</span> <span style="white-space:pre">	</span>'执行SQL语句

    用Insert语句往数据库中注入数据的时候,要做到每一个字段与文本框的值一一对应,否则数据库注入数据时就会出现错误。

    另外,还有两个注意的地方:

    1、如果向表中特定的字段中插入数据时,在Insert语句中应该把字段指定出来,如:

         txtsql = "insert into student_info(Student_ID,Student_Name,Student_Sex" & value ('" & txtStuID & "','" & txtName & "','" & txtSex & "')"			'向student_info表中student_id,student-name,student_sex列中插入数据
    
         Set mrc = ExecuteSQL(txtsql,msgtext)	<span style="white-space:pre">														</span>'执行SQL语句

    2、如果表中包含主键,请确保唯一的非Null值注入到主键字段,否则数据库无法注入数据。

    三、数据删除(以删除学生信息为例)

    1、我们在VB中引用ADO实现访问所用到的数据中的数据,通过Delete方法删除一条记录,再通过Update方法更新当前的记录。

    	txtsql="select * from student_info where cardno = '" & txtCardNo & "'"	'选择一条指定的记录
    
    	set mrc =ExecuteSQL(txtsql,msgtext)					'执行SQL语句
    
    	mrc.Delete								'将其删除
    
    	mrc.Update

    2、使用Delete语句,不仅可以删除指定的一条或多条记录,也可以将表中所有记录删除

    	txtsql="delete student_info where cardno= '" & txtCardNo & "'" 			'删除student_info表中指定cardno字段的值的一条记录
    
    	set mrc = ExecuteSQL(txtsql,msgtext)						'执行SQL语句

    	txtsql="delete student_info "							"删除student_info表中所有记录
    
    	set mrc = ExecuteSQL(txtsql,msgtext)						'执行SQL语句

    四、数据修改(以修改学生信息为例)

    1、我们利用Select语句查询出所要修改的记录,修改其某一字段的值,再通过Update方法更新所修改的记录。

    	txtsql = " select * from student_info where cardno= '" & txtCardno & "'"		'查询出要修改的记录
    
    	Set mrc =ExecuteSQL(txtsql,msgtext)							'执行SQL语句
    
    	mrc!Name=Trim(txtName.Text)
    	mrc!StuNO=Trim(txtStuNo.Text)
    	mrc!Class=Trim(txtClass.Text)								'修改数据信息
    
    	mrc.Update										'更新数据库


    2、直接利用Update语句修改数据信息
    	txtsql = " Update student_info Set Name= '" & txtName & "',StuNo = '" & txtStuNo & "',Class= '" & txtClass & "' where cardno= '" & txtCardNo & "'where cardno= '" & txtCardno & "'"				'修改指定记录的数据
    	
    	Set mrc =ExecuteSQL(txtsql,msgtext)

    VB中的SQL语句可以实现直接对数据库进行操纵,也可以弥补SQL不是完整的程序化语言这一缺点。那么,我们不禁在想在VB和SQL Server中的SQL语句有何不同呢?现在,我们来看一下SQL Server中的SQL语句(增、删、改、查)各自的语法。

           Select 语句Select * from 表名称 where 列名称=某值

            insert 语句Insert into 表名称(例1,例2,....)values (值1,值2,.....)

    update 语句  Update 表名称 set 列名称=新值 where 列名称=某值

    delete语句Delete from 表名称 where 列名称=某值

    从这篇文章不难看出,在VB中操作SQL语句其实与在SQL Server中是一样的。我们在SQL Sever中的SQL语句正确,那么在VB中,我们将VB控件(文本框、标签、组合框等)中的值赋予某一限定条件就行了。

    展开全文
  • VB:输入字母字符后倒序输出存放

    千次阅读 2018-04-12 18:20:37
    原题:Visual Basic程序设计教程(第二版)龚沛曾主编,高等教育出版社 实验4-4 作者:Caleb Sung 题目要求 筛选在Text1文本框输入的字母字符,并反序在Text2中存放。 效果实例: 提示 要考虑字母的大写和...

    题目来源:大工慕课 链接
    原题:Visual Basic程序设计教程(第二版)龚沛曾主编,高等教育出版社 实验4-4
    作者:Caleb Sung

    题目要求

    筛选在Text1文本框输入的字母字符,并反序在Text2中存放。
    效果实例:
    这里写图片描述

    提示

    1. 要考虑字母的大写和小写。
    2. 首先利用Len函数求Text1.Text字符串长度,然后利用For循环结构和Mid函数逐一取字符进行判断是否为字母,若是字母,则利用语句“Text2.Text=字母 & Text2.Text”将字母连接到Text文本框前面,实现反序。

    参考代码

    Private Sub Command1_Click()
        Text2.Text = ""
        For i = 1 To Len(Text1.Text)
            Text2.Text = Mid(Text1.Text, i, 1) & Text2.Text
        Next i
    End Sub
    
    Private Sub Command2_Click()
        Text1.Text = ""
        Text2.Text = ""
    End Sub
    
    Private Sub Command3_Click()
        End
    End Sub
    
    展开全文
  • 利用数据循环的对比,不但速度快,而且在设计阶段,程序的架构比较清楚。 2.Load及Unload动态增加或删除组件 利用Load及Unload指令,可动态新增及删除组件。在游戏的雷区,依照使用者自定义的地图类型,布置未探测的...
  • VB.NET 入门经典 (第三版)

    热门讨论 2009-07-29 16:56:26
    在介绍完创建应用程序的基础知识后(如创建窗口和对话框,如何用代码处理突发事件,什么是面向对象的程序设计,以及如何在应用程序中使用它等)。 目录: 第1章 初识Visual Basic .NET 1 1.1 Windows和DOS编程 1 1.2...
  • 在介绍完创建应用程序的基础知识后(如创建窗口和对话框,如何用代码处理突发事件,什么是面向对象的程序设计,以及如何在应用程序中使用它等)。 目录: 第1章 初识Visual Basic .NET 1 1.1 Windows和DOS编程 1 1.2...
  • 在介绍完创建应用程序的基础知识后(如创建窗口和对话框,如何用代码处理突发事件,什么是面向对象的程序设计,以及如何在应用程序中使用它等)。 目录: 第1章 初识Visual Basic .NET 1 1.1 Windows和DOS编程 1 1.2...
  • 那个时候,还是零几年,操作系统还是...说干就干,我设计好了界面,添加了按钮,文本框,心里想用FOR循环语句基本上可以满足所有的关于数据结构方面的要求。 WINDOWS系统的目录结构是分层的,于是,我设计我这个程

    那个时候,还是零几年,操作系统还是WIN2000和WIN XP的时代。用这两个系统搜索文件不是太方便。速度慢,出结果慢,而且一些不相关或者不精确的搜索结果也显示了出来,于是,我打算自己做一个搜索程序,工具仅仅是VB6.0。

    说干就干,我设计好了界面,添加了按钮,文本框,心里想用FOR循环语句基本上可以满足所有的关于数据结构方面的要求。

    WINDOWS系统的目录结构是分层的,于是,我设计我这个程序最多可以达到五层的子目录。即以C盘或D盘的根目录往里面,直到第五层的子目录或子文件。

    其间,在程序中我调用了一个字符串匹配函数,精确的匹配对于搜索结果来说相当重要。

    一个礼拜过后,程序基本成型。调试中比系统自带的搜索程序要快上三四倍,很快的,搜索结果又准又快的就出了结果。我想这可能是直接使用CPU和内存来运作的原因,而操作系统的程序则要调用这个进程,调用那个进程,比较复杂和繁琐,所以,我的简单的小程序,结构简单,算法也简单,运行起来自然就快多了。

    展开全文
  • 如题,本人最近在做一个课设,用vb和access设计一个无纸化考试系统,我事先定义了几个数组用于存储从数据库里读出的数据,用rs.move方法循环按行读取。读取第一次时,数据正常读出,读取第二次时,程序崩溃,不知...
  • 8.2.1 循环语句 317 8.2.2 装箱 319 8.3 泛型 320 8.3.1 泛型的使用 321 8.3.2 nullable类型 322 8.3.3 泛型类型 323 8.3.4 泛型方法 326 8.4 创建泛型 327 8.4.1 泛型类型 328 8.4.2 泛型方法 334 8.4.3 ...
  • 8.2.1 循环语句 317 8.2.2 装箱 319 8.3 泛型 320 8.3.1 泛型的使用 321 8.3.2 nullable类型 322 8.3.3 泛型类型 323 8.3.4 泛型方法 326 8.4 创建泛型 327 8.4.1 泛型类型 328 8.4.2 泛型方法 334 8.4.3 ...
  • 8.2.1 循环语句 317 8.2.2 装箱 319 8.3 泛型 320 8.3.1 泛型的使用 321 8.3.2 nullable类型 322 8.3.3 泛型类型 323 8.3.4 泛型方法 326 8.4 创建泛型 327 8.4.1 泛型类型 328 8.4.2 泛型方法 334 8.4.3 ...
  • 10.9.2 o/r设计器 427 10.9.3 创建product对象 428 10.10 对象到linq对象的映射 429 10.10.1 datacontext对象 430 10.10.2 table(tentity)对象 432 10.11 查询数据库 433 10.11.1 使用查询表达式 433 ...
  • 10.9.2 o/r设计器 427 10.9.3 创建product对象 428 10.10 对象到linq对象的映射 429 10.10.1 datacontext对象 430 10.10.2 table(tentity)对象 432 10.11 查询数据库 433 10.11.1 使用查询表达式 ...
  • 4.6.2 使用For Each…Next循环访问数组 80 4.6.3 使用Lbound和Ubound函数取数组上下界 80 第5章 过程和函数 82 5.1 过程的概念 82 5.2 过程的分类 82 5.2.1 按用途分类 82 5.2.2 按调用方式分类 83 5.3 Sub...

空空如也

空空如也

1 2 3
收藏数 48
精华内容 19
关键字:

vb程序设计for循环