A）Private Sub save_Click（）                B）Private Sub save_Click（）
    Text1.Text=file.save.Caption           Text1.Text=save.Caption
    End Sub                                End Sub
    C）Private Sub file_Click（）                 D）Private Sub file_Click（）
    Text1.Text=file.save.Caption           Text1.Text=save.Caption
    End Sub                                 End Sub

（23）某人在窗体上画了一个名称为Timer1的计时器和一个名称为Lab的属性设置为Enabled=True,  Interval=0,并编程如下。希望在每2秒在标签上显示一次系统当前时间。
    Private Sub Timer1_Timer（）
    Label1.Caption=Time$
    End Sub
    在程序执行时发现未能实现上述目的，那么，他应做的修改是　　　。 
    A）通过属性窗口把计时器的Interval属性设置为2000
    B）通过属性窗口把计时器的Enabled属生设置为False
    C）把事件过程中的Label1.Caption=Time$语句改为Timer1.Interval=Tims$
    D）把事件过程中的Label1.Caption=Time$语句改为Label1.Caption=Timer1.Time

（24）形状控件的Shape属性有6种取值，分别代表6种几何图形。下列不属于这6种几何图形的是　　　。
    

（25）下面关于文件的叙述中错误的是　　　。
    A）随机文件中各条记录的长度是相同的]
    B）打开随机文件时采用的文件存取方式应该是Random
    C）向随机文件中写数据应使用语句Print#文件号
    D）打开随机文件与打开顺序文件一样，都使用Open语句

（26）设窗体上有一个图片框Picture1，要在程序运行期间装入当前文件夹下的图形文件File1.jpg，能实现此功能的语句是　　　。
    A）Picture1.Picture=”Flie1.jpg
     B）Picture1.Picture=LoadPicture（“File1.jpg”）
    C） LoadPicture（“File1.jpg”）             
    D）Call LoadPicture（“File1.jpg”）

（27）下面程序执行时，在窗体上显示的是　　　。
    Private Sub Command1_Click（）
    Dim a（10）
    For k = 1 To 10
    a（k） = 11 ?C k
    Next k
    Print a（a（3）\a（7） Mod a（5））
    End Sub
    A）3        B）5          C）7

（28）为达到把a、b中的值交换后输出的目的，某人编程如下：
    Private Sub Command1_Click（）
    a% = 10:b% = 20
    Call swap（a,b）
    Print a,b
    End Sub
    Private Sub swap（ByVal a As Integer,ByVal b As Integer）
    c= a:a=b:b=c
    End Sub
    在运行时发现输出结果错了，需要修改。下面列出的错误原因和修改方案中正确的是　　　。 
    A）调用swap过程的语句错误，应改为Call swap a,b
    B）输出语句错误，应改为：Print ”a”,”b”
    C）过程的形式参数有错，应改为：swap（ByRef a As Integer,ByRef b As Integer）
    D）swap中3条赋值语句的顺序是错误的，应改为a=b:b=c:c=a