单选题设窗体上有一个文本框Text1和一个命令按钮Command1，并有以下事件过程：
Private Sub Command1_Click()
Dim s As String，ch As String
s=
For k=1 To Len(Text1)
ch=Mid(Text1，k，1)
s=ch+s
Next k
Text1.Text=s
End Sub
程序执行时，在文本框中输入“Basic”，然后单击命令按钮，则Text1中显示的是______。
单选题有如下程序：
Private Sub Command1_Click()
Dim a As Single
Dim b As Single
a=5:b=4
Call Sub1(a,b)
End Sub
Sub Sub1(x As Single,y As Single)
t=x
x=t/y
y=t Mod y
End Sub
在调用运行上述程序后，a和b的值分别为______。
单选题下列程序运行结果是( )。
a=25：b=-45
i=Not a=b
Print i
单选题下面循环语句中在任何情况下都至少执行一次循环体的是
单选题下列语句的输出结果为（ ）。
Print Format$(5689．36，"000，000．000")
单选题在窗体上画一个命令按钮，名称为Command1。然后编写如下程序： Private Sub Command1_Click( ) For I=1 To 4 For J=0 To 1 Print Chr$(65+1)； Next J Print Next 1 End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是
单选题已知过程定义的首行为Sub sum(a As Integer，b As Integer)，则下面过程调用语句中正确的是( )。
单选题假定有下表所列的菜单结构： 标题 名称 层次 显示 appear 1(主菜单) 大图标 bigicon 2(菜单) 小图标 smallicon 3(菜单) 要求程序运行后，如果单击菜单项“大图标”，则在该菜单项前添加一个“√”。以下正确的事件过程是( )。
单选题文件d：＼city．tXt的内容如下：BeiJingTianJinShangHaiChongQing编写如下事件过程：Private Sub Form_Click() Dim InD Open"d：＼city．txt"For Input As#1 Do While Not EOF(1) Line Input #1，InD Loop Close 1 Print InDEnd Sub运行程序，单击窗体，输出结果是
单选题窗体上有一个名称为Timer1的计时器控件，一个名称为Shape1形状控件，其Shape属性值为3(Circle)。编写程序如下：
Private Sub Form_Load()
Shape1. Top=0
Timer1. Interval=100
End Sub
Private Sub Timer1_Timer()
Static x As Integer
Shape1. Top=Shape1. Top+100
x=x+1
If x Mod 10=0 Then
Shape1. Top=0
End If
End Sub
以下关于上述程序的叙述中，错误的是______。
单选题下列程序段的执行结果为______。 I= 4 a= 5 Do I=I+1 a=a+2 Loop Until I＞=7 Print“I=”；I Print“A=”；a
单选题在窗体上先后画两个图片框，名称分别为Picture1和banana，banana中添加了香蕉图片(见图3)，且将banana．DragMode属性设置为1。要求程序运行时，可以用鼠标把banana拖拽到Picture1中(见图4)。能实现此功能的事件过程是
单选题设一个工程由两个窗体组成，其名称分别为Form1和Form2，在Form1上有一个名称为 Command1的命令按钮。窗体Form1的程序代码如下： Private Sub Command1_Click() Dim a As Integer a=10 Call g(Form2，a) End Sub Private Sub g(f As Form， x As Integer) y=IIf(x＞10， 100，-100) f.Show f.Caption =y End Sub 运行以上的程序，正确的结果是
单选题算法的时间复杂度是指( )。
单选题以下程序的输出结果是 Private Sub Command1_Click() ch$="ABCDEF" proc ch Print ch End Sub Private Sub proc(ch As String) s="" For k=Len(ch)To 1 Step-1 s=s & Mid(ch,k,1) Next k ch=s End Sub
单选题在窗体上添加一个名称为Text1的文本框和一个名称为Command1的命令按钮，编写如下事件过程： Private Sub Command1_Click() Text1.Text=“计算机” Me.Text1=“等级” Text1=“考试” End Sub 程序运行后．如果单击命令按钮，则在文本框中显示的是
单选题以下不属于单选按钮的属性是( )。
单选题在窗体画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程： Private Sub Command1_Click() n=Val(Text1. Text) For i=2 To n For j=2 To Sqr(i) If i Hod j=0 Then Exit For Next j If j＞Sqr(i)Then Print i Next i End Sub 该事件过程的功能是______。
单选题以下叙述中错误的是( )。
单选题有如下程序：
Private Sub Command1_Click()
Dim k As Integer，m As Integer
Dim p As Integer
k=4：m=1
p=PC(k，m)：Print p；
p=PC(k，m)：Print p
End Sub
Private Function PC(a As Integer，b As Integer)
Static m As Integer，i As Integer
m=0：i=2
i=i + m + 1
m=i + a + b
PC=m
End Function
程序运行后，输出的结果为