2. 计算机
  3. 编写如下程序： Dim hum As Integer，r As Integer，n As Integer，i As Integer，arr(5)As Integer Private Sub Commandl_Click() num=12：r=2

编写如下程序： Dim hum As Integer，r As Integer，n As Integer，i As Integer，arr(5)As Integer Private Sub Commandl_Click() num=12：r=2

admin2017-06-21  38
问题 编写如下程序：
Dim hum As Integer，r As Integer，n As Integer，i As Integer，arr(5)As Integer
Private Sub Commandl_Click()
    num=12：r=2
    Call subl(num，r，n)
    For i=n To 1 Step-1
       Print arr(i)；
    Next i
  End Sub
  Sub sub1(d As Integer，r As Integer，k As Integer)
    k=0
   Do While d＜＞0
     k=k+1：arr(k)=d Mod r：d=d＼r
    Loop
End Sub
程序运行后，单击命令按钮Commandl，输出结果为
选项 A、1   1   0   0
B、0   0   1   1
C、0   1   0   1
D、1   0   1   0
答案A
解析 本题实际上是在子过程sub 1中对跚数组进行的赋值工作，形参d的值为12，r的值为2，k的初值为0；在循环中计算d除以2的余数放到数组的第一个元素，整除2后再除以2的余数放到第二个元素……以此类推，最后数组arr中存放的是(0、0、1、1)，在Commandl_Click()过程中调用完子过程对数组进行赋值以后，逆序输出了数组的值。
转载请注明原文地址:https://kaotiyun.com/show/2DGp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)