vb中的for语句怎么写

2025-07-13 04:23:56分类：首页 > 知识

1. VB中的For语句

private Sub Form_Click（) '当窗体单击时触发此过程Dim i,j as Integer '声明默认类型变量i（变体型）和长整型变量jprint '在窗体上打印空白的一行For i=1 To 9 '设置循环 i 每次循环从1到9 默认步长1（每次循环加1） '完整： for i = 1 to 9 step 1For j=1 To i '设置循环 j 每次循环从1到i的值 默认步长1（每次循环加1）完整： for i = 1 to i step 1print left((str(j*j) & space(5),4）；'此语句错误应为：' Print Left(Str(j * j) & Space(5), 4)' print 在窗体中打印' left(str,n) 取str左边的n个字符' str(n) 将n这个数值型转换为字符串型' space(n) 返回n个空格' 翻译出来就是：' 在窗体中打印出 （j*j 的结果 加上5个空格）的左边4个字符Next j '执行到这里继续循环jprint '打印一行空白行next i '执行到这里继续循环iEnd Sub '结束过程。

2. VB中的For语句

private Sub Form_Click（) '当窗体单击时触发此过程

Dim i,j as Integer '声明默认类型变量i（变体型）和长整型变量j

print '在窗体上打印空白的一行

For i=1 To 9 '设置循环 i 每次循环从1到9 默认步长1（每次循环加1）

'完整： for i = 1 to 9 step 1

For j=1 To i '设置循环 j 每次循环从1到i的值 默认步长1（每次循环加1）完整： for i = 1 to i step 1

print left((str(j*j) & space(5),4);

'此语句错误应为：

' Print Left(Str(j * j) & Space(5), 4)

' print 在窗体中打印

' left(str,n) 取str左边的n个字符

' str(n) 将n这个数值型转换为字符串型

' space(n) 返回n个空格

' 翻译出来就是：

' 在窗体中打印出 （j*j 的结果 加上5个空格）的左边4个字符

Next j '执行到这里继续循环j

print '打印一行空白行

next i '执行到这里继续循环i

End Sub '结束过程

3. VB中的循环语句中的for

For循环的格式：

For 循环变量 = 初值 To 终值 [Step 步长] step 2 就是i=i+2

[循环体]

Next [循环变量]

注意：

1） 当步长 > 0 时

循环执行的条件：循环变量 <；= 终值

2） 当步长 < 0 时

循环执行的条件：循环变量 >；= 终值

强行退出 For 循环，请使用 Exit For。

举例1： 单击命令按钮 Command1 后，先后弹出很多消息框，消息内容一开始是 1，最后是 100，每弹出一次，消息内容加 1，也就是 1; 2; 3; 。; 98; 99; 100。

VB 代码如下：

Private Sub Command1_Click()

Dim i As Long

For i = 1 To 100

MsgBox i

Next

End Sub

如果使用 For 语句，代码如下：

Private Sub Form_Load()

For i = 1 To 100

MsgBox i, vbInformation /vbInformation 指显示图标，下同

Next

MsgBox "Finished", vbCritical

End Sub

扩展资料：

VB的Do循环

Do。Loop

如果你不知道重复多少次，可以使用 Do。Loop 语句。

Do。Loop 语句重复执行某段代码直到条件是 true 或条件变成 true。

重复执行代码直到条件是 true

您可以使用 While 关键字来检查 Do。 Loop 语句的条件。

Do While i>10

some code

Loop

如果 i 等于 9，上述循环内的代码将终止执行。

Do

some code

Loop While i>10

这个循环内的代码将被执行至少一次，即使 i 小于 10。

重复执行代码直到条件变成 true

您可以使用 Until 关键字来检查 Do。Loop 语句的条件。

Do Until i=10

some code

Loop

如果 i 等于 10，上述循环内的代码将终止执行。

Do

some code

Loop Until i=10

这个循环内的代码将被执行至少一次，即使 i 等于 10。

退出 Do。Loop

您可以通过 Exit Do 关键词退出 Do。Loop 语句。

Do Until i=10

i=i-1

If i<10 Then Exit Do

Loop

这个循环内的代码，只要 i 不为 10 且 i 大于 10 时都将被执行。

参考资料：搜狗百科——循环语句

4. VB程序设计中的for语句问题

1、B

2、D

3、A

For 是用来循环执行一系列操作的语句。语法如下：

for 循环变量=起始值 to 终止值 [STEP] 步长

<；要执行的语句序列>

next [循环变量]

循环变量要事先定义，循环执行的次数=终止值与起始值的差的绝对值除以步长再取整数部分

比方说要连续输出10个*，就这样写

dim i as integer '这句定义变量

for i=1 to 10

print "*"； '连续输出

next i

程序运行时要先看循环变量当前值是否超过终止值，如果超过就不执行内容，如果没超过就执行一次，然后让变量值按步长值增加或减少。默认情况下。步长与step如果省掉的话步长值为1，如果你需要变量不按1增加的话就需要加上step与步长值。

例如：

dim i as integer

for i=1 to 10 step 2

print "*";

next i

这段程序运行就只会输出5个*

还可以让循环倒着来

例如：

dim i as integer

for i=10 to 1 step -1

print "*";

next i

5. VB中for的语句的作用

for 是循环，

for 。

代码

next

这是个循环体，里面的代码会执行N次，这个次数由for后面的内容来定。

常见的两种for

for i =1 to 100

next

这是说变量i从1开始一直到100，循环体内的代码执行100次，如果代码中用到i，每次的i会自动加1

另一种是

for each

如，for each frm in forms 就是对forms里的每个frm进行枚举。

&； 是连接符， "456" & "123"的结果是"456123"

6. vb怎么写for循环语句

for…next循环如下：（在C盘根目录建立一个名字为1的文件夹，反复10次）

Private Sub Command2_Click()

Dim i As Integer

For i = 1 To 10

Set fso = CreateObject("Scripting.filesystemobject")

fso.CreateFolder ("c:\1")

Next

End Sub

7. 关于vb 中的for语句使用

a(i)-a(0)

字符串不能做减法

所以换个办法吧，比如：

Private Sub Form_click()

Const n = 5 '修改这个数控制菱形大小

For i = 1 To n '输出上半部分

Print Space(n - i);

For j = 1 To 2 * i - 1

Print "*";

Next j

Print

Next i

For i = n - 1 To 1 Step -1 ' 输出下半部分

Print Space(n - i);

For j = 1 To 2 * i - 1

Print "*";

Next j

Print

Next i

End Sub

8. vb中for语句

Private Sub Command1_Click()

Dim x(0 To 5) As Integer, aryX(0 To 5) As Integer, i, j, k As Integer

Dim mins(0 To 32) As Integer, maxone As Integer

For i = 0 To 5

x(i) = Int(Val(InputBox（"请输入第" & i + 1 & "个数字"）））

Next i

For j = 0 To 32

For k = 0 To 5

aryX(k) = Abs(j + 1 - x(k))

Next k

mins(j) = Min(aryX())

Next j

maxone = Max(mins)

MsgBox "最终结果是" & maxone

End Sub

Private Function nonum(numeric As Integer)

If numeric > 0 Then

nonum = numeric

Else

nonum = 65535

End If

End Function

Private Function Min(ary() As Integer)

Dim amin As Integer

For i = LBound(ary) To UBound(ary)

If amin > ary(i) Then

amin = ary(i)

End If

Next

Min = amin

End Function

Private Function Max(ary() As Integer)

Dim amin As Integer

For i = LBound(ary) To UBound(ary)

If amin < ary(i) Then

amin = ary(i)

End If

Next

Max = amin

End Function

转载请注明出处育才学习网 » vb中的for语句怎么写

python的for语句怎么写 vb的判断语句怎么写 vb循环语句怎么写
知识

友人的日语怎么写

阅读(270)

本文主要为您介绍友人的日语怎么写，内容包括“朋友”用日语怎么说怎么写，我的好友日语怎么写，日语朋友怎么说。日语朋友：友达还可以根据关系细分如下：相手（あいて）伙伴、玩伴2、仲间（なかま）朋友（小孩常用，基本同上）3、友达（ともだち）朋友4、友

知识

塌陷的塌怎么写

阅读(301)

本文主要为您介绍塌陷的塌怎么写，内容包括塌陷的塌可以怎么组词，倒塌的塌怎么读，房屋倒塌的报告怎么写。塌拼音：tā基本信息：部首：土、四角码：46127、仓颉：gasm 86五笔：fjng、98五笔：fjng、郑码：BKYY 统一码：58

知识

警的繁体字怎么写的

阅读(166)

本文主要为您介绍警的繁体字怎么写的，内容包括警的繁体字怎么写，警繁体字怎么写，中国武警繁体字怎么写。

知识

迷字的笔画怎么写

阅读(187)

本文主要为您介绍迷字的笔画怎么写，内容包括迷字的笔顺怎么写，迷字的笔顺怎样写，迷的笔顺怎么写。迷字笔画与顺序如图：

知识

有工作经验简历怎么写

阅读(191)

本文主要为您介绍有工作经验简历怎么写，内容包括有工作经验,怎么写简历比较好，个人简历中工作经验怎么写有工作经验简历模板，有两年工作经验的简历怎么写。首先个人简历并没有固定的格式，不过要遵循一定规则，形式多样，可以是表格，也可以是行文

知识

甲骨文的草字怎么写

阅读(283)

本文主要为您介绍甲骨文的草字怎么写，内容包括甲骨文草字怎么写，草字甲骨文怎么写，象形文字草字怎么写。[古诗《草》]白居易 《赋得古原草送别》又名《草》离离原上草， 一岁一枯荣。野火烧不尽，春风吹又生。远芳侵古道，晴翠接荒城。又送王孙去

知识

护发素的韩文怎么写

阅读(161)

本文主要为您介绍护发素的韩文怎么写，内容包括洗发水与护发素韩文怎么写，护发素用韩语怎么写，韩文翻译这是洗发露还是护发素。洗发水用韩文表示：샴프 注音：shiam pu。洗发水是指一种具有去头屑功能、 焗油功能和染发等功能的护发产品。洗发水

知识

怎么写病例主诉

阅读(521)

本文主要为您介绍怎么写病例主诉，内容包括这个病历主诉怎么写，病例书写主诉怎么写病例书写主诉怎么写，这个病例主诉怎么写谢谢了。主诉是住院病历中第一项内容，虽然在病历书写中所占篇幅不多。但是写好并不十分容易，现将写好主诉的基本要点总

知识

数字9在田字格怎么写

阅读(216)

本文主要为您介绍数字9在田字格怎么写，内容包括数字19在田字格的占格，数字19在田字格中应该怎样写，数字19在田字格中应该怎样写。“0”像鸭蛋，是在田字格中从左上角附近起，上头朝右上横线处，下头朝左下横线处。2、“1＂像粉笔，是在田字格中从右上

知识

请假去旅游怎么写

阅读(183)

本文主要为您介绍请假去旅游怎么写，内容包括外出旅游怎么写请假条，出门旅游的请假信怎么写，要去旅游几天,去公司请假要写什么理由。您好单位事假请假条格式如下事假请假条XXX（主管领导的名字或者主管部门.等）：我因外出旅游，于XX年XX月XX日至XX

知识

最重英文怎么写的

阅读(225)

本文主要为您介绍最重英文怎么写的，内容包括重的英语怎么写，“重”用英语怎么写，“重口味”用英语怎么说。“重”作为名词词性解释，英文为：weight，如：The pillars have to support the weight of t

知识

小篆的鱼字怎么写

阅读(396)

本文主要为您介绍小篆的鱼字怎么写，内容包括鱼的篆体字怎么写，鱼字的金文；小篆,隶书,草书,行书怎么写，篆体的“鱼”字怎么写哪种字体的鱼字最象形有图最好搜狗。鱼的篆体字写法如下图：鱼，读作yú，最早见于甲骨文 ，其本义是一种水生脊椎动物（鱼），即

知识

喜字的篆书怎么写

阅读(268)

本文主要为您介绍喜字的篆书怎么写，内容包括篆书喜字怎么写，篆书喜字怎么写，喜的篆体怎么写。1.楷书写法：2.行书写法：3.草书写法：4.篆书写法：5.隶书写法：扩展资料：字形演变：词意：①本义，动词：在庆祝中欢笑，本义由“嘻”

知识

变变变变怎么写

阅读(218)

本文主要为您介绍变变变变怎么写，内容包括以变的主题,写一篇作文参考题目：变变变,变,我会七十二变,，繁体字“变”怎么写变化的变字，幼儿园超级变变变方案怎么写。变，这个字已不再生疏了，我也常接触到这个字眼儿。但我的变化经历却令人哭笑不得

知识

matlab怎么写循环语句

阅读(184)

本文主要为您介绍matlab怎么写循环语句，内容包括MATLAB中这个循环怎么写，matlab如何使用循环语句，怎样用MATLAB编一个循环语句。原发布者：jinziyatoo循环结构1.for语句for语句的格式为：for循环变量=表达式1：表达式2：表达式3循环体语句end其中

知识

vbaexcel代码怎么写

阅读(215)

本文主要为您介绍vbaexcel代码怎么写，内容包括怎么写一段excelvba输入代码，帮我用VBA在EXCEL做个程序代码怎么写，怎么写一段excelvba输入代码。1. 从Excel工具栏中插入一个VBA的控件-编辑框。2. 双击这个编辑框，进入VBA编程窗口。3. 删除原

知识

oracle判断语句怎么写

阅读(175)

本文主要为您介绍oracle判断语句怎么写，内容包括oracle中判断语句怎么写，oracle存储过程中有关判断语句怎么写，请问oracle的判断语句怎么写。是存储过程里面的 IF/ELSE ？ 还是简单的 DECODE ?SQL> DECLARE2 testvalue INT;3 BEGIN

知识

hibernate查询语句怎么写

阅读(210)

本文主要为您介绍hibernate查询语句怎么写，内容包括hibernate查询语句怎么写，hibernate的查询语句应该怎么写呢，HQL语句的写法。因为hibernate是封装了JDBC的框架。 文中第一句：String queryString =＂from *****＂；我想楼主应

知识

js怎么写判断语句

阅读(161)

本文主要为您介绍js怎么写判断语句，内容包括js里怎么写判断，JS判断语句，求一段能写在HTML中的JS语句,要求如下判断文字,如,文字为“。4、字符类<br> 4.1 判断字符全部由a-Z或者是A-Z的字字母组成<br> <input onblur=＂if(/[^a-zA-Z

知识

数据库中语句怎么写

阅读(167)

本文主要为您介绍数据库中语句怎么写，内容包括关于数据库的语句该怎样写·，在数据库里面插入数据的语句怎么写，关于数据库的语句该怎样写·。create table student( sno char(5) primary key, sname varchar(20),

知识

sql的更新语句怎么写

阅读(219)

本文主要为您介绍sql的更新语句怎么写，内容包括sql查询更新语句怎么写，SQL的update语句怎么写，SQL里面的UPDATE更新语句数据怎么写。首先需要打开sql server 数据库。

知识

oracle的循环语句怎么写

阅读(162)

本文主要为您介绍oracle的循环语句怎么写，内容包括请问这个oracle的for循环语句怎么写，请问这个oracle的for循环语句怎么写，请教大神,oracle数据库循环语句怎么写。create table temp_tab( id number primary key not null, name varchar2

[/e:loop]