一中Visual Basic月考試題(2016年10月)

1、 PAGE PAGE 9Visual Basic（201610）一選擇題（每小題只有一個(gè)正確選項(xiàng)，每小題 1 分，共 60 分）設(shè)置對(duì)象的屬性值是程序設(shè)計(jì)的重要步驟，關(guān)于屬性的說(shuō)明錯(cuò)誤的是A）屬性是一組可以由用戶定義的數(shù)據(jù)B）屬性名稱是由用戶定義確定的 C）屬性用來(lái)描述對(duì)象的性質(zhì) D）Visual Basic“方法”的概念錯(cuò)誤的是A）方法是對(duì)象的一部分 B）方法是預(yù)先規(guī)定好的操作 C）方法是對(duì)事件的響應(yīng) D）方法用于完成某些特定功能下列關(guān)于事件的敘述中不正確的是( )。 A）事件是系統(tǒng)預(yù)先為對(duì)象定義的能被對(duì)象識(shí)別的動(dòng)作B）事件可分為用戶事件與系統(tǒng)事件兩類C）VB 為每個(gè)對(duì)象設(shè)置好各種事件，并定

2、義好事件過(guò)程的過(guò)程名，但過(guò)程代碼必須由用戶自行編寫(xiě)D）VB 中所有對(duì)象的默認(rèn)事件都是Click可決定窗體的左上角是否有控制菜單的屬性是（）。ControlBoxB) MinButtonC) MaxButtonD) BorderStyle 5.Text1KeyDownPrivate Sub Text1_Keydown(Keycode As Integer, shift As Integer)End Sub其中參數(shù) Keycode 的值表示的是發(fā)生此事件時(shí)：（ ）AltCtrlC)D)DefaultTrueClick的操作是：（ ）B)Esc按鍵盤上的回車鍵用鼠標(biāo)右鍵雙擊此按鈕若已把一個(gè)按鈕的Ca

3、ncel屬性設(shè)置為則下面可導(dǎo)致按鈕的Click事件過(guò)程被調(diào)用操作是：（）B)Esc按鍵盤上的回車鍵用鼠標(biāo)右鍵雙擊此按鈕Command1Private Sub Command1_Click()x = Visual Basic a = Right(x, 11)b = Mid(x, 8, 5)c = MsgBox(a, , b)End Sub運(yùn)行程序后，單擊命令按鈕，以下敘述中錯(cuò)誤的是：（）Basic信息框中的提示信息是Programming C)cD)MsgBox 的使用格式有錯(cuò)窗體上有兩個(gè)名稱分別為Text1、Text2Text1KeyUpPrivate Sub Text1_KeyUp(KeyC

4、ode As Integer, Shift As Integer)Dim c As Stringc = UCase(Chr(KeyCode) Text2.Text = Chr(Asc(c) + End Sub當(dāng)向文本框 Text1 中輸入小寫(xiě)字母a 時(shí)，文本框 Text2 中顯示的是：AB) aC) CD) 10.以下敘述中錯(cuò)誤的是：（）A)在通用過(guò)程中，多個(gè)形式參數(shù)之間可以用逗號(hào)作為分隔符B)在 Print 方法中，多個(gè)輸出項(xiàng)之間可以用逗號(hào)作為分隔符Dim當(dāng)一行中有多個(gè)語(yǔ)句時(shí)，可以用逗號(hào)作為分隔符Command1Caption(x)”，要將命令按鈕的快捷鍵設(shè)為Caption（ ）。A)x&

5、B)x&C) 在 x 前插入# D) 在 x 后插入#若要將某命令按鈕設(shè)置為默認(rèn)命令按鈕。則應(yīng)設(shè)置為True（ ） 。A) ValueB) CancelC) Default D) Enabled 13.設(shè)置命令按鈕的標(biāo)題時(shí)，應(yīng)改變的屬性是（ ）A) textB) Name C) Caption D)14.關(guān)于設(shè)置控件屬性的敘述正確的是( )。用戶必須重新設(shè)置屬性的值，否則屬性值為空。任何屬性的值都可以由用戶隨意設(shè)置。屬性值可以由用戶設(shè)置，也可以使用系統(tǒng)的默認(rèn)設(shè)置。屬性值只能在屬性窗口中設(shè)置。15.為了把焦點(diǎn)移到某個(gè)指定的控件，所使用的方法是( )A) SetFocusB) Visible C)

6、 Refresh D) 16.以下(）屬性不能在運(yùn)行時(shí)設(shè)置。Caption B) NameC) Backcolor D) Fontsize當(dāng)一個(gè)工程含有多個(gè)窗體時(shí)，其中的啟動(dòng)窗體是( )。A)VisualBasic第一個(gè)添加的窗體 CD)在“工程屬性”對(duì)話框中指定的窗體PrintForm_loadA)BackColorB)ForeColorC)AutoRedraw D)Caption要使Forml窗體的標(biāo)題欄顯示“歡迎使用VB”，以下語(yǔ)句正確的(A）Forml.Caption“歡迎使用VB”B）Forml.Caption歡迎使用 VB C）Forml.Caption 歡 迎 使 用 VB D）

7、Forml.Caption歡迎使用 VB不能作為容器使用的對(duì)象是（ ）。A) FrameB) Form C) PictureD) 21.執(zhí)行下列語(yǔ)句strInput=InputBox(請(qǐng)輸入字符串，字符串對(duì)話框，字符串)將顯示輸入對(duì)話框。此時(shí)如果直接單擊“確定”按鈕，則變量strInput的內(nèi)容是：（）A）請(qǐng)輸入字符串B）字符串對(duì)話框C）字符串D）空字符22.要使某控件在運(yùn)行中不顯示，通過(guò)設(shè)置可達(dá)到此要求的屬性( ) A)Enabled B)VisibleC)BackColor D)Caption以下關(guān)于過(guò)程及過(guò)程參數(shù)的描述中，錯(cuò)誤的是：（）調(diào)用過(guò)程時(shí)可以用控件名稱作為實(shí)際參數(shù)用數(shù)組作為過(guò)程的

8、參數(shù)時(shí)，使用的是“傳地址”方式D)窗體（Form）可以作為過(guò)程的參數(shù)當(dāng)用戶按下并且釋放一個(gè)字母鍵后會(huì)觸發(fā)KeyPress、KeyUp和KeyDown事件，這3個(gè)事發(fā)生的順序是()A)KeyPress、KeyDown、KeyUp B)KeyDown、Keyup KeyPress C)KeyDown、KeyPress、KeyUpD)沒(méi)有規(guī)律A) 命令按鈕控件B) 標(biāo)簽控件 C) 文本框控件D)單選框控件A)DblClickB)ClickC)Load27.以下選項(xiàng)中，不屬于單選按鈕屬性的是( )。A) EnabledB) CaptionC) NameD) Min在VisualBasic中，Input

9、Box函數(shù)的默認(rèn)返回值類型為字符串，用InputBox函數(shù)輸入值型數(shù)據(jù)時(shí)，下列操作中可以有效防止程序出錯(cuò)的操作。事先對(duì)要接收的變量定義為數(shù)值型InputBoxStrInputBoxValueInputBoxString以下關(guān)于窗體的描述中，錯(cuò)誤的。Unload Form1Form1loadEnabledFalseHeight、Width若要使某命令按鈕獲得控制焦點(diǎn)，則可使方法來(lái)設(shè)置。RefreshB) SetFocusC) GotFocusD) 31.下列控件可以用作其他控件容器的。窗體，標(biāo)簽，圖片框窗體，框架，文本框窗體，圖像，列表框窗體，框架，圖片框在窗體上添加一命令按鈕Command1，

10、并將其Caption屬性設(shè)置為cmdAA、名稱屬性設(shè)置cmdBB，則關(guān)于該控件的下語(yǔ)句是正確的。Command1.Left=100 B)cmdAA.Left=100C) cmdBB.Left=100D) 以上語(yǔ)句都不對(duì)對(duì)于窗體，下面（ ）屬性在程序運(yùn)行時(shí)其屬性設(shè)置起作用。A）MaxButtonB) BorderStyleC) NameD) Left為了使一個(gè)窗體從屏幕上消失但仍在內(nèi)存中，所使用的方法或語(yǔ)句(A)ShowB)HideC)LoadD)EnloadA)ShowPopupB)ShowPopupMenu C)PopupMenu36.CLS 可清除窗體或圖片框中的內(nèi)容()Picture在設(shè)

11、計(jì)時(shí)放置的控件D)AC下列可以把當(dāng)前目錄下的圖形文件picl.jpg裝入圖片框Picturel中的語(yǔ)句為( )A)Picture=pic1.jpgB)Picture.Handle=pic1.jpg C)Picturel.Picture=LoadPicture(pic1.jpg”) D)Picture：LoadPicture(pic1.jpg)33Text1Text2Text31Command1)。編寫(xiě)如下程序：Private Sub Form_Load() Text1.Text = Text2.Text = Text3.Text = End SubPrivate Sub Command1_Cl

12、ick() x = Val(Text1.Text)y = Val(Text2.Text) Text3.Text = f(x, y)End SubFunction f(ByVal x As Integer, ByVal y As Integer)Do While y 0 tmp = x Mod yx = yy = tmp Loopf = xEnd Function運(yùn)行程序，在Text1文本框中輸入36，在Text2文本框中輸入24，然后單擊命令按鈕，則Text3文本框中顯示的內(nèi)容()。A)4B)6 C)8D)121Text1，然后編寫(xiě)如下過(guò)程： Private Sub Text1_KeyDown

13、(KeyCode As Integer, Shift As Integer)Print Chr(KeyCode) End SubPrivate Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) Print Chr(KeyCode + 2)End Sub 程序運(yùn)行后把焦點(diǎn)移到文本框中此時(shí)如果敲擊“A”鍵則輸出結(jié)果()A）A AB）A BC）A CD）A D1 個(gè)命令按鈕，名稱為Command1DimFlagAsBooleanPrivateSubCommand1_Click() DimintNumAsInteger intNum=Input

14、Box(請(qǐng)輸入：) IfFlagThenPrintf(intNum) EndIfEndSub Functionf(XAsInteger)AsIntegerIfX 0 And a 10 And a 20 And a = 31,Text1.Text = t End Sub程序運(yùn)行后，如果從鍵盤上輸入16，則在文本框顯示的內(nèi)容。A) 旅游景點(diǎn)：長(zhǎng)城故宮 B) 旅游景點(diǎn)：長(zhǎng)城頤和園C) 旅游景點(diǎn)：頤和園 D) 旅游景點(diǎn)：故宮在窗體上畫(huà)一個(gè)名稱為L(zhǎng)abel1Private Sub Form_Click()Dim arr(10, 10) As IntegerDim i As Integer, j As I

15、nteger For i = 2 To 4For j = 2 To 4 arr(i, j) = i * Next j Next iLabel1.Caption = Str(arr(2, 2) + arr(3, 3)End Sub程序運(yùn)行后，單擊窗體，在標(biāo)簽中顯示的內(nèi)容是（）。A)12 B)13 C)14 D)15在下列關(guān)于鍵盤事件的說(shuō)法,正確的是() A）按下鍵盤的任意一個(gè)鍵都會(huì)引發(fā)KeyPress 事件B）大鍵盤上的”1”鍵和數(shù)字鍵盤的”1”鍵的Keycode碼相C）KeyDown和KeyUp的事件過(guò)程中有Keyascii參數(shù)Shift,keypress Keyascii$ASCIIForm

16、1“VisualBasic（）Form1.Name=VisualBasicForm1.Title=VisualBasicForm1.Caption=VisualBasicForm1.Text=VisualBasic54要判斷在文本框是否按了Enter鍵，應(yīng)在文本框的（ ）事件中判斷A）ChangeB）KeyDownC）Click55.以下關(guān)于MsgBox的敘述中，錯(cuò)誤的是（）A）MsgBox 函數(shù)返回一個(gè)整數(shù)MsgBoxMsgBoxMsgBox56.用來(lái)設(shè)置粗體字的屬性是( )A） FontItalicB） FontName C） FontBoldD） FontSize 57.以下敘述中錯(cuò)誤的

17、是（）事件過(guò)程是響應(yīng)特定事件的一段程序C）對(duì)象的方法是執(zhí)行指定操作的過(guò)程D）對(duì)象事件的名稱可以由編程者指定58.以下敘述中錯(cuò)誤的是（）KeyPressKeyPressKeyDownKeyUpA和a視作相同的字母KeyDownKeyUp11作不同的字符在窗體上畫(huà)一個(gè)名稱為L(zhǎng)abel1“VisualBasic”Command1 和 Command2、標(biāo)題分別為“開(kāi)始”和“停止”的命令按鈕，然后畫(huà)一個(gè)名稱為Timer1 的計(jì)時(shí)Interval500,如圖所示。編寫(xiě)如下程序：Private Sub Form_Load() Timer1.Enabled=False End SubPrivate Sub

18、Command1_Click() Timer1.Enabled=TrueEnd SubPrivate Sub Timer1_Timer() If Label1.Left 0 ThenElseEnd If Next kPrint pos, negEnd Sub以上程序的功能是，計(jì)算并輸出數(shù)組arr 中 10 個(gè)數(shù)的正數(shù)之和和pos 與負(fù)數(shù)之和neg，請(qǐng)?zhí)羁?。為了在運(yùn)行時(shí)把D:pic文件夾下的圖形文件a.jpg裝入圖片框Picture1 。11Command1Text1寫(xiě)如下代碼：DimSaveAllAsString PrivateSubCommand1_Click()Text1.Text = L

19、eft(UCase(SaveAll), 4) EndSub PrivateSubText1_KeyPress(KeyAsciiAsInteger)SaveAll=SaveAll+Chr(KeyAscii)EndSub程序運(yùn)行后，在文本框中輸入 abcdefg，單擊命令按鈕，則文本框中顯示的內(nèi)容是: Command1 的事件過(guò)程如下： Private Sub Command1_Click()Dim total As Integer total = s(1) + s(2) Print totalEnd SubPrivate Function s(m As Integer) As Integer S

20、tatic x As IntegerFor i = 1 To m x = x + 1Next i s = xEnd Function運(yùn)行程序第2 次單擊命令Command1 時(shí)輸出結(jié)果為第3 次單擊命令Command1時(shí)，輸出結(jié)果為：。本程序的功能是利用隨機(jī)數(shù)函數(shù)模擬投幣，方法是：每次隨機(jī)產(chǎn)生一個(gè)010Text1、Text2Text3，分別用于顯示用戶輸入投幣總次數(shù)、出現(xiàn)正面的次數(shù)和出現(xiàn)反面的次數(shù)，如圖所示。 Text1幣，分別統(tǒng)計(jì)出現(xiàn)正面、反面的次數(shù)，并顯示結(jié)果。以下是實(shí)現(xiàn)上述功能的程序，請(qǐng)?zhí)羁铡rivate Sub Command1_Click()Randomize n=CInt(Tex

21、t1.Text) n1=0n2=0For i=1 To r=Int(Rnd*2)If r=n1=n1+1Else n2=n2+1End If NextText2.Text=n1 Text3.Text=n2 End Sub三運(yùn)行程序?qū)懡Y(jié)果題（每小題 5 分，共 20 分）1.下面程序運(yùn)行時(shí)，若輸入Visual Basic Programming，則在窗體上輸出的是： Private Sub Command1_Click()Dim count(25) As Integer, ch As String ch = UCase(InputBox()For K = 1 To Len(ch)N = Asc(

22、Mid(ch, K, 1) - Asc(A)If N = 0 Thencount(N) = count(N) + 1 End IfNext KM = count(0)For K = 1 To 25If M count(K) Then M = count(K)End If Next K Print MEnd Sub結(jié)果： 2.Private Sub Command1_Click() x = 0For j = 1 To 30 Step 4 x = x + 1: y = 0For k = 1 To 20 Step 3 x = x + 1: y = y + 2 Next kNext jPrint x=; x, y