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

VB程序設(shè)計學(xué)習(xí)通超星期末考試章節(jié)答案2024年VB有兩大類對象:窗體和控件。(

)

答案:對順序文件以ForInput方式打開，可進(jìn)行寫入操作。(

)

答案:錯SelectCase語句實現(xiàn)的是循環(huán)結(jié)構(gòu)。(

)

答案:錯用Array函數(shù)初始化的數(shù)組必須是Variant類型。(

)

答案:對按值傳遞參數(shù)，形參和實參的類型可以不同。(

)

答案:對每一個If結(jié)構(gòu)必須以EndIf語句作為結(jié)束。(

)

答案:錯MsgBox函數(shù)可用來接受用戶輸入的字符串內(nèi)容。(

)

答案:錯命令按鈕最常見的事件是單擊(click)事件。(

)

答案:對標(biāo)簽和文本框的功能都是在程序運行時只能顯示文本內(nèi)容不能編輯文本內(nèi)容。(

)

答案:錯VB程序始終從第一條語句開始執(zhí)行。(

)

答案:錯設(shè)有語句open"D:\Test.Dat"ForOutputAs#1，則以下錯誤的敘述是(

)

答案:該語句一定是打開D盤根目錄下一個己存在的文件Test.Dat對于一個有序排列的數(shù)組，如果需要查找某個數(shù)組元素，采用最快的查找方法是(

)

答案:折半查找設(shè)有如下的代碼TypePerson

nameAsString*8

ageAsIntegerEndTypeDimpAsPerson下面說法錯誤的選項是()

答案:TypePerson是自定義數(shù)據(jù)類型財務(wù)報告按照VB默認(rèn)規(guī)定，以下對數(shù)組dima(3，5)中數(shù)組元素引用錯誤的是(

)

答案:a(3,6)在VB中，過程共有三種，它們是()

答案:事件過程，子過程和函數(shù)過程Sub過程與Function過程最根本的區(qū)別是(

)

答案:Sub過程的過程名不能返回值，而Function過程能通過過程名返回值下面可以正確定義2個整形變量和1個字符串變量的語句的是(

)

答案:Dimx%,yAsInteger,zAsString定義變量如下:DimMyVarMyVar="comeseeme"若在窗體中顯示MyVar的值，則在代碼窗口中書寫的語句正確的是(

)

答案:PrintMyVar根據(jù)變量的作用域，VB中可以將變量分為3類，分別是(

)

答案:局部變量、模塊變量和全局變量在窗體上畫1個命令按鈕，并編寫如下事件過程:PrivateSubCommand1_Click()

Fori=5to1step-0.8

PrintInt(i);

NextiEndSub運行程序，單擊命令按鈕，窗體上顯示的內(nèi)容為(

)

答案:543211設(shè)有語句x=InputBox("輸入數(shù)值"，"0"，"示例")程序運行后，如果從鍵盤上輸入數(shù)值10并按回車鍵，則下列敘述中正確的是(

)

答案:變量x的值是字符串"10"設(shè)窗體上有一個文本框，名稱為Text1，程序運行后，要求該文本框不能接受鍵盤輸入，但能輸出信息，以下屬性設(shè)置正確的是(

)

答案:Text1.Enabled=False對于MsgBox顯示的消息框，下面________是錯誤的(

)

答案:可以有四個按鈕無論何種控件，都具有一個共同的屬性(

)

答案:Name要改變窗體的標(biāo)題時，應(yīng)當(dāng)在屬性窗口中改變的屬性是(

)

答案:Caption某一VB工程含F(xiàn)1、F2兩個窗體，執(zhí)行"F1.Show:F2.Hide"語句后，F(xiàn)1、F2窗體顯示的結(jié)果為(

)

答案:顯示F1窗體以下四個選項中，對VisualBasic描述正確的是(

)

答案:一個VisualBasic應(yīng)用程序可以包含多個窗體文件用時鐘控件設(shè)置一個秒表計時器，需將計時器Interval屬性設(shè)置為(

)

答案:1000執(zhí)行語句s=Len(Mid("BeiJing",1,7))后，s的值是(

)

答案:7以下均為窗體的事件，在一次程序執(zhí)行過程中，一定會被觸發(fā)的事件是(

)

答案:LoadVB中布爾型(Boolean)的值只有True和False。(

)

答案:對命令按鈕的Enabled屬性為False表示該命令按鈕不可見。(

)

答案:錯根據(jù)文件的存取方式不同，可以將文件分為順序文件和隨機(jī)文件。(

)

答案:對復(fù)選框選中時，其Value屬性為True。(

)

答案:錯確定一個控件在窗體上的位置的屬性是Left、Top。(

)

答案:對局部變量可以用Static定義。(

)

答案:對若參數(shù)是按地址傳遞的，形參和實參類型可以不同。(

)

答案:錯Sub子過程的過程名不能和同一級別的變量重名。(

)

答案:對改變文本框的Text屬性值時，觸發(fā)change事件。(

)

答案:對VB是一種面向過程的程序設(shè)計語言。(

)

答案:錯以下敘述中正確的是(

)

答案:使用Input#語句可以從順序文件中讀取數(shù)據(jù)lineinput#1,str1的意思是(

)

答案:從1號文件中讀出一行數(shù)據(jù)賦予str1關(guān)于語句optionbase1的正確說法是()

答案:聲明數(shù)組下標(biāo)的默認(rèn)下界下面子過程語句說明合法的是(

)

答案:Functionf1%(xAsInteger)有關(guān)VB應(yīng)用程序中過程的說法正確的是()

答案:過程的定義不可以嵌套，但過程的調(diào)用可以嵌套單擊一次命令按鈕后，下列程序的執(zhí)行結(jié)果是(

)PrivateSubCommand1_Click()

s=P(1)+P(2)+P(3)+P(4)

PrintsEndSubPublicFunctionP(NAsInteger)

StaticSum

Fori=IToN

Sum=Sum+i

Nexti

P=SumEndFunction

答案:35使用Function語句定義一個函數(shù)過程，其返回值的類型為(

)

答案:由函數(shù)定義時As子句聲明如果要存儲小數(shù)3.14，則下列變量聲明正確的是(

)

答案:DimaAsSingle立即窗口執(zhí)行以下操作，則輸出的結(jié)果是(

)a=10:b=15debug.Printa>b

答案:False在以下表達(dá)式中結(jié)果始終為"真"的是(

)

答案:Int(Rnd)=Fix(Rnd)在窗體上畫一個文本框、一個標(biāo)簽和一個命令按鈕，其名稱分別為Text1、Label1和Command1，然后編寫如下兩個事件過程:PrivateSubCommand1_Click()S$=InputBox("請輸入一個字符串")Text1.Text=S$EndSubPrivateSubText1_Change()Label1.Caption=UCase(Mid(Text1.Text,7))EndSub程序運行后，單擊命令按鈕，將顯示一個輸入對話框，如果在該對話框中輸入字符串"VisualBasic"，則在標(biāo)簽中顯示的內(nèi)容是(

)

答案:BASIC以下能夠觸發(fā)文本框Change事件的操作是(

)

答案:改變文本框的內(nèi)容語句a=InputBox("today","tomorrow","yesterday",,,"daybeforeyesterday",5)將顯示一個對話框，在對話框的輸入?yún)^(qū)中顯示的信息是(

)

答案:yesterday設(shè)在名稱為Myform的窗體上只有一個名稱為C1的命令按鈕，下面敘述正確的是(

)

答案:命令按鈕的Click事件過程名是C1_Click()為了給三個變量賦初值1，下面正確的賦值語句是(

)

答案:x=1:y=1:z=1下面選項中VisualBasic數(shù)據(jù)類型關(guān)鍵字與其說明符不一致的是(

)

答案:Integer

!下面程序運行后，第3次單擊窗體后，窗體中輸出的是(

)DimaAsIntegerPrivateSubForm_Click()

StaticcAsInteger

Cls

答案:=c+1Printa;b;cEndSubA.1

1

1B.1

1

3C.3

1

3以下循環(huán)結(jié)構(gòu)中，任何情況下至少執(zhí)行一次循環(huán)體的是(

)

答案:Do循環(huán)體LoopUntil下面表達(dá)式值為True的是(

)

答案:Not3>5下面關(guān)于過程敘述錯誤的是(

)

答案:函數(shù)過程可以返回多個值執(zhí)行下面的程序段，文本框Text1中顯示的是_______。

DimiAsInteger,jAsInteger

i=1

DoWhilei<30

j=i+j

i=i*(i+3)

Loop

Text1.Text=j

答案:33閱讀下面程序，當(dāng)單擊窗體后，窗體上輸出的是___________。

PrivateSubForm_Click()

DimiAsInteger,jAsInteger

DimkAsInteger

Fori=1To10Step3

Forj=1To10Step2

Ifj>=5Theni=i+3:ExitFor

j=j+1

k=k+1

Nextj

Ifi>8ThenExitFor

Nexti

Printi;j;k

EndSub

答案:1074下面程序段的運行結(jié)果為________。

Fori=1To5

n=1

Forj=1Toi

n=n*j

Next

j

Printn;

Next

i

答案:12624120用Array函數(shù)初始化的數(shù)組必須是Variant類型。

答案:對若參數(shù)是按地址傳遞的，形參和實參類型可以不同。

答案:錯VB是一種面向過程的程序設(shè)計語言。

答案:錯VB有兩大類對象：窗體和控件。

答案:對VB中三種文件訪問的類型為___________。

答案:順序、隨機(jī)、二進(jìn)制執(zhí)行語句Open"Tel.Dat"ForRandomAs#1Len=50后，對文件Tel.Dat中的數(shù)據(jù)能夠執(zhí)行的操作是。

答案:既可以讀，也可以寫如果改變驅(qū)動器列表框的Drive屬性，則將觸發(fā)驅(qū)動器列表框的事件是。

答案:Change關(guān)于隨機(jī)文件，以下敘述中錯誤的是______。

答案:隨機(jī)文件記錄中，每個字段的長度是固定的以下能判斷是否到達(dá)文件尾的函數(shù)是_____。

答案:EOF()為了讀取數(shù)據(jù)，需要打開順序文件“D:\data5.txt”，以下正確的命令是。

答案:Open"E:\UserData.txt"ForInputAs#2下面關(guān)于順序文件的描述正確的是___________。

答案:數(shù)據(jù)只能以ASCII碼形式存放在文件中，可通過文本編輯軟件顯示為了建立一個隨機(jī)文件，其中每一條記錄由多個不同數(shù)據(jù)類型的數(shù)據(jù)項組成，應(yīng)使用___________。

答案:記錄類型在VB中，函數(shù)過程與子程序過程的區(qū)別之一是___________。

答案:函數(shù)過程有返回值，而子程序過程沒有在語句PublicSubSort(IAsInteger)中，I是一個按___________傳遞的參數(shù)。

答案:地址假設(shè)通用聲明段中有語句Optionbase1，過程中定義數(shù)組：Dima(6)asInteger，則以下引用數(shù)組元素的語句中正確的是_______。

答案:a(n+3)=a(n+1)+a(n+2)如果希望動態(tài)數(shù)組在重定義后還能保留原來的內(nèi)容，應(yīng)用______關(guān)鍵字。

答案:Preserve以下定義數(shù)組的語句中，正確的是______。

答案:Dima(-3To2000)AsSingle下列運算符中，優(yōu)先級最低的是________。

答案:And下面為單精度實型（即單精度浮點型）變量的是___________。

答案:x!產(chǎn)生100以內(nèi)（不含100）2位隨機(jī)整數(shù)的表達(dá)式是________。

答案:Int(Rnd*90+10)下列表述中不能判斷x是否為偶數(shù)的是________。

答案:x\2=0執(zhí)行語句代碼PrintFormat(4567.678,”##,#0.00”)，以下_________是正確結(jié)果。

答案:4,567.68針對變量定義語句DimstAsString*8，下面說法錯誤的是_________。

答案:以8個字位，即一個字節(jié)位單位存儲相應(yīng)變量。表達(dá)式Left("howareyou",3)的值是______。

答案:how求一個三位正數(shù)N的十位數(shù)的正確方法是______。

答案:n\10Mod10OptionExplicit語句不可以放在______。

答案:任何事件過程中表達(dá)式2*3^2+2*8/4+3^2的值為_____。

答案:31在程序中分別將變量IntA、Bl、st和D定義為整型、布爾型、字符串型和日期型，下列賦值語句在執(zhí)行時會出錯的是____。

答案:Bl=#True常量2.4536D-02的類型是________。

答案:雙精度要強(qiáng)制顯示聲明變量，可在窗模塊或標(biāo)準(zhǔn)模塊的聲明段中加入語句______。

答案:OptionExplicit如果x是一個正實數(shù)，對x的第3位小數(shù)四舍五入的表達(dá)式是______。

答案:0.01*Int(100*(x+0.005))設(shè)組合框Combo1中有3個項目，則以下能刪除最后一項的語句是_______。

答案:Combo1.Removeitem2若要清除列表框控件中的所有列表項，應(yīng)該使用的方法是________。

答案:Clear下面關(guān)于菜單的敘述中正確的是________。

答案:為了使得選中一個菜單項就可以執(zhí)行某種操作，要為它的Click事件過程編寫執(zhí)行該操作的代碼下面控件中，沒有Caption屬性的是

。

答案:組合框為了暫時關(guān)閉計時器，應(yīng)把它的一個屬性設(shè)置為Fa1se，這個屬性是。

答案:Enabled要使圖像框（Image）中的圖像能隨著圖像框的大小伸縮，應(yīng)該設(shè)置的屬性及值是___________。

答案:Stretch值為True當(dāng)一個PictureBox控件的AutoSize屬性為True時，在該控件中載入一個比控件的高度與寬度都大的圖片時，圖片的大小與控件的大小相比是_____。

答案:相等判斷復(fù)選框是否被選中的屬性為________。

答案:Value以下能夠觸發(fā)文本框Change事件的操作是___________。

答案:改變文本框的內(nèi)容若設(shè)置了文本框的屬性PasswordChar="a"，則運行程序時向文本框中輸入8個任意字符后，文本框中顯示的是。

答案:8個“a”設(shè)有一個命令按鈕，若要實現(xiàn)按回車鍵等同按此鍵，應(yīng)設(shè)置其_________。

答案:Default屬性設(shè)為True要改變窗體左上角的圖標(biāo)顯示圖片，應(yīng)使用屬性________。

答案:Icon以下關(guān)于窗體的描述中，錯誤的是________。

答案:執(zhí)行UnloadForm1語句后，窗體Form1消失，但仍在內(nèi)存中確定一個控件在窗體上的位置的屬性是。

答案:Top和Left在VisualBasic中不能關(guān)閉的窗口是______。

答案:工程窗口為了清除窗體上的一個控件，下列正確的操作是________。

答案:選擇（單擊）要清除的控件，然后按Del鍵以下不屬于VisualBasic系統(tǒng)的文件類型是________。

答案:bat以下有關(guān)對象屬性的說法中正確的是________。

答案:對象的某些屬性既可以在屬性窗口中設(shè)置，也可以通過程序代碼設(shè)置或改變VB是一種面向________的程序設(shè)計語言。

答案:對象控件數(shù)組是通過_____來區(qū)分控件數(shù)組元素的。

答案:Index屬性如果幾個控件具有相同的_____屬性，則這些控件可定義為控件數(shù)組。

答案:Name下列關(guān)于全局變量的正確敘述為(

)

答案:在“通用聲明”段中用Public聲明的變量在VB的窗體或標(biāo)準(zhǔn)模塊的通用聲明區(qū)用Dim語句聲明的變量稱為（

）。

答案:模塊級變量在過程中定義的變量，若希望在離開該過程后，還能保存過程中局部變量的值，則應(yīng)使用（

）關(guān)鍵字在過程中定義局部變量。

答案:Static使用Redim重定義動態(tài)數(shù)組時的下標(biāo)可以用變量來表示。

答案:對使用Redim語句既可以改變數(shù)組的大小，也可以改變數(shù)組類型。

答案:錯數(shù)組中每個元素的數(shù)據(jù)類型是不同的。

答案:錯數(shù)組中每個元素的下標(biāo)是不同的。

答案:對可以同時刪除字符前導(dǎo)和尾部空白的函數(shù)是（）。

答案:Trim語句Printchr(65)的輸出結(jié)果是

答案:A語句PrintSgn(-5^2)+Abs(-5^2)+int(-5^2)的輸出結(jié)果是（）

答案:-1.0設(shè)a=5，b=10，則執(zhí)行c=Int((b-a)*Rnd+a)+1后，c值的范圍為（）。

答案:6～10VB中運算符的優(yōu)先順序是（）。

答案:算術(shù)運算符>字符串運算符>關(guān)系運算符>邏輯運算符函數(shù)Len("ABC程序設(shè)計")的結(jié)果是（）。

答案:7.0以下合法的一組VisualBasic用戶標(biāo)識符是（）。

答案:ForLoop和Total下列可作為VisualBasic變量名的是（

）。

答案:Alpha下列（）是合法的字符常量。

答案:"ABC"賦值語句的功能是計算表達(dá)式值并轉(zhuǎn)換為相同類型數(shù)據(jù)后為變量或控件屬性賦值。（）

答案:對在一行內(nèi)寫多條語句時，每個語句之間用（）來分隔。

答案:：能夠被計算機(jī)直接識別的計算機(jī)語言是（）

答案:機(jī)器語言與傳統(tǒng)的程序設(shè)計語言相比，VisualBasic最為突出的特點是（）

答案:可視化、事件驅(qū)動編程機(jī)制下面（）不是VB6.0的工作模式

答案:調(diào)試VB集成開發(fā)環(huán)境中不包括（）

答案:消息窗口窗體中放置的控件是（）

答案:對象菜單一旦建成后，所有的菜單項均可識別Click事件。（

）

答案:錯VB支持彈出菜單，所謂“彈出菜單”是指單擊鼠標(biāo)后打開的菜單。

答案:錯Dima1,a2asinteger語句聲明變量a1和a2都為整型變量。（

）

答案:錯在一個語句內(nèi)寫多條語句時，每個語句之間用：符號分隔。（

）

答案:對賦值語句的功能是計算表達(dá)式值并轉(zhuǎn)換為相同類型數(shù)據(jù)后為變量或控件屬性賦值。（

）

答案:對VisualBasic是一種基于對象的高級程序設(shè)計語言，構(gòu)成對象的三要素是（

）。

答案:屬性、事件、方法一個VisualBasic應(yīng)用程序至少應(yīng)該包含（）

答案:frm文件和.vbp文件用來描述對象狀態(tài)的是（

）

答案:屬性Visual

Basic是一種基于對象的高級程序設(shè)計語言，它采用的是（

）驅(qū)動方式。

答案:事件VisualBasic的窗體設(shè)計器主要是用來（

）

答案:建立用戶界面窗體和控件的描述及其屬性的設(shè)置保存在（）文件中。

答案:窗體設(shè)a=2,b=3,c=4,d=5，表達(dá)式：a>bandc<=dor=""a="">c的值是（

）。

答案:F表達(dá)式sgn(10mod6)&20的值是（）。

答案:120.0符號％是聲明（

）類型變量的類型定義符。

答案:Integer表達(dá)式Int(-17.4)+sgn(17.4)的值是（）。

答案:-17.0下列可作為VB中所允許的形式的數(shù)是（

）。

答案:12E3賦值語句:a=123+Mid("123456"，3，2)執(zhí)行后，a變量中的值是（）。

答案:157.0有下列語句Dima,bAsIntegerc="VisualBasic"d=#7/20/2005#下列關(guān)于這段代碼的敘述中錯誤的是（

）。

答案:a被定義為Integer類型變量在窗體上畫一個名稱為Command1的命令按鈕和一個名稱為Text1的文本框，在文本框中輸入以下字符串:MicrosoftVisualBasicProgramming然后編寫如下事件過程:

PrivateSubCommand1_Click()

Open"D:\Temp\Outf.Txt"ForOutputAs#1

ForI=1ToLen(Text1.Text)

C=Mid(Text1.Text,I,1)

IfC>="A"AndC<="Z"Then

Print#1,Lcase(C);

EndIf

NextI

Close

EndSub程序運行后,單擊命令按鈕后,文件Outf.Txt中的內(nèi)容是__________。

答案:mvbp假定在工程文件中有一個標(biāo)準(zhǔn)模塊，其中定義了如下記錄類型：TypeBooks

NameasString*10TelNumAsString*20EndType要求在執(zhí)行事件過程Command1_Click()時，在順序文件Person.txt中寫入了一條記錄。將以下程序補充完整。PrivateSubCommand1_Click()

DimBAsBooks

Open"C:\Person.txt"ForRandomAs#1

B.name=InputBox("請輸入姓名"）

B.TelNum=InputBox("請輸入電話號碼"）

Write#1,

Close

#1EndSub空格處應(yīng)填入__________。

答案:B.Name,B.TelNum文件d:\city.txt的內(nèi)容如下：BeiJingTianJinShangHaiChongQing編寫如下事件過程：PrivateSubForm_click()

DimInD

Open"d:\city.txt"ForInputAs#1

DoWhileNotEOF(1)

LineInput#1,InD

Loop

Close1

PrintInDEndSub運行程序，單擊窗體，輸出結(jié)果是

。

答案:ChongQing下面有關(guān)文件管理控件的說法，正確的是_______。

答案:改變驅(qū)動器列表框的ListIndex屬性值，會改變Drive屬性值并觸發(fā)Change事件要使得文件列表框File1中只顯示文件擴(kuò)展名為jpg的圖片文件，則下列正確的語句是。

答案:File1.Pattern="*.Jpg"在窗體上畫一個名稱為Drive1的驅(qū)動器列表框，一個名稱為Dir1的目錄列表框。當(dāng)改變當(dāng)前驅(qū)動器時，目錄列表框應(yīng)該與之同步改變。設(shè)置兩個控件同步的命令放在一個事件過程中，這個事件過程是。

答案:Drive1_Change以下有關(guān)文件的敘述中，正確的是___________。

答案:在隨機(jī)文件中，每個記錄的長度是固定的下面關(guān)于文件敘述中錯誤的是_____。

答案:順序文件的記錄是順序存放的，可以按記錄號直接訪問某個記錄能對順序文件進(jìn)行輸出操作的語句是_____。

答案:Write設(shè)有語句Open“C:\Test.Dat”ForOutputAs#1則以下敘述中錯誤的是。

答案:該語句打開C盤目錄下一個名為Test.Dat的文件，如果該文件不存在則創(chuàng)建該文件出錯關(guān)于二進(jìn)制文件說法錯誤的是_____。

答案:二進(jìn)制文件是ASCII文件隨機(jī)文件在一次打開期間，____。

答案:既可讀，又可寫下列關(guān)于文件的描述,錯誤的是。

答案:隨機(jī)文件的操作與順序文件相同下面關(guān)于文件敘述中錯誤的是。

答案:順序文件的記錄是順序存放的，可以按記錄號直接訪問某個記錄順序文件在一次打開期間，。

答案:或者只讀，或者只寫以下不屬于VisualBasic數(shù)據(jù)文件的是。

答案:數(shù)據(jù)庫文件為了保存數(shù)據(jù)，需打開順序文件"E:\UserData.txt",以下正確的命令是。

答案:Open"E:\UserData.txt"ForOutputAs#2以下關(guān)于文件的敘述中，錯誤的是_________。

答案:順序文件中各記錄的長度是固定的下面關(guān)于VB數(shù)據(jù)文件的敘述中錯誤的是。

答案:VB應(yīng)用程序不能把一個二維表格中的數(shù)據(jù)存入文件以下敘述中正確的是___________。

答案:隨機(jī)文件中每個記錄的長度是固定的以下關(guān)于文件的敘述中，錯誤的是___________。

答案:隨機(jī)文件中記錄的長度是隨機(jī)的下面關(guān)于隨機(jī)文件的描述不正確的是___________。

答案:一個文件中記錄號不必唯一在使用OPEN語句打開文件時，如果省略"for子句"，則打開的文件存取方式為___________。

答案:隨機(jī)存取方式向已有數(shù)據(jù)的C:\test\test.txt文件添加數(shù)據(jù)，正確的文件打開命令是___________。

答案:Open"C:\test\test.txt"ForAppendAs#511若磁盤文件C:\Data1.dat不存在，下列打開文件語句中，會產(chǎn)生錯誤的是___________。

答案:Open"C:\Data1.dat"ForInputAs#2運行下面的程序，顯示結(jié)果是___________。

PrivateFunctiondigit(nAsInteger,kAsInteger)AsInteger

digit=0

DoWhilek>0

digit=nMod10

n=n\10:k=k-1

Loop

EndFunction

PrivateSubForm_Click()

Printdigit(3456,4);

Printdigit(3456,3)

EndSub

答案:34運行下列程序，依次點擊第一個和第二個按鈕，結(jié)果為___________。

DimaAsInteger

'在窗體通用部分定義a為窗體模塊級的變量

PrivateSubCommand1_Click()

DimbAsInteger

a=50

b=80

EndSub

PrivateSubCommand2_Click()

DimbAsInteger

Printa;

Printb

EndSub

答案:500運行下面的程序，第二行顯示結(jié)果是_____。

PrivateSubCommand1_Click()

Dima(5)AsInteger

Fori=1To5

a(i)=i*i

Printa(i);

Next

i

Print

fa

Fori=1To5

Printa(i);

Next

i

EndSub

PrivateFunctionf(b()AsInteger)

Fori=LBound(b)ToUBound(b)

b(i)=b(i)+5

Next

i

EndFunction

答案:69142130運行下面的程序，第二行顯示結(jié)果是___________。

OptionBase1

PrivateSubForm_Click()

Dima,b(),i,j,k

a=Array(2,3,4,5,6,7,8,9,10)

ReDimb(3,3)

Callread(a,b)

Callprt(b)

EndSub

PrivateSubread(a,b)

Fori=1To3

Forj=1To3

k=k+1

b(i,j)=a(k)

Nextj

Nexti

EndSub

PrivateSubprt(b)

Fori=1To3

Forj=1To3

p=b(i,j)Mod3+1

q=b(j,i)Mod3+1

Printb(p,q);

Nextj

Print

Nexti

EndSub

答案:825設(shè)有如下Command1的單擊事件過程及fun過程：

PrivateSubCommand1_Click()

DimxAsInteger

x=Val(InputBox("請輸入一個整數(shù)"))

fun(x)

EndSub

PrivateSubfun(xAsInteger)

IfxMod2=0Thenfun(x/2)

Printx;

EndSub執(zhí)行上述程序，輸入8，結(jié)果是___________。

答案:1248求1！+2！+……+10!的程序如下：

PrivateFunctions(xAsInteger)

f=1

Fori=1Tox

f=f*i

Next

s=f

EndFunction

PrivateSubCommand1_Click()

DimiAsInteger

DimyAsLong

Fori=1To10

_____________

Next

Printy

EndSub

答案:y=y+s(i窗體上有一個名稱為Command1的命令按鈕，一個名稱為Text1的文本框。編寫如下程序：

PrivateSubCommand1_Click()

DimxAsInteger

x=Val(InputBox("輸入數(shù)據(jù)"))

Text1=Str(x+fun(x)+fun(x))

EndSub

PrivateFunctionfun(ByRefnAsInteger)

IfnMod3=0Then

n=n+n

Else

n=n*n

EndIf

fun=n

EndFunction運行程序，輸入值為6時，文本框中顯示結(jié)果為_______。

答案:42現(xiàn)有程序如下：

OptionBase1

PrivateSubForm_Click()

Dimx(5,6)AsInteger,y(5)AsInteger

Fori=1To5

Forj=1To6

x(i,j)=i*j

Nextj

Nexti

Callf(5,6,x,y)

Fori=1To5

Printy(i);

Nexti

EndSub

Subf(mAsInteger,nAsInteger,a()AsInteger,b()AsInteger)

Fori=1Tom

b(i)=0

Forj=1Ton

b(i)=b(i)+a(i,j)

Nextj

Nexti

EndSub運行程序，單擊窗體，輸出結(jié)果是_______。

答案:21426384105窗體上有名稱為Command1的命令按鈕，名稱分別為Label1、Label2、Label3的標(biāo)簽。編寫如下程序：

PrivatexAsInteger

PrivateSubCommand1_Click()

StaticyAsInteger

DimzAsInteger

n=8

z=z+n

y=y+n

x=x+y

Label1=x

Label2=y

Label3=z

EndSub運行程序時，連續(xù)3次單擊命令按鈕后，3個標(biāo)簽中分別顯示的是________、_________、____________。

答案:48;24;8設(shè)有如下通用過程：PublicFunctionf(xAsInteger)DimyAsIntegerx=30y=8f=x*yEndFunction在窗體上畫一個命令按鈕，其名稱為Command1，然后編寫如下事件過程PrivateSubCommand1_Click()StaticxAsIntegerx=15y=6y=f(x)Printx;yEndSub程序運行后，如果單擊命令按鈕，則在窗體上顯示的內(nèi)容是_____。

答案:30240有下面程序代碼：

PrivateSubCommand1_Click()

DimxAsInteger,sAsInteger

x=1

Fork=1To3

x=x+2

procx

s=s+x

Nextk

Prints

EndSub

PrivateSubproc(ByValaAsInteger)

StaticxAsInteger

x=x+5

a=a+x

EndSub

程序運行后，單擊命令按鈕Command1，輸出結(jié)果是___________。

答案:15有下面程序代碼：

PrivateSubCommand1_Click()

DimaAsString

a="COMPUTER"

n=search(a,"E")

PrintIIF(n=0,"未找到",n)

EndSub

PrivateFunctionsearch(strAsString,chAsString)AsInteger

Fork=1ToLen(str)

c=Mid(str,k,1)

Ifc=chThen

search=k

ExitFunction

EndIf

Nextk

search=0

EndFunction

程序運行后，單擊命令按鈕Command1，輸出結(jié)果是___________。

答案:7在窗體上畫一個名稱為Command1的命令按鈕和一個名稱為Text1的文本框，然后編寫如下程序:PrivateSubCommand1_Click()

Dimx,y,zAsInteger

x=3

y=4

z=5

Text1.Text=""

CallP1(x,y,z)

Text1.Text=Str(z)EndSubSubP1(ByValaAsInteger,ByValbAsInteger,cAsInteger)

c=a+bEndSub程序運行后，如果單擊命令按鈕，則在文本框中顯示的內(nèi)容是___________。

答案:7在窗體上畫一個名稱為Command1的命令按鈕，再畫兩個名稱分別為label1.Label2的標(biāo)簽，然后編寫如下程序代碼:PrivateXAsIntegerPrivateSubCommand1_Click()

X=6:Y=8

Callproc(X,Y)

Label1.Caption=X

Label2.Caption=YEndSubPrivateSubproc(ByValaAsInteger,ByValbAsInteger)

X=a*a

Y=b+bEndSub程序運行后，單擊命令按鈕，則兩個標(biāo)簽中顯示的內(nèi)容分別是___________、___________。

答案:36;8假定有以下函數(shù)過程:FunctionFun(SAsString)AsString

Dims1AsString

Fori=1ToLen(S)

s1=UCase(Mid(S,i,1))+s1

Nexti

Fun=s1EndFunction在窗體上畫一個命令按鈕，然后編寫如下事件過程:PrivateSubCommand1_Click()

DimStr1AsString,Str2AsString

Str1=InputBox("請輸入一個字符串")

Str2=Fun(Str1)

PrintStr2EndSub程序運行后，單擊命令按鈕，如果在輸入對話框中輸入字符串"abcd1234"，則單擊"確定"按鈕后在窗體上的輸出結(jié)果為___________。

答案:4321DCBA在窗體上畫一個名稱為Text1的文本框，一個名稱為Command1的命令按鈕，然后編寫如下事件過程和通用過程:PrivateSubCommand1_Click()

n=Val(Text1.Text)

Ifn\2=n/2Then

f=f1(n)

Else

f=f2(n)

EndIf

Printf;nEndSub

PublicFunctionf1(ByRefx)

x=x*x

f1=x+xEndFunction

PublicFunctionf2(ByValx)

x=x*x

f2=x+x+xEndFunction程序運行后，在文本框中輸入10，然后單擊命令按鈕，窗體上顯示的是___________。

答案:200100執(zhí)行下面的程序，輸出結(jié)果是___________。

PrivateSubCommand1_Click()

DimaAsInteger,bAsInteger,cAsInteger

a=3

b=4

c=5

Printf2(c,b,a)

EndSub

PrivateFunctionf1(xAsInteger,yAsInteger,zAsInteger)

f1=2*x+y+3*z

Printf1;

EndFunction

PrivateFunctionf2(xAsInteger,yAsInteger,zAsInteger)

f2=f1(z,x,y)+x

Printf2;

EndFunction

答案:232828執(zhí)行下面的程序，輸出結(jié)果是___________。

OptionExplicit

PrivateSubForm_Click()

DimMAsInteger,NAsInteger

M=2:N=3

PrintM+N+F(M,N);

M=1:N=2

PrintF(M,N)+F(M,N)

EndSub

PrivateFunctionF(XAsInteger,YAsInteger)

X=X+Y

Y=X+3

F=X+Y

EndFunction

答案:2630執(zhí)行下面的程序，第二行輸出結(jié)果是___________。

OptionExplicit

PrivateSubForm_Click()

DimIAsInteger,JAsInteger

I=2:J=3

CallTest(I,J)

PrintI,J

CallTest(I,J)

PrintI,J

EndSub

PrivateSubTest(MAsInteger,NAsInteger)

StaticStaAsInteger

M=M+N

N=N+M+Sta

Sta=Sta+M

EndSub

答案:1326運行下面的程序，單擊窗體后，從鍵盤上輸入字符串"6"，窗體上顯示的輸出結(jié)果為________。

PrivateSubForm_Click()

DimnAsInteger

Dims1AsString

s1=InputBox("輸入一個字符串")

n=Val(s1)

PrintFact(n)

EndSub

PrivateFunctionFact(mAsInteger)AsLong

DimsAsLong

Ifm=1Then

s=1

Else

s=Fact(m-1)*m

EndIf

Fact=s

EndFunction

答案:720在窗體上畫一個名稱為Comman1的命令按鈕，并編寫如下程序:

PrivateSubCommand1_Click()

DimxAsInteger

StaticyAsInteger

x=25

y=10

Callf1(x,y)

Printx,y

EndSub

PrivateSubf1(x1AsInteger,y1AsInteger)

x1=x1+2

y1=y1+2

EndSub程序運行后，單擊命令按鈕，在窗體上顯示內(nèi)容是___________。

答案:2712下面是求最大公約數(shù)的函數(shù)的首部

Functiongcd(ByValxAsInteger,ByValyAsInteger)AsInteger若要輸出8、12、16這3個數(shù)的最大公約數(shù)，下面正確的語句是___________。

答案:Printgcd(8,gcd(12,16))在標(biāo)準(zhǔn)模塊中，將a定義為全局整型變量的語句是________。

答案:PublicaAsInteger以下敘述中錯誤的是___________。

答案:在標(biāo)準(zhǔn)模塊中不能定義過程以下關(guān)于過程及過程參數(shù)的描述中，錯誤的是___________。

答案:只有函數(shù)過程能夠?qū)⑦^程中處理的信息返回到調(diào)用程序中下面關(guān)于標(biāo)準(zhǔn)模塊的敘述中錯誤的是___________。

答案:標(biāo)準(zhǔn)模塊中可以包含一個SubMain過程，但此過程不能被設(shè)置為啟動過程調(diào)用由語句PrivateSubConvert(YAsInteger)定義的Sub過程時，以下不是按值傳遞的是___________。

答案:ConvertX名為sort的Sub子過程的形式參數(shù)為一數(shù)組，以下的定義語句中正確的是___________。

答案:PrivateSubsort(A()AsInteger)下列說法正確的是___________。

答案:模塊級變量可在模塊通用聲明段中用Private和Dim定義窗體的Name屬性為Frm1，在窗體模塊通用聲明處和過程Sub1中分別用PublicKAsInteger,DimKAsInteger聲明了兩個同名變量K，則在過程Sub1中要訪問全局變量K，可采用___________。

答案:Frm1.k若在應(yīng)用程序的標(biāo)準(zhǔn)模塊.窗體模塊和過程Sub1的說明部分，分別用"PublicGAsInteger"、"PrivateGAsInteger"和"DimGAsInteger"語句說明了三個同名變量G。如果在過程Sub1中使用賦值語句"G=3596"，則該語句是給在___________說明部分定義的變量G賦值。

答案:過程Sub1若在應(yīng)用程序中用"PrivateSubSub1(XAsInteger,YAsSingle)"定義了子程序Sub1，以下調(diào)用子程序Sub1的Call語句___________是錯誤的。

答案:CallSub1(5)Sub過程與Function函數(shù)最根本的區(qū)別是___________。

答案:前者無返回值，但后者有如果編寫的過程要被多個窗體及其對象調(diào)用，應(yīng)將這些過程放在___________中。

答案:標(biāo)準(zhǔn)模塊在調(diào)用過程時，下列說法中正確的是___________。

答案:Function過程也可以使用Call語句調(diào)用以下關(guān)于控件的敘述中，正確的是____________。

答案:組合框兼有列表框和文本框的功能能夠存放組合框的所有項目內(nèi)容的屬性是____________。

答案:List要觸發(fā)組合框的DblClick事件，只有將組合框的Style屬性設(shè)置為。

答案:1窗體上有一個名稱為Text1的文本框，一個名稱為Combo1的組合框，將文本框中的內(nèi)容添加到組合框中所使用的命令是_______。

答案:Combo1.AddItemText1.Text以下使用方法的語句中，正確的是_______。

答案:List1.Clear以下使用方法的代碼中，正確的是______。

答案:Text1.SetFocus窗體上有名稱為List1的列表框，能將列表框當(dāng)前選定的列表項替換為字符串"Basic"的語句是__________。

答案:List1.List(List1.ListIndex)="Basic"將數(shù)據(jù)項“Student”添加到名稱為List1的列表框中，并使其成為列表框第一項的語句為____________。

答案:List1.AddItem"Student",0設(shè)窗體上有一個名稱為List1的列表框，并有若干列表項。下面語句中不能在所有列表項之后追加一個列表項的是____________。

答案:List1.List(List1.ListCount–1)="VB程序"設(shè)在窗體中有一個名稱為List1的列表框，其中有若干個項目。要求選中某一項后單擊Command1按鈕，就刪除選中的項，則正確的語句是。

答案:List1.RemoveltemList1.ListIndex已知列表框控件List1中已放入若干表項，下列關(guān)于List1的敘述中錯誤的是__________。

答案:最后一個表項的序號為ListCount窗體上有一個列表框控件List1。以下敘述中錯誤的是___________。

答案:List1中有ListCount-1個列表項下列________不是列表框的方法。

答案:Print使用_______方法可將新的列表項添加到一個列表框中。

答案:AddItem為了使列表框中的項目呈多列顯示，需要設(shè)置的屬性為。

答案:Columns下面列表框?qū)傩灾?，是?shù)組的是____________。

答案:Selected列表框中被選中的列表項的位置可以通過一個屬性獲得，這個屬性是____________。

答案:ListIndex如果在列表框List1中沒有選中項目，則List1.ListIndex的值為____________。

答案:-1設(shè)窗體上有一個列表框控件List1，且其中含有若干列表項。則以下能表示當(dāng)前被選中的列表項內(nèi)容的是_______。

答案:List1.Text要想不使用Shift或Ctrl鍵就能在列表框中同時選擇多個項目，則應(yīng)把該列表框的MultiSelect屬性設(shè)置為____________。

答案:1-Simple執(zhí)行下列程序，單擊命令按鈕在窗體上輸出結(jié)果為______。

OptionBase1

PrivateSubCommand1_Click()

Dima(3,3)AsInteger,kAsInteger

DimiAsInteger,jAsInteger,nAsInteger

n=UBound(a,1)

Fori=1Ton-2

Forj=iTon-i

a(i,j)=k+4

a(j,n+1-i)=k+3

a(n+1-i,n+1-j)=k+2

a(n+1-j,i)=k+1

k=k+4

Nextj

Nexti

IfnMod2<>0Then

a((n+1)/2,(n+1)/2)=k+1

EndIf

Printa(1,2);a(2,3);a(3,3)

EndSub

答案:872執(zhí)行以下程序，單擊命令按鈕后，如果從鍵盤上輸入5，則第一行輸出結(jié)果是______，第二行輸出結(jié)果是______。

PrivateSubCommand1_Click()

Dima()AsInteger

DimnAsInteger,iAsInteger

n=InputBox("inputn:")

ReDima(n)

Fori=1Ton

a(i)=2*i

Printa(i);

Nexti

Print

ReDima(10)

Fori=0To10

Printa(i);

Nexti

EndSub

答案:246810;0000000000執(zhí)行以下程序，單擊命令按鈕后，輸出結(jié)果是______。

PrivateSubCommand1_Click()

Dima(5)AsInteger

Dimb

Fori=1To5

a(i)=i*i

Nexti

ForEachbIna

Printb;

Nextb

EndSub

答案:01491625執(zhí)行以下程序段，則第一行輸出結(jié)果是_______，第二行輸出結(jié)果是_______。Dima(-6To7)AsSingleDimb(2,6)AsIntegerPrintUBound(a),UBound(b,1)PrintLBound(a),LBound(b,2)

答案:72;-60設(shè)有如下事件過程：PrivateSubCommand1_Click()Dimaa=Array(3,5,6,3,2,6,5,3,5,4,3,9,4,5,6,3,5)x=0n=UBound(a)Fori=0Tonm=0Forj=0TonIfa(i)=a(j)Thenm=m+1EndIfNextjIfm>xThenx=m:b=a(i)NextiPrintbEndSub運行程序，輸出的是________。

答案:3命令按鈕Command1的單擊事件過程如下：

PrivateSubCommand1_Click()

Dima(10,10)AsInteger

x=0

Fori=1To3

Forj=1To3

a(i,j)=i*3Modj

Ifx答案:1有下面程序代碼：

OptionBase1

PrivateSubCommand1_Click()

Dima(10)AsInteger,x,b

x=InputBox("請輸入一個多位整數(shù)")

Fork=1ToLen(x)

b=Mid(x,k,1)

a(Val（B）+1)=a(Val（B）+1)+1

Nextk

Fork=1To10

Printa(k);

Nextk

EndSub

程序運行時，單擊命令按鈕Command1，輸入2345670456，則輸出是___________。

答案:10

11222100有下面程序代碼：

PrivateSubCommand1_Click()

a=Array(2,3,4,5,6,7,8,9,10,11)

n=UBound（A）

Fork=0ToUBound（A）/2

Printa(k)*a(n);

n=n-1

Nextk

EndSub

程序運行后，單擊命令按鈕Command1，輸出結(jié)果是___________。

答案:2230364042運行以下程序，單擊命令按鈕后在窗體上輸出內(nèi)容_________。PrivateSubCommand1_Click()

Dima()AsInteger

DimiAsInteger,jAsInteger

ReDima(3,4)

Fori=1To3

Forj=1To4

a(i,j)=i*10+j

Nextj

Nexti

ReDima(4,5)

Printa(2,3)EndSub

答案:0下列程序段的執(zhí)行結(jié)果為________。Dima(10)AsInteger,b()AsIntegerDimiAsIntegerReDimb(5)Fori=1To10

a(i)=i*i

IfiMod2=0Then

b(i/2)=a(i)

EndIfNextiPrinta(4);b(3)

答案:1636下列程序段的執(zhí)行結(jié)果為________。DimM(10),N(10)i=4Forj=1To7

M(j)=j

N(i)=2*i+jNextjPrintN(i);M(i)

答案:154下列程序段的執(zhí)行結(jié)果為____________

DimA(5,5)AsIntegerFori=1To3

Forj=1To5

A(i,j)=i*j

NextjNextiPrintA(2,3)+A(3,4)+A(4,5)

答案:18下列程序段的執(zhí)行結(jié)果為________。DimM(3)Fori=1To3

M(i)=0NextiK=3Fori=1Tok

Forj=1TOk

M(j)=M(i)+1

PrintM(k);

NextjNexti

答案:002224445設(shè)有數(shù)組聲明語句：DimA(2To4,5)以上語句所定義的數(shù)組A中共有________個元素。

答案:18設(shè)有如下程序：OptionBase1PrivateSubForm_Click()

DimA

DimiAsInteger

A=Array(10,20,30,40,50,60,70,80,90)

Fori=1To4

PrintA(4+i);

NextiEndSub程序運行后，單擊窗體，則在窗體上顯示的是________。

答案:50607080執(zhí)行以下Command1的Click事件過程，在窗體上顯示的內(nèi)容是________。PrivateSubCommand1_Click()

Dima

a=Array("a","b","c","d","e","f","g")

Printa(2);a(4);a(6)EndSub

答案:ceg窗體上有一個由兩個文本框組成的控件數(shù)組，名稱為Text1，并有如下事件過程：

PrivateSubText1_Change(IndexAsInteger)

SelectCaseIndex

Case0

Text1(1).FontSize=Text1(1).FontSize*2

Text1(1).Text=Text1(0).TextCase1

Text1(0).FontSize=Text1(1).FontSize/2

Text1(0).Text=Text1(1).Text

CaseElse

MsgBox"執(zhí)行Else分支"

EndSelect

EndSub關(guān)于上述程序，以下敘述中錯誤的是___________。

答案:下標(biāo)為0的文本框中顯示的字符尺寸將越來越小下列關(guān)于控件數(shù)組的敘述中，正確的是________。

答案:在設(shè)計階段，可以改變控件數(shù)組元素Index屬性值以下說法中正確的是______

答案:在設(shè)計階段，可以改變控件數(shù)組元素Index屬性值以下定義數(shù)組的語句錯誤的是______。

答案:Dima(n)AsInteger若定義數(shù)組Dima(-5to28,4)AsSingle，則執(zhí)行語句PrintLbound（A）;Ubound(a，1)后輸出內(nèi)容為_______。

答案:-528以下關(guān)于動態(tài)數(shù)組的說法中不正確的是________。

答案:使用ReDim語句可以改變動態(tài)數(shù)組的類型以下_____是VisualBasic合法的數(shù)組元素。

答案:X(3.5)設(shè)用復(fù)制粘貼的方法建立了一個命令按鈕數(shù)組Command1，以下對該數(shù)組的說法錯誤的是______。

答案:命令按鈕的所有Caption屬性都只能是Command1在窗體上用復(fù)制、粘貼的方法建立一個命令按鈕數(shù)組，數(shù)組名為C1，共有3個數(shù)組元素。在默認(rèn)情況下，第一個創(chuàng)建的命令按鈕的Index屬性值為________。

答案:0使用語句DimA(5)AsInteger聲明數(shù)組A之后，以下說法正確的有_________。

答案:A數(shù)組中的所有元素為0執(zhí)行語句Dima(3,4)AsSingle創(chuàng)建一個二維數(shù)組，數(shù)組元素的個數(shù)有____個。

答案:20執(zhí)行下面的程序段，輸出結(jié)果是_________。

Dimstr1AsString,str2AsString

str1="abc"

str1=UCase(str1)

Fori=1To3

str2=Chr(Asc(str1)+i)

str1=str1&str2

Nexti

Printstr1

答案:ABCBCD運行如下程序后，輸出結(jié)果為________。

Form=1To5

a=0

Forj=1To5

a=1

Fork=1To5

a=a+3

Nextk

Nextj

Nextm

Printa

答案:16如果依次輸入30,45,55,70,75,下列程序段的執(zhí)行結(jié)果為______。

DimcAsInteger,kAsInteger,dAsInteger

c=70

Fork=11To15

x=InputBox("輸入X的數(shù)值:")

Ifx答案:150運行如下程序后，輸出結(jié)果為______。

DimiAsInteger,yAsInteger

Fori=3To15Step2

y=y+i

i=i+2

Nexti

Printi;y

答案:1936運行如下程序后，輸出結(jié)果為______。

a=0

Forj=1To30Step2

a=a+jmod5

Nextj

Printa

答案:30設(shè)有如下的程序段

n=0

Fori=1To4

Forj=1Toi

Fork=jTo4

n=n+1

Nextk

Nextj

Nexti

Printn執(zhí)行上面的程序段后，n的值為______。

答案:30編寫如下程序：PrivateSubCommand1_Click()

DimnumAsInteger

DimkAsInteger,nAsInteger

num=InputBox("請輸入一個正整數(shù):")

k=num

n=3

Do

DoWhilenumModn=0

Printn;

num=num/n

Loop

n=n+1

LoopUntiln>k/2EndSub程序運行后，單擊命令按鈕Command1，并輸入數(shù)值30，則輸出結(jié)果為______。

答案:35窗體上有一個名為Command1的命令按鈕，編寫如下事件過程：PrivateSubCommand1_Click()

i=0

DoWhilei<8

Forj=1Toi

n=n+1

Next

i=i+1

Loop

PrintnEndSub運行程序，單擊命令按鈕，則輸出結(jié)果是______。

答案:28編寫如下程序：PrivateSubCommand1_Click()

DimxAsInteger,yAsInteger

x=1:y=1

Do

y=x*y

Ify>10Then

Printx,y

ExitDo

Else

x=x+3

EndIf

LoopWhilex<=10EndSub運行程序，輸出結(jié)果為______。

答案:728編寫如下程序：PrivateSubCommand1_Click()

DimxAsInteger,yAsInteger

x=1

y=1

Do

y=x*y

Ify>10Then

ExitDo

Else

x=x+2

EndIf

LoopUntilx<=10

Printx;yEndSub程序運行后，單擊命令按鈕Command1，輸出結(jié)果為______。

答案:31下面程序的執(zhí)行結(jié)果是______。PrivateSubCommand1_Click()

a=0

k=1

DoWhilek<6

x=k^k^a

k=k+1

Printx;

LoopEndSub

答案:11111程序運行后，單擊窗體，在輸入對話框中依次輸入25、26、35、45，輸出結(jié)果為______。PrivateSubForm_Click()

x=50

Fori=1To4

y=InputBox("請輸入一個整數(shù)")

y=Val(y)

IfyMod5=0Then

a=a+y

x=y

Else

a=a+x

EndIf

Nexti

PrintaEndSub

答案:130有下面程序代碼：PrivateSubCommand1_Click()

DimSignAsInteger

Sign=1

a=2

b=3

Fork=1To5

c=a+Sign*b

a=b

b=c

Printc;

Sign=-Sign

NextkEndSub

答案:5-23-5-2執(zhí)行以下程序段a$="Abcdefghijk"Fori=6To2Step-2

y=Mid(a,i,i)

x=Left(a,i)

z=Right(a,i)

z=UCase(x&y&z)NextiPrintz

答案:ABBCJK設(shè)有如下程序段：x=2Fori=1To20Step3

x=x+iNexti運行以上程序后，x的值是______。

答案:72在窗體上畫一個名稱為Text1的文本框和一個名稱為Command1的命令按鈕，然后編寫如下事件過程：PrivateSubCommand1_Click()

DimiAsInteger,nAsInteger

Fori=0To50

i=i+5

n=n+1

Ifi>30ThenExitFor

Next

Text1.Text=Str(n)EndSub程序運行后，單擊命令按鈕，在文本框中顯示的值是______。

答案:6下面程序運行后，單擊command1后屏幕顯示是_________。

PrivateSubcommand1_click()

Fori=1To5

Ifi>3ThenExitFor

Nexti

Forj=1To8

i=i+j

Nextj

Printi,j

EndSub

答案:409有程序段如下：

Fori=1To5

Forj=5To

iStep-1

Printi*j

Nextj

Nexti其中"Print

i*j"語句執(zhí)行的次數(shù)為_________。

答案:15執(zhí)行以下語句后，k的值為_____。

DimiAsSingle

Fori=0.45To2Step0.5

k=k+3

Nexti

Printi;k

答案:2.4512下面程序段的運行結(jié)果為________。

DimsAsInteger,iAsInteger

i=1:s=1

Do

i=i+s

LoopUntils>20

Printi,s

答案:溢出假定有以下循環(huán)結(jié)構(gòu):

Do

Until條件表達(dá)式

循環(huán)體Loop則以下正確的描述是______。

答案:如果“條件表達(dá)式”的值恒為0，則無限次執(zhí)行循環(huán)體以下VisualBasic不支持的循環(huán)結(jié)構(gòu)是______。

答案:Do…EndDo設(shè)有以下循環(huán)結(jié)構(gòu):Do

循環(huán)體LoopWhile則以下敘述中錯誤的是________。

答案:若是一個為0的常數(shù)，則一次也不執(zhí)行循環(huán)體運行下列程序，單擊窗體后在窗體上顯示的結(jié)果是_______。

Private

Sub

Form_Click()

Dim

x

AsInteger,y

As

Integer

x=-5

y=-4

If

Notx>0

Then

x=y-1

Else

y=x+4

EndIf

Print

x-y

Endsub

答案:-1運行如下程序段，輸出結(jié)果為________。

PrivateSubcommand1_click()

a=2:b=3:c=4

a=a+b:b=b+a:c=b+a

Ifa<>3Orb<>3Then

a=b-a:b=c-a:c=b+a

EndIf

Printa+b+cEndSub

答案:26PrivateSubCommand1_Click()

m=-5.4

IfSgn(m)Then

n=Int(m)

Else

n=Abs(m)

EndIf

PrintnEndSub

答案:-6執(zhí)行下面程序段，如果運行時輸入6，則在窗體上輸出結(jié)果是______。

DimxAsInteger

x=InputBox("inputx")

Ifx>1Then

y=x+2

ElseIfx<10Then

y=x+3

ElseIfx=6Then

y=x

EndIf

Printy

答案:8編寫如下程序

PrivateSubCommand1_Click()

DimxAsString,yAsString

x=Right("abcdef",2)

y=Mid("dcbaef",3,3)

Ifx>yThen

Printx+y

Else

Printy+x

EndIf

EndSub

程序運行后，單擊命令按鈕Command1，輸出結(jié)果為______。

答案:efbae運行下面程序，如果輸入80，則輸出結(jié)果是_____。

DimaAsInteger,iAsInteger

a=InputBox("inputa:")

Ifa>60Theni=1

Ifa>70Theni=2

Ifa>80Theni=3

Ifa