bb平台(日常测试)循环

《bb平台(日常测试)循环》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、问题1得0分，满分20分 单击窗体，找出10~99之间所有的同构数，显示在窗体上。所谓同构数是指一个数出现在它的平方数的右端，如25在25的平方625的右端，则25为同构数，窗体上显示“25是同构数”。 正确答案所选答案1.PrivateSubForm_Click()-[未给定]2.DimiAsInteger-[未给定]3.Fori=10To99-[未给定]4.Ifi=(i^2)Mod100Then-[未给定]5.Printi&"是同构数"-[未给定]6.EndIf-[未给定]7.Nexti-[未给定]8.EndSub

2、-[未给定]  问题2得0分，满分20分 编制Form_Click()过程，从输入框InputBox输入行数n(5≤n≤15)，然后在窗体上打印如下图形。 正确答案所选答案1.PrivateSubForm_Click()-[未给定]2.DimnAsInteger,iAsInteger,jAsInteger-[未给定]3.Don=Val(InputBox("n="))-[未给定]4.LoopUntiln>=5Andn<10-[未给定]5.Fori=1Ton-[未给定]6.PrintTab(n+1-i);-[未给定]7.F

3、orj=1Ton-[未给定]8.Print"*";-[未给定]9.Nextj-[未给定]10.Print-[未给定]11.Nexti-[未给定]12.EndSub-[未给定]  问题3得0分，满分20分 编制Form_Click()过程，有10元、20元、50元纸币若干张，从中取出20张纸币使其面额总值为600元，求出取法的总数量以及每一种取法的10元、20元、50元纸币张数，并显示在窗体上。 正确答案所选答案1.PrivateSubForm_Click()-[未给定]2.DimxAsInteger,yAsIntege

4、r,zAsInteger,nAsInteger-[未给定]3.Forx=0To60050-[未给定]4.Fory=0To20-x-[未给定]5.z=20-x-y-[未给定]6.Ifz*10+y*20+x*50=600Then-[未给定]7.Print"10元:";z,"20元:";y,"50元:";x-[未给定]8.n=n+1-[未给定]9.EndIf-[未给定]10.Nexty-[未给定]11.Nextx-[未给定]12.Print"总共有："&n&"种取法"-[未给定]13.EndSub-[未给定]  问题4得0

5、分，满分20分 单击窗体，从输入框InputBox输入x和n，并计算下列表达式的值，结果显示在窗体。 正确答案所选答案1.PrivateSubForm_Click()-[未给定]2.DimsAsSingle,xAsSingle,aAsSingle,nAsInteger-[未给定]3.x=Val(InputBox("请输入x"))n=Val(InputBox("请输入n"))s=1-[未给定]4.a=1-[未给定]5.Fori=1Ton-[未给定]6.a=a*x/i-[未给定]7.s=s+a-[未给定]8.Next-[未

6、给定]9.Print"s=";s-[未给定]10.EndSub-[未给定]  问题5得0分，满分20分 从输入框InputBox输入n，再从输入框输入这n个整数，要求以每行5个的形式输出这n个数（其中的偶数用红色显示），计算它们的平均值并显示在窗体上。 正确答案所选答案1.PrivateSubForm_Click()-[未给定]2.DimnAsInteger,xAsInteger,aveAsSingle,sAsSingle-[未给定]3.n=Val(InputBox("n"))-[未给定]4.Fori=1Tonx=Va

7、l(InputBox("x"))-[未给定]5.IfxMod2=0Then-[未给定]6.Form1.ForeColor=vbRed-[未给定]7.Else-[未给定]8.Form1.ForeColor=vbBlack-[未给定]9.EndIf-[未给定]10.Printx;IfiMod5=0ThenPrints=s+x-[未给定]11.Nexti-[未给定]12.ave=s/nPrint-[未给定]13.Print"平均值为："&ave-[未给定]14.EndSub-[未给定]问题1得0分，满分20分 实现文本框的复

8、制（Command1）、剪切（Command2）、粘贴（Command3）、删除（Command4）功能。 编制Form_Click()过程，从输入框InputBo正确答案所选答案1.PrivateSubCommand1_Click()-[未给定]2.Clipboard.ClearClipboard.SetTextText1.Se