【正文】
hilewend形式()Private Sub Form_Click()Dim i As IntegerDim sum As Integersum = 0i = 1While i = 100 sum = sum + i i = i + 1 Wend Print 和為。 sumPrint 循環(huán)變量的值為:。 iEnd Sub(III)do while....loop形式 ()Private Sub Form_Click()Dim i As IntegerDim sum As Integersum = 0i = 0Do While i 100i = i + 1sum = sum + iLoopPrint 和為。 sumPrint 循環(huán)變量的值為:。 iEnd Sub(IV) do….. loop while形式()Private Sub Form_Click()Dim i As IntegerDim sum As Integeri = 0sum = 0Do i = i + 1 sum = sum + i Loop While (i 100)Print 和為。 sumPrint 循環(huán)變量的值為:。 iEnd Sub(v) do until…..loop形式()Private Sub Form_Click()Dim i As IntegerDim sum As Integeri = 0sum = 0Do Until i = 100 i = i + 1 sum = sum + i Loop Print 和為。 sumPrint 循環(huán)變量的值為:。 iEnd Sub(VI) do…. loop until形式 ()Private Sub Form_Click()Dim i As IntegerDim sum As Integeri = 0sum = 0Do i = i + 1 sum = sum + iLoop Until i = 100 Print 和為。 sumPrint 循環(huán)變量的值為:。 iEnd Sub(4)單擊“文件”/“保存工程”菜單項(xiàng),…...:\VB程序內(nèi)。五、實(shí)驗(yàn)調(diào)試與結(jié)果分析六、總結(jié)