access for next语句 VBA

s=0
for i = 1 to 10 step 2
s = s + 1
i = i * 2
next i
请问循环结束后,变量i和变量s的值各为多少?
我的答案和参考书上的有出处
望指教~给出大概过程即可~谢谢各位了

我给你按照汉语翻译一遍上面的程序吧..
给S的开始值为0
准备,变量i从1到10,每次增加2的步长(***注意,每次是只要小于10,就加2)
每次的循环执行语句是
给S增加1.
给i乘以2
结束
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
第一次循环
i=1
s=0+1=1
i=1*2=2
第二次循环(i还小于10)
s=1+1=2
i=(2+2)*2=8(由于step=2,所以i用上次的结果先加2)
第三次循环(i还小于10)
s=2+1=3
i=(8+2)*2=20
判断i=20>10
所以退出循环
所以最后的s=3,i=20
温馨提示:内容为网友见解,仅供参考
第1个回答  2010-09-11
S=0初始值
i=1<10,满足条件
第一次:S=0+1=1=S1

i=1*2=2<10满足条件
第二次:S=S1+1=2=S2

i=2*2=4<10满足条件
第三次:S=S2+1=3=S3

i=4*2=8<10满足条件
第四次:S=S3+1=4
i=8*2=16>10不满足,循环终止。

所以最终值为3

Access教程:用For Next制作九九乘法表(基于VBA语言)
1. 完整代码示例 在Access数据库中,用于生成九九乘法表的VBA代码如下:2. 需求与设计 目标是创建一个交互式窗体,用户可以通过输入控制乘法表的行数,结果会在另一个文本框中显示。具体步骤包括设置文本框交互、确定行数变量以及利用嵌套循环结构。3. 代码逻辑 利用For Next循环,通过外部循环i控制行数...

access ”for…next…“ 语句(VBA),求解!
你之所以认为是i=21的值是因为是i最后必须被递增到21,但21已超出20的上界,就不再进行循环,而是直接结束循环。所以x的值是i=19的值(即x=105)。

access for next语句 VBA
给S的开始值为0 准备,变量i从1到10,每次增加2的步长(***注意,每次是只要小于10,就加2)每次的循环执行语句是 给S增加1.给i乘以2 结束 !!!第一次循环 i=1 s=0+1=1 i=1*2=2 第二次循环(i还小于10)s=1+1=2 i=(2+2)*2=8(由于step=2,所以i用上次的结果先加2)第三次循环(i...

VBA中for next循环语句有哪些?
FOR循环,语句格式: FOR <循环变量>=<初值>TO<终值>[STEP<步长>] [<循环体>] [EXIT FOR] NEXT[<循环变量>] 语句功能:从循环的初值到终值按步长增值控制计数重复执行循环体。 例子: 用FOR语句编写计算S=1+2+3+…+100的程序。 FOR I=1 TO 100 STEP 1 S=S+I NEXT I ...

请问大师们access vba 怎么用for循环语句或者是do循环语句写这一段?
'定义aaa是个控件(aaa可以随便取其他名字)Dim aaa As Control '循环窗体上每个控件 For Each aaa In Me.Controls '假如这个控件是文本框 且为空, 那么将“中国”值赋给这个文本框 If aaa.ControlType = acTextBox And IsNull(aaa) Then aaa.Value = "中国"End If Next aaa ...

access 如何用VBA增加记录?
按Alt+F11进入VBA,插入一个模块,粘贴以下代码:Sub 在条码表中插入150条记录()For i = 1 To 150 'insert into 条码表(条码,批次) values('A000001','JJJ1-1')CurrentDb.Execute ("insert into 条码表(条码,批次) values('A" & Right(CStr(1000000 + i), 6) & "','JJJ1-1')")...

access 中的 VBA 问题 请解释图片代码中红框内的意思
for i=2 to 10000 '建立循环,i=2~10000 if sushu(i) Then '如果 i 是素数(sushu()是一个判断是否素数的函数)n=n+1 '那么n加1 mn=i 'mn=i end if Next i '循环结束 这一段代码就是找出2~10000之间的素数,循环结束后,n=2~10000之间所有素数的数量,mn=2~10000之间最...

access中如何使用VBA将已有的recordset生成一个新表
Public Sub CreateTabel(rst As DAO.Recordset,TabelName As String)Dim TS As TableDefs Dim T As TableDef Dim F As DAO.Field Set TS = CurrentDb.TableDefs Set T = New TableDef rst.MoveFirst For Each F In rst.Fields T.Fields.Append T.CreateField(F.Name,F.Type,F.Size)Next T...

关于access VBA编程的问题
do循环条件是如果rs.eof不等于真.也就是说rs记录集不是结尾时执行下列语句(rs.eof为真时结束Do循环)执行for循环 for循环结束时 txt_资料变量的结果是: txt_资料已有的值+当前记录的字段1+空格+字段2+空格+字段3+空格 之后执行rs记录集移动到下一条记录 txt_资料变量的值后再加一个回车换行符 返...

ACCESS 如何用VBA语言向数据库中填加数据?
在ACCESS数据库中,使用VBA(Visual Basic for Applications)语言向数据库中添加数据,是一个较为便捷的操作。以下是具体步骤与方法。首先,打开ACCESS数据库,确保已连接VBA环境。其次,使用`sql`语句创建一个插入操作。其格式为`"INSERT INTO 表名(字段1,字段2) VALUES('字段1内容','字段2内容')"`...

相似回答
大家正在搜