(程序设计之填空题.docxVIP

-------------------------------------------------【程序设计】-------------------------------------------------题目：(事件)单击窗体。 (响应)我国现有人口为13亿，设年增长率为1%，计算多少年后增加到20亿。并将结果输出在窗体上。将结果存入变量year中。使用do while ...loop语句完成程序。-------------------------------------------------Private Sub Form_Click()Dim year As Integer, sum As Single***************** Begin ************** Dim p as doubleDim r as singleP=1300000000R=0.01Do while p2000000000P=p+p*rN=n+1LoopPrint “n=”,nYear=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=1Fori=1to10P=p*il=l+pnextprint lend sub3题目点击窗体求100以内偶数的和，并将结果输出在窗体上，将结果存入变量sum 中Private sub form –click()如果是奇数的和，则Dim sum as integer …………………….For i=0 to 100 step2 for i=1 to 100 step 2Sum=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 100Sum=sum+iNextPrint sumEnd sub题目双击窗体求1+5+10+15+……………..+500的和，并将结果输出在窗体上，将结果存入变量sum 中Private sub form-click()Dim sum as longSum=0For i=0 to 500 step 5Sum=sum+iNextPrint sumEnd sub题目：求两个数m,n的最大公约数p和最小公倍数q-------------------------------------------------注意：请在指定的事件内编写代码。-------------------------------------------------Private Sub Form_Load() Show Dim p, q As Integer Dim m, n, nm As Integer Dim t, r As Integer m = 21 n = 28********** Begin *****