VB期末練習卷七.doc

VB練習卷七一、 語言基礎題（40分）判斷題（10分）1.窗體的Caption 屬性用來設置窗體的標題，在代碼中可以用這個標題引用該窗體。2.Print方法的缺省對象是當前窗體。3.任何時候按下鍵盤上一個鍵，將會觸發(fā)命令按鈕的KeyPress事件。4.用 Exit Do語句可以退出 Do - Loop 循環(huán)，用 Exit Sub語句可以退出Sub過程，同理用 Exit If 也能退出If條件語句。5.Dim a1,a2 As Integer語句顯式聲明變量a1和a2都為整型變量。6.字符串常量必須用西文的雙引號或單引號括起來。7.執(zhí)行DoLoop While語句時，不管條件真假，首先會無條件地執(zhí)行一次循環(huán)。8.在工具箱內雙擊命令按鈕圖標，便會在窗體上建立一個命令按鈕。9.對象的Top屬性和Left屬性都必須大于或等于零。10.在窗體或圖片框中用line圖形方法畫完直線后，窗體或圖片框控件的CurrentX和CurrentY屬性值自動被置成直線終點的坐標位置值。單選題（10分）1 以下哪個控件沒有Caption屬性。A LabelB OptionButtonC FrameD ListBox2 將通用對話框控件Commondialog1顯示為顏色對話框，可以改變該控件的哪個屬性？A ColorB FileNameC ActionD Filter3 將當前窗體中顯示的文字及繪制的圖形全部清除，可以用以下哪個方法？A Me.ClearB Me.ClsC Me=”D Me.Delete4 在拖動滾動條的滾動塊的時候，在沒有松開鼠標前會觸發(fā)滾動條的什么事件？A ChangeB KeydownC Scroll D Dragover5 某頂級菜單項的熱鍵字母為F，以下哪個操作等同于單擊該菜單項？A 同時按下Ctrl和F鍵B 按下F鍵 C 同時按下Alt和F鍵D 同時按下Shift和F鍵6 要使得文件列表框file1中只顯示文件后綴名為bmp和jpg的圖片文件，以下哪個語句是對的？A File1.Pattern = *.bmp|*.jpg B File1.Pattern = 圖片文件C File1.Pattern = *.bmp;*.jpg D File1.Pattern = 圖片文件|*.bmp;*.jpg 7 要將定時器控件的寬度設置的大一些，以下哪個敘述是正確的？A設置定時器的Width屬性B設置定時器的left屬性C設置定時器的Height屬性D 無法對定時器的寬度進行設置8 要改變Label控件中文字的顏色，可以設置Label控件的什么屬性？A FontColorB FillColorC ForeColor D BackColor9 哪一條語句執(zhí)行后將會刪除文本框Text1中選中的文本？A Text1.Text=”B Text1.SelText=” C Text1.ClearD Text1.SelText.Clear10將定時器的時間間隔設置為1秒，那么定時器的Interval屬性值應設為？A 1000 B 1 C 100 D 10填空題（20分）1 將數學式寫成VB表達式。2 已知a=2,b=3,c=4,d=5 求表達式not a=c or 4*c=b2 and ba+c的值。3 寫出a和b都為正整數的VB邏輯表達式。4 寫出表達式Val(10.5abc1) * Fix(-2.7) 的值。5 寫出表達式 Chr(Asc(“china”)+3)的值。6 寫出將X四舍五入保留兩位小數的VB表達式。7 寫出循環(huán)結構FOR I=30 TO 1 STEP 3 Next I 的循環(huán)次數。8 要在圖片框控件pic的中央畫一個半徑為1000twips的紅色圓形，畫圓語句怎么寫？9 要將文本框中所有輸入的字符都顯示為*，應該如何進行設置？10 寫出在VB中調用C盤Windows文件夾中的可執(zhí)行文件為calc.exe的計算器程序的語句。二、 程序閱讀題（20分）1第6頁Private Sub Form_Click() For i = 5 To 1 Step -1 Print Space(10 - i); For j = 1 To 2 * i Print Trim(Str(i); Next j Print Next iEnd Sub寫出單擊窗體后程序的運行結果。2Private Sub Form_Click() Dim x As Integer Static s As Integer x = Val(InputBox(請輸入一個正整數=) If x Mod 2 = 0 Then s = s * x Else s = s + x End If Me.Print s= + Str(s)End Sub寫出單擊窗體四次，每次輸入分別為1，2，3，4后，窗體上顯示的結果。3Private Sub Form_click() Open c:data1.dat For Input As #1 Call outputdata(c:data2.dat) CloseEnd SubPrivate Sub outputdata(filename As String) Dim a As String, b As Integer Open filename For Output As #2 Do While Not EOF(1) Input #1, a, b If Left(a, 1) = 李 And b = 60 Then Print #2, a, b End If LoopEnd Sub已知在c:data1.dat文件中數據如下：張寇,78,李琳,80,王瀾,56司馬,38李曉,90劉召,50李名,45寫出單擊窗體后，c:data2.dat文件中的數據。4Option ExplicitDim x As IntegerPrivate Sub Form_Click() Static y As Integer Call sub1(y) Print x=; x, y=; y x = fun1(y) Print x=; x, y=; yEnd SubPublic Sub sub1(x As Integer) x = x + 1End SubPublic Function fun1(ByVal x As Integer) As Integer fun1 = 2 * xEnd Function寫出連續(xù)單擊窗體兩次后程序運行結果。三、 程序填空題（20分）1查找程序：下列程序段是用于在文本框Text1顯示的文本中查找任意給定的字符串，查找的內容由鍵盤輸入；將查找結果（在文本框中找到該字符串的個數或沒有找到）用消息框給出。Private Sub Form_Click() Dim Strfind As String, Length As Integer, Sum As Integer, I As Integer Strfind = InputBox(請輸入查找的字符串內容) Length = -（1）- I = 1 Sum = 0 Do While I = -（2）- If Mid(Text1.Text, I, Length)= -（3）- Then Sum = Sum + 1 End If I = I + 1 Loop If -（4）-Then MsgBox 沒有找到！ Else MsgBox 找到了 & -（5）- & 個 End IfEnd Sub2以下程序隨機產生100個屬于3，1000之間的整數，利用Isprime判斷一個整數是否是素數的函數過程挑出其中的素數放在b數組中，對這些素數按從大到小的順序進行排序，最后按每行5個的格式輸出這些素數。Private Sub Form_Click() Dim a(100) As Integer Dim b(100) As Integer Dim i As Integer, j As Integer, n As Integer For i = 1 To 100 a(i) = -（1）- Next i For i = 1 To 100 If Isprime(a(i) Then n = n + 1 b(n) = -（2）- End If Next i For i = 1 To n - 1 For j = i + 1 To n If b(i) x - 1 Then -（5）- End IfEnd FunctionPublic Sub swap(a As Integer, b As Integer) Dim temp As Integer temp = a a = b b = tempEnd Sub四、 程序設計題（20分）1 編寫程序，單擊窗體時在窗體上打印出如下所示的圖形。 * * * * * * * * *2 設計一個計時器程序，界面設計如圖一所示，控件的屬性見表一。在單擊“開始”按鈕后，定時器開始計時，同時在在標簽Label1中顯示“計時開始！”；當計時達到所選擇的時間后停止計時，在標簽Label1中顯示“時間到!”的字樣。程序運行時默認的時間選擇為10分鐘。請寫出完成該程序功能的相應的事件過程的代碼?？丶amecaptionInterval命令按鈕Command1開始定時器Timer11000標簽Label1Label1框架Frame1選擇時間單選鈕Option1(0)5分鐘單選鈕Option1(1)10分鐘單選鈕Option1(2)20分鐘圖一表一VB練習卷七參考答案判斷題： 1.2.3. 4. 5. 6. 7. 8. 9. 10. 單選題1.D2.C3.B4.C5.C6.A7.D8.C9.B10.A填空題1.(2*pi*r+exp(-5)*log(x)2.F(a)=a and a=0 and int(b)=b and b=04.-215.(x*100+0.5)/1007.108.pic.circle (pic.scalewidth/2,pic.scaleheight/2),1000,vbred9.passwordchar設為*10. shell “c:windowscalc.exe”一、 閱讀1.555555555544444444333333 2222 112 s=1s=2s=5s=203李琳 80 李曉 904X=0y=1X=2y=1X=2y=2X=4y=2二、 填空 1.(1)Len(strfind)(2)Len(text1.text)(3)Strfind(4)Sum=0(5)Str(sum)2.(1) Int(998*rnd+3