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

题干

下列VB程序运行时,单击命令按钮Command1后,文本框Text1中显示的内容是____________________。(2分)
Private Sub Command1_Click()
Dim i As Integer, c As Integer, n As Integer
c =" 0:" n = 10
For i =" 1" To 10 Step 2
If n Mod i =" 0" Then
c =" c" * i
Else
c =" c" + i
End If
Next i
Text1.Text = Str(c)
End Sub
上一题 下一题 0.99难度 填空题 更新时间:2015-08-19 02:43:31

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

同类题1

在vb中要定义一个数组A,用于存储20名学生的姓名,则正确的数组定义语句是( )。
A.Dim a(20) as integer
B.Dim a(1,20) as string
C.Dim a(1 to 20) as string
D.Dim a(1,20) as single:Z。xx。k.Com

同类题2

下列赋值语句正确的是( )
A.A>B=9
B.A+B=10
C.A,B=90
D.A=B>9

同类题3

在VB中,若x=5,y=2,执行语句x=x+y : y=x-y : x=x-y后,x、y的值分别是 (    )
A.5、2B.5、5C.2、5D.2、2

同类题4

“如果a,b中任意一个为0,那么y=y+l”。能实现该功能的VB语句是(   )
A.If a="0" And b="0" Then y=y+1
B.If a*b="0" Then y=y+1
C.If a="0,b=0" Then y=y+1
D.If a,b="0" Then y=y+1

同类题5

求结果
(1)输入356,输出结果:
Dim x as Integer
x=inputbox(“输入x的值”)
a="x" mod 10
b="int(x/10)" mod 10
c=x\100
s=a+b+c
print s
(2)输入a=1,b=2,输出结果:

(3)输出结果:

(4)输入8,输出结果:

相关知识点
  • 算法理论
  • 面向对象程序设计 VB开发工具
  • 赋值语句
刷题宝 没有分数是刷题提高不了的! 粤ICP备12066032号

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