2017年浙江省信息技術專題練習：VB
發布：2024/12/10 21:30:2
一、綜合練習
-
1．賦值語句的一般形式
．組卷：6引用：1難度：0.9 -
2．當系統執行一個賦值語句時，先求出“=”
的值，然后再把該值保存到“=”中，這就是“賦值”．組卷：4引用：1難度：0.9 -
3．針對語句 If I=1then J=1，下列說法正確的是（ ?。?/h2>
組卷：11引用：1難度：0.9 -
4．下面給出的賦值語句中錯誤的是（ ）
組卷：12引用：1難度：0.9 -
5．以下是一段VB程序：
a=1
b=a+1
c=a+b
它的基本結構屬于（ ）組卷：2引用：1難度：0.9 -
6．下列VB程序運行后，變量x的值為（ ?。?br />x=2
Print x+1
Print x+2。組卷：3難度：0.5 -
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。組卷：7難度：0.5 -
8．行If語句
行If是指在一行中寫完的If語句。其一般格式為：
格式一：If條件Then語句
執行這種形式的If語句時，首先對條件進行判斷。若條件成立，則執行Then后面的語句；若條件不成立，則執行If語句后繼程序行的語句
例：if 3＞1then 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 ThenElse Min=b
IfThen Min=c
Print“最小數=“； Min
End Sub
執行這種形式的語句時，先進行判斷。若條件成立，則執行語句1；否則執行語句2。組卷：3引用：1難度：0.5 -
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）
IfThen
Label1．Caption=“及格“
End If
IfThen
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（ ?。?br />Dim x As Single
Dim y As Single
x=Val（InputBox（“請輸入變量x“））
IfThen
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
它的基本結構屬于（ ）組卷：8引用：3難度：0.7
四、填空題
-
29．已知A=7.5，B=2，C=-3.6，寫出下列布爾表達式的值．
A＞B And C＞A Or A=B．組卷：9引用：1難度：0.3 -
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^2And B＜＞A+C．組卷：10難度：0.3