浙江省信息技术学考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、下面给出的赋值语句中错误的是（ ）Ax=x=yBx+y=3CLabel1.Caption=helloDx=-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 31 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 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、7012、如要完成:从键盘输入一个正整数，判断是否是奇数，如是就在屏幕上显示。比较好的算法是( )。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 ) = 0B、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 8x0 Then s=yDa(i)=a(i)+a(i+1)16、如下程序段运行后，a和b的值分别是（ ） a=6：b=9a=a*bb=aba=abA、6,9 B、9,6 C、0,0 D、1,617、“如果a，b中任意一个为0，那么y=y+l”。能实现该功能的VB语句是（ ） AIf a=0 And b=0 Then y=y+1 BIf a*b=0 Then y=y+1 CIf a=0,b=0 Then y=y+1 DIf 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=t2/hIf xs18 Then Ans=偏瘦Elseif xs2) and (53)= 25、(21) or (33)= 三、写出下列表达式的VB表达式26、 27、 28、 四、填空题29.已知A=7.5，B=2，C= - 3.6 ，写出下列布尔表达式的值. A