本專題介紹了面向對象程序設計思想和方法VB應用程序界面

Label顯示的標 型6~7型14~15各種類型的數(shù)據(jù)可以分為常量和變量常量是指在程序執(zhí)行過程中其值不能改變的單元或數(shù)據(jù)。變量是數(shù)據(jù)的一個區(qū)，在程序運行過程中，這些區(qū)中的值可以被改變。級）取余、+加、-減（7。關系運算有：=相等、<>不相等、<小于、>大于、<=小于等于、>=大于等于（8。含算以及這些運算所涉及到的數(shù)據(jù)。Abs(-x數(shù)Int(-4.1-2Val(“--Str(-“-4取字符串xnk30~100（（1）IfIfThen1Else2If條件表達式Then語句IfIfElseIf2ElseIfnEndifFortostepNextDoWhile過程：Sub處理過程名 自定義函數(shù)：Founction函數(shù)名（參數(shù)表）As類型名 End End OOP和的概念（必試+加試）13-11（20126）VisualBasic圖所示，該對象名是（） 名，CommandButton，Appearance，Command1C?！緟⒖即鸢浮恐械腃lick是 對象 B.屬性 C.本題考查的是面向對象設計中對象、屬性、方法、等概念。該對象的對象名應為“Command1。代碼中不存在屬性名，B選項也錯誤。而Click是按鈕的單擊名?！緟⒖即鸢浮?3-3（20093）下列關于對象的描述中，錯誤的是（對象的發(fā)生會驅動該對象相應處理過程的執(zhí)、、【參考答案】 VB常用控VB本改為“轉換，可在其屬性窗口（圖2）中將 圖 圖【參考答案】控件工具是（） VB類。1指向的是，2指向的是文本框，3指向的是框架，4指向的是按鈕，故答案選A【參考答案】【例13-6】(浙江省2012年6月會考)在VisualBasic中，如果要在Lab上顯示（） B.Lab.Text=“注意事項C.Lab.Caption=“注意事項 D.Label.Width=“注意事項【參考答案】 【例13-7在VisualBasic中用變量code學生的借閱卡編（“XS 則變量code的數(shù)據(jù)類型應說明為（） ）型數(shù)據(jù)，故答案選C。Integer是整數(shù)型，Single是單精度實數(shù)型，Date是日期型?！緟⒖即鸢浮?3-8（20123）VB（ 本題考查的是變量名規(guī)則。A選項中&不能作為變量名的組成部分，B選項中+不能作為變量名的組成部分，CAsD【參考答案】13-9VisualBasicDima（2to6）AsInteger的個數(shù)是（） 本題考查的是數(shù)組變量的定義形式：Dim數(shù)組變量名（A1ToA2）AS元素的類型。其a(4)、a(5)、a(65【參考答案】4VBVB13-10（20126VisualBasic56（ D.Abs(-VBMid(“”,5,3)是表示從字符串“53567，Len(“55”)+1“553Sqr(56)表示-55156，D。【參考答案】是（） 13\52,2Mod42.【參考答案】 D.Len(“-VBSqr(2)+1212.41421，Abs(-1)-2121，Asc(“1”)+21D。【參考答案】 C?！緟⒖即鸢浮?VB基本語[學習目標]掌握賦值、選擇和循環(huán)等基本語句的使用方法，學會使用y If【參考答案】y=y+1VB（）Ifa=0Andb=0ThenIfa*b=0ThenIfa=0,b=0ThenIfa,b=0ThenC和D【參考答案】13-1320126VisualBasicFori=10To_Step-1s=s*i*（i-Nextss*i*（i1）5i -1ss*i*（i1i1ii65【參考答案】13-1620139VislualBasicDoWhilex<x=x+2x DoDox1x<0x1。繼續(xù)判斷條件x1?！緟⒖即鸢浮?【例13-14】(浙江省2009年3月高考)窗體裝載過程可以對程序進行初始化。VB窗體裝載過程的名稱是（）本題考查的是處理過程的名稱，必須符合規(guī)則即對象名_的標準名。C【參考答案】13-15（2012）VisualBasicPrivateSubCommand1_Click()DimxAsInteger,iAsIntegerFori=1To10Step3x=i*(i+2)List1AddItemStr(x)NextiEndCommand1引起該錯誤的語句是（Fori=1To10Step B.x=i*(i+C.List1AddItem D.Nextxi*(i2)，并將x的值從列表框中顯示出來，則需要使用的正確的語句是List1.AddItemStr(x)，AddItemList1C【參考答案】PrivatesubObj_DblClick()End下列說法正確的是（該是一個單擊該過程的過為該是一個雙擊Interval（ C.1000：kg，據(jù)類型應定義為（） 13-4VisualBasicDima(9)AsInteger（ VB（）Val(Mid(s,5,1))ModVal(Mid(s,5,1))Mod13-6VisualBasicFori=1To10Step3s=s+iNextssi（ DimiAsInteger,cAsString,sAsString,tAsStrings="2017o":t=""Fori=1ToLen(s)c=Mid(s,i,1)Ifc>="a"Andc<="z"Thent=t+cNextiText1.Text=Text1（ B. D.201713-8VisualBasicFunction(xAsString,nAsInteger)AsStringIfLen(x)>nThen=xElse=""End該函數(shù)