高級語言程序設(shè)計（VB）學(xué)習(xí)通超星期末考試答案章節(jié)答案2024年

高級語言程序設(shè)計（VB）學(xué)習(xí)通超星期末考試章節(jié)答案2024年要實現(xiàn)鼠標指針指向文本框時顯示提示內(nèi)容，應(yīng)設(shè)置該文本框的（

）屬性。

答案:ToolTipText將文本框Text1的Text屬性設(shè)置為“Visual_Basic程序設(shè)計”，程序運行后，焦點在Text1中，若要自動選定文本框中的“Basic”，可通過（

）語句實現(xiàn)。

答案:Text1.SelStart=7

Text1.SelLength=5執(zhí)行（

）語句可以使文本框Text1獲得焦點。

答案:Text1.SetFocus從鍵盤向文本框中輸入字符時，不會觸發(fā)（

）事件。

答案:MouseDown要使文本框同時出現(xiàn)水平滾動條和垂直滾動條，應(yīng)設(shè)置其（

）。A

答案:Multiline屬性為True，ScrollBars屬性為3

下列關(guān)于文本框?qū)傩缘臄⑹?，正確的是（

）。

答案:

MaxLength屬性設(shè)置輸入文本的最大長度n=InputBox("請輸入商品金額:",200+100,"100")在彈出的對話框中輸入350，按回車鍵后，變量n的值為（

）。

答案:"350"執(zhí)行語句

y=MsgBox("用戶名或密碼錯誤！",5+64+256,"登錄")在彈出的對話框中顯示的圖標是（

）。

答案:

消息（i）圖標執(zhí)行語句

x=InputBox("請輸入成績",95,85)在彈出的對話框中按“確定”按鈕后，x的值為（

）。

答案:字符型85運行下列事件過程，窗體上顯示結(jié)果為（

）。

PrivateSubForm_Click()

DimxAsSingle

x=5

Ifx<1Then

Printx-1

ElseIfx<2Then

Print2*x-1

ElseIfx<3Then

Print3*x-1

Else

Printx^2-1

EndIf

EndSub

答案:24窗體上有文本框Text1和命令按鈕Command1，有如下事件過程：PrivateSubCommand1_Click()

Dimi%

a=Val(Text1.Text)

Ifa>＝60Then

i=4

ElseIfa>＝70Then

i=3

ElseIfa>＝80Then

i=2

ElseIfa>＝90Then

i=1

EndIfEndSub運行時，在Text1中輸入75后單擊Command1按鈕，i的值為（

）。

答案:4執(zhí)行以下程序段后，窗體顯示的內(nèi)容為（

）。Dimx%,y%

x=15:y=20

Ifx>y

Thenx=y-x

Else

y=y+x

Form1.Printx,y

答案:15

35

窗體上有文本框Text1和命令按鈕Command1，有如下事件過程：PrivateSubCommand1_Click()

Dimi%

i=Val(Text1.Text)

SelectCasei

Case1:j="+"

Case2:j="-"

Case3:j="*"

CaseElse:j="非法"

EndSelect

Text1.Text=j

EndSub運行時，在Text1中輸入0后單擊Command1按鈕，Text1中內(nèi)容是（

）。

答案:非法使命令按鈕Command1的外觀顯示為圖形樣式，可以設(shè)置其（

）和Picture屬性。

答案:Style復(fù)選框具有（

）屬性。

答案:Value單選按鈕不具有的屬性為（

）。

答案:Checked窗體上有復(fù)選框Check1，則語句Check1.Value=2的功能是（

）。

答案:復(fù)選框內(nèi)出現(xiàn)灰色的鉤對于單選按鈕和復(fù)選框，下列敘述正確的是（

）。

答案:單選按鈕和復(fù)選框的Enabled屬性值可以是True或False窗體上有復(fù)選框Check1和標簽Label1，實現(xiàn)復(fù)選框選中與否決定標簽中的文字是否加下劃線，正確的代碼是（

）。

答案:PrivateSubCheck1_Click()

Label1.FontUnderline=Check1.ValueEndSub窗體上有文本框Text1和垂直滾動條VScroll1，滾動條的Max設(shè)為100，Min為0；要實現(xiàn)隨著滾動條的滑塊從上向下移動，Text1中的值相應(yīng)地從100到0變化，可在滾動條的Scroll事件中編寫代碼（

）。

答案:Text1.Text=100-VScroll1.Value按住鼠標左鍵移動滾動條滑塊發(fā)生了一系列的Scroll事件，當(dāng)放開鼠標左鍵時還發(fā)生了（

）事件。

答案:Change使用滾動條控件的時候，以下說法錯誤的是（

）。

答案:Min屬性支持的最小值為0要使計時器控件能正常運行Timer事件過程，應(yīng)具備的兩個條件是（

）。

答案:Enabled屬性為True和Interval屬性非0窗體上有命令按鈕Command1，編寫下列事件過程：

PrivateSubCommand1_Click()

DimxAsInteger,nasInteger

n=0:x=1

DoWhilex<10

x=(x+1)*(x+2)

n=n+1

Loop

EndSub運行時，單擊Command1按鈕，n和x的值分別是（

）。

答案:2和56執(zhí)行下列事件過程后，x的值是（

）。Dimx$,n%,a%

PrivateSubCommand1_Click()

n=13

DoWhilen<>0

a=nMod2

n=n\2

x=Chr(48+a)&x

Loop

EndSub

答案:1101下列代碼執(zhí)行后，標簽Label1中顯示（

）。Dimi%,s%

i=1:s=0

DoWhilei<=7

s=s+i

i=i+2

Loop

Label1.Caption=Str(s)

答案:16下列程序段的功能是:1~100自然數(shù)在窗體上顯示，且每行顯示4個自然數(shù)。

Dimi%,n%

Fori=1To100

【1】

n=n+1

If【2】ThenPrint

Nexti程序的空缺處【1】和【2】應(yīng)分別填寫（

）。

答案:Printi,和nmod4=0為了使計時器控件Timer1每隔0.1秒觸發(fā)一次Timer事件，應(yīng)將Timer1的Interval屬性設(shè)置為（

）。

答案:100下列有關(guān)計時器的敘述中，正確的是（

）。

答案:程序運行時計時器不可見，所以其位置無關(guān)緊要選擇列表框List1的第二個列表項，可以使用語句（

）。

答案:List1.Selected(1)=True引用列表框的倒數(shù)第二項應(yīng)使用()。

答案:List1.List(List1.ListCount-2)設(shè)組合框Combo1中有3個項目，則以下能刪除最后一項的語句是()。

答案:Combo1.RemoveItem2如果列表框（List1）中沒有被選定的項目，則執(zhí)行List1.RemoveItemList1.ListIndex語句的結(jié)果是()。

答案:以上都不對假如列表框（List1）有四個數(shù)據(jù)項，那么把數(shù)據(jù)項“China”添加到列表框的最后，應(yīng)使用()語句。

答案:List1.AddItem"China"下面正確使用動態(tài)數(shù)組的是（）。

答案:Dimarr()AsInteger

…

ReDimarr(3,5)以下數(shù)組定義語句中，錯誤的是（）。

答案:Dimd(-10)在缺省情況下，若用二維數(shù)組存儲以下數(shù)據(jù)，（

）數(shù)組聲明語句能實現(xiàn)（不能浪費空間）。2.1

4.8

7.33.5

2.4

6.87.2

8.1

7.3

答案:Dima(-3To-1,-5To-3)AsSingle如下數(shù)組聲明語句，正確的是（）。

答案:Dima(3,4)asInteger數(shù)組聲明語句Dim

a(2to3,-2to2,3to5)中，數(shù)組a包含元素的個數(shù)為（）。

答案:30以下關(guān)于函數(shù)過程的敘述中錯誤的是（）。

答案:函數(shù)過程一定有參數(shù)設(shè)程序中有如下數(shù)組定義和過程調(diào)用語句：Dima(10)

AsInteger……Callp(a)如下過程定義中，正確的是（）。

答案:PrivateSubp(a()AsInteger)設(shè)有以下函數(shù)過程PrivateFunctionFun(a()AsInteger,bAsString)AsInteger...EndFunction若已有變量聲明：Dimx(5)

AsInteger,

nAsInteger,

chAsString則下面正確的過程調(diào)用語句是（）。

答案:x(0)=Fun(x,"ch")有如下過程代碼：Subvar_dim()StaticnumaAsIntegerDimnumbAsIntegernuma=numa+2numb=numb+1printnuma;mumbEndSub連續(xù)3次調(diào)用var_dim過程，第3次調(diào)用時的輸出是（）。

答案:61設(shè)有一個命令按鈕Command1的事件過程以及一個函數(shù)過程。程序如下：PrivateSubCommand1_Click()StaticxAsIntegerx=f(x+5)ClsPrintxEndSubPrivateFunctionf(xAsInteger)AsIntegerf=x+xEndFunction連續(xù)單擊命令按鈕3次，第3次單擊命令按鈕后，窗體上顯示的計算結(jié)果是（）。

答案:70設(shè)有如下程序：Subf(xAsInteger,ByValyAsInteger)

x=2*x

y=y+xEndSubPrivateSubCommand1_Click()

DimaAsInteger,bAsInteger

a=6:b=35

Callf(a,b)

Printa,bEndSub程序運行后，單擊命令按鈕Command1，輸出結(jié)果為（）。

答案:12

35窗體上有一個名稱為Command1的命令按鈕，其中部分代碼如下：PrivateSubCommand1_Click()

Dima(10)AsInteger

DimnAsInteger

……

Callcalc(a,n)

……EndSubcalc過程的首行應(yīng)該是（）。

答案:Subcalc(x()AsInteger,nAsInteger)下面定義模塊級變量a的語句中錯誤的是（）。

答案:Statica%運行以下的程序,單擊命令按鈕Command1，則在文本框中顯示的內(nèi)容是（

）。PrivateSubCommand1_Click()

DimxAsInteger,yAsInteger

x=3:y=5

Text1.Text=""

Callp1(x,y)

Text1.Text=Str(x)+"

"+Str(y)EndSubSubp1(aAsInteger,bAsInteger)

a=a+b

b=a-bEndSub

答案:8

3運行以下程序，顯示的結(jié)果為（

）。PublicSubF1(ByValn%,ByRefm%)

n=nMod10

m=m\10

EndSub

PrivateSubCommand1_Click()

Dimx%,y%

x=34:y=12

CallF1(x,y)

Printx,y

EndSub

答案:34

1關(guān)于坐標系統(tǒng)，以下說法正確的是（

）。

答案:ScaleWidth和ScaleHeight屬性可改變?nèi)萜鲗ο蟾叨群蛯挾鹊目潭葐挝幌铝袛⑹鲋校e誤的是（

）。

答案:Point方法用于畫點下列（

）語句可在窗體上畫一個紅色實心矩形。

答案:Form1.Line(500,500)-(2000,2000),vbRed,BF下列關(guān)于圖片框（PictureBox）與圖像框（Image）的敘述，錯誤的是（

）。

答案:圖像框控件可以作為容器要使圖像框控件可以自動改變大小以適應(yīng)其中的圖像，應(yīng)設(shè)置其（

）屬性為False。

答案:Stretch