“如果a，b中任意一个为0，那么y＝y＋1”。能实现该功能的VB语句是(　　)A．If a＝0Andb＝0Theny＝y＋1B．If a+b＝0Theny＝y＋_刷题宝

题干

“如果a，b中任意一个为0，那么y＝y＋1”。能实现该功能的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 or b＝0 Then y＝y＋1	D．If a/b＝0 Then y＝y＋1

上一题下一题 0.99难度选择题更新时间:2019-05-30 01:12:18

答案(点此获取答案解析）

同类题1

有如下VB程序段：

该程序段运行后，变量y的值是（）。

同类题2

Function f(x As Long, y As Long) As Long
Dim t As Long, r As Long
If x < y Then t =" x:" x =" y:" y = t
r =" x" Mod y
Do While r <> 0
x =" y:" y = r
r =" x" Mod y
Loop
f = y
End Function
-------------------------------------------------------------------------------------------------
Private Sub Command1_Click()
Dim a As Long, b As Long
x = Val(InputBox("x="))
y = Val(InputBox("y="))
a =" x:" b = y
s =" f(x," y)
MsgBox (Str(a * b / s))
End Sub
当x=20，y=6时，以上程序运行后，输出结果是（）

同类题3

有如下Visual Basic程序段：
a＝2
b＝4
c＝3
m＝a
If b>a Then m＝b
If c>m Then m＝c
该程序段运行后，变量m的值是

同类题4

有如下Visual Basic程序段：
Dim a(1 To 7) As Integer, i As Integer, j As Integer, k As Integer, c As Integer
a(1) =" 3:" a(2) =" 9:" a(3) =" 1:" a(4) =" 5:" a(5) =" 8:" a(6) =" 6:" a(2) = 2
s = ""
For i =" 1" To 3
For j =" i" + 1 To 7
If a(j) < a(i) Then
k =" a(j):" a(j) =" a(i):" a(i) = k
c =" c" + 1
End If
Next j
s =" Str(a(i))" + s
Next i
text1.Text =" Str(c)" & “:” & s
该程序段运行后,文本框Text1中显示的内容是

同类题5

有如下 VB 程序段：
Private Sub Command1_Click()
Dim i As Integer,s As string
s = ""
For i = 1 To 3 Step 2
s = str(f(i)) + s
Next i
Text1. Text = s
End Sub
Function f(n As Integer) As Integer
If n = 1 Then
f = 2
Else
f = f(n - 1) + n
End If
End Function
则执行该程序段后，s 的值为（）

相关知识点