浙江省信息技术学考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=y B．x+y=3 C．Label1。Caption=”hello” D．x=—b 5、以下是一段VB程序： a = 1 b = a + 1 c = a + b

它的基本结构属于( ）

A、顺序结构 B、选择结构 C、循环结构 D、树型结构 6、下列VB程序运行后，变量x的值为( ）。 x=2 Print x+l Print x+2

A、2 B、3 C、5 D、8

7、交换两个变量中的数据,把下面代码补充完整,并在右边画出两个变量交换示意图 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 Sub

8、行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 \"最小数＝”； Min End Sub

1

执行这种形式的语句时，先进行判断。若条件成立，则执行语句1；否则执行语句2。 9、块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 Then Label1.Caption = \"及格” End If

If Then Label1.Caption = ”不及格” End If End 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 Single Dim y As Single

x = Val(InputBox（\"请输入变量x\"））

If Then

Else

End If

Print ”y=\"； y End Sub

10、以下是一段Visual Basic程序： If I=1 Then X=X+1 Else

X=X*2 End If

它的基本结构属于( )。

A、选择结构 B、循环结构 C、顺序结构 D、树型结构 11、下列程序段运行后，变量Value的值是( ） x = 20

If x 〉= 10 Then Value = 5 * x Else

Value = 4 ＊ x End If

A、100 B、80 C、90 D、70

2

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 = 0 C、x Mod 5 = 0 D、x Mod 2 = 0 14、下列程序段运行后,m的值为( ) A=2： b=1: c=5

If A < b Then m = A Else m = b If c < m Then m = c 选项：

A、1 B、2 C、5 D、提示错误,无答案 15、下列VB语句中，正确的是( ) A．x=|x—y| B．loop=y+1 C．If 5>8x〉0 Then s=y D．a（i)=a(i）+a(i+1） 16、如下程序段运行后，a和b的值分别是（ ） a=6:b=9 a=a*b b=a\\b a=a\\b

A、6，9 B、9，6 C、0，0 D、1,6 17、“如果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+1

18、小明在大街上经常看见一种测量身高体重并提示肥瘦的机器,很感兴趣,就在VB中编写了如下程序,程序运行时，在文本框Text1中输入数据60，在文本框Text2中输入数据178，单击命令按钮Command1后，文本框Text3中显示的内容是（ ） Private Sub Command1_Click( ） Dim t As Integer, h As integer Dim ans as integer Dim xs as single

t = Val（Text1。Text) h = Val(Text2.Text） xs=t^2/h

If xs<18 Then Ans=\"偏瘦\" Elseif xs〈=25 then Ans=\"正常” Else

Ans=”肥胖\" Endif

Text3.Text =Ans End Sub

3

A。偏瘦 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、ab 27、

28、1

四、填空题

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

____________

1xy3

1n(n1)(m3) xy5（3）Not A〈=C Or 4*C=B ^ 2 And B<>A+C ________

4