s=0
for i = 1 to 10 step 2
s = s + 1
i = i * 2
next i
请问循环结束后,变量i和变量s的值各为多少?
我的答案和参考书上的有出处
望指教~给出大概过程即可~谢谢各位了
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内容')"`...