小金编写了VB程序，部分程序如下所示，在调试程序的时候出现如图所示的错误信息：PrivateSubCommand1_Click()DimxAsString,iA_刷题宝

题干

小金编写了VB程序，部分程序如下所示，在调试程序的时候出现如图所示的错误信息：
Private Sub Command1_Click()
Dim x As String, i As Integer
For i =" 1" To 10
If i Mod x =" 1" Then
x = "奇数"
Else
x = "偶数"
Next i
……
End Sub

产生此错误的语句是( )。

A．For	B．End If
C．Next	D．If

上一题下一题 0.99难度选择题更新时间:2016-03-16 02:46:10

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

同类题1

若执行时输入18，以下流程图描述的算法执行结果是（）

同类题2

有如下VB程序代码：
Dim a As Integer,b As Integer
a=3:b=5
a=a+b
b=a-b
a=a-b
该程序代码执行后，a和b的值分别是（）

同类题3

某对分査找算法的VB程序段如下：
i=" 1" : j =9 : n ="0"
key="Val(" Textl.Text)
Do While i <= jZXXK
m="(i" + j) \ 2
If key = d(m) Then
Exit Do

j=" m" - 1
Else
i=m+1
End If
Loop
方框中的正确代码应为

A．End If	B．If key < d(m) Then
C．ElseIf key < d(m) Then	D．If key > d(m) Then

同类题4

产生a,b(a,b 都是整数且a<b)范围内某一随机整数的VB 表达式是( )

A．Int(Rnd ∗ a)+b	B．Int(Rnd ∗ b)+a
C．Int(Rnd ∗(b-a+1))+a	D．Int(Rnd ∗(b-a))+a

同类题5

下列能表示“a与b都大于0”的Visual Basic逻辑表达式是：( )

B．(a>0) or (b>0)

D．(a>0) and (b>0)

相关知识点