某VB程序的一个事件过程如下：PrivateSubCommand1_Click()Dima,b,hAsSingleDimvAsDouble a=Val_刷题宝

题干

某VB程序的一个事件过程如下：
Private Sub Command1_Click()
Dim a, b, h As Single
Dim v As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
c= Val(Text3.Text)
v = a * b * h
label1.Caption = "长方体体积为：" + Val(v)
End Sub
运行程序，单击命令按钮command1后弹出如图所示的出错提示，引起该错误的语句是：

A．Dim a, b, h As Single	B．a = Val(Text1.Text)
C．v = a * b * h	D．label1.Caption = "长方体体积为：" + Val(v)

上一题下一题 0.99难度选择题更新时间:2019-05-07 08:40:08

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

同类题1

如果要改变窗体的标题，需要设置窗体对象的属性（）

D．BorderStyle

同类题2

在VB中，定义数组d，用于存储10个学生的年龄，数组定义为dim d(1 to 10) as integer，下列有关数组d的说法正确的是（）

A．d是由9个整数变量构成的一个一维数组变量，且第一个元素为d(1)

B．d是由9个整数变量构成的一个一维数组变量，且最后一个元素为d(10)

C．d是由10个整数变量构成的一个一维数组变量，且第一个元素为d(0)

D．d是由10个整数变量构成的一个一维数组变量，且最后一个元素为d(10)

同类题3

下列四段程序中，主要控制结构属于循环结构的是（）

A．A= 5
B= A
A=" A" + B

B．IF X > K THEN
PRINT "Big"
END IF

C．S="0"
DO WHILE I<=10
J =" I" * I
S="S" + J
I="I" + 1
LOOP

D．IF INT(X/2) = X/2 THEN

PRINT "偶数"
ELSE
PRINT "奇数"
END IF

同类题4

求两个整数的最大公约数分析：求最大公约数的算法思想：
（1）对于已知两数m，n，使得m>n；
（2）m除以n得余数r；
（3）若r=0，则n为求得的最大公约数，算法结束；否则执行(4)；
（4）m←n，n←r，再重复执行(2)。
例如: 求 m="14" ,n="6" 的最大公约数.
M n r
14 6 2
6 2 0
请根据以上思路补充下面的程序代码：
Private Sub Command1_Click()
m = InputBox("m=")
n = InputBox("n=")
If m < n Then t =" m:" m =" n:" n = t
r = ________________
Do While (r <> 0)
m = n
n = r
r =" m" Mod n
Loop
Print "最大公约数=", n
End Sub

同类题5

有如下一段VB程序。
Private Sub Command1_Click()
Dim y As Long
Text1.Text = ""
y = f(3)
Label1.Caption = Str(y)
End Sub
Function f(n As Integer) As Long
Text1.Text =" Text1.Text" + Str(n)
If n <=" 1" Then
f = 1
Else
f =" f(n" - 1) + 2
End If
End Function
程序运行时，单击命令按钮Command1后，文本框Text1中显示的内容是（）

相关知识点