vb循环语句怎么写

2026-04-22 05:04:56位置：首页 > vb循环语句怎么写

1. vb中的for语句怎么写

vb中的for语句怎么写

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循环语句怎么写

知识

罗梅芬用日文怎么写(罗钰潇日语怎么写)

阅读(21434)

本文主要为您介绍罗梅芬用日文怎么写，内容包括伊蕾娜日语怎么写，王雪菲用日文怎么说，张佳怡在日语中怎么写啊怎么读啊。罗 ら ラ ra钰 ぎょく ギョク gyoku潇 しょう シヨウ shou第一列：日语汉字，写法同汉字，都要用繁体，这三个都挺难写的，看

知识

邓先生的英文怎么写(1~40的英文怎么说)

阅读(10451)

本文主要为您介绍邓先生的英文怎么写，内容包括“邓先生”用英语怎么写，1~40的英文怎么说，漂亮英文beautiful缩写怎么写。1 one 2 two 3 three 4 four 5 five 6 six 7 seven 8 eight 8 nine 10 te

知识

一个人布满皱纹怎么写(描写人物皱纹的句子)

阅读(9530)

本文主要为您介绍一个人布满皱纹怎么写，内容包括描写人物皱纹的句子，描写人物皱纹的句子，皱纹怎么描写。、老人脸上布满了皱纹，那一条条曲折不均的像是墙上斑驳的印迹，爬满了面容，留下了岁月的痕迹。2、外祖父是一位年过六旬的白发老人。在他

知识

登录接口怎么写(php登录的接口怎么写)

阅读(7771)

本文主要为您介绍登录接口怎么写，内容包括php登录的接口怎么写，网页登陆接口怎么做，网站登录接口程序怎么做。PHP 接口 接口 使用接口（interface），你可以指定某个类必须实现哪些方法，但不需要定义这些方法的具体内容。我们可以通过int

知识

档案奖惩情况怎么写(奖惩情况怎么写)

阅读(9609)

本文主要为您介绍档案奖惩情况怎么写，内容包括奖惩情况怎么写，个人简历及奖惩情况怎么填写，个人简历里面奖惩情况怎么写。在简历里的“奖励”部分，列出与你所获得的并与你的求职目标相关的荣誉、奖励和奖金。你既可以按时间顺序排列，也可以按

知识

头孢克肟拼音怎么写(头孢克肟的肟念什么)

阅读(8013)

本文主要为您介绍头孢克肟拼音怎么写，内容包括头孢克肟片全名拼音，头孢克肟片全名拼音，头孢克肟的肟念什么。肟[wò] ：是含有羰基的醛、酮类化合物与羟胺作用而生成的有机化合物，可以参与许多有机化学反应，例如经典的Beckmann重排就是肟为底

知识

一库搜用日语怎么写(日语一库是什么意思)

阅读(8010)

本文主要为您介绍一库搜用日语怎么写，内容包括日语大神来,看动漫里的主人公说一句：恰,一库搜这是什么意思，一库一库；一搜库这两个日语是什么意思怎么写，看片都有“一库”（日语）是什么意。一库的意思就是“出发，出去”的意思。日语「行く」的音译

知识

外租无人机广告怎么写(植保无人机广告语)

阅读(7010)

本文主要为您介绍外租无人机广告怎么写，内容包括求一个无人机创意广告词谢谢巨友们了，求一关于无人机的广告标语，求一关于无人机的广告标语我们公司是做无人机的,新成立的公司,求。DJI大疆创新研发的的MG-1农业植保机专为农村作业环境设计，

知识

河南话que怎么写(河南话的nenna怎么写)

阅读(6541)

本文主要为您介绍河南话que怎么写，内容包括que怎么写，河南话的nenna怎么写，que怎么写。尿一壶（niào yī hú）关系密切，观点一致。例：“他俩今天尿一壶啦。”●尿（niào）⑴、从尿道排泄的液体。⑵、排泄小便。⑶、不放

知识

国学经文的论文怎么写(国学征文该怎么写)

阅读(7127)

本文主要为您介绍国学经文的论文怎么写，内容包括国学征文该怎么写，弟子规的400论文，关于国学经典的征文怎么写。“子曰：“温故而知新，可以为师”……小时，总是觉得国学就是没用的，古人写的话，我们还需要背，每次老师教给我们时，我总是会让思想开一

知识

化学实验总结怎么写(化学实验报告小结怎么写)

阅读(5406)

本文主要为您介绍化学实验总结怎么写，内容包括化学实验总结怎么写，化学实验报告小结怎么写，化学实验小结怎么写。化学实验报告的书写： 一般情况下化学实验报告是根据实验步骤和顺序从七方面展开来写的： 1.实验目的：即本次实验所要达到的目标或

知识

蝴蝶豌豆拼音怎么写(豌豆的拼音是什么)

阅读(5836)

本文主要为您介绍蝴蝶豌豆拼音怎么写，内容包括蝴蝶怎么拼音的，豌豆的拼音是什么，蝴蝶的拼音是什么。豌豆的拼音是[wān dòu]。豌豆是豆科一年生攀援草本，高0.5-2米。全株绿色，光滑无毛，被粉霜。叶具小叶4-6片，托叶心形，下缘具

知识

海绵宝宝用英文怎么说(海绵宝宝用英文怎么说)

阅读(6521)

本文主要为您介绍海绵宝宝用英文怎么说，内容包括海绵宝宝用英语怎么说，海绵宝宝用英文怎么说，海绵宝宝英文名是什么。1. SPONGEBOB SQUAREPANTS 近期很夯的一步卡通影片《海绵宝宝》（SpongeBob SquarePants）是一系

知识

茶盏怎么用(茶盏在茶道中干嘛用)

阅读(5429)

本文主要为您介绍茶盏怎么用，内容包括茶盏怎么用我要写一篇200字左右的茶盏的使用说明,求指教，茶盏在茶道中干嘛用，问一下斗笠盏如何使用现在是不是很少有人使用它,它的意义。苏东坡的名句＂从来佳茗似佳人＂，典型地代表了唐宋及以后的文人墨客，

知识

thinkpad小红点怎么用(怎么学习使用thinkpad小红点)

阅读(7596)

本文主要为您介绍thinkpad小红点怎么用，内容包括怎么学习使用thinkpad小红点，thinkpad小红点怎么用，求教：THINKPAD的小红点使用方法。Thinkpad 小红点最高效的使用方法为：左手拇指按左键，无操作时在左键待命2、右手拇指按右键，同时兼按空格键及