以下程序的功能是：将一维组 A 中的 100 个元素分别赋给二维数组 B 的每个元素并打印出来，要求把 A （ 1 ）到 A （ 10 ）依次赋给 B （ 1 ， 1 ）到 B （ 1 ， 10 ），把 A （ 11 ）到 A （ 20 ）依次赋给 B （ 2 ， 1 ）到 B （ 2 ， 10 ），……，把 A （ 91 ）到 A （ 100 ）依次赋给 B （ 10 ， 1 ）到 B （ 10 ， 10 ）。请填空。Option Base 1Private Sub Form_Click（）Dim i

题目

以下程序的功能是：将一维组 A 中的 100 个元素分别赋给二维数组 B 的每个元素并打印出来，要求把 A （ 1 ）到 A （ 10 ）依次赋给 B （ 1 ， 1 ）到 B （ 1 ， 10 ），把 A （ 11 ）到 A （ 20 ）依次赋给 B （ 2 ， 1 ）到 B （ 2 ， 10 ），……，把 A （ 91 ）到 A （ 100 ）依次赋给 B （ 10 ， 1 ）到 B （ 10 ， 10 ）。请填空。

Option Base 1

Private Sub Form_Click（）

Dim i As Integer,j As Integer

Dim A（1 To 100） As Integer

Dim B（1 To 10,1 To 10） As Integer

For i=1 To 100

A（i）=Int（Rnd * 100）

Next i

For i=1 To ________

For j=1 To ________

B（i,j）= ________

Print B（i,j）;

Next j

Print

Next i

End Sub

相似考题

1.下列事件过程的功能是：通过Form_Load事件给数组赋初值为35、48、15、22、67，Form_Click事件找出可以被3整除的数组元素并打印出来。请在空白处填入适当的内容，将程序补充完整。Dim Arr（）Private Sub Form_Load（）【8】End SubPrivate Sub Form_Click（）【9】If Int（x / 3） =x / 3 ThenPrint xEnd IfNext xEnd Sub

2.下列事件过程的功能是：通过Foma_Load事件给数组赋初值为35、48、15、22、67， Form_Click事件找出可以被3整除的数组元素并打印出来。请在空白处填人适当的内容，将程序补充完整。Dim Arr()Private Sub Form_Load()______End SubPrivate Sub Form_CUck()For EaCh x In ArrIf Int(x/3)=x/3 ThenPdnt X

3.下列关于数组的叙述，错误的是A．使用数组前，要有DIMENSION或DECLEARE命令定义数组B．定义数组后，Visual FoxPro系统自动给每个数组元素赋以逻辑值.F.C．在Visual FoxPro中只能使用一维数组、二维数组或三维数组D．一个数组中各个数组元素可以不是同一种数据类型

4.（ 9 ）以下程序的功能是：将一维数组 A 中的 100 个元素分别赋给二维数组 B 的每个元素并打印出来，要求把 A(1) 到 A(10) 依次赋给 B(1,1) 到 B(1,10) ，把 A(11) 到 A(20) 依次赋给 B(2,1) 到 B(2,10) ， …… ， 把A(91) 到 A(100) 依次赋给 B(10,1) 到 B(10,10) 。请填空。Option Base 1Private Sub Form_Click()Dim i As Integer, j As IntegerDim A(1 To 100) As IntegerDim B(1 To 10, 1 To 10) As IntegerFor i = 1 To 100A(i) = Int(Rnd * 100)Next iFor i = 1 To 【 9 】For j = 1 To 【 10 】B(i, j) = 【 11 】Print B(i, j);Next jPrintNext iEnd Sub

参考答案和解析
正确答案：
 10  10　A((i-1)*10+j) 
根据题意，在嵌套循环中， i 为外循环变量 , 循环次数为 10 次，控制数组 B 的行值， j 为内循环变量．循环次数为 10 次，决定着数组 B 的列值，然后根据数组下标的关系，可写出 (i-1)*10+j 表达式 , 从而相应地对数组 B 进行赋值。二维数组 B 的元素与一维数组 A 的元素存在这样的对应关系： B(i ， j)=A((i-1)*10+j) ，如 B(1 ， 1)=A(1) 、 B(2 ， 1)=A(11) 、 B(10 ， 1)=A(91) 。
更多“以下程序的功能是:将一维组 A 中的 100 个元素分别赋给二维数组 B 的每个元素并打印出来, ”相关问题

  • 第1题：

    以下程序的功能是：将一维数组A中的100个元素分别赋给二维数组B的每个元素并打印出来，要求把A(i)到A(10)依次赋给B(1，1)到B(1，10)，把A(11)到A(20)依次赋给

    B(2，1)到B(2，10)，……，把A(91)到A(100)依次赋给B(10，1)到B(10，10)。请填空。

    Option Base 1

    Private Sub Form_Click()

    Dim i As Integer，j As Integer

    Dim A(1 To 100)As Integer

    Dim B(1 To 10,1 To 10)As Integer

    For i=1 To 100

    A(i)=Int(Rnd*100)

    Next i

    For i=1 To【 】

    For j＝1 To【 】

    B(i,j)＝【 】

    Print B(i,j)；

    Next j

    Print

    Next i

    End Sub


    正确答案：10 10 A(10*(i-1)+j)
    10 , 10 , A(10*(i-1)+j) 解析：最外层的循环负责控制二维数组B()的行数，内层循环负责控制二维数组B()的列数，将数组A()的A(1)到A(10)依次赋给数组B()的第一行，把A(11)到A(20)依次赋给B()的第二行，……。

  • 第2题：

    下列对数组初始化语句的说明正确的理解是（） int a[10]={6,7,8,9,10};

    A．将5个初值依次赋给数组前5个元素，剩余元素初始化为0

    B．将5个初值依次赋给数组前5个元素，剩余元素不进行初始化

    C．将5个初值依次赋给数组前5个元素，剩余元素随机赋值

    D．因为数组长度与初值的个数不相同，所以此语句不正确


    int[,] num4 = {{0,1},{0,1,2},{0,1,2,3}}

  • 第3题：

    实现模拟窗体菜单功能，实现对一维二维数组基本操作进行测试，具体菜单功能如下： 当输入11、12、13，分别执行一维数组数据录入；执行一维数组的每个元素增加10，并提示操作成功；显示一维数组的所有元素； 当输入21、22、23，分别执行二维数组数据录入；执行二维数组的每个元素增加5，并提示操作成功；显示二维数组的所有元素； 当输入quit，则退出


    错误

  • 第4题：

    main（)方法中的args[]数组是一个数值型的数组，程序执行时输入的参数可以赋给数组中的每一个元素。


    错误

  • 第5题：

    2、下面关于二维数组的说法错误的是

    A．同行的数据在内存中连续存放。

    B．对全部数组元素都赋初值时，可以不指定数组第二维的长度。

    C．不能将二维数组作为一个整体输入与输出。

    D．将二维数组看作是一维数组时，该一维数组的每个元素本身又是一个一维数组。


    对全部数组元素都赋初值时，可以不指定数组第二维的长度。

相关内容