在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：程序运行后，单击命令按钮，将显示一个输入对话框，如果在对话框中输入25，则程序的执行结果是（ ）。

A． 输出0

B． 输出25

C． 输出45

D． 无任何输出

[单选题]在窗体上画一个命令按钮，名称为Commandl，然后编写如下事件过程：程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ）。A． 机床B． 车床C． 钻床D． 轴承

[单选题]在窗体上画一个命令按钮，名称为Commandl，然后编写如下事件过程：程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ）。A．)机床B．)车床C．)钻床D．)轴承

[单选题]在窗体上画一个命令按钮,名称为Commandl。然后编写如下程序:Private Sub Commandl_Click()F．or I=1 T0 2F．or J=1 To IPrint String(I,″Hello″);Next JPrintNext IE．nd Sub程序运行后,如果单击命令按钮,则在窗体上显示的内容是A．H HH HHB．H HHHHC．HHHHHD．H HH HHHH

[单选题]在窗体上画一个命令按钮，名称为Commandl。然后编写如下程序： Private Sub Command1_Ctick() For I=1 TO 2 For J=1 TO I Print String(I，"Hello")； Next J Print Next I End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是A． H HH HHB． H HHHHC． HHHHHD．H HH HHHH

[单选题]在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：Private Sub Commandl_Click()D．imi As Integer,j As IntegerD．ima(10,10)As IntegerF．ori=1 To 3F．orj=1 To 3a(i，j)=(i-1)*3+jPrinta(i，j)；NextjPrintNextiE．nd SubA．B．C．D．

[单选题]在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序： Option Base 1 Private Sub Commandl_Click() Dim c AS Integer，d As Integer d=0 c=6 x=Array(2,4,6,8,10,12) For i=1 To 6 If x(i)＞c Then d=d+x(i) c=x(i) ElSe d=d-c End If Next Print d End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为A．

[单选题]在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：Private Sub Command1_Click（）Static x As IntegerStati cy As Integery=1y=y+5x=x+5Printx；yEnd Sub程序运行时，三次单击命令按钮Commandl后，窗体上显示的结果为（）A . 1516B . 156C . 1515D . 56

[单选题]在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序： Private Sub Command1_Click() Dim i As Integer，j As Integer Dim a(10， 10)As Integer For i=1 To 3 For i=1 To 3 a(i，j)=(i-1) *3+j Print a(i，j)； Next i Print Next i End Sub 程序运行后，单击命令按钮，窗体上显示的是A．1 2 3 246 3 69B．2 3 4 3 4

[单选题]在窗体上画一个命令按钮，其名称为Commandl，然后编写如下程序： Pfivate Sub Commandl_Click() Dima(10) As Integer Dimx As Integer Fori=1 To 10 a(i)=8+i NeXt X=2 Print a(f(x)+x) End Sub Function f(X As Integer) X=X+3 f=X End FuA．12B．15C．17D．18

[单选题]在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序： Dim SW As Boolean Function func(X As Integer)As Integer If X＜20 Then Y=X Else Y=20+X End If func=Y End FunctiOn Phvate Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) SW=False End Sub P