在Visual Basic上用Do…Loop语句实现循环结构

首先双击进入VB，然后选择标准exe。

我们来看一道问题。仔细来看，这道问题实际上是一台又一台电脑在减价之后的叠加，既要算出能够买几台电脑，又要将这几台电脑的价钱相加算出总价，不难明白，这需要用循环结构来解决。

划出重点后，可以得出几点。1、每买一台电脑，需要算出其价格，然后将其计入总金额，当总金额大于50000元就停止循环。2、计算单价时，如果打折后的价格大于3800元，那么在前一次价格的基础上打折为95%，否则价格为3800元，就不会再打折了。

现在可以开始做出假设了：设电脑的价格为p，折扣率为m，购买电脑的台数为n，购买电脑的总金额为s。接下来就是列出解题步骤（见下图）。

设计好一个计算的程序，直接拖动label、text、commandbutton到form面板上即可。

最重要的就是设计程序，双击commandbutton产生编写程序的界面，根据第四步列出的步骤写出正确的程序（可能需要理解一段时间）。