刷题宝
  • 刷题首页
题库 高中信息

题干

小金编写了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.ForB.End If
C.NextD.If
上一题 下一题 0.99难度 选择题 更新时间:2016-03-16 02:46:10

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

同类题1

如图所示流程图片断该流程图中循环部分结束后,变量S的值是(    )
A.5 B.15
C.25D.36

同类题2

设a="2," b="3," c="4," d="5," 下列表达式Not a<="c" Or 4*c="b^2" And b<>a+c的值是(    )

A.-1B.1C.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/5B.1+1/2+2/3+3/4
C.1+1/2+2/3+3/4+4/5D.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.671B.672C.673D.674
相关知识点
  • 算法理论
  • 面向对象程序设计 VB开发工具
  • 基本运算及表达式
  • 赋值语句
  • 选择语句
  • 循环语句
刷题宝 没有分数是刷题提高不了的! 粤ICP备12066032号

本站仅为免费收集试题提供给学生刷题,不做任何盈利性活动!如无意侵犯您的合法权益,联系站长删除处理(QQ:2572127418)