完善程序题20道.docx
- 文档编号:29736788
- 上传时间:2023-07-26
- 格式:DOCX
- 页数:10
- 大小:16.46KB
完善程序题20道.docx
《完善程序题20道.docx》由会员分享,可在线阅读,更多相关《完善程序题20道.docx(10页珍藏版)》请在冰豆网上搜索。
完善程序题20道
完善程序(共20道题)
1.实现功能:
在Text1、Text2、Text3中输入三个整数后,单击“输出最大值”按钮后,在Label3中显示这3个数中的最大值。
PrivateSubCommand1_Click()
Dima,b,c,maxAsInteger
a=Val(Text1.Text)
b=Val(Text2.Text)
c=Val(Text3.Text)
Ifa>bThenmax=aElse①
Ifc>maxThen②
Label3.Caption=CStr(max)
EndSub
答案:
1max=b
2max=c
2.计算s=5+10+15+20的和
s=①
Forn=5to20step②
s=s+n
nextn
prints
答案:
10
25
3.计算1-100之间偶数的积
s=①
Forn=100to1step②
s=s*n
nextn
prints
答案:
11
2-2
4.某超市为了对苹果进行促销,规定购买2公斤以上可以在原价每公斤6.80元的基础上打8折。
实现功能:
输入购买的苹果公斤数,输出应付款。
PrivateSubCommand1_Click()
DimxAsSingle
DimcostAsSingle
x=Val(InputBox("请输入苹果公斤数:
"))
Ifx①Then
cost=x*6.8
Else
cost=x*6.8*0.8
②
Printcost
EndSub
答案:
①<=2
②endif
5.用DOWHILE循环求s=1+2+3+……+100的和
I=0
S=0
DoWhileI<100
I=①
S=S+1
②
Prints
答案:
①I+1
②loop
6.用DOWHILE循环求s=5*4*3*2*1的积
I=5
S=①
DoWhileI>=1
S=S*I
I=②
loop
Prints
答案:
①1
②I-1
7.设计一个程序,单击按钮Command1时,让标签label1的字体为幼圆,字号36号字,label1上显示“祝同学们考试顺利”。
PrivateSubCommand1_Click()
Label1.①=“幼圆”
Label1.fontsize=36
Label1.②=“祝同学们考试顺利”
EndSub
答案:
①FontName
②caption
8.设计程序,窗体包含3个文本框Text1,Text2,Text3,当录入Text1内容时,Text2等于Text1内容的大写,Text3等于Text1内容的小写。
Text1的change事件代码:
PrivateSubText1_change()
Text2.text=①(Text1.text)
Text3.text=Ucase(②)
EndSub
答案:
1Lcase
2Text1.text
9.设计程序,窗体包含1个文本框Text1,当录入Text1内数字大于100,或小于0时,输出Text1内数字
Text1的change事件代码:
PrivateSubText1_change()
x=①(Text1.text)
Ifx<0②x>100then
Printx
Endif
EndSub
答案:
1val
2or
10.设计程序,窗体包含1个文本框Text1,当录入Text1内数字小于100,并且大于0时,用对话框弹出输出Text1内数字。
Text1的change事件代码:
PrivateSubText1_change()
x=val(Text1.text)
Ifx<100①x>0then
②(x)
Endif
EndSub
答案:
1and
2msgbox
11.实现功能:
从文本框t1中输入一个圆的半径,计算圆的面积,把结果输出到文本框t2中。
PrivateSubCommand1_Click()
Constpi=3.14
①r,sasSingle
r=Val(t1.text)
s=pi*r②
T2.Text=s
EndSub
答案:
1dim
2*r
12实现程序,用计时器timer1控制图片image1,每隔100ms,图片向右移动100,向下移动200。
编写timer1的timer事件代码
PrivateSubForm_Load()
Timer1.interval=100
image1.picture=loadpinture(“图片.JPG”)
EndSub
PrivateSubtimer1_timer()
image1.left=image1.left①
image1.top=image1.top②
EndSub
答案:
①+100
②+200
13实现程序,用计时器timer1控制图片image1,每隔50ms,图片向左移动100,向上移动200.
编写timer1的timer事件代码
PrivateSubForm_Load()
Timer1.interval=①
image1.picture=loadpinture(“图片.JPG”)
EndSub
PrivateSubtimer1_timer()
image1.left=image1.left①
image1.top=image1.top-200
EndSub
答案:
①50
②-100
14.设计一个程序,单击按钮Command1时,让文本框text1的字体为幼圆,字号36号字,text1上显示”祝同学们考试顺利”。
PrivateSubCommand1_Click()
text1.fontname=”幼圆”
text1.fontsize=①
text1.②=”祝同学们考试顺利”
EndSub
答案:
①36
②text
15.设计1+2+3+……+……和直到累加结果超过30000的程序
I=0
S=0
①
I=I+1
S=S+1
LOOPUNTILS②
PRINTS
答案:
①DO
②>30000
16.在窗体上新建一个命令按钮Command1,一个文本框Text1,属性全部采用默认值。
实现功能:
单击命令按钮后,文本框的内容显示当前年份。
PrivateSubCommand1_Click()
Text1.①=②(now)
EndSub
答案:
①text
②year
17.在窗体上新建一个命令按钮Command1,两个文本框Text1,Text2属性全部采用默认值。
实现功能:
单击命令按钮后,文本框Text1的内容显示当前日期,文本框Text2的内容显示当前月份。
PrivateSubCommand1_Click()
Text1.text=date(①)
Text2.②=month(now)
EndSub
答案:
1now
2text
18下面程序用来产生20个两位数的随机整数。
PrivatSubCommand1_Click()
Randomizetimer
Fori=1to①
x=int(Rnd()*②)
Printx
Nexti
Endsub
答案:
①20
②100
19下面程序用来产生30个两位数的随机整数。
PrivatSubCommand1_Click()
Randomizetimer
Fori=1to30
x=int(①()*100)
Printx
②
Endsub
答案:
①Rnd
②Nexti
20实现功能:
用程序实现函数:
y=|x|,y的值在Text1文本框中显示出来。
PrivateSubCommand1_Click()
DimxAsInteger,yAsInteger
x=Val(InputBox("请输入x的值:
"))
If①Then
y=x
Else
②
EndIf
Text1.Text=y
EndSub
答案:
①x>=0
②y=-x
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 完善 程序 20