刷题首页
题库
高中信息
题干
小明编写了如下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=13
B.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.12
B.0
C.-10
D.-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.0
B.1
C.2
D.11
相关知识点
算法理论
面向对象程序设计 VB开发工具
赋值语句