谁能给我一个VB中While语句的实例，我刚入门

Posted 2023-04-16

请哪位高手帮帮我，谢谢（附说明）
最好有实例和讲解，因为刚刚入门，所以请讲得通俗一些

VB中While...Wend语句的功能及用法

只要指定的条件为 True，则会重复执行一系列的语句。

语法

While condition
[statements]

Wend

While...Wend 语句的语法具有以下几个部分：
部分 描述
condition 必要参数。数值表达式或字符串表达式，其计算结果为 True 或 False。如果 condition 为 Null，则 condition 会视为 False。
statements 可选参数。一条或多条语句，当条件为 True 时执行。

说明

如果 condition 为 True，则所有的 statements 都会执行，一直执行到 Wend 语句。然后再回到 While 语句，并再一次检查 condition，如果 condition 还是为 True，则重复执行。如果不为 True，则程序会从 Wend 语句之后的语句继续执行。

While...Wend 循环也可以是多层的嵌套结构。每个 Wend 匹配最近的 While 语句。

提示 Do...Loop 语句提供了一种结构化与适应性更强的方法来执行循环。

While 条件
... 【省略号为要循环的语句，可能一个或是多个】
Wend
计算机遇到这样的代码时是怎么执行的呢？其实道理也是一样的。
依然是对这个条件的返回值作出判断，如果条件成立，也就是返回值是True，则执行里面的语句，当执行到Wend这个位置后，会跳回到开始的位置，继续对这个条件返回的值进行判断，如果返回值还是True，则继续循环执行里面的语句…..直到返回值是False了，才停止循环。下面举个例子说明这种循环的使用方式：
Dim I ‘定义一个变量I
I = 10 ‘将变量I 的值赋予10.
Do While I > 5 ‘当变量I 里的值大于5的时候，循环执行里面的语句。
Msgbox I ‘弹出一个消息框，内容显示I 的值。
I = I – 1 ‘变量I 的值在当前的基础上减1
Loop
第一次弹出I 的值。
当进行第二次循环时，条件成立，弹出消息框，变量I 的值变成了9.
以此类推，依次的结果是：8、7、6…直到变量I 中的值减1变成5后，再次回到
I = I – 1这个关系表达式中对I – 1这个条件进行判断，由于5和5进行大于关系运算的话，是不成立的，所以即返回false，立马终止循环。
那么可能有人会问，这种循环和先前我们学习的Do while循环有什么区别呢？是有一个小的区别的。
区别：此循环语句不能使用Exit语句强行退出，如：
Dim I ‘定义一个变量I
I = 10 ‘将变量I 的值赋予10
While I > 5 ‘当变量I 里的值大于5的时候，循环执行里面的语句。
Msgbox I ‘弹出一个消息框，内容显示I 的值。
I = I – 1 ‘变量I 的值在当前的基础上减1
if I = 7 then
Exit Do
end if
Wend
这样循环的话会出现错误，如下图：

Exit do这个退出语句只能在Do While循环语句中执行。当然，这些语句可以互相的嵌套。 参考技术A 【语法】:
while "条件语句"

...循环体...

wend

【例1】:

i=0
while i<=100
s=s+i '求累加和
i=i+1
wend
print s

【例2】
Private Sub Command1_Click()
Dim a As Double
Dim b As Integer
Dim c As String '声明3个变量
a = 6500000000# ' a保存的是现在的世界人口65亿
b = 0 '保存多少年后人口达到80亿
c = 0.014 '人口增长率每年千分之十四

While a <= 8000000000# '循环条件就是a小于80亿，
a = a + a * c
b = b + 1 '只要a小于80亿就循环，每循环一次人口在原来基础上增加0.014， b自身增加1
Wend '结束循环
Print b & "年后，人口达到" & a '显示结果

End Sub本回答被提问者采纳 参考技术B asp网页中的
do while not rs.eof
a=rs("name")
loop

谁能给我一个在 WIX 中修改 windows 环境系统变量的例子吗？

【中文标题】谁能给我一个在 WIX 中修改 windows 环境系统变量的例子吗？

【英文标题】：Can anyone give me a example of modifying windows environment system variables in WIX?

【发布时间】：2010-12-28 05:51:36

【问题描述】：

看完WIX教程后，我仍然不知道如何将installdir添加到Windows系统变量的PATH中。

我尝试使用

  Environment Id='UpdatePath' Action='create' Name='PATH'  System='yes' Value='[INSTALLDIR]' 

但我安装程序后路径没有变化。我几乎无法在任何地方找到 WIX 的示例代码。 请帮助我，非常感谢！

【参考方案1】：

你应该可以使用：

<Environment Id="PATH" Name="PATH" Value="[INSTALLDIR]" Permanent="yes" Part="last" Action="set" System="yes" />

这应该在环境路径中添加一个新条目，设置为[INSTALLDIR].

【讨论】：

设置 Permanent="no" 将在卸载时删除附加的部分（但不是整个值）。

注意 INSTALLDIR 不是一个神奇的词——它需要匹配一个目录的 id，可以是你喜欢的任何东西（甚至不需要大写字母，尽管它们在 wix 中有特殊含义！）

这对我不起作用。当我回显我的 %PATH% 变量时，它没有改变。任何人都可以发布更多的上下文吗？根据@Deqing 在下面的回答，我在 DirectoryRef 中找到了它，但我仍然没有运气。

Wix Official Documentation Basic 和 Wix Official Documentation Detailed 用于Environment 标签。

@KevinSmyth：如果我们设置Permanent="no"，如果在用户点击卸载时将来自其他安装的更多值附加到路径环境变量会发生什么？是否仍然从路径环境变量中删除了正确的值？

【参考方案2】：

另外需要注意的是，Environment 需要放在一个有目录的组件中，例如

<DirectoryRef Id="TARGETDIR">
  <Component Id="Path" Guid="xxx-xxx-xxx-xxx">
    <Environment Id="PATH" Name="PATH" Value="[INSTALLDIR]" Permanent="no" Part="last" Action="set" System="no" />
  </Component>
</DirectoryRef>

Environment Element 中描述的 Wix 元素的详细信息

【讨论】：

其实只需要在一个fragment然后是component，不需要directoryref

我正在尝试使用此答案设置环境变量但没有成功：我找不到DirectoryRef 的正确位置。我还尝试在没有DirectoryRef 父母的情况下放置Component。有人可以建议我应该将Environment 标签放在我的 wxs 文件中的哪个位置：gist.github.com/pyeremenko/891eceb779197e4be240

我最终将Component（没有DirectoryRef）放在了根级别Directory（即<Directory Id="TARGETDIR" Name="SourceDir">）的正下方，它对我来说效果很好。

【参考方案3】：

有同样的问题，这对我有用：

        <Directory Id="TARGETDIR" Name="SourceDir">
            <Directory Id="ProgramFilesFolder">
                <Directory Id="INSTALLFOLDER" Name="DataBaseds_Service_Installer" />
            </Directory>
        </Directory>

    <ComponentGroup Id="Components" Directory="INSTALLFOLDER">

      ...some components  
    </ComponentGroup>

    <DirectoryRef Id="TARGETDIR">
      <Component Id="MYSQL_PASSWORD" Guid="..."
        <Environment Id=HERE YOU CAN ADD THIS  :)/>
      </Component>      
    </DirectoryRef>

【讨论】：

我知道已经晚了，但也许有人会用它。