access ”for…next…“ 语句（VBA），求解！
题目是这样的：
执行下面的程序段后，x的值为___？
x=5
For i = 1 to 20 Step 2
x = x + i
Next i
(A)21 (B)22 (C)23 (D)24
他的答案是：(A)21。为什么会是21，不应该是 5+(1+3+5+……+19) 吗？求解，谢谢~!
你之所以认为是i=21的值是因为是i最后必须被递增到21，但21已超出20的上界，就不再进行循环，而是直接结束循环。所以x的值是i=19的值（即x=105）。
Sub test()
x = 5
For i = 1 To 20 Step 2
x = x + i
Next i
MsgBox (x)
End Sub
你的答案，看不懂。
还是看看你的题是否有漏看的内容。本回答被提问者采纳
1 5+1=6
3 6+3=9
5 9+5=14
7 14+7=21
.........
结果应该是105
不信你可以用VB测试一下
access ”for…next…“ 语句(VBA),求解!
你之所以认为是i=21的值是因为是i最后必须被递增到21，但21已超出20的上界，就不再进行循环，而是直接结束循环。所以x的值是i=19的值（即x=105）。
Access教程:用For Next制作九九乘法表(基于VBA语言)
1. 完整代码示例 在Access数据库中，用于生成九九乘法表的VBA代码如下：2. 需求与设计 目标是创建一个交互式窗体，用户可以通过输入控制乘法表的行数，结果会在另一个文本框中显示。具体步骤包括设置文本框交互、确定行数变量以及利用嵌套循环结构。3. 代码逻辑 利用For Next循环，通过外部循环i控制行数...
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循环语句有哪些?
ACCESS中FOR--NEXT循环语句怎么做 = 2 TO 100 STEP 2 SUM = SUM + I; NEXT I while循环 SUM = 0 i = 2 while i <= 100 SUM = SUM + i i = i + 2 wend print SUM VB循环语句主要有哪些带说明 1、行IF语句 在一行中写完的IF语句，称为行IF语句。 语句格...
关于access VBA编程的问题
do循环条件是如果rs.eof不等于真.也就是说rs记录集不是结尾时执行下列语句(rs.eof为真时结束Do循环)执行for循环 for循环结束时 txt_资料变量的结果是: txt_资料已有的值+当前记录的字段1+空格+字段2+空格+字段3+空格 之后执行rs记录集移动到下一条记录 txt_资料变量的值后再加一个回车换行符 返...
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语言向数据库中填加数据?
在ACCESS数据库中，使用VBA（Visual Basic for Applications）语言向数据库中添加数据，是一个较为便捷的操作。以下是具体步骤与方法。首先，打开ACCESS数据库，确保已连接VBA环境。其次，使用`sql`语句创建一个插入操作。其格式为`"INSERT INTO 表名(字段1,字段2) VALUES('字段1内容','字段2内容')"`...
请问大师们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语言向数据库中填加数据?
在ACCESS中使用VBA语言向数据库添加数据，可以通过编写SQL语句和利用VBA的UPDATE功能实现。首先，你需要确保已经建立了ACCESS数据库并与VBA建立了链接。使用SQL语句添加数据的步骤如下：编写Insert语句，如"Insert into 表名(字段1,字段2) values('字段1内容','字段2内容')"，将数据插入到指定的表中。
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...
