




版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
1、标准实用文案1“四叶玫瑰数”是指一个四位自然数各位上数字的四次方之和等于该四位数本身的数。如自然数8208=8 4+2 4+8 4”,那它就是一个“四叶玫瑰数”。现用VB编写一个程序,实现如下功能:单击“查找”按钮 Commandl,在列表框Listl中显示所有“四叶玫瑰数”,并在标签Label2中显示找到的个数,运行界面如下图所示:文档(1)为实现上述功能,请在画线处填入正确的代码。Private Sub Command1_Click( )Dim i As Integer, s As IntegerDim a As Integer, b As Integer, c As Integer, d
2、 As Integer s = 0For i = 1 000 To 9 999取出个位数字b = (i Mod 100)10 取出十位数字c = i 100 Mod 10 取出百位数字d = i 1 000 取出千位数字If a 人 4+ b 人 4 + c 人 4 + d A 4 = i ThenList1.Addltem i s =End IfNextLabel2.Caption =四叶玫瑰数共有+ Str(s) +个End Sub程序中的语句b = (i Mod 100) 10和下列哪些项功能相同(多选)A.b=i10 Mod 10B.b=int(i/10) Mod 10C.b = i
3、Mod 10010D.b=Mid(i,3,1)2、用VB设计一个奇数迁移的程序,具体要求是:单击“产生”按钮Command1,清空两个列表框中的内容,并产生10个3位自然数放入左边列表框List1中,如图1所示。单击“奇数迁移”按钮框List2中,如图2所示。Command2,将列表框List1中的所有奇数迁移到列表图1图2在以下Visual Basic程序的画线处填入合适的语句,实现上述功能。Dim a(1 To 10) As IntegerPrivate Sub Command1_Click()List1.ClearList2.ClearRandomizeFori = 1 To 10a(i
4、) = Int(Rnd() * 900 + 100)List1.AddItem Next iEnd SubPrivate Sub Command2_Click()List1.ClearFor i =If a(i) Mod 2 = 1 ThenList2.AddItem a(i)ElseList1.AddItem a(i)End IfNext iEnd Sub3、小贝用VB6语言编写了一个拼手气红包程序,实现的功能是:在文本框Text1中输入发放红包的总金额s,在文本框Text2中输入发放红包的个数n,单击“发放红包按钮Commands 为n个红包随机分配金额,并在列表框List1中显示分配后的
5、这些金额。界面如图1所示图1图2(填写相应编号)添加列表框List1(1) 在设计应用程序界面时,应使用图2所示“控件工具箱中的(2) 为实现上述功能,请在横线处填入合适代码。Private Sub Command1_Click()Dim s As Single,x As Single,n As IntegerAs IntegerRandomizeListl.Clears= n=Val(Text2.Text)For i=1 To通过循环语句产生n-1个红包的随机值x=lnt(Rnd()*s/(n-i)+0.005)*100)/100List1.AddltemStr(x)s= Next ix=I
6、nt(s+0.005)*100)/100产生最后一个红包List1.AddItem Str(x)End Sub4、利用Visual Basic设计一个小写转大写的程序:在文本框Text1中输入一串字符,单击“转换”按钮 Command1,将其中 的小写英文字母转换为大写英文字母后,在文本框Text2中显示转换后的字符串。程序运行界面如图所示。(1) 实现上述功能的 VB代码如下,在画线处应填入正确的语句以实现以上功能。Private Sub Command1_Click()Dim a As String,b As StringDim i As Integer,c As Stringa=For
7、i=1 To Len(a)c=Mid(a,i,1)If Thenc=Chr(Asc(c)-32)End Ifb=b & cNext iText2.Text=bEnd Sub(2) 由程序可知,小写字母比大写字母的ASCII编码值大 。5、多数高次方程不存在求根公式,因此求精确根非常困难,甚至不可能,从而寻找方程的近似根就显得特别重要。由于数轴上 的点是有序的,因此我们可以用对分查找法找岀高次方程在某一区间的实根。即:不断地将区间对分,使得区间中点的值不断逼近方程的根。当区间小于精度的时候,我们就停止对分,并用此时区间的中点值作为方程的根。如求三次方程y=5x 3-55x 2+170x-130的
8、实根,其函数图像如图1所示:陶-55*1+170M-1 的图燈JM /观察该函数图像发现函数有一实根在区域(1,2)之间,因此我们取两者的中点f(1.5)=5x 3-55x 2+170x-130=18.125,因为f(1.5)0,因此区间应该往左移动m=(1+2)/2代入方程进行检测,发现,得下一个区间(1,1.5),然后继续进行检测,如果区间差值W误差率,则认为该中点是方程的根。根据上述方法描述,设计一个VB求解程序的根。程序运行界面如图3所示,单击求解按钮Commandl,在文本框Textl中显示方程的根图3(1) 为显示函数的图像,应在窗体中放置的控件是 。(填图2中编号)(2) 程序代
9、码如下,请在画线处填写正确的VB代码。Private Sub Command1_Click()Dim i As Double, j As Double, m As DoubleDim r As Double , y As Doublei=1:j=2:y=1:r=j_iDo While y 0 And r 0.00001m=(i + j) / 2y=5 * m 人 3 - 55 m A 2 + 170 m - 130If y 0 ThenElself y 0 Theni=mEnd Ifr= LoopText1.Text =mEnd Sub6、现要用VB编写一个“剪刀石头布”的游戏,游戏界面如图1
10、所示:图1点击单选框选择剪刀或石头或布,程序立即显示相应的图像,同时电脑随机岀示一个剪刀或石头或布,并显示输赢的结果在列表框Listl中。(1) 为显示输赢的结果,应在窗体中加入一个列表框,应使用图2所示的控件工具箱中的 (填写相应的编号)。(2) 请根据题意将下列程序补充完整Private Sub Option1_Click(lndex As Integer)index表示所选的编号,剪刀为0 石头为1布为2,图片文件名与此编号对应Randomizex=产生0,2的随机整数lmage1.Picture=Load Picture(x &.jpg ”)lmage2.Picture=Load Pi
11、cture(Index &.jpg ”)If Index=0 And x=0 Then s=平局If Index=0 And x=1 Then s=输了If Index=0 And x=2 Then s=胜了If Index=1 And x=0 Then s=胜了If Index=1 And x=1 Then s=平局If Index=1 And x=2 Then s=输了If Index=2 And x=0 Then s=输了If Index=2 And x=1 Then s=胜了If Index=2 And x=2 Then s=平局End Sub7、生活中,许多女士喜欢穿高跟鞋,那穿高跟
12、鞋会使人感到美吗 ?黄金分割能解释这个问题。人体躯干与身高比例的黄金分割 点是肚脐。换句话说,这一比值越接近0.618,愈给人美之感。现按要求编写“高跟鞋的最佳之选”的VB程序(界面如右图所示),实现如下功能:首先,设某女躯干a米和身高b米比为g,分别从文本框Text1和Text2中输入。鞋跟高度s(单位与a、b 一致)从Text3中输入,那么新比值g=(a+s)/(b+s),如果g=0.618,那么鞋跟高度S的值就是最佳高度。(1) 应用程序界面设计时,为显示新比值,需在窗体中添加控件,并将它的属性值设置为空。(2) 请根据题意将下列程序补充完整。Private Sub Command1_C
13、lick( )Dim a As Single,b As Singles As Single,g As Singlea=Val(Text1.Text)b=Val(Text2.Text) s=Val(Text3.Text) Label5.Caption= End Sub8、身体质量指数BMI是目前国际上常用的衡量人体胖瘦程序以及是否健康的标准之一。科学家通过大量的统计、分析,推导出BMI值与体重(w,单位kg)成正比,与身高(h,单位m)的平方成反比。BMI=w/h 2成人的BMI数值参考:偏瘦:低于20正常:2025偏胖:高于25最理想的体重指数是:22下面VB程序的功能用于计算身体指数并判断体
14、型。在文本框Textl和Text2中输入体重(w)和身高(h)的值,单击“测试”按钮,在文本框Text3中显示指数的值(结果取整),并根据此值在Label5中显示相应的体型参考和最理想体重 (ok)。程序运行 界面如图所示:VB程序如下:Private Sub Command1_Click()Dim h As Single, w As Single, BMI As Single, ok As Single h =Val(Text1.Text)w =Val(Text2.Text)BMI =ok = Int(22 h A 2)Text3.Text =Str(BMI)If The nLabel5.C
15、aption =偏瘦。ElseIf BMI = aAnd c= aAnd c0,则区间应该往左移动 結束点j=m,如果y0,则区间应该往右移动,起始点 i=m。6、 (1)4(2)Int(Rnd*3)(3) List1.Additem s解析: 程序通过9个If语句判断胜负情况,结果存放在变量s中,最后把结果显示在 List1中。在列表框中 添加一行数据,可使用Additem 方法。7、(1)标签或 LabelCaption(2)str(a+s)/(b+s)8、答案:(1)1 nt(w/h A 2) (2)BMI 20(3)解析算法解析:本题根据体重与身高求解体质指数BMI,两者之间的关系为BMI=w/hA2,所以处应填入Int(w/ha 2)。根据成人的BMI数值参考,低于20属于偏瘦,所以处应填入 BMI 20。程序采用的算法是解析算法。9、答案:(1)Cn+11str(i) (3)甲辰解析: 代码Private Sub Command1_Click() ”中的 Command1是对象名,Click 是事件名,Command1_Click则是事件处理过程的名称。(2)程序通过循环列举12个年份对应的“天干地支”与“生肖”信息 ,年份i的值从n到n+11,因此1 处填n+11。根据运行界面图中显示的形式可知 ,变量C1表示天干,C2表示地支,C3表示生肖,所以2处填 str
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 河道保洁长效管理办法
- 河南绿化养护管理办法
- 行业行为管理与运营优化
- 来华工作经费管理办法
- 水文自动测报系统的运行机制与质量评价标准研究
- 杭州法院薪酬管理办法
- 前台考勤考核管理办法
- 保健按摩养生管理办法
- 水土保持生态产品价值转化机制研究
- 企业安全生产费用计提标准
- 第3章-机床夹具
- L07G324钢筋混凝土密肋楼板
- 2024年软件测试合同
- 班组长生产管理能力考试题库-上(选择题)
- GB/T 4074.2-2024绕组线试验方法第2部分:尺寸测量
- 欧普照明产品介绍
- 社区工作者考试题库及答案
- 管道系统压力试验和泄漏性试验记录
- 车站与区间信号工技师题库
- 岱山经济开发区新材料产业园污水厂排海管工程环境影响报告
- 社会主义市场经济理论1课件
评论
0/150
提交评论