编写如下程序: Dim num As Integer,r As Integer,n As Integer,i As Integer,arr(5)As Integer Private Sub Command l_ Click() num=12:r=2 Cal

admin2020-01-02  36

问题 编写如下程序:
Dim num As Integer,r As Integer,n As Integer,i As Integer,arr(5)As Integer
Private Sub Command l_ Click()
num=12:r=2
Call subl(nurn,r,n)
For i=n To 1 Step-1
Print arr(i);
Next i
End Sub
Sub sub 1(d As Integer,r As Integer,k As Integer)
k=0
Do Whil

选项 A、1 1 0 0
B、0 0 1 1
C、0 0 0 1
D、1 0 1 0

答案A

解析 本题实际上是在子过程subl中对arr数组进行的赋值工作,形参d的值为12,f的值为2,k的初值为0;在循环中计算d除以2的余数放到数组的第一个元素,整除2后再除以2的余数放到第二个元素……以此类推,最后数组arr中存放的是(0、0、1、1),在Commandl—Click()过程中调用完子过程对数组进行赋值以后,逆序输出了数组的值。
转载请注明原文地址:https://jikaoti.com/ti/iOx0FFFM
0

最新回复(0)