程序设计题.docx
- 文档编号:23944099
- 上传时间:2023-05-22
- 格式:DOCX
- 页数:70
- 大小:35.61KB
程序设计题.docx
《程序设计题.docx》由会员分享,可在线阅读,更多相关《程序设计题.docx(70页珍藏版)》请在冰豆网上搜索。
程序设计题
程序设计题
1.求1-100之间所有的质数。
PrivateSubCommand1_Click()
Dimn%,i%,flag%,k%
Forn=1To100Step2
k=Int(Sqr(n))
i=2
flag=0
DoWhilei<=k
IfnModi=0Then
flag=1
EndIf
i=i+1
Loop
Ifflag=0Then
Printn
EndIf
Nextn
EndSub
2.计算1-100之间所有整数的和。
PrivateSubCommand1_Click()
DimaAsInteger
n=0
Fora=1To100
n=n+a
Nexta
Printn
EndSub
3.计算1-100之间所有奇数的和。
PrivateSubCommand1_Click()
Dimi,s1%
s1=0
Fori=1To100Step2
s1=s1+i
Nexti
Prints1
EndSub
4.计算1-100之间所有偶数的和。
PrivateSubCommand1_Click()
Dimi,s1%
s1=0
Fori=0To100Step2
s1=s1+i
Nexti
Prints1
EndSub
5.利用循环语句编程求25的阶乘。
Functionj(n#)AsDouble
Dimi#
j=1
Fori=1Ton
j=j*i
Next
EndFunction
PrivateSubCommand1_Click()
Dims#,p#
p=0
Form=1To25
s=1
Forn=1Tom
s=s*n
Next
Next
Prints
EndSub
6.编程求两个数m和n的最大公约数。
PrivateSubCommand1_Click()
Dimm%,n%,a%,b%,r%
m=InputBox("请输入第1个正整数:
")
n=InputBox("请输入第2个正整数:
")
a=m
b=n
r=1
DoUntilr=0
r=aModb
a=b
b=r
Loop
Print"最大公约数是:
";a
EndSub
7.已知坐标点(x,y),判断其落在哪个象限。
PrivateSubCommand1_Click()
DimmAsString,nAsString
m=InputBox("请输入X:
")
n=InputBox("请输入Y:
")
Ifm>0Andn>0Then
Print"第一象限"
ElseIfm<0Andn>0Then
Print"第二象限"
ElseIfm<0Andn<0Then
Print"第三象限"
ElseIfm>0Andn<0Then
Print"第四象限"
EndIf
EndSub
8.输入一串字符,统计各字母出现的次数(大小写不区分)。
9.从键盘输入5个整数,输出所有输入的数据和其中的最大数。
PrivateSubCommand1_Click()
Dimnum(5)AsInteger
Dimi%,max%
Fori=1To5
num(i)=InputBox("请输入第"&i&"个整数")
Ifmax Next Print"输入的5个数是: " Fori=1To5 Printnum(i): Next Print Print"最大整数是: ";max EndSub 10.利用文本框的常用属性,把Text1中选定的文本复制到Text2中去。 11.编程实现1-200内6或5的倍数。 12.随机产生10个递增的100-400的随机数,存放到数组中,并显示结果。 13.已知x,y,z三个变量中存放了3个不同的数,比较它们的大小并进行调整,使得x<y<z。 14.已知x,y,z三个变量中存放了3个不同的数,比较它们的大小并进行调整,使得x>y>z。 15.假设我国有16亿人口,按人口年增长率r=0.9%计算,多少年后我国人口超过32亿,利用log()函数来计算。 PrivateSubForm_Click() x=16 n=0 DoWhilex<32 x=x*1.009 n=n+1 Loop Printn&"年后我国人口超过32亿" Print"此时国家人口为"&x EndSub 16.假设窗体中有一标签Label1,通过Move方法编程实现该图在窗体中的左右移动,移动幅度为20单位。 17.编制程序,要求输入两个操作数和一个操作符(+、-、×、/),根据操作符进行两个操作数的简单运算,并显示结果。 PrivateSubCommand1_Click(IndexAsInteger) Dimnum1! num2! result! num1=Val(Text1.Text) num2=Val(Text2.Text) SelectCaseIndex Case0: result=num1+num2: Text3.Text=result Case1: result=num1-num2: Text3.Text=result Case2: result=num1*num2: Text3.Text=result Case3: Ifnum2=0Then Text2.Text="" Text3.Text="" Text2.SetFocus Else Text3.Text=num1/num2 EndIf Case4: Ifnum2=0Then Text2.Text="" Text2.SetFocus Else Text3.Text=num1\num2 EndIf EndSelect EndSub PrivateSubCommand2_Click() EndSub PrivateSubCommand3_Click(IndexAsInteger) EndSub 18.已知List1中显示了若干课程名,要求用户用鼠标在该列表框中选择一个或多个选修课时,单击“显示”按扭可以在list2中显示用户选中的所有课程。 19.已知输入某课程的百分制成绩mark,要求显示对应五级制的评定,评定条件如下: 等级优秀(90-100)、良好(80-90)、中等(70-80)、及格(60-70)和不及格(<60分)。 PrivateSubCommand1_Click() Dimvalue value=InputBox("请输入成绩: ") Ifvalue<>""Then SelectCaseVal(value) Case0To59 MsgBox"你的成绩不及格" Case60To69 MsgBox"你的成绩及格" Case70To79 MsgBox"你的成绩中等" Case80To89 MsgBox"你的成绩良好" Case90To100 MsgBox"你的成绩优秀" CaseElse MsgBox"输入的数值不合法,请重新输入" EndSelect EndIf EndSub 20.在购买某物品时,若所花的钱x在下述范围内,所付钱y=x(x<1000);y=0.9x(1000<x<2000);y=0.8x(2000<x<3000);y=0.7x(3000<x<4000);按对应折扣支付。 编程求y值。 PrivateSubForm_click() DimxAsInteger,yAsInteger x=InputBox("请输入所花的钱数: ") Ifx<1000Then y=x EndIf Ifx>1000Andx<2000Then y=0.9*x EndIf Ifx>2000Andx<3000Then y=0.8*x EndIf Ifx>3000Andx<4000Then y=0.7*x EndIf Printy EndSub 21.将输入的字符串,以反序显示。 例如: 输入“ASDFGHJKL”,显示“LKJHGFDSA”。 PrivateSubCommand1_Click() a="ASDFGHJKL" ReDimp(Len(a)-1) Fori=Len(a)-1To0Step-1 b=b&Mid(a,i+1,1) Nexti Printb EndSub 22.已知三角形三条边的边长a,b,c,编程判断该三角形的类型(等腰,等边,直角三角形)。 PrivateSubForm_click() DimaAsInteger,bAsInteger,cAsInteger a=InputBox("请输入第一条边: ") b=InputBox("请输入第二条边: ") c=InputBox("请输入第三条边: ") Ifa+b>cAnda+c>bAndb+c>aAnda=bOra=cOrb=cThen Print"等腰三角形" EndIf Ifa+b>cAnda+c>bAndb+c>aAnda^2+b^2=c^2Ora^2+c^2=b^2Orb^2+c^2=a^2Then Print"直角三角形" EndIf Ifa+b>cAnda+c>bAndb+c>aAnda=b=cThen Print"等边三角形" EndIf EndSub 23.试编写一个程序,允许用户输入数字,判断其是否大于或等于60分,如果大于等于60分,则输出“及格,否则输出“不及格”。 要求: (1)用inputbox输入数字 (2)用Msgbox输出“及格”或“不及格”的结果。 PrivateSubForm_click() DimaAsInteger a=InputBox("请输入数字: ") Ifa>=60Then MsgBox"及格" EndIf Ifa<60Then MsgBox"不及格" EndIf EndSub 24.随机产生15个不重复的A-Z(包括A,Z)的大写字母,存放在字符数组中。 PrivateSubForm_Click() Dims(1To15)AsString,cAsString s (1)=Chr(Int(Rnd*26+65)) Forn=2To15 re: c=Chr(Int(Rnd*26+65)) Forj=1Ton-1 Ifc=s(j)ThenGoTore Nextj s(n)=c Nextn Fori=1To15 Prints(i); Nexti EndSub 25.利用数组编写一个n*m的矩阵,其各元素的值由随机函数生成(范围为50-150)。 26.假设Text1中有一字符串,利用文本框的常用属性,把Text1中第一个字符至第八个字符之间的内容复制到Text2中去。 PrivateSubForm_Click() Text1.SelStart=0 Text1.SelLength=8 Text2.Text=Text1.SelText EndSub 27.从键盘上输入10整数,并放入一个一维数组中,然后将其前5个元素与后5个元素对换,即第一个元素与第10个元素互换,第2个元素与第9个元素互换……。 输出对换后各元素的值。 28.输入一个数字(1-7),用英文显示对应的星期一至星期日。 PrivateSubForm_Click() a=Val(InputBox("请输入一个数字1-7")) SelectCaseVal(a) Case1 Print"monday" Case2 Print"tuesday" Case3 Print"wendsday" Case4 Print"thursday" Case5 Print"friday" Case6 Print"satursay" Case7 Print"sunday" CaseElse Print"必须输入1-7中的一个数字! " EndSelect EndSub 29.编程产生一个12-75范围内的正整数。 PrivateSubcommand1_Click() Dims(12To75)AsInteger a=Int(Rnd*64+12) Printa EndSub 30.建立一个数组,输出1-100之间的所有偶数。 PrivateSubCommand1_Click() Dimm(1to100)asInteger,iasInteger Fori=1to100 Ifimod2=0then Printi Endif Nexti Endsub 31.假设文本框Text1中有一字符串,要求编程实现对其字号进行放大和缩小,倍数通过随机函数产生,范围在7-10倍。 PrivateSubCommand1_Click() x=Int(4*Rnd+7) Text1.FontSize=x*36 EndSub PrivateSubCommand2_Click() y=Int(4*Rnd+7) Text1.FontSize=36/y EndSub PrivateSubForm_Load() Text1.FontSize=36 Text1.Text="" EndSub 32.编写程序,判断给出的3条边能否构成三角形。 PrivateSubCommand1_Click() DimaAsInteger,bAsInteger,cAsInteger a=Val(InputBox("请输入第一条边长: ")) b=Val(InputBox("请输入第二条边长: ")) c=Val(InputBox("请输入第三条边长: ")) Ifa+b>cAnda+c>bAndc+b>aAnda-b Print"该三边能否构成三角形" Else Print"该三边能否构成三角形" EndIf EndSub 33.已知List1中显示了若干课程名,要求用户用鼠标在该列表框中选择一个或多个选修课时,单击“清除”按扭时,清除右列表框中的内容。 34.随机产生10个30-100(包括30,100)的正整数,求最大值,最小值和平均值,并显示整个数组的值和结果。 PrivateSubForm_click() Dima(1To10)AsInteger Fori=1To10 a(i)=Int(Rnd*71+30) Printa(i); Nexti Max=a (1): Min=a (1): Sum=a (1) Fori=2To10 Ifa(i)>MaxThenMax=a(i) Ifa(i) Sum=Sum+a(i) Nexti Print Print"最大值是"&Max Print"最小值是"&Min Print"平均值是"&Sum/10 EndSub 35.输入3个数a,b,c,输出三者之中的最大者。 PrivateSubcommand1_click() Dimm! n! p! max! m=Val(InputBox("请输入第一个数: ")) n=Val(InputBox("请输入第一个数: ")) p=Val(InputBox("请输入第一个数: ")) max=m Ifn>maxThenmax=n Ifp>maxThenmax=p Print Printm;"、";n;"与";p;"之中最大值是: " Print Printmax EndSub 36.税务部门征收所得税,规定如下: (1)收入200元以内,免征; (2)收入在200―400元内,超过200元的部分纳税3%;(3)收入超过400元的部分,纳税4%;(4)当收入等于5000元或超过时,将4%税金改为5%。 编程序实现上述操作. PrivateSubCommand1_Click() a=Val(Text1.Text) Ifa<200Then b=0 ElseIf200 b=0.03*(a-200)
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 程序设计