已知数Dima(1 To lO)As Integer，则下面正确调用GetValue函数的是( )。

Pdvate Funtion GetValu(a() As Integer)AsInteger

A．S=GetValue(a(1 T0 10))

B．S=GetValue(a)

C．S=GetValue(a(10))

D．S=GetValuea

[单选题]已知数组a(1 To 10)As Integer,下面调用GetValue函数正确的是( )。 Private Function GetValue(a()As Integer)As Integer For i=1 To 10 Get Value=GetValue+a(i) Next i End FunctionA．S=GetValue(a(1 To 10))B．S=GetValue(a)C．S=GetValue(a(10))D．S=GetValue a

[单选题]已知函数定义Functionf（x1%，x2%）as integer，则下列调用语句正确的是（）A . a=f（x，y）B . call f（x，y）C . f（x，y）D . fxy

[单选题]使用语句DimA(1 Tb 10)As Integer声明数组A后，以下叙述正确的是（ ）。A． A数组中的所有元素值为0B． A数组中的所有元素值不确定C． A数组中的所有元素值为EmptyD． 执行语句“Erase A”后，A数组中的所有元素值为Null

[单选题]已知有下面过程： Private Sub proc1(a As Integer,b As String,Optional x As Boolean) ...... End Sub 正确调用此过程的语句是______。A．Call procl(5)B．Call procl 5,"abc",FalseC．procl(12,"abc",True)D．procl 5,"abc"

[试题]已知数据文件IN69.DAT中存有200个4位数，并已调用读函数readDat()把这些数存入数组a中，请编制一函数JsVal()，其功能是：把一个4位数的千位数上的值减百位数上的值再减十位数上的值最后减个位数上的值，如果得出的值大于等于零且此4位数是奇数，则统计出满足此条件的数的个数cnt并把这些4位数存入数组b中，然后对数组b的4位数按从小到大的顺序进行排序，最后调用函数writeDat()把结果cnt及数组b中的符合条件的4位数输出到out69.dat文件中。注意：部分源程序已给出。程序中己

[试题]已知数据文件IN76.DAT中存有200个4位数，并己调用读函数readDat()把这些数存入数组a中，请编制一函数jsval()，其功能是：把个位数字和千位数字重新组合成一个新的十位数ab(新十位数的十位数字是原4位数的个位数字，新十位数的个位数字是原4位数的千位数字)，以及把百位数和十位数组成另一个新的十位数cd(新十位数的十位数字是原4位数的百位数字，新十位数的个位数字是原4位数的十位数字)，如果新组成的两个十位数必须是一个奇数，另一个为偶数且两个十位数中至少有一个数能被17整除，同时两个新

[试题]已知数据文件IN.DAT中存有300个四位数，并已调用读函数READDAT() 把这些数存入数组a中。请编制函数Svalue()，其功能是：求出这些四位数中素数的个数cnt，再把所有满足此条件的四位数依次存入数组b中，然后将数组b中的四位数按从小到大的顺序排序，最后调用写函数writeDat()，把结果输出到文件OUT.DAT中。例如：5591是素数，则满足条件，存入数组b中，且个数cnt=cnt+1；9812是非素数，则不满足条件，忽略。部分源程序已给出。程序中已定义数组a[300]、b[300

[填空题] 已知数组inta[5]={1，2，3，4，5}；，则a[4]=（）。

[单选题]最先使用已知数a、b、c的人是（）A .牛顿B .勒内·笛卡尔C .罗吉尔·培根D .弗朗西斯·培根

[主观题]已知数据文件IN13.DAT中存有300个四位数，并已调用读函数readDat()把这些数存入数组a中，请编制一个函数jsValue()，其功能是：求出千位数上的数加百位数上的数等于十位数上的数加个位数上的数的个数cnt，再把所有满足条件的四位数依次存入数组b中，然后对数组b中的四位数按从大到小的顺序进行排序，最后调用写函数writeDat()把数组b中的数输出到OUT13.DAT文件。例如：7153,7+1=5+3，则该数满足条件存入数组b中，且个数cnt=cnt+1。8129，8+1≠2+9