2017年浙江省信息技术专题练习：VB
发布：2024/12/10 21:30:2
一、综合练习
-
1．赋值语句的一般形式
．组卷：6引用：1难度：0.9 -
2．当系统执行一个赋值语句时，先求出“=”
的值，然后再把该值保存到“=”中，这就是“赋值”．组卷：4引用：1难度：0.9 -
3．针对语句 If I=1then J=1，下列说法正确的是（ ）
组卷：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的值为（ ）
x=2
Print x+1
Print x+2。组卷：3引用：1难度：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引用：1难度：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（ ）
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引用：1难度：0.3
