高一信息技术练习题(vb)[]

高一信息技术练习题(vb)[]

ID:12539604

大小:47.50 KB

页数:6页

时间:2018-07-17

高一信息技术练习题(vb)[]_第1页
高一信息技术练习题(vb)[]_第2页
高一信息技术练习题(vb)[]_第3页
高一信息技术练习题(vb)[]_第4页
高一信息技术练习题(vb)[]_第5页
资源描述:

《高一信息技术练习题(vb)[]》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库

1、高一信息技术练习题算法与程序设计(VB)----基本语句一、根据要求完成下列各题1、PrivateSubCommand1_Click()A=12B=15C=A+BPrint"C=";CEndSub结果为:___________________2、PrivateSubCommand1_Click()A=12B=15C=BC=C-APrint"C=";CEndSub结果为:___________________3、PrivateSubCommand1_Click()X=3Y=4Z=Sqr(Y)Y=X+ZPrint"Y=";YEndSub结果为:___________________

2、4、PrivateSubCommand1_Click()X=-3Y=9Y=Sqr(Y)Y=Abs(X)+YPrint"Y=";YEndSub结果为:___________________5、PrivateSubCommand1_Click()I=120J=110PrintI;JK=II=JJ=KPrint"I=";I,"J=";JEndSub结果为:__________________________________6、PrivateSubCommand1_Click()I=120J=110I=I+JJ=I-JI=I-JPrint"I=";I,"J=";JEndSub结果为:_

3、__________________7、PrivateSubCommand1_Click()A=Val(InputBox("请输入一个数"))IfA>=0ThenPrintAElsePrintAbs(A)EndIfEndSub单击按钮,输入-9,运行结果为:_____________8、PrivateSubCommand1_Click()A=Val(InputBox("请输入一个数"))B=Val(InputBox("请输入一个数"))IfA>=BThenY=AElseY=BEndIfPrintYEndSub单击按钮,输入100和90运行结果为:_____________9、P

4、rivateSubCommand1_Click()A=Val(InputBox("请输入一个数"))IfInt(A/2)=A/2ThenA=AElseA=A+1EndIfPrint"A=";AEndSub单击按钮,输入2运行结果为:_____________单击按钮,输入9运行结果为:_____________10、PrivateSubCommand1_Click()A=Val(InputBox("请输入一个数"))IfAMod2=0ThenLabel1.Caption="您输入的是一个偶数"ElseLabel1.Caption="您输入的是一个奇数"EndIfEndSub单击

5、按钮,输入37运行结果为:_____________________11、PrivateSubCommand1_Click()A=Val(InputBox("请输入一个数"))S=0ForI=1ToAS=S+INextIPrint"S=";SEndSub单击按钮,输入5运行结果为:__________________12、PrivateSubCommand1_Click()A=Val(InputBox("请输入一个数"))S=0ForK=1ToAStep3S=S+2NextKPrint"S=";SEndSub单击按钮,输入15运行结果为:__________________13

6、、PrivateSubCommand1_Click()A=Val(InputBox("请输入一个数"))S=0ForK=1ToAStep3S=S+2NextKS="S="+Str(S)Label1.Caption=SEndSub单击按钮,输入27运行结果为:__________________14、PrivateSubCommand1_Click()A=Val(InputBox("请输入一个数"))S=2ForK=1ToAS=S*KNextKS="S="+Str(S)Label1.Caption=SEndSub单击按钮,输入4运行结果为:__________________15

7、、PrivateSubCommand1_Click()A=Val(InputBox("请输入一个数"))S=1ForK=1ToAStep5S=S*2NextKS="S="+Str(S)Label1.Caption=SEndSub单击按钮,输入25运行结果为:__________________16、写出下列语句的基本格式(1)、赋值语句:__________________实例:__________________(2)、输入语句:__________________实例:_________

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。