搜索
VB专题题第1页1.“四叶玫瑰数”是指一个四位自然数各位上数字的四次方之和等于该四位数本身的数。如自然数8208=84+24+84”,那它就是一个“四叶玫瑰数”。现用VB编写一个程序,实现如下功能:单击“查找”按钮Command1,在列表框List1中显示所有“四叶玫瑰数”,并在标签Label2中显示找到的个数,运行界面如下图所示:(1)为实现上述功能,请在画线处填入正确的代码。PrivateSubCommand1_Click()DimiAsInteger,sAsIntegerDimaAsInteger,bAsInteger,cAsInteger,dAsIntegers=0Fori=1000To9999①'取出个位数字b=(iMod100)\10'取出十位数字c=i\100Mod10'取出百位数字d=i\1000'取出千位数字Ifa^4+b^4+c^4+d^4=iThenList1.AddItemis=②EndIfNextLabel2.Caption=″四叶玫瑰数共有″+Str(s)+″个″EndSub(2)程序中的语句“b=(iMod100)\10”和下列哪些项功能相同(多选)。A.b=i\10Mod10B.b=int(i/10)Mod10C.b=iMod100\10D.b=Mid(i,3,1)2、用VB设计一个奇数迁移的程序,具体要求是:单击“产生”按钮Command1,清空两个列表框中的内容,并产生10个3位自然数放入左边列表框List1中,如图1所示。单击“奇数迁移”按钮Command2,将列表框List1中的所有奇数迁移到列表框List2中,如图2所示。VB专题题第2页图1图2在以下VisualBasic程序的画线①②处填入合适的语句,实现上述功能。Dima(1To10)AsIntegerPrivateSubCommand1_Click()List1.ClearList2.ClearRandomizeFori=1To10a(i)=Int(Rnd()*900+100)List1.AddItem①NextiEndSubPrivateSubCommand2_Click()List1.ClearFori=②Ifa(i)Mod2=1ThenList2.AddItema(i)ElseList1.AddItema(i)EndIfNextiEndSub3、小贝用VB6语言编写了一个拼手气红包程序,实现的功能是:在文本框Text1中输入发放红包的总金额s,在文本框Text2中输入发放红包的个数n,单击“发放红包”按钮Command1,为n个红包随机分配金额,并在列表框List1中显示分配后的这些金额。界面如图1所示。图1VB专题题第3页图2(1)在设计应用程序界面时,应使用图2所示“控件工具箱”中的(填写相应编号)添加列表框List1。(2)为实现上述功能,请在横线①②③处填入合适代码。PrivateSubCommand1_Click()DimsAsSingle,xAsSingle,nAsInteger,iAsIntegerRandomizeList1.Clears=①n=Val(Text2.Text)Fori=1To②'通过循环语句产生n-1个红包的随机值x=Int((Rnd()*s/(n-i)+0.005)*100)/100List1.AddItemStr(x)s=③Nextix=Int((s+0.005)*100)/100'产生最后一个红包List1.AddItemStr(x)EndSub4、利用VisualBasic设计一个小写转大写的程序:在文本框Text1中输入一串字符,单击“转换”按钮Command1,将其中的小写英文字母转换为大写英文字母后,在文本框Text2中显示转换后的字符串。程序运行界面如图所示。(1)实现上述功能的VB代码如下,在画线处应填入正确的语句以实现以上功能。PrivateSubCommand1_Click()DimaAsString,bAsStringDimiAsInteger,cAsStringa=①VB专题题第4页Fori=1ToLen(a)c=Mid(a,i,1)If②Thenc=Chr(Asc(c)-32)EndIfb=b&cNextiText2.Text=bEndSub(2)由程序可知,小写字母比大写字母的ASCII编码值大。5、多数高次方程不存在求根公式,因此求精确根非常困难,甚至不可能,从而寻找方程的近似根就显得特别重要。由于数轴上的点是有序的,因此我们可以用对分查找法找出高次方程在某一区间的实根。即:不断地将区间对分,使得区间中点的值不断逼近方程的根。当区间小于精度的时候,我们就停止对分,并用此时区间的中点值作为方程的根。如求三次方程y=5x3-55x2+170x-130的实根,其函数图像如图1所示:图1图2观察该函数图像发现函数有一实根在区域(1,2)之间,因此我们取两者的中点m=(1+2)/2代入方程进行检测,发现f(1.5)=5x3-55x2+170x-130=18.125,因为f(1.5)0,因此区间应该往左移动,得下一个区间(1,1.5),然后继续进行检测,如果区间差值≤误差率,则认为该中点是方程的根。根据上述方法描述,设计一个VB求解程序的根。程序运行界面如图3所示,单击求解按钮Command1,在文本框Text1中显示方程的根。图3(1)为显示函数的图像,应在窗体中放置的控件是。(填图2中编号)(2)程序代码如下,请在画线处填写正确的VB代码。PrivateSubCommand1_Click()DimiAsDouble,jAsDouble,mAsDoubleDimrAsDouble,yAsDoublei=1:j=2:y=1:r=j-iDoWhiley0Andr0.00001m=(i+j)/2VB专题题第5页y=5*m^3-55�m^2+170�m-130Ify0Then①ElseIfy0Theni=mEndIfr=②LoopText1.Text=mEndSub6、现要用VB编写一个“剪刀石头布”的游戏,游戏界面如图1所示:图1图2点击单选框选择剪刀或石头或布,程序立即显示相应的图像,同时电脑随机出示一个剪刀或石头或布,并显示输赢的结果在列表框List1中。(1)为显示输赢的结果,应在窗体中加入一个列表框,应使用图2所示的控件工具箱中的(填写相应的编号)。(2)请根据题意将下列程序补充完整PrivateSubOption1_Click(IndexAsInteger)'index表示所选的编号,剪刀为0石头为1布为2,图片文件名与此编号对应Randomizex='产生[0,2]的随机整数Image1.Picture=LoadPicture(x&″.jpg″)Image2.Picture=LoadPicture(Index&″.jpg″)IfIndex=0Andx=0Thens=″平局″IfIndex=0Andx=1Thens=″输了″IfIndex=0Andx=2Thens=″胜了″IfIndex=1Andx=0Thens=″胜了″IfIndex=1Andx=1Thens=″平局″IfIndex=1Andx=2Thens=″输了″IfIndex=2Andx=0Thens=″输了″IfIndex=2Andx=1Thens=″胜了″IfIndex=2Andx=2Thens=″平局″VB专题题第6页EndSub7、生活中,许多女士喜欢穿高跟鞋,那穿高跟鞋会使人感到美吗?黄金分割能解释这个问题。人体躯干与身高比例的黄金分割点是肚脐。换句话说,这一比值越接近0.618,愈给人美之感。现按要求编写“高跟鞋的最佳之选”的VB程序(界面如右图所示),实现如下功能:首先,设某女躯干a米和身高b米比为g,分别从文本框Text1和Text2中输入。鞋跟高度s(单位与a、b一致)从Text3中输入,那么新比值g=(a+s)/(b+s),如果g=0.618,那么鞋跟高度S的值就是最佳高度。(1)应用程序界面设计时,为显示新比值,需在窗体中添加控件,并将它的属性值设置为空。(2)请根据题意将下列程序补充完整。PrivateSubCommand1_Click()DimaAsSingle,bAsSingle,sAsSingle,gAsSinglea=Val(Text1.Text)b=Val(Text2.Text)s=Val(Text3.Text)Label5.Caption=①EndSub8、身体质量指数BMI是目前国际上常用的衡量人体胖瘦程序以及是否健康的标准之一。科学家通过大量的统计、分析,推导出BMI值与体重(w,单位kg)成正比,与身高(h,单位m)的平方成反比。BMI=w/h2成人的BMI数值参考:偏瘦:低于20正常:20~25偏胖:高于25最理想的体重指数是:22下面VB程序的功能用于计算身体指数并判断体型。在文本框Text1和Text2中输入体重(w)和身高(h)的值,单击“测试”按钮,在文本框Text3中显示指数的值(结果取整),并根据此值在Label5中显示相应的体型参考和最理想体重(ok)。程序运行界面如图所示:VB专题题第7页VB程序如下:PrivateSubCommand1_Click()DimhAsSingle,wAsSingle,BMIAsSingle,okAsSingleh=Val(Text1.Text)w=Val(Text2.Text)BMI=①ok=Int(22�h^2)Text3.Text=Str(BMI)If②ThenLabel5.Caption=″偏瘦。″ElseIfBMI=25ThenLabel5.Caption=″正常。″ElseLabel5.Caption=″偏胖。″EndIfLabel5.Caption=Label5.Caption+″最佳体重是″+Str(ok)+″kg″EndSub(1)程序中画线①处应填入的语句是。(2)程序中画线②处应填入的语句是。（3）程序中用到的算法是_______________________（填写：解析算法或枚举算法）9、(2016·4浙江学考)编写VB程序,实现如下功能:在文本框Text1中输入某一年份,单击“天干地支与生肖”按钮Command1,在列表框List1中输出该年份开始的12个年份及对应的“天干地支”与“生肖”,运行界面如图所示,程序代码如下。(1)代码“PrivateSubCommand1_Click()”中的Click是。(单选,填字母:A.对象名/B.属性名/C.事件名)(2)为实现上述功能,请在画线处填入合适的代码。PrivateSubCommand1_Click()DimaAsInteger,bAsIntegerDimiAsInteger,nAsIntegerDimc1AsString,s1AsStringDimc2AsString,s2AsStringDimc3AsString,s3AsStringList1.ClearVB专题题第8页s1=″甲乙丙丁戊己庚辛壬癸″s2=″子丑寅卯辰巳午未申酉戌亥″s3=″鼠牛虎兔龙蛇马羊猴鸡狗猪″n=Val(Text1.Text)Fori=nTo①a=(i+6)Mod10b=(i+8)Mod12c1=Mid(s1,a+1,1)c2=Mid(s2,b+1,1)c3=Mid(s3,b+1,1)List1.AddItem②+″年″+c1+c2+″″+c3NextiEndSub(3)由上述算法可知,2024年对应的“天干地支”为。10、某“掷骰子游戏”的VB程序界面如下图示,单击按钮Command1,在标签Label1上显示点数(点数是1到6之间的整数,含数字1和6),按钮上文字由“甲方”变为“乙方”,再次单击按钮上文字由“乙方”变为“甲方”。(1)窗体标题“掷骰子游戏”是通过设置窗体的属性值得到。(2)Command1对象的单击事件处理过程如下:PrivateSubCommand1_Click()Randomizex=①Label1.Cap