程序的设计之填空题.docx

------------------------------------------------- 【程序设计】 ------------------------------------------------- 题目：(事件)单击窗体。 (响应)我国现有人口为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 p2000000000 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 as integer For i=0 to 100 Sum=sum+i Next Print sum End sub 题目双击窗体 求1+5+10+15+……………..+500的和，并将结果输出在窗体上，将结果存入变量sum 中 Private sub form-click() Dim sum as long Sum=0 For i=0 to 500 step 5 Sum=sum+i Next Print sum End sub 题目：求两个数m,n的最大公约数p和最小公