1、1VB 阶 段 练 习 （一）班级_ 姓名_ 学号_一、综合练习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=y Bx+y=3 CLabel1.Caption=“hello“ Dx=-b5、以下是一段 VB 程序：a = 1b = a + 1
2、c = 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 SingleDim m As Singlex = Val(txtsx.Text)y = Val(txtsy.Text)交换数据txtdx.Text = Str(x)txtdy.Text = Str(y)En
3、d 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 SingleDim Min As Singlea =val( text1.text)b
4、= 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 ThenElseEnd IfPrint “y=“; yEnd Sub10、以下是一段 Visual Basic 程序:If I=1 ThenX=X+1ElseX=X*2End If它的基本结构属于( ).A、选择结构 B、循环结构 C、顺序结构 D、树型结构11、下列程序段运行后，变量 Value 的值是（ ）x =
5、 20If x = 10 ThenValue = 5 * xElseValue = 4 * xEnd IfA、100 B、80 C、90 D、70312、如要完成:从键盘输入一个正整数，判断是否是奇数，如是就在屏幕上显示。比较好的算法是( )。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)不成立，
6、就显示 n 中值13、下面是判断变量 x 是不是能被 5 整除的偶数的程序，横线上的逻辑表达式应为( )Private Sub commandl_Click()Dim x As Integerx=Val(Text1. Text)If _ = 0 ThenLabell.Caption=这个数是能被 5 整除的偶数ElseLabell.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:
7、 b=1: c=5If A 8x0 Then s=y Da(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+1CIf a=0,b=0 Then y=y+1 DIf a,b=0 Then y=y+118、小明在大街上经常看见一种测量身高体重并提示肥瘦的机器，很感兴趣，就在 VB 中编写了如下程
8、序，程序运行时，在文本框 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 xs2) and (53)= 三、写出下列表达式的 VB 表达式26、 ba27、 5)3(1xymn28、 31xy四、填空题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）AB And CC _（2）32*B Or A=C And BD _ （3）Not AA+C _
