江苏省高二信息技术选修VB练习参考答案(1-5)

VB（一）1、下列关于程序设计说法正确的是（程序设计就是寻求解决问题的方法，并将其实现步骤编写成计算机可以执行的程序的过程）。2、图形符号“”在算法描述流程图中表示（处理或运算的功能）。3、Integer类型的变量可存的最大整数为（32767）。4、代数表达式221gt改成VB表达式后，错误的是（gt^2/2）。5、对于窗体，Click（单击）是它的一个（重要事件）。6、下列变量名写法错误的是（123abc）。7、在VisualBasic中，下列（Abs(x)）函数是求绝对值的。8、在VisualBasic中，设置控件的大小，可改变下列（Height和Width）属性。9、以下是一段VisualBasic程序：a=1b=a+1c=a+b它的基本结构属于（顺序结构）。10、下列程序段运行后，变量Value的值是（100）。X=20Ifx=10ThenValue=5*xElseValue=4*xEndIf11、下面是变量x是不是能被5整除的偶数的程序，横线上的逻辑表达式应为（①(xMod5)=0And(xMod2)=0②xMod10=0）。PrivateSubcommand1_Click()DimxAsIntegerX=Val(Text1.Text)If_______=0ThenLabel1.Caption=”这个数是能被5整除的偶数”ElseLabel1.Caption=”这个数不是能被5整除的偶数”EndifEndSub12、阅读下面程序，当单击窗体之后，窗体上输出的是（156）。PrivateSubFrom_Click()DimiAsInteger:DimsAsIntegerS=0Fori=1to5s=s+iNextIPrints,iEndSub13、执行下面的程序段：Dimint1AsInteger,int2AsIntegerInt1=1Int2=0DoWhileint120Int2=int1+int2Int1=int1*(int1+1)LoopText1.Text=int2文本框Text1中显示的是（9）14、下列程序段中，循环体执行的次数是（3）。y=2DoWhiley=8y=y+yLoop15、编写程序，使能打印下面所示的图案。*********完成所有操作后，请按“Ctrl+S”保存。PrivateSubFrom_Click()DimiAsIntegerDimjAsIntegerForI=-3to2PrintTab(Abs(i)+5Forj=1to(4–Abs(i))-1Print“*”;NextjPrintNextIEndSub16、编写程序，求函数Y的值（当x≤0时，y=3x+1；当x0时，y=4x+1）。完成所有操作后，请按“Ctrl+S”保存。PrivateSubForm_Click()DimxAsSingleDimyAsSingleX=Val(InputBox(“请输入变量x”))Ifx=0ThenY=3*x+1ElseY=4*x+1EndIfPrint“y=”;yEndSub17、编程计算s=1-2+3-4+5-……+99-100完成所有操作后，请按“Ctrl+S”保存。PrivateSubForm_Click()DimsAsintegerDimiAsintegerS=0ForI=1to100IfImod2=1thenS=s+IElseS=s-IEndIfNextIPrint“s=”;sEndSub18、编程求：鸡和兔在一个笼里，共有腿100条，头40个，问鸡有几只，兔有几只？完成所有操作后，请按“Ctrl+S”保存。PrivateSubForm_Click()DimjiAsIntegerDimtuAsIntegerDimLegAsIntegerDimHeadAsIntegerForJi=1to50Fortu=1to25Leg=ji*2+tu*4Head=ji+tuIfLeg=100andHead=40thenPrint“鸡＝”;Ji;”只”，”兔＝”;tu;”只”EndIfNextTuNextjiEndSubVB（二）1、下列说法错误的是（程序设计语言和计算机语言是同一概念的两个方面）。2、图形符号“”在算法流程图描述中表示（输入输出操作）3、下面（#False#）不是字符串常量。4、下面表达式的值是False的有（str(2000”1997)。5、使用VisualBasic编程，我们把工具箱中的工具称为（控件）。6、在声明一个变量时，可能用到的关键字是（As）。7、下列函数中，返回值是字符串的是（Mid）。8、在VisualBasic中，设置控件的位置，可改变下列（Left和Top）属性。9、以下一段VisualBasic程序：IfI=1ThenX=x+1ElseX=x+2EndIf它的基本结构属于（选择结构）。10、分析下列程序：PrivateSubForm_Click()S=11\3+11mod3PrintsEndSub当单击窗体时S的值是（5）。11、下列程序段运行后，A的值为（11）。A=10IfA=10ThenA=A+1ElseA=A-1EndIf12、阅读下面程序，单击窗体后，在文本框Text1和Text2中显示的内容分别是（33）。PrivateSubForm_Click()DimxAsInteger:yAsIntegerX=1:y=0DoWhilex3Y=y+xX+x+1LoopText1.Text=xText2.Text=yEndSub13、阅读下面程序，单击窗体后，在文本框显示的内容是（12）。PrivateSubForm_Click()Dimarray1(10,10)AsIntegerDimI,jAsIntegerForI=1to3Forj=2to4Array1(I,j)=I+jNextjNextIText1.Text=array1(2,3)+array1(3,4)EndSub14、下列程序段中，循环体执行的次数是（10）。X=0Fory=1to10X=x+1Nexty15、设计一个程序，打印下面所示的图案。*************完成所有操作后，请按“Ctrl+S”保存。PrivateSubForm_Click()DimIAsIntegerDimjAsIntegerForI=-3to2PrintTab(Abs(i)+5);Forj=1to2*(3-abs(i))-1Print“*”;NextjPrintNextIEndSub16、编写程序，求y=6x–5的值。（x的值在程序中调用InputBox函数，在弹出的未准输入对话框中输入）。完成所有操作后，请按“Ctrl+S”保存。PrivateSubForm_Click()DimxAsSingleDimyAsSingleX=val(InputBox(“请输入变量x”))Y=6*x–5Print“y=”;yEndSub17、编写程序，求1＋2＋…＋n=500中最小的n。完成所有操作后，请按“Ctrl+S”保存。PrivateSubForm_Click()DimsAsIntegerDimnAsIntegerS=0N=0DoN=n+1S=s+nLoopUntils＝500Print“n=”;nEndSub18、编写递归函数求5!的值。完成所有操作后，请按“Ctrl+S”保存。PublicFunctions(nAsInteger)AsLongIfn=1ThenS=1ElseS=n*s(n-1)EndIfEndFunctionPrivateSubForm_Click()Print“s(10)=”;s(5)EndSubVB(三)1、下列关于算法说法不正确的是（BASIC算法只能用BASIC语言来实现）2、下列流程图表示的是程序的（循环）基本结构的算法。3、下列（Date）数据类型不是数值型.4、表达式Abs（-3.6）*sqr（100）的值是（36）语句块选择NoYes5、在VisualBisualBasic中显示和编辑程序代码时，采用（代码编辑窗口）6、下列语句中定义了一个实型变量的是（DimsumAsSingle）7、下列（time（））函数返回系统懂得当前时间。8、能够改变复选框中背景颜色的属性是（BackColor）9、以下是一段VB程序：A=1b=0ForI=1To5b=b+A*INextI它的基本结构属于（循环结构）10、列程序段中，循环体执行的次数是（0）X=0ForY=1To10Step–1X=X=1NextY11、程序段运行后，m的值为（1）A=2：b=1：c=5IfA〈bThenm=AElsem=bIfc〈mThenm=c12、读下面程序，当单击窗体之后，m的值是（6）PrivateSubForm_click()Dimmasinteger:dimIasintegerM=0ForI=1to3M=m+2NextIPrintmEndsub13、阅读下面程序，单击窗体后，在文本框text1和text2中显示的内容分别是（27，3）privatesubform_click()dimxasinteger,nasintegerx=1n=0dowhilex20n=n+1x=x*3looptext1.text=str(x)text2.text=str(n)14、阅读下面程序，单击窗体后，在文本框显示的内容是（12）privatesubform_click()dima(8),b(8)asintegerdimI,jasintegerforj=1to4a(j)=2*jb(j)=a(j)*3nextjtext1.text=b(j\2)endsub15、设计一个程序，打印下面所示的图案@@@@@@@@@@@@@@@@@@@@@privatesubform_click()dimIasintegerdimjasintegerforI=1to6printtab(10);forj=1toIprint“@”;nextjprintnextIendsub16、一只猴子摘了一堆桃子，它每天吃当天桃子数的一半，每次忍不住多吃了一个，这样到第十天的时候只有一个桃子可以吃了，编程序计算猴子最初有多少桃子privatesubform_click()dimIasintegerdimsasintegers=1forI=1to9s=(s+1)*2nextiprint“s=”;sendsub17、编程序计算s=1*2+2*3+3*4+……+n(n=1)的值，其中n=10privatesubform_click()dimsassingledimIasintegers=0forI=1to10s=s+I*(I+1)nextIprint“s=”;sendsub18、编写递归函数求10！的值publicfunctions(nasinteger)aslongifn=1thens=1elses=N*S(N-1)endifendfunctionprivatesubform_click()print“s=”;s(10)endsubVB（四）1、以下哪个是算法的描述方法？（自然语言描述法）。2、VB中数据类型Integer表示整型数，存储为（16）位。3、在VB中，以下哪个是正确表示十六进制整型数常量？（&32F）4、在VB中，表达式2^3的结果是（8）。5、判断x是否在区间(a,b)上，在VB中以哪个逻辑达达式是正确的？（axAndx=b）6、数学式子abba42在VB中的正确写法是：（2*a+b）/(4*a*b)。7、在VB中，假定有以下程序段：ForI=1to3Step2Print“VB”Nexti则语句Print“VB”的执行次数是：（2）。8、在VB中，以下程序段：a=6Ifa7Thenx=6执行后，x的值为（6）。9、在VB中，要设置窗口的标题文本，应使用属性：（Caption）。10、在VB中，要设置某个对象属性时，应进入：（设计模式）。11、如要完成，从键盘输入一个正整数，判断是否是奇数，如是就在屏幕上显示。比较好的算法是（①输入的数存入