[分享]cuiler狐表学习点滴（更新日期2008-9-6） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

发现的问题(经实验证明)

1，自动计算功能。只对第一列起作用，且对横向也不起作用。
已解决：所有参与计算的列必须是数值型

2，开发指南==>编程基础==>流程控制语句==>for...next语句

在循环过程中，如果提前退出循环，可以用Exit For语句，例如：

Dim Sum As Integer
Dim i As Integer
For i = 1 To 100
    Sum = Sum + i
    If i = 51 Then
        Exit For
    End If
Next
OutPut.Show(Sum)

上面的代码实际上只是求得1到50的累计值，因为在计数器变量i等于51的时候,，程序退出了循环。

实际执行结果为 1326，是 1到51的累计值。

[此贴子已经被ylm于2008-9-10 10:51:42编辑过]

以下是引用狐狸爸爸在2008-9-7 15:39:00的发言：
谢谢，收藏
楼主继续。

[此贴子已经被作者于2008-9-7 15:39:05编辑过]

持续学习中，发现问题，我会及时反馈的

3，开发指南==>编程基础==>流程控制语句==>do...loop语句

在循环过程中，如果提前退出循环，可以用Exit Do语句，例如：

Dim Sum As Integer
Dim i As Integer = 1
Do While i <= 100
    Sum = Sum + i
    i = i + 1
    If i = 50 Then
        Exit Do
    End If
Loop
Output.Show(Sum)

上面的代码实际上只是求得1到50的累计值，因为在i等于50的时候退出了循环。

实际执行结果为 1225，是 1到49的累计值。

4，开发指南==>编程基础==>流程控制语句==>Return语句
Return语句用于终止代码的执行。

例如：

Dim Sum As Integer

Dim i As Integer

For i = 1 To 100

Sum = Sum + i

If i = 51 Then '如果i等于51

OutPut.Show(Sum) '显示结果

Return '终止执行

End If

如文中所指，Return所谓“终止代码的执行“ 到底是什么意思？

是类似于结束本次循环的continue do? 还是类似于退出循环的exit do？

而且经过验证，上面的代码执行后会出错

dvubb 此主题相关图片如下：111.jpg

[此贴子已经被作者于2008-9-8 14:32:36编辑过]

以下是引用lxl在2008-9-8 14:41:00的发言：

FoxTable里面大部分地方只用 Return就够了
命令窗口例外

听不懂？

以下是引用ybil在2008-9-8 17:20:00的发言：

我不這樣認為：對俺等對VB看得頭大的人來說，幫助文件就是“指南針”！初初更是“依葫畫瓢”！
如幫助文件所指導的方法簡潔直接點，菜鳥變老鳥就會走許多許多彎路！

ybil 我对你的说法，不表赞同。

帮助文件的主要作用是让初学者学习和理解知识，以求掌握，并在实践中，融汇贯通。

而简洁代码，优化算法是建立在对知识有全面掌握，并有一定的实践经验的基础上的。

我承认，下面的代码很啰嗦，但不可否认，这样写的代码很容易看懂，也很好理解。
Dim Today As Date = Date.Today
Dim Names As String = "日一二三四五六"
Dim Result As String
Result = "星期" & Names.Chars(Today.DayOfWeek)
Output.Show(Result)

我希望帮助文件，1，要准确。2，要易学。3，要全面。

至于，简洁代码，优化算法。等以后学习他人优秀作品的时候，再仔细揣摩吧。

主题：[分享]cuiler狐表学习点滴（更新日期2008-9-6）