完成下面的程序，使显示结果如下图所示。

Private Sub Form_Click()

F．ontSize=18

Sample$s="[ ]"

x=(ScaleWidth-TextWidth(Sample$))／2

y=(ScaleHeight-TextHeight(Sample$))／2

C．urrentX=x

C．urrentY=y

[ ]Sample$

E．nd Sub

[单选题]有如下程序： Option Base 1 Private Sub Form_Click() Dim arr，Sum Sum=0 alt=Array(1，3，5，7，9，11，13，15，17，19) For i=1 To 10 If arr(i)/3=arr(i)13 Then Sum=Sum+alt(I) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为______。A．25B．26C．27D．28

[单选题]有如下程序： Option Base 1 Private Sub Form_Click() Dim arr, Sum Sum=0 arr=Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19) For i=1 To 10 If arE(i)/3=arr(i)/3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为______。A．25B．26C．27D．28

[试题]完成下面的程序，使显示结果如下图所示。Private Sub Form_Click（）F．ontSize=18Sample＄=" (8) "x=（ScaleWidth-TextWidth（Sample＄） ） /2y=（ScaleHeight-TextHeight（Sample＄） ） /2C．urrentX=xC．urrentY=y(9) Sample＄E．nd Sub

[单选题]阅读程序： Option Base 1 Private Sub Form_Click( ) Dim arr Sum Sum=0 arr=Array(1，3，5，7，9，11，13，15，17，19) For i=1 TO 10 If arr(i)/3=arr(i)/3 Then Sum=Sum+art(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为A．13B．14C．27D．15

[单选题]单击窗口时，下列程序代码的执行结果为 Private Sub Form_Click( ) Text1 End Sub Private Sub Text(x As Integer) x=x*3+1 if x＜6 Then call Text(x) End if x=x*2+1 Print x； End SubA．27 55B．11 35C．22 45D．24 51

[单选题]有如下程序： Option Base 1 Pfivate Sub Form_Click() Dim arr,Sum Sum=0 arr=Array(1,3,5,7,9,11,13,15,17,19) For i=1 To 10 If arr(i)/3=arr(i)/3 Then Sum=Sum+arr(i) End If Nexti print Sum End Sub 程序运行后，单击窗体，输出结果为( )。A．25B．26C．27D．28

[单选题]请阅读程序：Option Base 1Pfivate Sub Form_Click()D．im Arr(4，4)As IntegerF．or i=1 To 4F．or j=1 To 4A．rr(i,j)=(i-1)*2+jNext jNext iF．or i=3 To 4F．or j=3 To 4Print Arr(j，i)；Next jPrintNext iE．nd Sub程序运行后，单击窗体，则输出结果是( )。A．5 7 6 8B．6 8 7 9C．7 9 8 10D．8 10 8 11

[单选题]下面的程序运行结果是( )。 Private Sub Form_Click() I=0 DoUntil0 i=i+1 if i＞10 then Exit Do Loop Printi End SubA．0B．10C．11D．出错

[单选题]下面的程序运行结果是( )。 Private Sub Form_Click() i=0 Do i=i+1 if i＞10 then Exit Do Loop Until i＜10 Print i End SubA．0B．1C．10D．11

[单选题]阅读程序： Option Base 1 Private Sub Form. Click() Dim arr，Sum Sum= 0 arr=Array(1，3，5，7，9，11，13，15，17，19) For i=1 To 10 If arr(i)/3=arr(i)/3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为A．13B．14C．27D．15