⽤Dim A (1 to 15) As Integer语句定义的数组的元素个数是()。
A.14
B.15
C.16
D.17
A.14
B.15
C.16
D.17
A.t=15 : Dim a (1 to t) as integer
B.Dim a(15) as integer : ReDim a(1 to t)
C.Dim a(t) as single : ReDim a(3,6) as integer
D.Dim a() as integer : t=15 : ReDim a(1 to t) as integer
A.n=6 : 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=6 : ReDim a(1 to n) as integer
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
A.234
B.246
C.567
D.356
A.1 2 3 4 5 6
B.6
C.6 5 4 3 2 1
D.1
Private Sub Form_Click()
Dim last_one As Long
Dim last_two As Long
Dim this_one As Long
Dim i As Integer
last_one = 1 '数列的第二个数
last_two = 2 '数列的第三个数
i = 4 '从数列的第四个数求起
Do
this_one = last_one + last_two
last_one = last_two
last_two = ------1-------
If i = 17 Then
Form1.Print "No:17="; this_one
End If
------2------
Loop While this_one <= 100000000#
Form1.Print "No:";------3------; "is > 1E+8"
End Sub
这是一个用户名校验程序,如用户名正确,即输出欢迎字样,否则,弹出警告窗并直接退出程序。
Dim UserName(2) As String, inputName As String
Dim Flag As Boolean ‘flag=true表示用户名正确;flag=false表示用户名不正确
Private Sub Form_Load()
Dim I As Integer
UserName(0) = "AA" : UserName(1) = "BB" : UserName(2) = "CC"‘共三个用户名
----1----
inputName = InputBox("请输入名称:", "身份确认", " ")
For I = 0 To 2
If ----2----Then
Flag = True
End If
Next I
If Flag =False Then
----3---- ("用户身份确认失败!退出应用", vbOKOnly, " 警告")
End
End If
End Sub
Private Sub Form_Paint()
picShowMsg.Print "欢迎您!" + inputName
End Sub
A.只有下标为1、5、9的数组项被赋到值1、5、9
B.数组前三项值为1、5、9
C.只有下标为1、5、9的数组项被赋到值1、2、3
D.程序运行会出错
用二分法求函数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
Private Sub Dir1_Change()
File1. Path =dir1.Path
End Sub
Private Sub Drive1_Change()
----1----
End Sub
Private Sub File1_Click()
Dim PathStr As String
if right(file1.path,1)="/" then
PathStr=File1.Path & File1.FileName
else
----2----
end if
If Right(PathStr,4)= “.bmp” Or Right(PathStr,4)= “.BMP” Then
----3----
End If
End Sub