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

题干

小明编写了如下VB程序段:
Private Sub Command1_Click()
Dim x As Double
Dim y As Double
x = Val(Text1.Text)
y = Abs(x)
x = int(y)
Text2.Text = Str(x)
End Sub
此应用程序执行后,出现了如第15题图所示的错误信息,请问产生此错误的原因是( )
A.语句y = Abs(x)有误
B.缺少对象‘424’
C.语句x = int(y)有误
D.缺少文本框Text1或文本框Text2
上一题 下一题 0.99难度 选择题 更新时间:2015-11-18 02:14:01

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

同类题1

在Visual Basic中,若要将100名学生家长的联系方式(如:0575-82291000)分别存储在数组Tel中,则下列说明语句最合适的是( )
A.Dim Tel(1,100) As LongB.Dim Tel(1,100) As String
C.Dim Tel(1 To 100) As Long D.Dim Tel(1 To 100) As String

同类题2

NOT ((7>3) OR (5<2)) AND (6>1) 的值和下列哪个表达式的值是相等的_____。
A.6>1 AND 7>3B.5<2 AND 6>1C.7>3 or 5<2D.5<2 OR 6>1

同类题3

交换LABEL2和LABEL3中的数据
PRIVATE  SUB  FORMCLICK( )
LABEL2.CAPTION=90 :  LABEL3.CAPTION=86
C=LABEL2.CAPTION
________
________
END  SUB

同类题4

Sub test12()
S=0
Do While c <=5
C ="C" + 1
S=S+C
Loop
MsgBox (STRC、 + STR(S))
End Sub
该程序的运行结果是(  )
A.5  15B.6  15C.5  21D.6  21

同类题5

由“For k="35" To 0 Step 3 : Next k ”循环语句控制的循环次数是_______。
A.12B.0C.-10D.-11
相关知识点
  • 算法理论
  • 面向对象程序设计 VB开发工具
  • 赋值语句
刷题宝 没有分数是刷题提高不了的! 粤ICP备12066032号

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