EXCEL VBA中如何使用For... ...Next循环语句?

 时间:2024-10-13 03:25:05

1、编写程序,计算1-n的所有正整数累积和。以下程序运用了For... ...Ne垓矗梅吒xt结构。Sub Routine1()n = InputBox("请输入n的值:")Dim j, i As IntegerFor i = 1 To nj = j + iNextMsgBox "1-" & n & "累加求和的结果是: " & jEnd Sub

EXCEL VBA中如何使用For... ...Next循环语句?EXCEL VBA中如何使用For... ...Next循环语句?

2、利用For... ...Next循环打印乘法口诀。输入以下代码:Private Sub chengfakoujue()Dim n, i, j As IntegerDim s, t As String For n = 1 To 9 t = "" For i = 1 To n j = n * i s = n & "*" & i & "=" & j t = t & " " & s Next i Debug.Print t Next nEnd Sub

3、运行程序,显示结果如下:

EXCEL VBA中如何使用For... ...Next循环语句?
  • 如何通过Excel VBA设计用户信息查询工具
  • 怎样使用VBA判断文件夹中指定文件是否存在?
  • excel vba如何在指定位置插入指定格式的行
  • 怎样使用VBA筛选小于等于60分之数据?
  • 表格vba设置好选定区域不能更改后怎样解除
  • 热门搜索
    自动挡怎么开 网线接头怎么接 篮球用英语怎么说 车险怎么买 中通快递怎么样 眼睛红血丝怎么消除 siri怎么读 偷东西怎么判刑 driver怎么读 一汽奥迪怎么样