华南俳烁实业有限公司

1． 下面程序是從鍵盤上輸入一個字符串，把該字符串中的大寫字母轉(zhuǎn)換成小寫字母，輸出到文件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　　　　�。˙）File　　　　　（C）FreeFile　　　 （D）FileFree

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

【65】（A）Loc　   　　 （B）Lof　　    �。–）Eof　   　　  （D）Seek

【66】（A）Len ( Str1 )　　（B）Len ( Str2 )　�。–）StrLen ( Str1 )  （D）StrLen (Str2)

2． 以下程序的功能是：把當前目錄下的順序文件smtext1.txt的內(nèi)容讀入內(nèi)存，并在文本框Text1中顯示出來。請?zhí)羁铡?/P>

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

　程序運行后，輸出結(jié)果為（ 【67】 ）

�。ˋ）在文本框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”，則輸出結(jié)果（ 【68】 ）

　（A）617　　　�。˙）248369　　　　（C）369248　　　�。―）0

5． 在窗體上畫兩個滾動條，名稱分別為Hscroll1 、Hscroll2；六個標簽，名稱分別為  Label1、Label2、Label3、Label4、Label5、Label6，其中標簽Label 4~ Label6分別顯示“A”、“B”、“A*B”等文字信息，標簽Label1、Label2分別顯示其右側(cè)的滾動條的數(shù)值，Label3 顯示A*B的計算結(jié)果。如圖所示。當移動滾動框時，在相應(yīng)的標簽中顯示滾動條的值。當單擊命令按鈕"計算"時，對標簽Label1、Label2中顯示的兩個值求積，并將結(jié)果顯示在Label3中。以下不能實現(xiàn)上述功能的事件過程是

（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 )調(diào)用此通用過程后，輸出結(jié)果為（ 【69】 ）

（A）4　　　　　（B）8　　　　　（C）16　　　　�。―）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

程序運行后，如果單擊命令按鈕，則窗體上顯示的內(nèi)容是

（A）15 　　　（B）18 　　　（C）21 　　�。―）24

8． 以下語句的輸出結(jié)果是（ 【70】 ）

　　　a = “BeiJing”

　　　b = “ShangHai”

　　　Print a;b

　以下結(jié)果中，“ □ ”表示空格：

　（A）BeiJing□ShangHai　　　　　　（B）BeiJingShangHai

�。–）BeiJingShangHai□　　　　　�。―）BeiJing□ShangHai□

9． 下面程序共執(zhí)行了（ 【71】 ）次循環(huán)。

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