江苏省高二信息技术选修VB练习参考标准答案(1-5)[1].doc

江苏省高二信息技术选修VB练习参考答案(1-5)1 作者： 日期：2 VB（一）1、下列关于程序设计说法正确的是（程序设计就是寻求解决问题的方法，并将其实现步骤编写成计算机可以执行的程序的过程）。2、图形符号“ ”在算法描述流程图中表示（处理或运算的功能）。3、Integer类型的变量可存的最大整数为（32767）。4、代数表达式改成VB表达式后，错误的是（gt2/2）。5、对于窗体，Click（单击）是它的一个（重要事件）。6、下列变量名写法错误的是（123abc）。7、在Visual Basic中，下列（Abs(x)）函数是求绝对值的。8、在Visual Basic中，设置控件的大小，可改变下列（Height和Width）属性。9、以下是一段Visual Basic程序： a=1 b=a+1 c=a+b它的基本结构属于（顺序结构）。10、下列程序段运行后，变量Value的值是（100）。 X=20 If x=10 ThenValue=5*x ElseValue=4*x End If11、下面是变量x是不是能被5整除的偶数的程序，横线上的逻辑表达式应为（(x Mod 5)=0 And (x Mod 2)=0 x Mod 10 =0）。 Private Sub command1_Click()Dim x As IntegerX=Val(Text1.Text)If _ =0 Then Label1.Caption=”这个数是能被5整除的偶数”Else Label1.Caption=”这个数不是能被5整除的偶数”End if End Sub12、阅读下面程序，当单击窗体之后，窗体上输出的是（15 6）。Private Sub From_Click() Dim i As Integer: Dim s As Integer S=0 For i=1 to 5s= s + i Next I Print s, iEnd Sub13、执行下面的程序段：Dim int1 As Integer, int2 As IntegerInt1=1Int2=0Do While int120 Int2=int1+int2 Int1=int1*(int1+1)LoopText1.Text=int2文本框Text1中显示的是（9）14、下列程序段中，循环体执行的次数是（3）。y=2Do While y0时，y=4x+1）。完成所有操作后，请按“Ctrl+S”保存。Private Sub Form_Click()Dim x As SingleDim y As SingleX= Val ( InputBox (“请输入变量x”)If x=0 Then Y=3*x+1Else Y=4*x+1End IfPrint “y=”;yEnd Sub17、编程计算s = 1-2+3-4+5- +99-100完成所有操作后，请按“Ctrl+S”保存。Private Sub Form_Click()Dim s As integerDim i As integerS=0For I=1 to 100 If I mod 2=1 then S=s+I ElseS=s-I End IfNext IPrint “s=”;sEnd Sub18、编程求：鸡和兔在一个笼里，共有腿100条，头40个，问鸡有几只，兔有几只？完成所有操作后，请按“Ctrl+S”保存。Private Sub Form_Click()Dim ji As IntegerDim tu As IntegerDim Leg As IntegerDim Head As IntegerFor Ji=1 to 50 For tu=1 to 25Leg = ji*2+tu*4Head=ji+tu If Leg=100 and Head=40 thenPrint “鸡”;Ji;”只”，”兔”;tu;”只” End If Next TuNext jiEnd SubVB（二）1、下列说法错误的是（程序设计语言和计算机语言是同一概念的两个方面）。2、图形符号“ ”在算法流程图描述中表示（输入输出操作）3、下面（#False#）不是字符串常量。4、下面表达式的值是False的有（str(2000=10 Then A=A+1Else A=A-1End If12、阅读下面程序，单击窗体后，在文本框Text1和Text2中显示的内容分别是（3 3）。Private Sub Form_Click() Dim x As Integer : y As Integer X=1 : y=0 Do While x =500中最小的n。完成所有操作后，请按“Ctrl+S”保存。Private Sub Form_Click()Dim s As IntegerDim n As IntegerS=0N=0DoN=n+1S=s+nLoop Until s500Print “n=”;nEnd Sub18、编写递归函数求5!的值。完成所有操作后，请按“Ctrl+S”保存。Public Function s(n As Integer) As LongIf n=1 ThenS=1ElseS=n*s(n-1)End IfEnd FunctionPrivate Sub Form_Click()Print “s(10)=”;s(5)End SubVB(三)1、下列关于算法说法不正确的是（BASIC算法只能用BASIC语言来实现）2、下列流程图表示的是程序的（循环）基本结构的算法。语句块选择NoYes3、下列（Date）数据类型不是数值型.4、表达式Abs（-3.6）*sqr（100）的值是（36）5、在Visual Bisual Basic中显示和编辑程序代码时，采用（代码编辑窗口）6、下列语句中定义了一个实型变量的是（Dim sum As Single）7、下列（time（）函数返回系统懂得当前时间。8、能够改变复选框中背景颜色的属性是（BackColor）9、以下是一段VB程序：A= 1b=0For I=1 To 5 b=b+A*INext I它的基本结构属于（循环结构）10、列程序段中，循环体执行的次数是（0）X=0For Y=1 To 10 Step 1X=X=1Next Y11、程序段运行后，m的值为（1）A=2：b=1：c=5If Ab Then m=A Else m=bIf cm Then m=c12、读下面程序，当单击窗体之后，m的值是（6）Private Sub Form_click ()Dim m as integer: dim I as integer M=0For I=1 to 3M=m+2Next IPrint m End sub 13、阅读下面程序，单击窗体后，在文本框text1和text2 中显示的内容分别是（27，3）private sub form_click()dim x as integer , n as integerx=1n=0do while x20n=n+1x=x*3looptext1.text=str(x)text2.text=str(n)14、阅读下面程序，单击窗体后，在文本框显示的内容是（12） private sub form_click()dim a(8), b(8) as integerdim I,j as integerfor j=1to4 a(j)=2*jb(j)=a(j)*3next jtext1.text=b(j2)end sub15、设计一个程序，打印下面所示的图案private sub form_click() dim I as integer dim j as integer for I = 1 to 6 print tab (10); for j = 1 to I print “”; next j print next Iend sub16、一只猴子摘了一堆桃子，它每天吃当天桃子数的一半，每次忍不住多吃了一个，这样到第十天的时候只有一个桃子可以吃了，编程序计算猴子最初有多少桃子private sub form_click()dim I as integerdim s as integers=1for I =1 to 9s=(s+1)*2next iprint “s=”;send sub17、编程序计算s=1*2+2*3+3*4+n(n=1)的值，其中 n =10 private sub form_click() dim s as single dim I as integer s=0 for I=1 to 10 s=s+I*(I+1) next I print “s=”;send sub18、编写递归函数求10！的值 public function s (n as integer)as long if n=1 thens=1else s=N*S(N-1)end ifend functionprivate sub form_click()print “s=”;s(10)end subVB（四）1、以下哪个是算法的描述方法？（自然语言描述法）。2、VB中数据类型Integer表示整型数，存储为（16）位。3、在VB中，以下哪个是正确表示十六进制整型数常量？（&32F）4、在VB中，表达式23的结果是（8）。5、判断x是否在区间(a, b)上，在VB中以哪个逻辑达达式是正确的？（ax And x=b）6、数学式子在VB中的正确写法是：（2*a+b）/(4*a*b)。7、在VB中，假定有以下程序段：For I=1 to 3 Step 2 Print “VB”Next i则语句Print “VB”的执行次数是：（2）。8、在VB中，以下程序段：a=6If a1时返回函数值为age(n-1)-3 当n=1返回函数值为38）。15、完善“显示”按钮的click程序，将代码段中“变量1”、“变量2”、“变量3”、处换成正确的变量名，使当单击该按钮时，Label1、Label2分别显示30、10。完成所有操作后，请按“Ctrl+S”保存。Private Sub command1_Click()X=10Y=30If xb Or b=3值是：（True）。6、数学式子2a(7+b)在VB中的正确写法是：（2*a*(7+b)）。7、在VB中，假定有以下程序段：For i=3 to 1Print “VB”Next i则语句Print “VB”的执行次数是：（0）。8、在VB中，以上程序段：x=0Do While x=60 ThenLabel1.Caption=”及格” End IfIf a60 ThenLabel1.Caption=”不及格” End IfEnd Sub16、请将按钮“计算1+2+100”的Click事件程序中的“常量”和“变量”换成正确的“常量”和“变量”，当单击命令按钮时Text1显示1+2+100的值。完成所有操作后，请按“Ctrl+S”保存。Private Sub Command1_Click() Dim a As Integer Dim i As Integer a=0 For i=1 to 100a=a+i Next i Text1.Text=aEnd Sub17、对窗体From1进行如下修改：（1）在窗体中增加一个标签；（2）设置标签的对齐方式为“居中对齐”；（3）完善“显示”按钮程序，使当单击该按钮时标签标题改为“算法与程序设计”；完成所有操作后，请按“Ctrl+S”保存。（1）双击工具箱中标签“A”；（Label）（2）属性Alignment (2-Center)（3）代码编写Private Sub Command1_Click()Label1.caption=” 算法与程序设计”End Sub18、在已打开的窗体Form1中，在窗体中增加一个文本框Text3。在完成按钮中的程序，使当单击“计算”按钮时，计算b*b-4ac的值，并在Text3中显示出来。完成所有操作后，请按“Ctrl+S”保存。（1）双击工具箱中文本框“ab”；（2）代码编写Private Sub Command1_Click() Dim b As Single Dim c As Single Dim x As Single b= Text1.Textc= Text2.Textx=b*b-4*cText3.Text=xEnd Subseveral group number, then with b a, =c,c is is methyl b two vertical box between of accurate size. Per-23 measurement, such as proceeds of c values are equal and equal to the design value, then the vertical installation accurate. For exa