VB中的for循环专题【VB学习笔记2020课堂版05】
简介 INTRODUCTIONfor循环格式、具体运行过程、for循环的嵌套
课题5 for循环专题
授课：刘金玉
一、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
联系作者：刘金玉
长按关注公众号
编程创造城市官网：https://bcczcs.com/
本文参与 腾讯云自媒体同步曝光计划，分享自微信公众号。
原始发表：2020-11-28，如有侵权请联系 cloudcommunity@tencent.com 删除
评论
登录后参与评论
推荐阅读
腾讯云开发者
