（27）有下列函数过程（   ）。

         Function fun1(By Val x As Integer,By Valy As Integer) As Integer

       Do While y<>0

           reminder=x Mody

           x=y

           y=reminnder

       Loop

       Fun1=x

         End Function

         在下列按钮单击事件中调用该函数，则该程序的运行结果是。

         Private Sub Command1_Click()

         Dim a As Integer

         Dim b As Integer

（11）下列程序用于在带垂直滚动条的文本框Text1中输出3到100之间的全部素数。请填空。

     Private Sub Command1_Click()

         Text1.Text=""

         For n=3 To 100

       k=Int(Sqr(n))

       i=2

       Flag=0

       Do While i<= And Flag=0

          If n Mod i=0 Then

         Flag=1

          Else

         i=i+1

          End If

       Loop

       If       Then

          Text1.Text=Text1.Text&Str(n)&Chr(13)&Chr(10)

       End If

         Next n

     End Sub

（8）执行下列语句后，输出结果是。

    s$="ABCDEFG"

    Print InStr(s$,"efg")

    Print Lcase$(s$)

（9）表达式"12345"<>"12345"&"ABC"的值是。

（10）在窗体上画一个文本框和一个图片框，然后编写下列两个事件过程：

    Private Sub Form_Click()

        Text1.Text="VB Programming"

    End Sub

    Private Sub Text1_Change()

        Picture1.Print"VB程序设计"

    End Sub

    程序运行后，单击窗体，则在文本框中显示的内容是，而在图片框中显示的内容是     。

（6）在鼠标事件过程MouseDown和MouseUp中，参数Button的值为1、2、4时，分别代表按下鼠标的按钮。

（7）已知变量bool Var是一个布尔型的变量，如果要给其赋值为True，则正确的赋值语句是。

（3）深度为5的满二叉树中，叶子结点的个数为。

（5）Jackson方法是一种面向的结构化方法。

（4）在面向对象方法中，描述的是具有相似属性与操作的一组对象。

（35）有下列程序代码实现生成20个0-100之间的随机整数，存于数组中，打印数组中大于50的数，并求这些数的和。请选择正确的程序段 ，完成程序。

                  Private Sub Commandl_Click()

        Dim arr(1 To 20)

      For i=1 To 20