![](https://iknow-base.cdn.bcebos.com/lxb/notice.png)
跪求几道题目答案,求速度,谢谢
1.下列程序的输出结果是____________。DimiAsInteger,kAsIntegerDima(10)AsInteger,p(3)AsIntegerk=5Fo...
1.下列程序的输出结果是____________。
Dim i As Integer, k As Integer
Dim a(10) As Integer, p(3) As Integer
k = 5
For i = 0 To 9
a(i) = i
Next i
For i = 0 To 2
p(i) = a(i * (i + 1))
Next i
For i = 0 To 2
k = k + p(i) * 2
Next I
Print k
A、23
B、21
C、22
D、17
2. 下面有关数组处理的叙述中,不正确的是_______。
①控件数组可由多个控件组成,这些控件具有相同的名字
②控件数组中的元素可以是不同类型的控件
③用ReDim语句重新定义动态数组时,不得改变该数组
的数据类型
④可用Public语句在窗体模块的通用说明处定义一个全
局数组
A、②④
B、①③④
C、①②③
D、①②③④
3. 在窗体模块的通用声明处有如下语句,会产生错误的语句是___。
①Const a as Integer=25
②Public St As String * 8
③ReDim B(3) As Integer
④Dim Const X As Integer=10
A、①③
B、②③④
C、①②③
D、①②
4. 如下数组声明语句,则数组a包含元素的个数有____________。
Dim a(3 , -2 to 2 , 5)
A、75
B、13
C、60
D、120
5. 下列程序段的执行结果是________。
Dim A(3,3)
For M=1 TO 3
For N=1 TO 3
If N=M Or N=3-M+1 Then
A(M,N)=1
Else
A(M,N)=0
End If
Next N
Next M
For M=1 TO 3
For N=1 TO 3
Print A(M,N);
Next N
Print
Next M
A、0 0 0
0 0 0
0 0 0
B、1 1 1
1 1 1
1 1 1
C、1 0 0
0 1 0
0 0 1
D、1 0 1
0 1 0
1 0 1
6. 下列程序段的输出结果是____________。
Dim i As Integer
Dim a(8) As Integer
y = 18: i = 0
Do
a(i) = y Mod 2
i = i + 1
y = y \ 2
Loop Until y < 1
For j = i - 1 To 0 Step -1
Print a(j);
Next j
A、1 0 0 1 0
B、0 0 1 1 0
C、1 0 1 0 0
D、1 0 0 0 0
7. 以下程序输出的结果是____________。
Dim a
a=Array(1,2,3,4,5,6,7)
For i=Lbound(a)To Ubound(a)
a(i)= a(i)*a(i)
Next i
Print a(i)
A、49
B、程序出错
C、不确定
D、0
8. 要分配存放如下方阵的数据,____________数组声明语句能实现(不能浪费空间)。每行三个元素,第一行为:1.1 2.2 3.3第二行为:4.4 5.5 6.6第三行为:7.7 8.8 9.9
A、Dim a(3,3) As Single
B、Dim a(-1 To l,-5 To -3) As Single
C、Dim a(-3 To -1,5 To 7) As Integer
D、Dim a(9) As Single
9. 某过程的说明语句中,正确的数组说明语句是____________。Const N as integer=4 Dim L as integer ①.Dim X (L) As Integer ②.Dim A(K) As Integer
Const K As Integer=3 ③.Dim B(N) As Integer ④.Dim Y(2000 To 2008) As Integer
A、②③
B、③④
C、①②④
D、①③④
10. 在窗体上画一个命令按钮,然后编写如下事件过程:
Option Base 1
Private Sub Command1_Click( )
Dim a As Variant
a = Array(1,2,3,4)
j = 1
For i = 4 To 1 Step -1
s = s + a(i)*j
j = j * 10
Next i
Print s
End Sub
运行上面的程序,单击命令按钮,其输出结果是_____________。
A、1234
B、34
C、12
D、4321 展开
Dim i As Integer, k As Integer
Dim a(10) As Integer, p(3) As Integer
k = 5
For i = 0 To 9
a(i) = i
Next i
For i = 0 To 2
p(i) = a(i * (i + 1))
Next i
For i = 0 To 2
k = k + p(i) * 2
Next I
Print k
A、23
B、21
C、22
D、17
2. 下面有关数组处理的叙述中,不正确的是_______。
①控件数组可由多个控件组成,这些控件具有相同的名字
②控件数组中的元素可以是不同类型的控件
③用ReDim语句重新定义动态数组时,不得改变该数组
的数据类型
④可用Public语句在窗体模块的通用说明处定义一个全
局数组
A、②④
B、①③④
C、①②③
D、①②③④
3. 在窗体模块的通用声明处有如下语句,会产生错误的语句是___。
①Const a as Integer=25
②Public St As String * 8
③ReDim B(3) As Integer
④Dim Const X As Integer=10
A、①③
B、②③④
C、①②③
D、①②
4. 如下数组声明语句,则数组a包含元素的个数有____________。
Dim a(3 , -2 to 2 , 5)
A、75
B、13
C、60
D、120
5. 下列程序段的执行结果是________。
Dim A(3,3)
For M=1 TO 3
For N=1 TO 3
If N=M Or N=3-M+1 Then
A(M,N)=1
Else
A(M,N)=0
End If
Next N
Next M
For M=1 TO 3
For N=1 TO 3
Print A(M,N);
Next N
Next M
A、0 0 0
0 0 0
0 0 0
B、1 1 1
1 1 1
1 1 1
C、1 0 0
0 1 0
0 0 1
D、1 0 1
0 1 0
1 0 1
6. 下列程序段的输出结果是____________。
Dim i As Integer
Dim a(8) As Integer
y = 18: i = 0
Do
a(i) = y Mod 2
i = i + 1
y = y \ 2
Loop Until y < 1
For j = i - 1 To 0 Step -1
Print a(j);
Next j
A、1 0 0 1 0
B、0 0 1 1 0
C、1 0 1 0 0
D、1 0 0 0 0
7. 以下程序输出的结果是____________。
Dim a
a=Array(1,2,3,4,5,6,7)
For i=Lbound(a)To Ubound(a)
a(i)= a(i)*a(i)
Next i
Print a(i)
A、49
B、程序出错
C、不确定
D、0
8. 要分配存放如下方阵的数据,____________数组声明语句能实现(不能浪费空间)。每行三个元素,第一行为:1.1 2.2 3.3第二行为:4.4 5.5 6.6第三行为:7.7 8.8 9.9
A、Dim a(3,3) As Single
B、Dim a(-1 To l,-5 To -3) As Single
C、Dim a(-3 To -1,5 To 7) As Integer
D、Dim a(9) As Single
9. 某过程的说明语句中,正确的数组说明语句是____________。Const N as integer=4 Dim L as integer ①.Dim X (L) As Integer ②.Dim A(K) As Integer
Const K As Integer=3 ③.Dim B(N) As Integer ④.Dim Y(2000 To 2008) As Integer
A、②③
B、③④
C、①②④
D、①③④
10. 在窗体上画一个命令按钮,然后编写如下事件过程:
Option Base 1
Private Sub Command1_Click( )
Dim a As Variant
a = Array(1,2,3,4)
j = 1
For i = 4 To 1 Step -1
s = s + a(i)*j
j = j * 10
Next i
Print s
End Sub
运行上面的程序,单击命令按钮,其输出结果是_____________。
A、1234
B、34
C、12
D、4321 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询