⽤Dim A(-3 To 5)As Integer语句所定义的数组的元素个数是()。
A.6
B.7
C.8
D.9
A.6
B.7
C.8
D.9
A.1 2 3 4 5 6
B.6
C.6 5 4 3 2 1
D.1
A.只有下标为1、5、9的数组项被赋到值1、5、9
B.数组前三项值为1、5、9
C.只有下标为1、5、9的数组项被赋到值1、2、3
D.程序运行会出错
A.n=5 : Dim a (1 to n) as integer
B.Dim a(10) as integer : ReDim a(1 to 12)
C.Dim a() as single : ReDim a(3,6) as integer
D.Dim a() as integer : n=5 : ReDim a(1 to n) as integer
用二分法求函数f(x)=x^3-6x-1=0在x=2~5范围内的x=2附近的一个实根,其计算误差为|xl-x2|<10^(-6)。完善下列程序。
Private Sub Command1 _Click ()
Dim V0 As Singke, v As Single, s As String
Dim x As Single, t As Single, x1 As Single, x2 As Single
x1 =0: x2=5
Do While()
x = (x1 +x2)/2
If Sgn(f1 (x)) = 1 Then
x2 = x
Else
x1 = x
End If
Loop
Print "x = "; x
End Sub
Private Function f1 (x As Single) As Single
f1 = x * x * x -6 * x-1
End Function
A.Const var1=123
B.Dim var2 = 'ABC'
C.Dim var5 as long
D.Static var3 As Integer
A.234
B.246
C.567
D.356