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

Private Form_Click( )

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

　FileNo = 【63】

　Open “d:Vb2003KsKs61.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首页 1 2 尾页