运行下列程序： Private Sub form_Click() x = InputBox("请输入一个数：") Select Case x Case Is > 0: y = x + 1: x = y + 1 Case Is = 0: y = x + 2: x = y + 2 Case Else: y = x + 3: x = y + 3 End Select Print x; y End Sub 从键盘输入1，输出的结果是()。

A.Long型数据，在已打开的文件中指定当前读/写位置

B.Long型数据，计算其文件长度

C.Integer型数据，表示文件号的范围

D.Long型数据，表示用Open语句打开的文件的大小

A.Date()

B.Day()

C.Year()

D.Month()

A.顺序结构

B.选择结构

C.循环结构

D.树型结构

A.11111101001

B.11111000101

C.11111100101

D.11000111101

A.1

B.2

C.10

D.以上都不是

A.12

B.14

C.122b

D.出错

A.编译程序、运行程序

B.编译程序、测试程序、运行程序

C.编写程序、编译程序、运行程序

D.需求分析、编译程序

A.Drawstyle

B.Borderstyle

C.DrawWidth

D.ScaleMode

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