可做奧鵬院校所有作業(yè)，畢業(yè)論文，咨詢請?zhí)砑観Q：3230981406      微信：aopopenfd777

東 北 大 學(xué) 繼 續(xù) 教 育 學(xué) 院
    可視化程序設(shè)計I     試 卷（作業(yè)考核 線下） A 卷（共    7    頁）         
總分        題號        一        二        三        四        五        六        七        八        九        十
        得分                                                                               
注：請您單面打印，使用黑色或藍色筆，手寫完成作業(yè)。杜絕打印，抄襲作業(yè)。
一．選擇題（30分，每題2分)
1）以下能在窗體Form1的標題欄中顯示“東北大學(xué)"的語句是
A) Form1.Name="東北大學(xué)"
B) Form1.Title="東北大學(xué)"
C) Form1.Caption="東北大學(xué)"
D) Form1.Text="東北大學(xué)"
2）在窗體上畫一個名稱為Command1的命令按鈕，在事件過程中執(zhí)行：
                Move 500，500
        程序運行后，單擊命令按鈕，執(zhí)行的操作為
A) 命令按鈕移動到距窗體左邊界、上邊界各500的位置
B) 窗體移動到距屏幕左邊界、上邊界各500的位置
C) 命令按鈕向左、上方向各移動500
D) 窗體向左、上方向各移動500
3）在窗體上有一個名稱為Text2的文本框。影響Text2的Tab順序的屬性是
A) TabStop                B)Enabled   C) Visible  D)TabIndex
4）設(shè)a=”Visual Basic”，下面使b="Basic"的語句是
A) b=Left(a,8,12)                         B) b=Mid(a,8,5)
C) b=Rigth(a,5,5)                          D) b=Left(a,8,5)
5）以下關(guān)于MsgBox的敘述中，錯誤的是
A) MsgBox函數(shù)返回一個整數(shù)
B) 通過MsgBox函數(shù)可以設(shè)置信息框中圖標和按鈕的類型
C) MsgBox語句沒有返回值
D) MsgBox函數(shù)的第二個參數(shù)是一個整數(shù),該參數(shù)只能確定對話框中顯示的按鈕數(shù)
6）在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click()
Dim x As Integer
Cls
x=2
y=0
For i=1 To 2
y=y+x
x=x+2
Next
Print y,x
End Sub
程序運行后，連續(xù)三次單擊Command1按鈕后，窗體上顯示的是
A) 4  2                 B) 6   6                 C) 12  30                 D) 4  6
7）以下合法的Visual Basic標識符是
A) wwend                B)        const        C) 9abc                 D) a#x
8） 當一個復(fù)選框被選中時，它的Value屬性的值是
A) 3                         B) 2                         C) 1                         D) 0
9）執(zhí)行如下兩條語句，窗體上顯示的是
a=9.8596
Print Format(a,"$00,00.00")
A) 0,009.86         B) $9.86                 C) $0,009.86   D) 9.86
10）在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click()
x=InputBox("Input")
Select Case x
Case 1,3
Print "分支 1"
Case Is >4
Print "分支 2"
Case Else
Print "Else 分支 "
End Select
End Sub
程序運行后，如果在輸入對話框中輸入2，則窗體上顯示的是
A) 分支1                 B) 分支2                 C) Else分支         D) 程序出錯
11）在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click()
a$="VisualBasic"
Print right(3,a$)
End Sub
程序運行后，單擊命令按鈕，在窗體上顯示的內(nèi)容是
A) Vis                        B) sic                         C) ccc                         D) $$$
12）設(shè)窗體上有一個文本框，名稱為text1,程序運行后，要求該文本框只能顯示信息，不能接受輸入的信息，以下能實現(xiàn)該操作的語句是
A) Text1.Enabled=Flase                         B) Text1.MaxLength=0
C) Text1.Visible=Flase                         D) Text1.Width=0
13）設(shè)有如下程序段：
x=0
For i=1 To 10 Step 3
x=x+i
Next
運行以上程序后，x的值是
A) 20                         B) 21                         C) 22                         D) 23
14）以下敘述中錯誤的是
A) 在KeyPress事件過程中不能識別鍵盤的按下與釋放
B) 在KeyPress事件過程中不能識別回車鍵
C) 在KeyDown和KeyUp事件過程中,將輸入的"A"和"a"視作相同的字母
D) 在KeyDown和KeyUp事件過程中,從大鍵盤上輸入的"1"和從右側(cè)小鍵盤上輸入的"1"被視作不同的字符
15）窗體上畫一個名稱為CommandDialog1的通用對話框，一個名稱為Command1的命令按鈕。然后編寫如下事件過程：
Private Sub Command1_Click()
CommonDialog1.FileName =""
CommonDialog1.Filter="All file|*.*|(*.Doc)|*.Docx|(*.Txt)|*.Txt"
CommonDialog1.FilterIndex=2
CommonDialog1.DialogTitle="VBTest"
CommonDialog1.Action=1
End Sub
對于這個程序，以下敘述中錯誤的是
A) 該對話框被設(shè)置為“打開”對話框
B) 在該對話框中指定的默認文件名為空
C) 該對話框的標題為VBTest
D) 在該對話框中指定的默認文件類型為文本文件(*.Txt)
二、填空題（30分，每空2分）
1） 結(jié)構(gòu)化程序設(shè)計中把程序結(jié)構(gòu)規(guī)定為（ 1 ）、（ 2 ）、（ 3 ）三種基本結(jié)構(gòu)。
2）在窗體上畫一個名稱為Command1的命令按鈕和一個名稱為Text1的文本框。程序運行后，Command1為禁用(灰色) 。當向文框中輸入任何字符時，命令按鈕Command1變?yōu)榭捎谩Ｕ堅?（4） 處填入適當?shù)膬?nèi)容，將程序補充完整。
Private Sub Form_Load()
Command1.Enabled=False
End Sub
Private Sub Text1_（   4   ）()
Command1.Enabled=True
End Sub
3）在如下工具欄按鈕事件處理函數(shù)中，空白處應(yīng)當添加的語句為
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case （  5  ）
4）        在窗體上有一個文本框控件，名稱為TxtTime：一個計時器控件，名稱為Timerl，要求每一秒鐘在文本框中顯示一次當前的時間。程序為：
Private Sub Timer1_( 6 )
TxtTime.text=Time
End Sub
請在(6)處補全程序
5）設(shè)有如下程序段：
a$="BeijingShanghai"
b$=Mid(a$,InStr(a$,"g")+1)
執(zhí)行上面的程序段后，變量b$的值為（ 7 ） 。
6）以下程序的功能是：從鍵盤上輸入若干個學(xué)生的考試分數(shù)，當輸入負數(shù)時結(jié)束輸入，然后輸出其中的最高分數(shù)和最低分數(shù)。請在( 6) 和 (7) 處填入適當?shù)膬?nèi)容，將程序補充完整。
Private Sub Form_Click()
Dim x As Single,amax As Single,amin As Single
x=InputBox(“Enter a score”)
amax=x
amin=x
Do While  (  8   )
If x>amax Then
Amax=x
End If
If (   9   )Then
Amin=x
End If
x=InputBox(“Enter a score”)
Loop
Print”Max=”;amax,”Min=”;amin
End Sub
7）在窗體上畫一個名稱為“Command1”，標題為“計算”的命令按鈕，再畫7個標簽，其中5個標簽組成名稱為Label1的控件數(shù)組;名稱為Label2的標簽用于顯示計算結(jié)果，其Caption屬性的初始值為空；標簽Label3的標題為“計算結(jié)果”。運行程序時會自動生成5個隨機數(shù)，分別顯示在標簽控件數(shù)組的各個標簽中，如圖所示。單擊“計算”按鈕，則將標簽數(shù)組各元素的值累加，然后計算結(jié)果顯示在Label2。請?zhí)羁铡?br/>
Private Sub Command1_Click()
Sum = 0
For i = 0 To 4
Sum = Sum +  (  10   )
Next
(  11  ) = Sum
End Sub

8）如下程序計算1~100之間的能被3整除或被5整除的數(shù)的和，請不全如下程序
Private Function sum() As Integer
s = (   12  )
    For i = 1 To 100
        If  (  13   )  Then
        s = (   14   )
        End If
        
    Next
sum = (  15   )
End Function

三、編程題（40分，答案可以附加頁）
1）（10分）編制程序?qū)崿F(xiàn)從鍵盤讀入一數(shù)字，求其平方根。如果此數(shù)為負數(shù)，請?zhí)崾尽柏摂?shù)沒有平方根”，否則輸出其平方根。

2）（10分）輸入10個同學(xué)的數(shù)學(xué)成績，計算所有及格以上同學(xué)的平均分。

3）（20分）設(shè)計一個form名稱為form1，添加“打開文件”按鈕cmdOpen,， “保存文件”按鈕為cmdSave，文本框為txtSource。通過點擊“打開文件”按鈕讀取文件”c:\abc.dat”的內(nèi)容，并將內(nèi)容顯示到txtSource中；然后通過點擊“保存文件”按鈕將此文本框的內(nèi)容保存到“c:\abc.c”中。要求使用open命令打開文件，在form1_load中初始化cmdOpen和cmdSave的標題屬性。