浙江省信息技术学考VB 阶段练习(一).doc

VB 阶 段 练 习 （一）班级_________ 姓名_________ 学号____________一、综合练习1、  赋值语句的一般形式　　　　　　　　　　　　　　2、  当系统执行一个赋值语句时，先求出“=”　　　　　　　的值，然后再把该值保存到“=”　　　　　　　　　　　中，这就是“赋值”3、针对语句 If I=1 then J=1，下列说法正确的是( ) A.        I=1 和J=1均为赋值语句　　　　　　B.   均为关系表达式C.        I=1为关系表达式，J=1为赋值语句　 D.  I=1为赋值语句，J=1为关系表达式4、下面给出的赋值语句中错误的是（ 　 ）A．x=x=yB．x+y=3C．Label1.Caption="hello"D．x=-b5、以下是一段VB程序：a = 1b = a + 1c = a + b它的基本结构属于（ ）A、顺序结构 B、选择结构 C、循环结构 D、树型结构6、下列VB程序运行后，变量x的值为( ).x=2Print x+lPrint x+2A、2 B、3 C、5 D、87、交换两个变量中的数据，把下面代码补充完整，并在右边画出两个变量交换示意图Private Sub cmdSwap_Click() Dim x As Single, y As Single Dim m As Single x = Val(txtsx.Text) y = Val(txtsy.Text) '交换数据 txtdx.Text = Str(x) txtdy.Text = Str(y)End Sub8、行If语句行If是指在一行中写完的If语句。

其一般格式为：格式一：If条件Then语句执行这种形式的If语句时，首先对条件进行判断若条件成立，则执行Then后面的语句；若条件不成立，则执行If语句后继程序行的语句例：if 3>1 then a=10格式二：If条件 Then 语句 1 Else 语句 2例：输入三个不相同的数，求出其中最小数 Private Sub Form_Click() Dim a As Single, b As Single, c As Single Dim Min As Single a =val( text1.text) b = val( text2.text)c = val( text3.text)If a < b Then 　　　　　　Else Min = b If 　　　　　　　　Then Min = c Print "最小数＝"; MinEnd Sub执行这种形式的语句时，先进行判断若条件成立，则执行语句1；否则执行语句29、块If语句上述If-then语句只能根据条件的真假是否执行一条语句，当Then部分和Else部分包含的内容较多时，则可选用“块If语句”结构。

格式三：If 条件 Then 语句块 End If例：当从文本框输入一个数时，该数大于或等于60时显示"及格"，该数小于60时显示"不及格"Private Sub Command1_Click() Dim a As Single a = Val(Text1.Text) If 　　　　　　　ThenLabel1.Caption = "及格" End IfIf　　　　　　　　ThenLabel1.Caption = "不及格" End IfEnd Sub格式四：If 条件 Then 语句块1 Else 语句块2 End If例：编写程序，求函数Y的值（当x≤0时，y=3x+1；当x>0时，y=4x+1）Private Sub Form_Click()Dim x As SingleDim y As Singlex = Val(InputBox("请输入变量x"))If　　　　　　　　 Then 　　　　　　　　　　　Else 　　　　　　　　　　　End IfPrint "y="; yEnd Sub10、以下是一段Visual Basic程序: If I=1 Then X=X+1 Else X=X*2 End If它的基本结构属于(　　　　).A、选择结构　　 B、循环结构　　　C、顺序结构　　　D、树型结构11、下列程序段运行后，变量Value的值是（ 　　　）x = 20If x >= 10 Then Value = 5 * xElse Value = 4 * xEnd IfA、100 B、80 C、90 D、7012、如要完成:从键盘输入一个正整数，判断是否是奇数，如是就在屏幕上显示。

比较好的算法是( )A、①输人的数存人n变量②f=(n/2=Int(n/2))③如果f中的值为True就显示n中值B、①输人的数存人n变量②f=(n/2=Int(n/2))③如果f中的值为False就显示n中值C、①输人的数存人n变量②如果n/2=Int(n/2)成立，就显示n中值D、①输人的数存人n变量②如果n/2=Int(n/2)不成立，就显示n中值13、下面是判断变量x是不是能被5整除的偶数的程序，横线上的逻辑表达式应为(　 ) Private Sub commandl_Click() Dim x As Integer x=Val(Text1. Text) If ____ = 0 Then Labell.Caption=这个数是能被5整除的偶数 Else Labell.Caption=这个数不是能被5整除的偶数 End If选项：A、(x Mod 5) = 0 And (x Mod 2 ) = 0　　　　　B、x Mod 10 = 0C、x Mod 5 = 0　　　　　　　　　　　　　 D、x Mod 2 = 014、下列程序段运行后,m的值为( )A=2: b=1: c=5If A < b Then m = A Else m = bIf c < m Then m = c选项：A、1 B、2 C、5 D、提示错误，无答案15、下列VB语句中，正确的是（ ）A．x=|x-y|B．loop=y+1C．If 5>8x>0 Then s=yD．a(i)=a(i)+a(i+1)16、如下程序段运行后，a和b的值分别是（ ） a=6：b=9a=a*bb=a\ba=a\bA、6,9 B、9,6 C、0,0 D、1,617、“如果a，b中任意一个为0，那么y=y+l”。

能实现该功能的VB语句是（ ） A．If a=0 And b=0 Then y=y+1 B．If a*b=0 Then y=y+1 C．If a=0,b=0 Then y=y+1 D．If a,b=0 Then y=y+118、小明在大街上经常看见一种测量身高体重并提示肥瘦的机器，很感兴趣，就在VB中编写了如下程序，程序运行时，在文本框Text1中输入数据60，在文本框Text2中输入数据178，单击命令按钮Command1后，文本框Text3中显示的内容是（ ）Private Sub Command1_Click( )Dim t As Integer, h As integerDim ans as integerDim xs as singlet = Val(Text1.Text)h = Val(Text2.Text)xs=t^2/hIf xs<18 Then Ans="偏瘦"Elseif xs<=25 then Ans="正常"Else Ans="肥胖"Endif Text3.Text =AnsEnd SubA.偏瘦 B.正常 C.肥胖 D.Ans二、写出下列表达式的值：19、int(4.7+3.1) 20、Mid(“I am a student”,3.2) 21、Len(“a b_c”) 22、Str(12)+Str(34) 23、123\10 Mod 10= 24、Not(1>2) and (5<3)= 25、(2<1) or (3<>3)= 三、写出下列表达式的VB表达式26、 27、 28、 四、填空题29.已知A=7.5，B=2，C= - 3.6 ，写出下列布尔表达式的值. A > B And C > A Or A =B 30.设A=2,B=3,C=4,D=5，写出下列布尔表达式的值。

1）A>B And C<= D Or 2*A>C ___________（2）3>2*B Or A=C And B<>C Or C>D ____________ （3）Not A<=C Or 4*C=B ^ 2 And B<>A+C ________4。