1． 下面程序是从键盘上输入一个字符串，把该字符串中的大写字母转换成小写字母，输出到文件Ks61.dat中，然后从该文件中读出字符串并显示出来。请完善下面的程序：

　　Private Form_Click( )

　　　Dim Str1 As String * 50 , Str2 As String , FileNo As Integer

　　　FileNo = 【63】

　　　Open “d:\Vb2003Ks\Ks61.dat” For 【64】As FileNo

　　　Str1 = InputBox ( “请输入一个字符串：” )

　　　Str1 = Lcase ( Str1 )

　　　Seek #FileNo , 1

      Put #FileNo,  , Str1

      【65】#FileNo, 1

      Str2 = Input (【66】,  #FileNo )

      Print Str2

　　End Sub

【63】（A）Free　　　　　（B）File　　　　　（C）FreeFile　　　 （D）FileFree

【64】（A）Input　　　　 （B）Output　　　　（C）Random　　　 （D）Binary

【65】（A）Loc　   　　 （B）Lof　　    　（C）Eof　   　　  （D）Seek

【66】（A）Len ( Str1 )　　（B）Len ( Str2 )　　（C）StrLen ( Str1 )  （D）StrLen (Str2)

2． 以下程序的功能是：把当前目录下的顺序文件smtext1.txt的内容读入内存，并在文本框Text1中显示出来。请填空。

Private Sub Command1_Click()

Dim inData As String

Text1.Text = ""

Open ".\smtext1.txt" 【14】 As #1

Do While 【15】

Input #1, inData

Text1.Text = Text1.Text & inData

Loop

Close #1

End Sub

3． 在窗体上画一个文本框（其Name属性为Text1），然后编写如下事件过程：

　　Private Sub Form_Load( )

　　　Text1.Text = “ ”

　　　Text1.SetFocus

　　　For i = 1 to 10

　　　　Sum = Sum + i

　　　Next i

　　　Text1.Text = Sum

　　End Sub

　程序运行后，输出结果为（ 【67】 ）

　（A）在文本框Text1中输出55　　　　　　　（B）在文本框Text1中输出0

（C）在文本框Text1中输出不定值　　　　　 （D）出错

4． 在窗体上画一个文本框和一个列表框，然后编写如下两个事件过程：

　　Private Sub Form_Load( )

　　　List1.AddItem “123 ”

　　　List1.AddItem “456 ”

　　　List1.AddItem “369”

List1.AddItem “789 ”

　　　Text1.Text = “ ”

　　End Sub

　　Private Sub List1_DblClick( )

　　　a = List1.Text

　　　Print a + Text1.Text

　　End Sub

　程序运行后，在文本框中输入“248”，然后双击列表框中的“369”，则输出结果（ 【68】 ）

　（A）617　　　　（B）248369　　　　（C）369248　　　　（D）0

5． 在窗体上画两个滚动条，名称分别为Hscroll1 、Hscroll2；六个标签，名称分别为  Label1、Label2、Label3、Label4、Label5、Label6，其中标签Label 4~ Label6分别显示“A”、“B”、“A*B”等文字信息，标签Label1、Label2分别显示其右侧的滚动条的数值，Label3 显示A*B的计算结果。如图所示。当移动滚动框时，在相应的标签中显示滚动条的值。当单击命令按钮"计算"时，对标签Label1、Label2中显示的两个值求积，并将结果显示在Label3中。以下不能实现上述功能的事件过程是

（A）Private Sub Command1_Click()

Label3.Caption = Str(Val(Label1.Caption )*Val( Label2.Caption))

End Sub

（B）Private Sub Command1_Click()

Label3.Caption = HScroll1.Value * HScroll2.Value

End Sub

（C）Private Sub Command1_Click()

Label3.Caption = HScroll1 * HScroll2

End Sub

（D）Private Sub Command1_Click()

Label3.Caption = HScroll1. Text * HScroll2.Text

End Sub

6． 阅读下面程序：

　　Public Sub xy ( a As Integer , b As Integer )

　　　Dim t As Integer

　　　Do

　　　　t = a Mod b

　　　　a = b : b = t

　　　Loop While t

　　　Print a

　　End Sub

　用Call xy (16 , 40 )调用此通用过程后，输出结果为（ 【69】 ）

（A）4　　　　　（B）8　　　　　（C）16　　　　　（D）32

7． 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()

For n = 1 To 20

If n Mod 3 <> 0 Then m = m + n \ 3

Next n

Print n

End Sub

程序运行后，如果单击命令按钮，则窗体上显示的内容是

（A）15 　　　（B）18 　　　（C）21 　　　（D）24

8． 以下语句的输出结果是（ 【70】 ）

　　　a = “BeiJing”

　　　b = “ShangHai”

　　　Print a;b

　以下结果中，“ □ ”表示空格：

　（A）BeiJing□ShangHai　　　　　　（B）BeiJingShangHai

　（C）BeiJingShangHai□　　　　　　（D）BeiJing□ShangHai□

9． 下面程序共执行了（ 【71】 ）次循环。

Dim Intsum As Integer , i As Integer , j As Integer

  i = 1 : j = 1

  Do

    Do

      Intsum = Intsum + j

      j = j + 2

      Print j;

    Loop Until j > 3

    i = i + 1

  Loop Until i > 11

  Print Intsum

　（A）10　　　　（B）11　　　　（C）12　　　　（D）13

10．   下列程序执行后，变量x的值为（ 【72】 ）

　　　Dim a , b , c , d , x As Single

   　 a = 200 : b = 100 : c = 500

   　 If b > a Then

    　  d = a : a = b : b = d

   　 End If

   　 If b > c Then

   　  x = b

   　  ElseIf a > c Then

    　   x = c

  　   Else

     　  x = a

   　 End If

  　  Print x

　（A）0　　　　（B）100　　　　（C）200　　　　（D）500