亚洲欧洲国产欧美一区精品,激情五月亚洲色五月,最新精品国偷自产在线婷婷,欧美婷婷丁香五月天社区

1． 下面程序是從鍵盤(pán)上輸入一個(gè)字符串，把該字符串中的大寫(xiě)字母轉(zhuǎn)換成小寫(xiě)字母，輸出到文件Ks61.dat中，然后從該文件中讀出字符串并顯示出來(lái)。請(qǐng)完善下面的程序：

　　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 ( “請(qǐng)輸入一個(gè)字符串：” )

　　　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　　　�。–）Random　　　 （D）Binary

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

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

2． 以下程序的功能是：把當(dāng)前目錄下的順序文件smtext1.txt的內(nèi)容讀入內(nèi)存，并在文本框Text1中顯示出來(lái)。請(qǐng)?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． 在窗體上畫(huà)一個(gè)文本框（其N(xiāo)ame屬性為T(mén)ext1），然后編寫(xiě)如下事件過(guò)程：

　　Private Sub Form_Load( )

　　　Text1.Text = “ ”

　　　Text1.SetFocus

　　　For i = 1 to 10

　　　　Sum = Sum + i

　　　Next i

　　　Text1.Text = Sum

　　End Sub

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

�。ˋ）在文本框Text1中輸出55　　　　　　�。˙）在文本框Text1中輸出0

（C）在文本框Text1中輸出不定值　　　　　 （D）出錯(cuò)

4． 在窗體上畫(huà)一個(gè)文本框和一個(gè)列表框，然后編寫(xiě)如下兩個(gè)事件過(guò)程：

　　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

　程序運(yùn)行后，在文本框中輸入“248”，然后雙擊列表框中的“369”，則輸出結(jié)果（ 【68】 ）

�。ˋ）617　　　�。˙）248369　　　　（C）369248　　　　（D）0

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

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

（A）4　　　　　（B）8　　　　�。–）16　　　　　（D）32

7． 在窗體上畫(huà)一個(gè)名稱(chēng)為Command1的命令按鈕，然后編寫(xiě)如下事件過(guò)程：

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

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

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

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

　　　a = “BeiJing”

　　　b = “ShangHai”

　　　Print a;b

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

�。ˋ）BeiJing□ShangHai　　　　　　（B）BeiJingShangHai

�。–）BeiJingShangHai□　　　　　　（D）BeiJing□ShangHai□

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

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