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

题干

小明编写了如下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

如第20题图所示的流程图片段:该流程图执行过后,a、b、c的值分别为:(   )
A.a=21,b=9,c=13B.a=5,b=8,c=13
C.a="5,b=9,c=14" D.a=21,b=9,c=14

同类题2

若X=78,则下列程序运行后的运行结果为▁▁。
INPUT  X
IF  X<60  THEN
PRINT  “BuJeGe”
ELSE
IF  X<70  THEN
PRINT  “JeGe”
ELSE
IF  X<85  THEN
PRINT  “ZhengDeng”
ELSE
PRINT  “YouXiu”
END IF
END IF
END IF
A.YouXiu
B.ZhengDeng
C.JeGe
D.BuJeGe

同类题3

由“For k="35" To 0 Step 3 : Next k ”循环语句控制的循环次数是_______。
A.12B.0C.-10D.-11

同类题4

将以下计算s=+3+5+……+49的程序段补充完整。

同类题5

如下VB程序段
x=Text1.Text
p=0
For i=1 to Len(x)
 If Mid(x,i,1)=“a” Then p=p+1
Next i
Print p
若程序运行时,在文本框Text1中键入“Are you happy”,则运行结果是(  )
A.0B.1C.2D.11
相关知识点
  • 算法理论
  • 面向对象程序设计 VB开发工具
  • 赋值语句
刷题宝 没有分数是刷题提高不了的! 粤ICP备12066032号

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