两道VBA程序题求解~~

课本上的答案分别是9和36。但是我不明白为什麽是这两个答案啊。帮帮忙,告诉我答案,简单解释一下好吗?万分感谢!! 1.下面VBA程序段运行时,内层循环的循环总次数是——?for m=0 to 7 step 3for n=m-1 to m+1next n next m 2.在窗体上添加一个命令按钮(名为command1),然后编写如下事件过程:private sub command1_clickdim b, k for k=1 to 6      b=23+knext kmsgbox b+kend sub打开窗体后,单击命令按钮,消息框的输出结果是——?  

第一个程序的总循环次数是9次
Sub test()
For m = 0 To 7 Step 3 '把0到7以3的间隔依次赋予m,就是说m分别是0, 3, 6,共3个值
For n = m - 1 To m + 1 '把m - 1到m + 1以1的间隔依次赋予n,就是说n分别是m - 1, m + 0, m + 1,共3个值
Next n
Next m
End Sub
总循环次数 = 3 x 3 = 9

第二个程序输出结果是36
Private Sub command1_click()
Dim b, k
For k = 1 To 6
b = 23 + k 'k最大是6,b = 23+6 = 29
Next k
MsgBox b + k '当跳出For循环时k=7(小于7的话不会跳出For循环),即输出是 29+7=36
End Sub
温馨提示:内容为网友见解,仅供参考
第1个回答  2011-10-22
9 36

求解两个VB习题...
第一题:把下面的代码拷到每个工作表的代码段中 Private Sub Worksheet_Change(ByVal Target As Range)If Target.Row > 1 And Target.Column = 2 Then Cells(Target.Row, Target.Column + 1) = Target.Value * 2 End If End Sub 第二题:把下面的代码拷到工作表2的代码段中 Private Sub W...

用VBA求解答案
1、VLOOKUP公式中的条件1:条件2,意思是将两个单元格连在一起作为整体进行查找。图中即为:F2:G2。2、VLOOKUP公式中的$条件1区域$:$条件2区域$,意思是将业务类型和订单编号作为整体。即图中:$A$2:$B$9(使用$锁定区域-绝对引用)。3、VLOOKUP公式中的IF({1,0},$条件1区域$:$条件2区域...

VBA编程,求解!
变量定义错误,遗漏了n,x应该定义为string类型,修改正确的程序如下:Option Explicit Private Sub gggg()Dim a, b, c, d, i, n, x As String, s As String s = InputBox("请输入一个字符串")For i = 1 To Len(s)x = Mid(s, i, 1)n = Asc(x)If n > 48 And n < 57 T...

vba问题求解
1、在表的B1单元格输入="COPY test " & A1,然后把光标移动到B1单元格右下角,当光标变成实心黑十字时,双击左键,实现表格自动填充;2、选中B列全部内容,进行复制 3、打开记事本,将复制内容全部粘贴到新的文本文件中,然后在最前面添加一行,内容为@ECHO OFF 4、将文本文件存储到与test文件夹同...

如何利用VBA解决规划问题?
5、问题数据和模型建立完成之后,开始进行规划求解。点击数据菜单下的规划求解图标。6、下面添加目标单元格,选中之前添加公式的那个单元格。选择目标单元格。空白位置。7、下面用单元格引用添加约束条件。8、约束条件添加完成之后,还要问变量添加约束。9、这里的变量是0或1,所以选择二进制。确认添加。10、...

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

VBA 菜鸟问题求解(带参数的 sub 过程)
"你点击的是右键“End Sub 当你点击下鼠标时,如果左键button为1,右键则为2;如果点击是按下了shift键则shift为1,否则为0,X,Y分别对应你鼠标点击位置的横坐标与纵坐标。这些参数在你点击鼠标时就自动根据你点击的状态产生了值,你调不调用无所谓的。像上面只用了button参数,其他3个没用到。

VBA一道编程问题求解!
(1)该过程是循环嵌套结构,请问当外循环循环1次时,内循环循环多少次?外循环次数是多少?内循环,循环0-(-3)+1=4次;外循环,循环3-1+1=3次。(2)打开窗体后,单机命令按钮,消息框的输出结果是什么?继上题,内循环一次,n的值增加2,每次外循环就会运行4次内循环,这样总共是12次内循环...

VBA编程求解多元一次方程
如果相等,就表示找到了一个解,然后再继续循环查找其它可能的解。VBA代码应该大致如下:Dim totalSale As Double For i = 1 To 20 totalSale = totalSale + (Cells(i,1).Value * Cells(i,2).Value) If totalSale = Range("B2").Value Then ' Found a solution End if Next i ...

Excel VBA代码求解!高手请指点!
你的解释是对的 d(arr(i, 1)) = d(arr(i, 1)) & "," & i 解释:这个是将d(arr(i, 1))的item 更新为: 原来的item 再接上 "," 和 i ,这个Key没变,就改变了 item

相似回答