依据糖尿病诊断标准，下列哪项指标可以用于确诊糖尿病

设程序中有如下数组定义和过程调用语句： Dim a(10)As Integer … Call D(a) 如下过程定义巾，正确的是（）。

A.Private Sub p(a As Integer)

B.Private Sub p(a（）As Integer)

C.Private Sub p(a(10)As Integer)

D.Private Sub p(a(n)As Integer)

设程序中有如下数组定义和过程调用语句：

Dim a(10)As Integer

…

Call D(a)

如下过程定义巾，正确的是（）。

A.Private Sub p(a As Integer)

B.Private Sub p(a（）As Integer)

C.Private Sub p(a(10)As Integer)

D.Private Sub p(a(n)As Integer)

【题目描述】

设程序中有如下数组定义和过程调用语句：

Dim a(10)As Integer

…

Call D(a)

如下过程定义巾，正确的是（）。

A.Private Sub p(a As Integer)

B.Private Sub p(a（）As Integer)

C.Private Sub p(a(10)As Integer)

D.Private Sub p(a(n)As Integer)

B。【解析】本题考查的是过程的调用，根据题干在定义中不许定义一个a数组，其中a数组不能定长，所以答案为B。

A、dim x(9) as integer

B、dim x(n) as integer (n=10)

C、dim x(10) as integer

D、dim x(n) as integer (n=9)

如下数组声明语句，正确的是()。

A. Dim a[3, 4] As Integer

B. Dim a(34) As Integer

C. Dim a(n,n) As Integer

D. Dim a(3,4) As Integer

A)listindex

B)caption

C)text

D)list

Option base 1

Private Sub Command1_Click

Dim arr(10)

Arr=Array(10,35,28,90,54,68,72,90)

For Each a In arr

If a>50 then

Sum=sum+a

End If

Next a

End Sub

运行上述程序时出现错误，错误之处是

A)数组定义语句不对，应改为Dim arr

B)没有指明For 循环的终值

C)应在For语句之前增加sum=0

D)Next a 应改为next

Option base 1

Private Sub Command1_Click()

Dim arr(10)as integer

For i=1 to 10 ‘循环1

Arr(i)=int(rnd*100)

Print arr(i);

Next

X=inputbox(“输入1-10的一个整数：”)

For i=x+1 to 10 ‘循环2

Arr(i-1)=arr(i)

Next

For i=1 to 10 ‘循环3

Print arr(i);

Next

End Sub

程序运行后发现显示的结果不正确，应该进行的修改是

A)产生随机数时不使用int函数

B)循环2的初始值应为i-x

C)数组定义改为Dim a(11)as integer

D)循环3的循环终值应改为9

A)dir1.path=drive1.path

B)file1.path=dir1.path

C)file1.path=drive1.path

D)drive1.drive=dir1.path