资源描述：
《高中信息技术vb专项题(学考)》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、WORD文档下载可编辑1.“四叶玫瑰数”是指一个四位自然数各位上数字的四次方之和等于该四位数本身的数。如自然数8208=84+24+84”,那它就是一个“四叶玫瑰数”。现用VB编写一个程序,实现如下功能:单击“查找”按钮Command1,在列表框List1中显示所有“四叶玫瑰数”,并在标签Label2中显示找到的个数,运行界面如下图所示:(1)为实现上述功能,请在画线处填入正确的代码。PrivateSubCommand1_Click( )DimiAsInteger,sAsIntegerDimaAsInteger,bAsInteger,cAsInteger,dAsInteger
2、s=0Fori=1000To9999 ① '取出个位数字 b=(iMod100)10'取出十位数字c=i100Mod10'取出百位数字d=i1000'取出千位数字Ifa^4+b^4+c^4+d^4=iThen List1.AddItemi s= ② EndIfNextLabel2.Caption=″四叶玫瑰数共有″+Str(s)+″个″EndSub(2)程序中的语句“b=(iMod100)10”和下列哪些项功能相同 (多选)。 A.b=i10Mod10B.b=int(i/10)Mod10C.b=iMod10010D.b=Mid(i,3,
3、1)2、用VB设计一个奇数迁移的程序,具体要求是:单击“产生”按钮Command1,清空两个列表框中的内容,并产生10个3位自然数放入左边列表框List1中,如图1所示。单击“奇数迁移”按钮Command2,将列表框List1中的所有奇数迁移到列表框List2中,如图2所示。专业技术资料分享WORD文档下载可编辑图1图2在以下VisualBasic程序的画线①②处填入合适的语句,实现上述功能。Dima(1To10)AsIntegerPrivateSubCommand1_Click()List1.ClearList2.ClearRandomizeFori=1To10a(i)=I
4、nt(Rnd()*900+100)List1.AddItem ① NextiEndSubPrivateSubCommand2_Click()List1.ClearFori= ② Ifa(i)Mod2=1Then List2.AddItema(i)Else List1.AddItema(i)EndIfNextiEndSub3、小贝用VB6语言编写了一个拼手气红包程序,实现的功能是:在文本框Text1中输入发放红包的总金额s,在文本框Text2中输入发放红包的个数n,单击“发放红包”按钮Command1,为n个红包随机分配金额,并在列表框List1中显示分
5、配后的这些金额。界面如图1所示。图1图2(1)在设计应用程序界面时,应使用图2所示“控件工具箱”中的 (填写相应编号)添加列表框List1。 (2)为实现上述功能,请在横线①②③处填入合适代码。PrivateSubCommand1_Click()专业技术资料分享WORD文档下载可编辑 DimsAsSingle,xAsSingle,nAsInteger,iAsInteger Randomize List1.Clear s= ① n=Val(Text2.Text) Fori=1To ② '通过循环语句产生n-1个红包的随机值 x=Int((Rnd
6、()*s/(n-i)+0.005)*100)/100 List1.AddItem Str(x) s= ③ Next ix=Int((s+0.005)*100)/100 '产生最后一个红包 List1.AddItem Str(x)End Sub4、利用VisualBasic设计一个小写转大写的程序:在文本框Text1中输入一串字符,单击“转换”按钮Command1,将其中的小写英文字母转换为大写英文字母后,在文本框Text2中显示转换后的字符串。程序运行界面如图所示。(1)实现上述功能的VB代码如下,在画线处应填入正确的语句以实现以上功能。PrivateSubComm
7、and1_Click() DimaAsString,bAsString DimiAsInteger,cAsString a= ① Fori=1ToLen(a)c=Mid(a,i,1)If ② Then c=Chr(Asc(c)-32)EndIfb=b&c Nexti Text2.Text=bEndSub(2)由程序可知,小写字母比大写字母的ASCII编码值大 。5、多数高次方程不存在求根公式,因此求精确根非常困难,甚至不可能,从而寻找方程的近似根就显得特别重
