VB中的for循环专题【VB学习笔记2020课堂版05】-阿里云开发者社区

VB中的for循环专题【VB学习笔记2020课堂版05】

2022-12-18 128

版权

本文内容由阿里云实名注册用户自发贡献，版权归原作者所有，阿里云开发者社区不拥有其著作权，亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容，填写侵权投诉表单进行举报，一经查实，本社区将立刻删除涉嫌侵权内容。

简介： VB中的for循环专题【VB学习笔记2020课堂版05】

一、for循环格式

首先需要声明一个初始化变量i

Dim i%

for 初始化变量i的值 to 变量的终值（用来比较的值） step 步长的值

'这里就是变量i<=终值条件为真（true）时要执行的代码

next 初始化变量i

举例：

Dim i%

For i = 0 To 2 Step 1

Next i

二、具体过程：

举例循环3次

第1次循环：

当i=0时，条件0<=2 为true（真），进入循环。

第2次循环：

当i=1时，条件1<=2 为true（真），进入循环。

第3次循环：

当i=2时，条件2<=2 为true（真），进入循环。

为什么i每次循环+1？

因为 step 后的值为 1 ,这个step表示步长。

步长表示：每次循环加上多少。

哪句话使得下次循环的step产生效果？

next i

三、如果是for循环的嵌套该怎么写？

dim i%,j%
for i=0 to 3 step 1
   for j=0 to 2 step 1
      print "a"
   next j
next i

软件设计界面：

源代码分享：

Option Explicit
Private Sub Command1_Click()
If Text5.Text = "" Then
    Combo1.AddItem Text1.Text
Else
    Combo1.AddItem Text1.Text, Val(Text5.Text)
End If
End Sub
Private Sub Command2_Click()
Combo2.AddItem Text2.Text
End Sub
Private Sub Command3_Click()
If Text4.Text = "" Then
    List1.AddItem Text3.Text
Else
    List1.AddItem Text3.Text, Val(Text4.Text)
End If
End Sub
Private Sub Command5_Click()
MsgBox Val(" ")
End Sub
Private Sub Command6_Click()
Dim i%
For i = 0 To 2 Step 1
    If List1.List(i) <> "bbb" Then
        Picture1.Print List1.List(i)
    End If
Next i
End Sub
Private Sub Command7_Click()
Dim a#
MsgBox TypeName(a)
End Sub
Private Sub Command8_Click()
Dim i%, j%
For i = 0 To 3 Step 1
   For j = 0 To 2 Step 1
      Picture1.Print "a";
   Next j
Next i
End Sub