还剩1页未读,继续阅读
文本内容:
一、寻找极值(最大值最小值)
三、求1+(1+2)+(1+2+3+…..+10)Dima1to10AsintegerDimtasintegers=0:b=0Foii=1to10ai=intrnd*91+10foiI=1to10Printaib=b+iForI=1to10s=s+bIfaitthent=ainextiNextIprintsPrint极值为“,tendsbb
二、求1+2+3+……+100的和
四、素数的判断S=0f=1FoiI=1to10forI=2ton-1S=s+IifnmodI=0thenf=0:exitforNextInextiPrintsiff=1thenEndsubprintn“是素数“elseprintn“不是素数“
五、将输入的字符串逆序输出,如ABCD,则输出DCBA
六、s删除字符串特定字符S=inputbox“请输入一个字符串“DimsasStringpasStringW=””s=inputbox“请输入字符串“ForI=1tolensc=inputbox(“请输入待删除字符“)W=MidsI1WforI=1tolensNextIa=MidsI1PrintWifacthenp=paNextIprintp
七、单击命令按钮command1,在窗体上利用
八、打印九九乘法表随机函数产生10个1~100的整数,单击optionexplicit命令按钮2,将生成的数按照从大到小的Privatesubcommand1_click顺序进行排序输出dimIjasintegerDima10asintegerforI=1to9Privatesubcommand1_clickforj=1toiPrint”排序前“;printI“*”J“=”I*j;spc1ForI=1to10nextjai=intrnd*100+1nextI换行printendsubprintai
九、单击命令按钮在图片框picture1nextIendsubforI=1to9Privatesubcommand2_clickpicture
1.printspc(9–i);Printforj=1to2*I-1Print”排序后“;picture
1.printtrim10–i;ForI=1to9nextjForj=1to10–Ipicture
1.printIfaiaj+1thennextiT=aj:aj=aj+1:aj+1=TendsubEndif换行nextjforI=1to10printai;nexti
十、利用随机函数产生10个20~50之间的数
十三、计算1+值,单击窗体将他们输出找出其中最小数并直到最后一个级数项的值小于10-6记录该数位置PrivatesubformPrivatesubformdimInbaslongMin=50dimsassingleS=0n=1:b=0:s=0ForI=1to10DoWhile1/b=
0.000001T=intrnd*30+20forI=1tonPrinttb=b*nS=s+tnextiIftminthent=min:k=Is=s+1/bNextIn=n+2Print”最小值为“minloop换行printsendsubPrint”最小值的位置为““第”k”个“Endsub
十四、计算Array函数中提供所有奇
十一、在文本框text中输入一个正整数N按数元素平均值,计算结果两位小数计算命令按钮计算1到N偶数之乘积Privatesubform2*4*6*……*mdimsasLongxasSingleDimprodaslongdimaasvariantN=valtext
1.textdimkasintegerProd=1s=0:num=0Fork=2toNstep2a=Array379258………..Prod=prod*kfork=LboundaToUboundaNextkifakMod2=1Label
1.caption=prods=s+akEnssubnum=num+1
十二、设窗体中心在X=1500y=1000处,点击endif窗体上画出红色实心正方形正方形左上角在点nextk击处,正方形边长为为点击处到窗体中心距离一半x=s/numPrivatesubform_mousedownbuttonasintegerx=Round9x2shiftasintegerxassingleyasintegerprint“所有奇数的平均值=“;xdimLaslongForm
1.forecolor=vbRedForm1fillcolor=vbRedL=Sqrx-1500^2+y-1000^2Line(xy)-x+LY+LBFEndsub
十五、利用随机函数产生10个0~100之间的数,计算平均值,找出最接近平均值的那个数Privatesubformdima10asSingles=0forI=1to10ai=Roundrnd*1002Printais=s+ainextIs=Rounds/102t=Absa1-sforI=1to10IfAbsai-s=tthent=Absai-sk=IendifnextIprint“平均值=“rounds2Print“最接近平均值的数=“akendsub
十六、单击命令按钮command1便在图片框picture1中显示由字符串“visualbasicprogramming”组成的正弦曲线并且使字符串均匀的分布在一个完整周期的正弦曲线上a=“visual….programmming”n=Lenap=360/nforI=1tonpicture
1.CurrentX=I*150picture
1.CurrentY=1000-800*sin(i*p*
3.14159/180)picture
1.printMidaI1nextIendsub
十七、在文本框输入一个英文句子,若句首或句尾存在空格,或任意两个单词之间空格多余一个则在单击命令之后将其删除,并显示在text2中DimaasvaiantIasintegera=Splittext”“forI=LboundaToLboundaai=TrimaiifLenai=0thentext
2.caption=text2+ai+”“endifnextendsub
十八、在窗体上多次单击鼠标左键画出如图所示连接个单击点的连续折现单击鼠标右键则在折现终点与起点之间自动画出连线形成闭合区域。