（35）在C盘当前文件夹下有一个已经建立好的顺序文件Alph.txt,文件内容为只含有字母的一个字符去、串（有双引号界定符）。单击窗体，打开Alph.txt文件，读取字符串显示在文本框Text1中，最后将重新排列的字符串存入AipO.txt文件中（无双引号界定符）。请选择横线处合适的语句  

         Private Sub Fom_Load()

           Dim StrIn As String,StrOut As String

         Open"C/:Alph.txt"For Input As#1

       ______

         Close

         Text1.Text=StrIn

                   ______

         Text2.Text=StrOut

         Open"C/:AlpO.txt"For Output As#2

       ______

         Close       

           End Sub

           Private Function StrSort(s As String)As String

           Dim sArr()As String*1,i As Integer,j As Integer,n As Integer

           Dim t As String*1

         n=Lem(s)

         Redim sArr(n)

         For i=1 To n

       sArr(i)=Mid(s,i,1)

         Next i

         For i=1 To n-1

       For j=i+1 To n

           If sArr(i)>sArr(j)Then

          t=sArr(i):sArr(i)=sArr(j):sArr(j)=t

           End If

       Next j,i

       For i=1 To n

      StrSort=StrSort&sArr(i)

       Next i

           End Function

（13）在窗体上建立一个单选按钮Option1和一个图片框Picture1,如图所示。当选择不同的单选按钮时，图片框中填充不同的图案，请填写程序的空白处，使程序完整。

         Private Sub Optionl_Click（）

         Dim H,W

       Picture1.Cls

             Picturel.FillStyle=________

       W=Picturel.ScaleWidth/2

       H=Picturel.ScaleHeight/2

       Picture1.Circle(W,H),W/2

         End Sub

（12）下列事件过程的功能是：建立一个名为Datal的随机文件，存放在角度值及这些角度的正炫函数值和余弦函数值，角度为1,2,3···，90.请在空白处填上合适的代码，将程序补充完整。

         Pivate Type Ang

             K As Integer

             Sinx As Single

             Cosx As Single

         End Type

        定义Ang类型的变量Ksc

         Pivate Sub Form_Click()

         Dim Y As Single

             Open "C:\Datal.txt"For Random As#1 Len=10

             Put#1,1,Ksc

             Y=3.14159/180

             For i=1 To 90

           Ksc.K=i

           _______=Sin(i*Y)给变量Ksc的正弦函数值赋值

                 Ksc.Cosx=Cos(i*Y)

      Next i

      Close#1

         End Sub

（11）设有下列程序查找并输出该数组中的最小值，请在空白处填上合适的代码，将程序补充完整。

           Option Base 1

           Private Sub Command1_Click()

           Dim arr1

           Dim Min As Integer,i As Integer

         Arr1=Array(12,435,76,-24,78,54,866,43)

         Min=arr1(1)

         For i=2 To 8

       If arr1(1)

Next i

           Print"最小值："；Min

           End Sud

（10）如果在立即窗口中执行下列操作：

a=8

         b=9

         Print(a>b)；

         则输出结果是。

（9）下列程序的输出结果是。

           Sub Prin()

         Dim B As String

         A=1

         B=A & Space(4)&A

         PrintA

         Print trim(B)

           End Sub

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

（6）鼠标移动经过控件时，将触发控件的事件。

（8）下列这个Sub过程的功能是统计字符串中“a”的个数，请在空白处填上合适的代码，将程序补充完整。

Private Sub numCount()

         Dim num As Integer

         s$="software And hardware"

         Num=Len(s$)

         For i=1 unm

      b$=。

         If b$="a"Then x=x+1

         Next i

         Print"x="；x

End Sub 

（5）在链表的运算过程中，能够使空表与非表的运算统一的结构是。

（4）最简单的交换排序方法是。