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

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

8）如下程序計(jì)算1~100之間的能被3整除或被5整除的數(shù)的和，請(qǐng)不全如下程序
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分，答案可以附加頁(yè)）
1）（10分）編制程序?qū)崿F(xiàn)從鍵盤讀入一數(shù)字，求其平方根。如果此數(shù)為負(fù)數(shù)，請(qǐng)?zhí)崾尽柏?fù)數(shù)沒(méi)有平方根”，否則輸出其平方根。

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

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