题目详情
当前位置:首页 > 职业培训考试
题目详情:
发布时间:2023-10-23 10:28:01

[填空题]以下程序的功能是将多维数组a(1 To m,1 To n)中的元素转移到一个名为b(1 To n*m)的一维数组中,完成该程程序。
Option Base 1
Private Sub Command1_Click( )
Dim a(1 To 20,1 To 10)
Dim b( )
ReDim b(1 To 200)
For i=1 To 20
For j=1 To 10
A(i,j)=i*j
Next j
Next i
Call Tran(a,20,10,B)
End Sub
Sub Tran(a( ),m,n,b( )
Dim i As Integer
For i=1 To m
For i=1 To n
(6) =a(i,j)
Next j
Next i
End Sub

更多"以下程序的功能是将多维数组a(1 To m,1 To n)中的元素转移"的相关试题:

[填空题]以下程序的功能是将多维数组a(1 To m,1 To n)中的元素转移到一个名为b(1 To n*m)的一维数组中,完成该程序。 OptionBase 1 Private Sub Command1_Click(Index As Integer) Dima(1 To 20,1 To 10) Dim b( ) ReDimb(1 To 200) For i=1 To 20 For j=1 To 10 A(i,j)=i*j Next j Next i Tran a,20,10b End Sub Sub Tran(a( )an,n,b( )) Dim i As Integer For i=1 To m For j=1 To n ______=a(i,j) Next j Next i End Sub
[填空题]以下程序的功能是将多维数组a(1 To m,1 To n)中的元素转移到一个名为b(1 To n)的一维数组中,请填写空白处,完成该程序。
Option Base 1
Private Sub Command1_Click( )
Dim a(1 To 4,1 To 5)
Dim b( )
ReDim______
For i=1 To 4
For j=1 To 5
a(i,j)=i*j
Next i
Next i
Call Transf(a,4,5,B)
End Sub
Sub Trasf(a( ),m,n,b( ))
Dim x As Integer
x=1
For i=1 To m
For i=1 To n
b(x)=______
x=x+1
Next i
Next i
End Sub
[填空题]以下程序的目的是将多维数组a(1 To m, 1 To n)中的元素转移到一个名为b(1 To n*m)的一维数组中,完成该程序。
Option Base 1
Private Sub Command1_Click(Index As Integer)
Dim a(1 To 20, 1 To 10)
Dim b( )
ReDim______
For i=1 To 20
For j=1 To 10
a(i,j)=i术j
Next j
Next i
Tran a, 20 , 10 b
End Sub
Sub Tran(a( ), m, n, b( ))
Dim i As Integer
For i=1 To m
For j=1 To n
______=a(i,j)
Next j
Next i
End Sub
[填空题]以下程序的功能是:借助指针变量找出数组元素中的最大值及其元素的下标值。请填空。
#include<stdio.h>
main( )
int a[10],*p,*s;
for(p=a;P-a<10;p++)scanf("%d",p);
for(p=a,s=a;p-a<10;p++)if(*p>*s)s=______;
printf("index=%d/n",s-a);



[填空题]以下程序的功能是:将一维数组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 (9)
     For j=1 To 10
       B(i,j)= (10)
       Print B(i,j);
     Next j
     Print
   Next i
End Sub

[填空题]

以下程序的功能是:将一维数组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


我来回答:

购买搜题卡查看答案
[会员特权] 开通VIP, 查看 全部题目答案
[会员特权] 享免全部广告特权
推荐91天
¥36.8
¥80元
31天
¥20.8
¥40元
365天
¥88.8
¥188元
请选择支付方式
  • 微信支付
  • 支付宝支付
点击支付即表示同意并接受了《购买须知》
立即支付 系统将自动为您注册账号
请使用微信扫码支付

订单号:

截图扫码使用小程序[完全免费查看答案]
请不要关闭本页面,支付完成后请点击【支付完成】按钮
恭喜您,购买搜题卡成功
重要提示:请拍照或截图保存账号密码!
我要搜题网官网:https://www.woyaosouti.com
我已记住账号密码