vb中的循环语句怎么写？

下面提供多种方法：

第一种：

For i = 0 To 100

If (i Mod 2 = 0) And (i Mod 3 = 0) And (i Mod 5 <> 0) Then

MsgBox i

End If

Next i

第二种：

Private Sub Command1_Click()

Text1 = ""

Dim a()

k = InputBox("请输入上限")

For i = 1 To k

If i Mod 2 = 0 And i Mod 3 = 0 And i Mod 5 <> 0 Then

j = j + 1

ReDim Preserve a(j)

a(j) = i

End If

Next i

For i = 1 To j

Text1 = Text1 & a(i) & " "

Next i

End Sub

Visual Basic（简称VB）是Microsoft公司开发的一种通用的基于对象的程序设计语言，为结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。是一种可用于微软自家产品开发的语言。

“Visual” 指的是开发图形用户界面 (GUI) 的方法——不需编写大量代码去描述界面元素的外观和位置，而只要把预先建立的对象add到屏幕上的一点即可。 “Basic”指的是 BASIC (Beginners All-Purpose Symbolic Instruction Code) 语言，是一种在计算技术发展历史上应用得最为广泛的语言。

Visual Basic源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建Active X控件，用于高效生成类型安全和面向对象的应用程序。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。

第一题就是循环为假时循环为真时不循环，因为他本身就小于等于25，所以根本没循环

第二题就是求素数循环，我帮你分析一下 就拿2来说 没有满足j的循环条件 根本不会进入j的循环，所以直接运行后面的if，因为2>sqr（2）所以有2。3同下理，4的话 就进入j循环了，4mod2=0，所以跳出循环，那个exit for 就是跳出循环的意思，5的话就不满足跳出循环条件所以继续运行，因为是5，那个5/2虽然等于25 但VB不支持for循环里面出现小数，所以会把他四舍五入，所以就是3，j就等于3了，3>sqr(5），所以有5，6满足所以跳出循环。后面就同理，然后你应该懂了不

假如按楼上说没有四舍五入，而是直接舍掉那这个情况是什么

基本上就看你题目的变量设置什么，而你设置的变量为整型变量，自然会被四舍五入

for i= 下限 to 上限 [step 步长]

next

意思是对于每个从下限到上限，每次增加步长的i都执行一次循环体里的内容

for i=0 to 10就是第一次循环的时候i为0，执行到next，然后回到for，让i加到1，再执行到next，这样循环下去，直到i的值超过10，就结束循环。

可以根据英文的字面意思理解的：for可以理解成“对于”，to是“到”的意思，next是“下一个”，step是步长的意思，通常不写，默认为1。