.读入一组数，从第二个开始遇零结束输入，输出与第一个数符号相同的所有数。PrivateSubForm_Click()X1=Val(InputBox("请输入一个数："))y=Sgn(X1)X2=Val(InputBox("请输入一个数："))WhileX2<>0IfSgn(X2)=yThenPrintX2X2=Val(InputBox("请输入一个数："))WendEndSub.我国有人口14亿，按人口年增长率0.8%计算，多少年后人口超过26亿。PrivateSubForm_click()Dimi,nAsIntegern=1Doi=14*(1+0.008)^nn=n+1LoopUntil(i>=26)Printn&"年后人口超过26亿"Print"即："&2011+n&"年后人口超过26亿"EndSub编写一程序，利用随机函数产生10个2位正整数，找出其最大值和最小值，然后将最大、最小值写入文件“d:\data.txt”文件中。Int(rnd(max-min+1)+min)PrivateSubForm_click()DimiAsInteger,j(1To10)AsInteger,k1AsString,ma%,mi%,k2AsStringi=1ma=0mi=100Fori=1To10j(i)=Int(Rnd*99+10)Ifj(i)>maThenma=j(i)Ifj(i)<miThenmi=j(i)Nextik1="最大值："&mak2="最小值："&miOpen"d:\data.txt"ForOutputAs#1Write#1,k1,k2Close#1EndSub用inputbox输入10个数，求其中最大数。并将最大数和数组中最后一个数交换位置（数组实现），在窗体中显示出运行结果。PrivateSubform_click()Dimi%,arr(1To10)AsInteger,max%,t%,k%i=1max=0k=1Fori=1To10arr(i)=Val(InputBox("请输入第"&i&"个数","依次输入十个数"))Printarr(i);Ifarr(i)>maxThenmax=arr(i)k=iElsek=kEndIfNextiPrint"最大数："&maxPrint"最大数下标为："&kFori=1To9t=arr(10)arr(10)=arr(k)arr(k)=tPrintarr(i);NextiPrintmaxEndSub