刷题首页
题库
高中信息
题干
小金编写了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
如图所示流程图片断该流程图中循环部分结束后,变量S的值是( )
A.5
B.15
C.25
D.36
同类题2
设a="2," b="3," c="4," d="5," 下列表达式Not a<="c" Or 4*c="b^2" And b<>a+c的值是( )
A.-1
B.1
C.True
D.False
同类题3
有如下Visual Basic程序:
Private Sub Command1_Click()
Dim sum As Double, x As Double
sum=0
n=0
For i=1 To 5
x=n/i
n=n+1
sum=sum+x
Next i
End Sub
该程序计算了一个表达式的值,这个表达式是
A.1/2+2/3+3/4+4/5
B.1+1/2+2/3+3/4
C.1+1/2+2/3+3/4+4/5
D.1+1/2+1/3+1/4+1/5
同类题4
随机产生一个二位正奇数的VB表达式是( )
A.Int(Rnd*99) + 1
B.Int(Rnd*88) + 11
C.2* Int(Rnd*45 + 5) + 1
D.2* Int(Rnd*45 + 5) - 1
同类题5
关于实数X的表达式Int(X)+Int(2* X)+Int(3*X),其值为整数2019,则Int(2*X)的值是( )
A.671
B.672
C.673
D.674
相关知识点
算法理论
面向对象程序设计 VB开发工具
基本运算及表达式
赋值语句
选择语句
循环语句