高中信息技术会考vb选修操作题答案

《高中信息技术会考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