单选题下列程序段的执行结果为{{U}} {{/U}}。
a="ABBACDDCBA" For I=6 To 2 Step-2
x=Mid(a,I,I) y=Left(a,I) z=Right(a，I)
z=x&y&z Next I Print z
A.ABC
B.AABAAB
C.BBABBA
D.ABBABA
单选题在窗体上先后画2个图片框，名称分别为Picture1和banana，banana中添加了香蕉图片(见图1)，且将banana.DragMode属性设置为1。要求程序运行时，可以用鼠标把banana拖动到Picture1中(见图2)。能实现此功能的事件过程是______。A.PrivateSubForm_DragDrop(SourceAsControl,XAsSingle,YAsSingle)banana.MovePicture1.Left+X,Picture1.Top+YEndSubB.PtivateSubbanana_DragDrop(SourceAsControl,XAsSingle,YAsSingle)Source.MovePicture1.Left+X,Picture1.Top+YEndSubC.PrivateSubPicture1_DragDrop(SourceAsContro1,XAsSingle,YAsSingle)Source.MovePicture1.Left+X,Picture1.Top+YEndSubD.PrivateSubPicturel_DragDrop(SourceAsContro1,XAsSingle,YAsSingle)banana.Movebanana.Left+X,banana.Top+YEndSub
单选题InputBox函数返回值的类型是
单选题在窗体上画一个命令按钮(名称为Command1)，并编写如下代码： Function Fun1(ByVal a As Integer, b As Integer) As Integer Dim t As Integer t=a-b:b=t+a:Fun1=t+b End Function Private Sub Command1_Click() Dim x As Integer x=10 Print Fun1(Fun1(x, (Funl(x,x-1))),x-1) End Sub 程序运行后，单击命令按钮，输出结果是
单选题a=10，b=6，以下语句不能在当前窗体中输出“a+b=16"的是______。
单选题单击命令按钮执行以下程序，则输出结果为( )。Private Sub Command1_Click()Dim x As Integer，y As Integerx=14：y=48：CallProc(x，y)Print x；yEnd SubPublic Sub Proc(n As Integer，ByVal m As Integer)n=n Mod10：m=m Mod10End Sub
单选题有以下程序段，单击Command1按钮后，屏幕上的输出结果是( )。 Private Sub Command1_Click() For i=6 To 9 Print Tab(i*i)，i Next i End Sub
单选题以下能够正确退出循环的是( )。
单选题在窗体上画一个命令按钮，其名称为Command1，然后编写如下代码： Option Base 1 Private Sub Command1_Click() Dim a a=Array(1,2,3,4) j=1 For i=4 To 1 Step-1 s=s+a(i) *j j=j*10 Next i Print s End Sub 程序运行后，单击命令按钮，其输出结果是
单选题设有以下程序： Private Sub Form_Click() x=50 For i=1 To 4 y=InputBox("请输入一个整数") y=Val(Y) If y Mod 5=0 Then a=a+y x=y Else a=a+x End If Next i Print a End Sub 程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为( )。
单选题组合框控件是将某两个控件组合成一个控件，这两个控件是
单选题在窗体上画一个名称为Label1、标题为“VisualBasic考试”的标签，两个名称分别为Command1和Command2、标题分别为“开始”和“停止”的命令按钮，然后画一个名称为Timer1的计时器控件，并把其Interval属性设置为500，如图所示:编写如下程序：PrivateSubForm_Load()Timer1．Enabled=falseEndSubPrivateSubCommand1Click()Timer1．Enabled=TrueEndSubPrivateSubTimer1_Timer()IfLabel1．Left＜WidthThenLabel1．Left=label1．Left+20ElseLabel1．Left=0EndIfEndSub程序运行后单击“开始”按钮，标签在窗体中移动。对于这个程序，以下叙述中错误的是（）。
单选题在窗体上画一个命令按钮，名称为Commandl，然后编写如下事件过程： Prirate Sub Commandl_click() a$="software and hardware" b$=Right(a$,8) c$=Mid(a$,1,8) MsgBoxa$,,b$,c$,1 End Sub 运行程序，单击命令按钮，则在弹出的信息框的标题栏中显示的是( )。
单选题下述程序的运行结果是( )。 j=0 DoWhilej＜30 j=(0+1)*(0+2) k=k+1 Loop Printk;j
单选题有如下程序： Function fun(ByVal nuin As Integer)As Integer Dim k As Integer k=1 num=Abs(num) Do Wbile num k=k*(num Mod 10)：num=num＼10 Loop fun=k End Function Private Sub Form_Click() Dim n As Integer，r As Integer n=InputBox("请输入一个数：")：n=Int(n)：r=fun(n)：Print r End Sub 程序运行后，单击窗体，在输入对话框中输入246，输出结果为
单选题在窗体上添加一个命令按钮，名为Command1，一个文本框，名为Text1，则执行如下事件过程后，文本框中的输出为______。
Private Sub Command1_Click()
for i=1 To 4
for j=1 To 3
x=3
for K=1 To 2
x=x+3
Next K
Next j
Next i
Text1.Text=Str(x)
End Sub
单选题
单选题窗体上有两个文本框Text1、Text2以及一个命令按钮Command1，编写下列程序：
Dim Y As Integer
Private Sub Command1_Click()
Dim X As Integer
x=2
Text1.Text=p2(p1(X),Y)
Text2.Text=Pl(X)
End Sub
Private Function pl(X As Integer)As Integer
x+x+y: y=x+y
pl=x+y
End Function
Private Function p2(X As Integer, Y As Integer)As Integer
p2=2*x+y
End Function
当单击1次和单击2次命令按钮后，文本框Text1和Text2内的值分别为______。
单选题有三个关系R、S和T如下：由关系R和S通过运算得到关系T，则所使用的运算为______。A.笛卡尔积B.交C.并D.自然连接
单选题下列选项中，合法的变量名是( )。