下列程序的功能是从键盘上任意输入一个数，判断这个数是正数，负数，还是零，并输出判断结果。程序中加框处有错误，请改正。PrivatesubCommand1_Cli_刷题宝

题干

下列程序的功能是从键盘上任意输入一个数，判断这个数是正数，负数，还是零，并输出判断结果。程序中加框处有错误，请改正。
Private sub Command1_Click()
Dim a As Single
Dim py As String
a=

（1）
If a>0 Then py =”正数”
If a="0" Then py=”零”
If a<0 Then py=”负数”

（2）
End Sub
（1）_____________________
（2）_____________________

上一题下一题 0.99难度填空题更新时间:2015-08-20 03:50:27

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

同类题1

有如下程序段：
a=3
b=4
c=a*b-2
该程序段运行后，变量c的值为_____________

同类题2

个位数字是6，且能被3整除的3位数共有多少个？下面程序用于解决这一问题，在划线处填入合适的语句或表达式，设共有n个这样的数，Visual Basic程序如下：
Sub Command1_Click()
Dim i As Integer, n As Integer
m = 106
n = __________
Do While m <= 996
If _______________________ Then n =" n" + 1
m=m+10
Loop
Text1.Text = Str(n) zxxk
End Sub

同类题3

在VB中，下列哪个选项是正确的赋值语句？（）

同类题4

下列各赋值语句，语法不正确的是（）。

A．x+y=5	B．number=15
C．Label1.caption=time	D．length=x+y

同类题5

有如下VB 程序,该程序运行后在文本框Text1 中显示的结果是（）
Dim i As Integer, j As Integer, s As Integer, n As Integer
n =" 3:" s = 0
For i =" 1" To n
For j =" 1" To i
s =" s" + j
Next j
Next i
Text1.Text = s
End Sub

A．3	B．6
C．10	D．18

相关知识点