欢迎来到天天文库
浏览记录
ID:10111251
大小:53.50 KB
页数:7页
时间:2018-05-26
《高中信息技术会考vb选修操作题答案》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、算法与程序设计(VB)刘晗高二全体2008-11-10第一套第15题请编写程序,打印出下面所示的图案。*********完成所有操作后,请按“Ctrl+S”保存。程序如下:PrivateSubForm_Click()DimiAsInteger'定义i为整形变量DimjAsInteger'定义j为整形变量Fori=-3To3PrintTab(Abs(i)+5)'确定每行的起始位置Forj=1To(4-Abs(i))-1Print"*";NextjPrint'换行NextiEndSub(说明:i表示行数,j表示输出的“*”数)第16题编写程序,求函数y的值(当x小于等于0时,y=3x+1
2、;当x>0时,y=4x+1)。完成所有操作后,请按“Ctrl+S”保存。(x的值在程序中调用InputBox函数,在弹出的标准对话框中输入)程序如下:PrivateSubForm_Click()DimxAsSingle'定义x为单精度型变量,由标准输入对话框输入DimyAsSingle'定义y为单精度型变量,值由窗体显示x=Val(InputBox("请输入变量x的值"))Ifx<=0Theny=3*x+1Elsey=4*x+1EndIfPrint"y=";yEndSub(说明InputBox中输入的是字符串型,用Val函数将其转换成数值型。)第17题编程计算S=1-2+3-4+5-
3、······+99-100。完成所有操作后,请“Ctrl+S”保存。程序如下:PrivateSubForm_Click()DimsAsInteger'定义变量s为单精度型DimiAsInteger'定义循环变量s=0Fori=1To100IfiMod2=1Thens=s+iElses=s–iEndIfNextiPrint"s=";sEndSub第18题编程求:鸡和兔在一个笼里,共有100条腿,40个头,问鸡有几只?兔有几只?完成所有操作后,请“Ctrl+S”保存。PrivateSubForm_Click()DimJiAsInteger'鸡DimTuAsInteger'兔DimLegA
4、sInteger'腿数DimHeadAsInteger'头数ForJi=1To50ForTu=1To25Leg=Ji*2+Tu*4'计算腿数Head=Ji+Tu'计算头数IfLeg=100AndHead=40Then'如果腿数够100并且头有40个,则打印Print"鸡";Ji;"只","兔=";Tu;"只"EndIfNextTuNextJiEndSub第二套第15题设计一个程序,打印下面所示图案。*************privatesubform_click()DimIAsIntegerDimjAsIntegerForI=-3to2__Printtab(abs(i)+5)For
5、j=1to2*(3-abs(i)-1)Print“*”;NextjPrintNextIEndsub第16题编写程序,求y=6*x-5的值。(x的值在程序调用中调用inputbox函数,在弹出的标准输入对话框中输入)。Privatesubform_click()DimxassingleDimyassingleX=val(inputbox(“请输入变量x”))Y=6*x-5Print“y=”;y_Endsub第17题编写程序求1+2+3+……..+n>=500中最小的n.Privatesubform_click()dimsasintegerdimnasintegers=0_n=0don=
6、n+1s=s+n_loopuntils>500print“n=”;nendsub第18题编写递归函数求5!的值。Publicfunctions(nasinteger)aslongIfn=1thenS=1ElseS=s(n-1)*nEndifEndfunctionPrivatesubform_click()Print“s(10)=”;s(5)Endsub第三套第15题设计一个程序,打印下面所示的图案@@@@@@@@@@@@@@@@@@@@@完成所有操作后按“Ctrl+S”保存。PrivateSubForm_Click()DimiAsInteger'定义i为整型变量DimjAsInteg
7、er'定义j为整型变量DimjAsIntegerFori=1To6PrintTab(10);Forj=1ToiPrint"@";NextjPrintNextiEndSub第16题一只猴子摘了一堆桃子,它每天吃当天桃子的一半,每次忍不住多吃了一个。这样到第十天时只有一个桃子可以吃了,编程计算猴子最初共有多少个桃子。完成所有操作后按“Ctrl+S”保存。PrivateSubForm_Click()DimiAsInteger'定义天数变量DimsAsIntege
此文档下载收益归作者所有