• 搜标题
  • 搜题干
  • 搜选项
0 / 200字
单项选择题

语句Dim arr(-3 To 5，2 To 6)As Integer定义的数组元素有______。

A．45个
B．40个
C．11个
D．54个
题目列表

你可能感兴趣的试题

单项选择题

以下说法不正确的是______。

A．使用ReDim语句可以改变数组的维数
B．使用ReDim语句可以改变数组的类型
C．使用ReDim语句可以改变数组每一维的大小
D．使用ReDim语句可以对数组中的所有元素进行初始化
单项选择题

有如下程序：
a=1:b=2:c=3
a=a+b:b=b+c:c=b+a
If a ＜＞3 Or b ＜＞3 Then
a=b-a:b=c-a:c=b+a
End If
Print a+b+c
运行后，输出的结果是______。

A．16
B．3
C．6
D．8
单项选择题

如下程序运行后输出的结果是
x=0
For k=3 To 5
x=x+2
s=s+x
Next k
Print s

A．3
B．12
C．6
D．9
单项选择题

下列程序段的执行结果为______。
x=6
For k=1 To 10 Step-2
x=x+k
Next k
Print k：x

A．-1 6
B．-1 16
C．1 6
D．11 31
单项选择题

下述程序段中，与其他3个程序段作用不同的是______。

A．s=0
i=0
While i＞100
s=s+i
Wend
B．s=0
i=0
While i＜100
i=i+1
Wend
C．s=0
i=1
Do While i＜100
s=s+1
Loop
D．s=0
i=0
Do Until i＞100
s=s+1
Loop
单项选择题

下面程序段的执行结果为______。
I=4
A=5
Do
I=I+1
A=A+2
Loop Until I＞=7
Print"I="：I
Print"A="：A

A．I=4
A=5
B．I=7
A=13
C．I=8
A=7
D．I=7
A=11
单项选择题

下列语句正确的是______。

A．If x≠不y Then Print"x不等于y"
B．If x＜＞y Then Print"x不等于y"
C．If x＞＜y Then Print"x不等于y"
D．If x＜＞y Print"x不等于y"
单项选择题

下述程序的运行结果是______。
j=0
Do While j ＜30
j=(j+1)*(j+2)
k=k+1
Loop
Print k;j

A．0 1
B．3 182
C．30 30
D．4 30
单项选择题

有如下程序：
For m=1 To 4
a=0
For j=1 To 5
a=1
For k=1 To 6
a=a+3
Next k
Next j
Next m
Print a
运行后输出的结果是______。

A．18
B．19
C．90
D．360
单项选择题

使用语句Dim A(1 To 10)As Integer声明数组A之后，以下说法正确的有______。

A．A数组中的所有元素值为0
B．数组中的所有元素值不确定
C．A数组中的所有元素值为Empty
D．执行Erase A后，A数组中的所有元素值为Null
单项选择题

有如下程序：
a=0
For j=1 To 20 Step 2
a=a+j\5
Next j
Print a
运行后，输出的结果是______。

A．12
B．16
C．40
D．100
单项选择题

下列程序的输出结果为______。
Private Sub Command1_Click()
Dim a(20)
For j=1 To 20 Step 2
a(j)=j
Next j
Print a(1)+a(2)+a(3)
End Sub

A．4
B．5
C．6
D．7
单项选择题

设用复制、粘贴的方法建立了一个命令按钮数组Command1，以下对该数组的说法错误的是

A．命令按钮的所有Caption属性都是Command1
B．在代码中访问任意一个命令按钮只需要使用名称Command1
C．命令按钮的大小都相同
D．命令按钮共享相同的事件过程
单项选择题

以下______是Visual Basic合法的数组元素。

A．X9
B．X(9)
C．X(I+1)
D．X[6]
单项选择题

下列程序的输出结果是______。
Dim a
a=Array(1, 2, 3, 4, 5, 6, 7, 8)
i=0
For k=100 To 90 Step-2
s=a(i)^2
If a(i)＞3 Then Exit For
i=i+1
Next k
Print k; a(i); s

A．88 6 36
B．88 1 2
C．90 2 4
D．94 4 16
单项选择题

下列程序的运行结果是______。
s=0:t=0:u=0
For x=1 To 3
For y=1 To x
For z=y To 3
s=s+1
Next z
t=t+1
Next y
u=u+1
Next x
Print s;t;u

A．3 6 14
B．14 6 3
C．14 3 6
D．16 4 3
单项选择题

语句Dim abc(-2 To 4, 0 To 4, 5)As Long定义的三维数组，其数组元素有______。

A．96个
B．112个
C．140个
D．210个
单项选择题

设a=6，则执行x=IIf(a＞5, -1, 0)后，x的值为______。

A．5
B．6
C．0
D．-1
单项选择题

下列程序段的执行结果为______。
n=0
For i=1 To 3
For j=5 To 1 Step-1
n=n+1
Next j，i
Print n; j; i

A．12 0 4
B．15 0 4
C．12 3 1
D．15 3 1
单项选择题

设有数组声明语句：
Option Base 1
Dim A(2，-1 To 1)
以上语句所定义的数组A为______维数组，共有______个元素，第一维下标从______到______，第二维下标从______到______。

A．1, 2, 6, 2, -1, 1
B．6, 2, 1, 2, -1, 1
C．2, 6, 1, 2, -1, 1
D．2, 1, 6, -1, 1, 2
单项选择题

下列语句组中，不能实现循环100次的有

A．N=0
Do
N=N+1
Loop Until N＞=100
B．N=0
Do
N=N+1
Loop While n＜100
C．N=0
Do
N=N+1
Loop Until N＜100
D．N=0
Do While n＜100
N=N+1
Loop
单项选择题

执行以下Command1的Click事件过程，在窗体上显示______。
Option Base 0
Private Sub Command1_Click()
Dim a
a=Array("a", "b", "c", "d", "e", "f", "g")
Print a(1); a(3); a(5)
End Sub

A．abc
B．bdf
C．ace
D．出错
单项选择题

下列程序输出结果为______。
Private Sub Command1_Click()
Dim a As Boolean
a=True
If a Then GoTo L1 Else GoTo L2
L1:
Print"VB"
L2:
Print"VC"
End Sub

A．VB
B．VC
C．VB
VC
D．出错!
单项选择题

下述程序的功能是______。
x="((a+B) *

A．-(a*b+C)"
n=Len(x)
m=0
For k=1 To n
p$=Mid(x, k, 1)
If p$="("Then
m=m-1
Elself p$=")"Then
m=m+1
End If
If m＞0 Then
Print":-p"
End If
Next k
Print":-)"A) 统计输入的字符串中括号的总数
B．统计输入的字符串中匹配的括号的对数
C．检查输入的字符串中的括号是否能够匹配
D．删除字符串的括号
单项选择题

如果A为整数且|A|＞=100，则打印“OK”，否则打印“Error”，表示这个条件的单行格式If语句是______。

A．If Int(A)=A And Sqr(A) ＞=100 Then Print"OK" Else Print
B．lf Fix(A)=A And Abs(A) ＞=100 Then Print"OK" Else Print
C．If Int(A)=A And (A＞=100, A＜=-100) Then Print"OK" Else Print
D．If Fix(A)=A And A＞=100 And A＜=-100 Then Print"OK" Else Print
单项选择题

下述程序的输出结果是______。
x=0
For i=0 To 1
x=x+1
For j=0 To 3
If Not(j Mod 2)Then x=x+1
Next j
Next i
Print"x="：x

A．x=12
B．x=10
C．x=8
D．x=6
单项选择题

有如下程序：
a$="122345876"
d$=Left$(a$，1)
For i=2 To Len(a$);
z$=Mid$(a$，i，1)
If z$＞d$ Then d$=z$
Next i
Print d$
运行后，输出的结果是______。

A．1
B．7
C．4
D．8
单项选择题

下列程序的执行结果是______。
s=0
i=1
Do While i＜=100
s=s+i
Loop
Print S

A．5050
B．505
C．死循环，无输出
D．无穷大的数
单项选择题

下列程序段的执行结果为______。
K=0
For J=1 To 2
For I=1 To 3
K=I+1
Next I
For I=1 To 7
K=K+1
Next I
Next J
Print K

A．10
B．6
C．11
D．16
单项选择题

设有数组声明语句：
Option Base 0
Dim b(-1 To 10, 2 To 9, 20)As Integer
则数组B中共有______个元素。

A．1800
B．1848
C．2016
D．2310
单项选择题

使用ReDim Preserve可以改变数组的

A．最后一维的大小
B．第一维的大小
C．所有维的大小
D．改变维数和所有维的大小
单项选择题

下列程序的功能是：依次将列表框List2中的项目移入列表框List1中，并将列表框List2中移走的项目删除，给程序的空白行选择适当的语句。
______
List1.Addltem List2.List(0)
List2.ReMoveltem 0
Loop

A．Do Until List2.ListCount
B．Do While List2.ListCount
C．Do Until List1.ListCount
D．Do While List1.ListCount
单项选择题

有如下程序，运行后输出的结果是______。
j=0:n=0
Do While n＜3
j=(j+1)*(j+2)
n=n+1
Loop
Print j; n

A．0 1
B．182 3
C．30 4
D．3 3
单项选择题

有如下程序：
For x=1 To 3
Print Tab(3*x); 22*x
Next x
运行后，输出的结果是______。

A．22
44
66
B．22
44
66
C．22
44
66
D．22 44 66
单项选择题

下列程序的执行结果是______。
a=75
If a＞90 Then i=4
If a＞80 Then i=3
If a＞70 Then i=2
If a＞60 Then i=1
Print"i="：i

A．i=1
B．1=2
C．i=3
D．i=4
单项选择题

有如下程序：
Const n=-5:Const M=6
Dim a (n To M)
For i=Lbound(a, 1) To Ubound(a, 1)
a(i)=i
Next i
Print a(Lbound(a, 1));a(Ubound(a, 1))
运行后输出结果为______。

A．0 0
B．-5 0
C．-5 6
D．0 6
单项选择题

语句Dim arr(-3 To 5，2 To 6)As Integer定义的数组元素有______。

A．45个
B．40个
C．11个
D．54个
单项选择题

下面的数组声明语句中______是正确的。

A．Dim A[3, 4]As Integer
B．Dim A(3, 4)As Integer
C．Dim A[3;4]As Integer
D．Dim A(3;4)As Integer
单项选择题

在窗体上画3个单选按钮，组成一个名为chkOption的控件数组。用于标记各个控件数组元素的参数是______。

A．Tag
B．Index
C．ListIndex
D．Name
单项选择题

在窗体上画一个命令按钮，然后编写如下事件过程，程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，输出结果为______。
Private Sub Command1_Click()
x=0
Do Until x=-1
a=Val(InputBox("请输入A的值"))
b=Val(InputBox("请输入B的值"))
x=Val(InputBox("请输入X的值"))
a=a+b+x
Loop
Print a
End Sub

A．2
B．3
C．14
D．15
单项选择题

有如下程序：
x=-5
s=InputBox("input value of s:")
Select Case x
Case x
y=x+1
Case Is=0
y=x+2
Case Else
y=x+3
End Select
Print x; y
运行时，从键盘输入-5，输出的结果是______。

A．-5-2
B．-5-4
C．-5-3
D．-5-5
单项选择题

在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：
Option Base 0
Private Sub Command1_Click()
Dim City As Variant
city=Array("北京"，"上海"，"天津"，"重庆")
Print city(1)
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是______。

A．空白
B．错误提示
C．北京
D．上海
单项选择题

设有如下程序：
Option Base 0
Private Sub Form_Click()
Dim a
Dim I As Integer
a=Array(1, 2, 3, 4, 5, 6, 7, 8, 9)
For i=0 To 3
Print a(5-i);
Next
End Sub
程序运行后，单击窗体，则在窗体上显示是______。

A．4321
B．5432
C．6543
D．7654
单项选择题

下述语句的运行结果是______。
Dim a
i=0
a=Array (1, -2, 9, 0, -1, 9)
Do
K=a(i)
For m=10 To k Step-2
n=k+m
Next m
Print n+m
i=i+1
Loop While Abs(m+n)＜＞27

A．3-8 27
B．3 27 -8
C．-8 27 3
D．-8 3 27
单项选择题

在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Private Sub Command1_Click()
Dim i As Integer, j As Integer
Dim a(10，10)As Integer
For i=1 To 3
For j=1 To 3
a(i，j)=(i-1)*3+j
Print a(i，j);
Next j
Print
Next i
End Sub
程序运行后，单击命令按钮，窗体上显示的是______。

A．12 3
246
369
B．23 4
345
456
C．14 7
258
369
D．123
456
789
单项选择题

下列程序段的执行结果为______。
x=Int(Rnd+4)
Select Case x
Case 5
Print"优秀"
Case 4
Print"良好"
Case 5
Print"合格"
Case Else
Print"不合格"
End Select

A．优秀
B．良好
C．合格
D．不合格
单项选择题

有如下程序：
infocase$=InputBox("Input one letter:")
Select Case infocase$
Case"a"
grade$="Very good"
Case"b"
grade$="good"
Case"c"
grade$="OK"
Case"d"
grade$="Qualified"
Case Else
grade$="Bad"
End Select
Print grade$
运行时从键盘上输入英文小写字母d后，输出的结果是______。

A．Very good
B．Good
C．Bad
D．Qualified
单项选择题

下列程序段的执行结果为______。
Dim A(4)
n=3
A(1)=1
For k=0 To n-1
For 1=1 To k+1
X=k+2-1
A(X)=A(X)+A(X-1)
If k＜n-1 Then Exit For
Print A(X);
Next 1
Next k

A．1 2 1
B．1 2 3
C．2 4 6
D．1 3 1
单项选择题

有如下程序：
Dim arr (3, 3)
For j=1 To 3
For k=1 To 3
arr(j, k)=(j-1)*3+k
Next k
Next j
For j=2 To 3
For k=2 To 3
Print arr(k, j);
Next k
Print
Next j
运行后，输出的结果是______。

A．2 5
3 6
B．5 8
6 9
C．4 7
5 8
D．5 9
6 8
单项选择题

在窗体上画一个名称为Command1的命令按钮，一个名称为Label1的标签，然后编写如下事件过程：
Private Sub Command1_Click()
s=0
For i=1 To 15
x=2 *1-1
If x Mod 3=0 Then s=s+1
Next i
Label1.Caption=s
End Sub
程序运行后，单击命令按钮，则标签中显示的内容是______。

A．1
B．5
C．27
D．45
单项选择题

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
x=0
n=InputBox("")
For i=1 To n
For j=1 To i
x=x+1
Next j
Next i
Print X
End Sub
程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是______。

A．3
B．4
C．5
D．6
微信扫码免费搜题