VB程序设计经典案例VIP专享VIP免费

'------------------------------------------------- '【程序设计】 '------------------------------------------------- '题目：(事件)单击窗体。 ' (响应)我国现有人口为 13 亿，设年增长率为 1%， ' 计算多少年后增加到 20 亿。并将结果输出 ' 在窗体上。将结果存入变量 year 中。 ' 使用 do while ...loop 语句完成程序。 '------------------------------------------------- Private Sub Form_Click() Dim year As Integer, sum As Single '***************** Begin ************** Dim p as double Dim r as single P=1300000000 r=0.01 Do while p<2000000000 P=p+p*r n=n+1 Loop Print “n=”,n Year=n '*************** End ************************* '------------------------------------------------- '题目： (事件)单击窗体。 ' (响应)求从 100 到 1000 之间所有是 3 的倍数的数之 ' 和，当和大于 3000 时，停止计算并输出和。请将结果输 ' 出到窗体上,并存入所给变量 SUM 中。使用 for...next 语 ' 句完成程序 '------------------------------------------------- Private Sub Form_Click() Dim sum As Integer '***************** Begin ************** sum = 0 Dim i As Integer For i = 100 To 1000 If i Mod 3 = 0 Then sum = sum + i If sum > 3000 Then Exit For End If Next i Print sum '*************** End ************************* 1 题目（事件）点击窗体 （响应）求1！+2！+3！+…………………+10!的值，并在窗体上输出，结果存入变量 L 中 Private sub form –click() Dim l as long Dim p as long P=1 Fori=1to10 P=p*i l=l+p next print l end sub 3 题目点击窗体 求100 以内偶数的和，并将结果输出在窗体上，将结果存入变量 sum 中 Private sub form –click() 如果是奇数的和，则 Dim sum as integer ……………………. For i=0 to 100 step2 for i=1 to 100 step 2 Sum=sum+i ……………… Next ………. Print sum End sub ……………………….. 题目：单击窗体 求1+2+3+4+5+……………….+100 的值并将结果输入在窗体上，结果存入变量 sum 中 Private sub form –click() Dim sum...