VB語言基礎（二）（課件）-高考信息技術一輪復習考點掃描（浙江專用）

專題十七VB語言基礎（二）PART01語句作用是把賦值號(等號)右邊表達式的計算結果存儲到賦值號左邊的變量或某個特定的對象屬性中變量名＝表達式對象名．屬性名＝表達式對象名．屬性名＝屬性值例：a＝1＋2*3

a=b

Tex.Text=Str(a+b)

lab.Caption=“你好”

k=Val(Text2.Text)賦值語句也稱“分支結構語句”或“條件判斷語句”，用來表示選擇(條件)控制結構，使得程序在執(zhí)行過程中，根據(jù)不同的判斷結構，選擇執(zhí)行不同的處理。行if語句

If條件表達式Then語句If條件表達式Then語句1

Else語句2

選擇語句If條件表達式1Then

語句塊1ElseIf條件表達式2Then

語句塊2……ElseIf

條件表達式nThen

語句塊nElse

語句塊0EndIfIf

條件表達式Then

語句1Else

語句2EndifIf

條件表達式Then

語句Endif塊if語句循環(huán)語句是程序中實現(xiàn)重復控制的方法之一，常用的循環(huán)語句有For語句和Do語句。For循環(huán)語句：通過次數(shù)控制循環(huán)的計算過程。For語句主要用于循環(huán)次數(shù)已知的情況，因此，也被稱為計數(shù)循環(huán)。For語句一般格式如下：For循環(huán)變量＝初值To終值Step步長循環(huán)體語句塊Next循環(huán)變量循環(huán)語句通過條件控制循環(huán)的計算過程。常用格式如下：

Do

While條件表達式循環(huán)體語句塊

Loop一般情況下，F(xiàn)or語句都可以用Do語句來代替，而且在某些情況下，如果事先不知道循環(huán)應該執(zhí)行的次數(shù)，但我們知道在什么條件下需要循環(huán)，則不能用For語句而必須用Do語句。因此，Do語句的適用面比For語句要廣。Do循環(huán)語句小積累小積累注釋是以（‘）開頭的一串文字，可出現(xiàn)在程序中需要進行說明的位置上。注釋的作用僅僅是為了增加程序的可讀性，對程序執(zhí)行效果沒有任何影響。注釋語句輸入Inputbox()文本框輸出Msgbox()文本框標簽列表框x=val(Text1.Text)Text1.Text=str(x)Label1.caption=sList1.Additemstr(x)輸入輸出語句PART02運行中常見的幾種錯誤要求對象除數(shù)為零數(shù)據(jù)溢出下標越界類型不匹配未找到方法或數(shù)據(jù)成員子程序或函數(shù)未定義參數(shù)不可選無效的過程調用或參數(shù)語法錯誤PART03典例分析（2017金麗衢十二校卷，2分）以下VB代碼運行后，在文本框Text1中輸入1，則語句Ifk<=9Then執(zhí)行的次數(shù)為（）PrivateSubText1_Change() DimkAsInteger,iAsInteger k=Val(Text1.Text) Fori=1To3 Ifk<=9Thenk=k+i Nexti Text1.Text=Str(k)EndSubA.3 B.5 C.6 D.9D1PrivateSubCommand1_Click()

DimxAsInteger,iAsInteger Dima(1To10)AsInteger Fori=3To10Step2 a(i)=Int(Rnd()*40)-20 ′① x=Sqr(a(i)) ′② List1AdditemStr(x) ′③ Nexti Lable1.Caption=Str(Sum) ′④EndSub該程序多條語句出現(xiàn)錯誤，其中錯誤彈窗對應的序號錯誤的是（

）（2018改編，2分）某VB程序在界面設計時窗體上所有的對象都使用默認對象名稱，其中過程代碼如下：AC.③B.②A.①D.④2（2018改編，2分）有如下VB程序段：bianliang_a=3:bianliang_b=4Label1.Caption=“bianliang_a*bianliang_b”該程序段運行之后，標簽Label1將顯示()A.3*4

B.12C.bianliang_a*bianliang_b

D.3*4=12C3小提示（2018改編，2分）下列程序段中，可以實現(xiàn)交換變量x、y值的是()A.y=x:x=yB.z=x:y=z:x=yC.z=x:x=y:y=zD.z=x:w=y:y=z:x=yC小提示在程序設計中兩個任意類型的變量交換值的方式，需要引入第三方變量進行，但若是數(shù)值型變量，則下列語句也可以實現(xiàn)變量值的交換：a=a+b:b=a-b:a=a-b。4（2017.11浙江選考，2分）有如下VB程序段：n=0Fori=1ToLen(Text1.Text)c=Mid(Text1.Text,i,1)Ifc>=“0”Andc<=“9”Thenm=1Elsem=2a(m)=a(m)+1Ifa(m)=1Thenn=n+1Nexti數(shù)組a各元素的初始值都為0,文本框Textl的內容為“Happy2017”。執(zhí)行程序后，變量n的值為（）A.1 B.2 C.4 D.9B5（2018改編，2分）有如下程序段：PrivateSubForm_Click()DimcAsIntegerDimdAsIntegerc=4d=Val(InputBox(“請輸入一個數(shù)”)DoWhiled>0Ifd>cThe