2017年浙江省信息技術(shù)專題練習(xí)：VB

一、綜合練習(xí)

• 1．賦值語(yǔ)句的一般形式

   

  ．
  組卷：6引用：1難度：0.9

  解析

• 2．當(dāng)系統(tǒng)執(zhí)行一個(gè)賦值語(yǔ)句時(shí)，先求出“=”

   

  的值，然后再把該值保存到“=”

   

  中，這就是“賦值”．
  組卷：4引用：1難度：0.9

  解析

• 3．針對(duì)語(yǔ)句 If I=1then J=1，下列說(shuō)法正確的是（　?。?/h2>

  A．I=1 和J=1均為賦值語(yǔ)句

  B．均為關(guān)系表達(dá)式

  C．I=1為關(guān)系表達(dá)式，J=1為賦值語(yǔ)句

  D．I=1為賦值語(yǔ)句，J=1為關(guān)系表達(dá)式
  組卷：11引用：1難度：0.9

  解析

• 4．下面給出的賦值語(yǔ)句中錯(cuò)誤的是（　　）

  A．x=x=y

  B．x+y=3

  C．Label1．Caption=“hello“

  D．x=-b
  組卷：12引用：1難度：0.9

  解析

• 5．以下是一段VB程序：
  a=1
  b=a+1
  c=a+b
  它的基本結(jié)構(gòu)屬于（　?。?/h2>

  A．順序結(jié)構(gòu)

  B．選擇結(jié)構(gòu)

  C．循環(huán)結(jié)構(gòu)

  D．樹型結(jié)構(gòu)
  組卷：2引用：1難度：0.9

  解析

• 6．下列VB程序運(yùn)行后，變量x的值為（　?。?br />x=2
  Print x+1
  Print x+2。

  A．2

  B．3

  C．5

  D．8
  組卷：3引用：1難度：0.5

  解析

• 7．交換兩個(gè)變量中的數(shù)據(jù)，把下面代碼補(bǔ)充完整，并在右邊畫出兩個(gè)變量交換示意圖
  Private Sub cmdSwap_Click（　?。?br />Dim x As Single,y As Single
  Dim m As Single
  x=Val（txtsx.Text）
  y=Val（txtsy.Text）
  

   

  '交換數(shù)據(jù)
  txtdx.Text=Str（x）
  txtdy.Text=Str（y）
  End Sub。
  組卷：7引用：1難度：0.5

  解析

• 8．行If語(yǔ)句
  行If是指在一行中寫完的If語(yǔ)句。其一般格式為：
  格式一：If條件Then語(yǔ)句
  執(zhí)行這種形式的If語(yǔ)句時(shí)，首先對(duì)條件進(jìn)行判斷。若條件成立，則執(zhí)行Then后面的語(yǔ)句；若條件不成立，則執(zhí)行If語(yǔ)句后繼程序行的語(yǔ)句
  例：if  3＞1then  a=10
  格式二：If條件 Then 語(yǔ)句 1  Else 語(yǔ)句 2
  例：輸入三個(gè)不相同的數(shù)，求出其中最小數(shù)。
  Private Sub Form_Click（　?。?br />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“最小數(shù)=“； Min
  End Sub
  執(zhí)行這種形式的語(yǔ)句時(shí)，先進(jìn)行判斷。若條件成立，則執(zhí)行語(yǔ)句1；否則執(zhí)行語(yǔ)句2。
  組卷：3引用：1難度：0.5

  解析

• 9．塊If語(yǔ)句
  上述If-then語(yǔ)句只能根據(jù)條件的真假是否執(zhí)行一條語(yǔ)句，當(dāng)Then部分和Else部分包含的內(nèi)容較多時(shí)，則可選用“塊If語(yǔ)句”結(jié)構(gòu)。
  格式三：If 條件 Then
  語(yǔ)句塊
  End If
  例：當(dāng)從文本框輸入一個(gè)數(shù)時(shí)，該數(shù)大于或等于60時(shí)顯示“及格“，該數(shù)小于60時(shí)顯示“不及格“。
  Private Sub Command1_Click（　?。?br />Dim a As Single
  a=Val（Text1．Text）
  If

   

  Then
  Label1．Caption=“及格“
  End If
  If

   

  Then
  Label1．Caption=“不及格“
  End If
  End Sub
  格式四：If 條件 Then
  語(yǔ)句塊1
  Else
  語(yǔ)句塊2
  End If
  例：編寫程序，求函數(shù)Y的值（當(dāng)x≤0時(shí)，y=3x+1；當(dāng)x＞0時(shí)，y=4x+1）。
  Private Sub Form_Click（　　）
  Dim x As Single
  Dim y As Single
  x=Val（InputBox（“請(qǐng)輸入變量x“））
  If

   

  Then
  

   

  
  Else

   

  
  End If
  Print“y=“； y
  End Sub。
  組卷：4引用：1難度：0.5

  解析

• 10．以下是一段Visual Basic程序：
  If I=1Then
  X=X+1
  Else
  X=X*2
  End If
  它的基本結(jié)構(gòu)屬于（　?。?/h2>

  A．順序結(jié)構(gòu)

  B．選擇結(jié)構(gòu)

  C．循環(huán)結(jié)構(gòu)

  D．樹型結(jié)構(gòu)
  組卷：8引用：3難度：0.7

  解析

四、填空題

• 29．已知A=7.5，B=2，C=-3.6，寫出下列布爾表達(dá)式的值．
  A＞B And C＞A Or A=B

   

  ．
  組卷：9引用：1難度：0.3

  解析

• 30．設(shè)A=2，B=3，C=4，D=5，寫出下列布爾表達(dá)式的值．
  （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^2And B＜＞A+C

   

  ．
  組卷：10引用：1難度：0.3

  解析