VB填空題及答案

(完整word)VB填空題及答案(完整word)VB填空題及答案PAGE60PAGE59(完整word)VB填空題及答案一、填空題1、VisualBasic對(duì)象可以分為兩類，分別為和。2、為了選擇多個(gè)控件，可以按住鍵，然后單擊每個(gè)控件。4、浮點(diǎn)數(shù)由3部分組成，即符號(hào)、和尾數(shù)。5、下述語(yǔ)句段在運(yùn)行時(shí)的顯示結(jié)果是。Clsx=10.34+8PrintLen(x）6、將代數(shù)式轉(zhuǎn)換成程序設(shè)計(jì)中的表達(dá)式為.7、關(guān)系式x≤—5或x≥5所對(duì)應(yīng)的布爾表達(dá)式是。9、下列程序的功能是：當(dāng)x〈50時(shí)，y=0.8×x；當(dāng)50≤x≤100時(shí)，y=0.7×x；當(dāng)x〉100時(shí)，沒有意義。請(qǐng)?zhí)羁?。PrivateSubCommand1_Click（） DimxAsSingle x=InputBox("請(qǐng)輸入x的值！"） CaseIs<50y=0。8*xCase50To100y=0。7*xPrint"輸入的數(shù)據(jù)出界！”EndSelectPrintx,yEndSub11、以下程序段的作用是將26個(gè)小寫字母逆序打印出來(lái)，請(qǐng)補(bǔ)充完整。Fori=122ToPrint；Nexti12、在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過(guò)程：PrivateSubCommand1_Click(）x=0DoUntilx=—1a=InputBox("請(qǐng)輸入第一個(gè)數(shù)字a的值")a=Val(a)b=InputBox（”請(qǐng)輸入第二個(gè)數(shù)字b的值")b=Val（b）x=InputBox(”請(qǐng)輸入第三個(gè)數(shù)字x的值”）x=Val（x)a=a+b+xLoopPrintaEndSub程序運(yùn)行后，單擊命令按鈕，在對(duì)話框中分別輸入5,4，8，5,8,-1,輸出結(jié)果為。13、執(zhí)行下面的程序段，x的值為。Fori=1To9a=a+iNextix=Val(i）MsgBoxx14、以下程序的功能是統(tǒng)計(jì)字符串中“i”的個(gè)數(shù),請(qǐng)?zhí)羁?。a$=”BeijingDimnAsIntegern=Len(a＄）Fori=1Tonb$=IfThenx=x+1NextiPrint”x=";x15、下列程序的輸出結(jié)果為。num=2Whilenum〈=3num=num+1PrintnumWend16、下列程序是判斷一個(gè)整數(shù)（〉=3)是否為素?cái)?shù)，請(qǐng)補(bǔ)充完整。（在數(shù)學(xué)上，判斷素?cái)?shù)的依據(jù)是:若n不能被2－Sqr(n）中的任何一個(gè)數(shù)整除，則n是素?cái)?shù)，否則不是。）DimnAsIntegern=InputBox（”請(qǐng)輸入一個(gè)整數(shù)(〉=3)”）k=Int(Sqr(n）)i=2swit=0Whilei<=kAndswit=0IfnModi=0ThenElseEndIfWendIfswit=0ThenPrintn;"是一個(gè)素?cái)?shù)?！盓lsePrintn;”不是一個(gè)素?cái)?shù)?！盓ndIf17、每一個(gè)窗體或者控件都有一個(gè)名字，為提高程序的可讀性，可以用前綴的方式來(lái)表示對(duì)象的類型，如Form的前綴為frm，則Image的前綴為，Picture的前綴為。18、要使標(biāo)簽的背景樣式為不透明，應(yīng)將BackStyle屬性設(shè)置為。19、將C盤根目錄下的圖形文件moon.jpg裝入圖片框Picture1的語(yǔ)句是。20、當(dāng)對(duì)象得到焦點(diǎn)時(shí)，會(huì)觸發(fā)事件，當(dāng)對(duì)象失去焦點(diǎn)時(shí)將觸發(fā)事件。21、有下面一個(gè)程序段，從文本框中輸入數(shù)據(jù)，如果該數(shù)據(jù)滿足條件，除以4余1，除以5余2,則輸出,否則，將焦點(diǎn)定位在文本框中，并清除文本框的內(nèi)容。x=Val（Text1.Text)IfThenPrintxElseText1。Text=”"EndIf22、下面的程序用于根據(jù)文本框Text中輸入的內(nèi)容進(jìn)行以下處理：若Text為1,則打印“您的成績(jī)?yōu)閮?yōu)秀!"；若Text為2，則打印“您的成績(jī)?yōu)榱己?”若Text為3，則打印“您的成績(jī)?yōu)橐话恪?；否則打印“您的成績(jī)一般以下！”，請(qǐng)?zhí)羁?。PrivateSubCommand1_Click（)SelectCaseVal（Text1.Text）CasePrint”您的成績(jī)?yōu)閮?yōu)秀！”CasePrint"您的成績(jī)?yōu)榱己茫?CasePrint"您的成績(jī)?yōu)橐话?CaseElsePrint”您的成績(jī)一般以下！”EndSelectEndSub24、如果要將形狀控件的內(nèi)部設(shè)置為水平線，應(yīng)將FillStyle屬性設(shè)置為。25、為了使計(jì)時(shí)器控件Timer1每隔0。5秒觸發(fā)一次Timer事件,應(yīng)將Timer1控件的屬性設(shè)置為。26、在修改列表框內(nèi)容時(shí),RemoveItem方法的作用是。28、窗體上有一個(gè)名稱為L(zhǎng)ist1的列表框,一個(gè)名稱為Text1的文本框，一個(gè)名稱為L(zhǎng)abell、Caption屬性為“Sum”的標(biāo)簽，一個(gè)名稱為Command1、標(biāo)題為“計(jì)算”的命令按鈕.程序運(yùn)行后,將把1～100之間能夠被7整除的數(shù)添加到列表框中。如果單擊“計(jì)算”按鈕，則對(duì)List1中的數(shù)進(jìn)行累加求和，并在文本框中顯示計(jì)算結(jié)果，如圖所示。以下是實(shí)現(xiàn)上述功能的程序，請(qǐng)?zhí)羁?。PrivateSubForm_Load(）Fori=1To100IfiMod7=0ThenEndIfNextEndSubPrivateSubCommand1_Click（)Sum=0Fori=0ToSum=Sum+NextText1。Text=SumEndSub30、下面程序的功能是產(chǎn)生10個(gè)小于100（不含100）的隨機(jī)正整數(shù),并統(tǒng)計(jì)其中5的倍數(shù)所占比例，但程序不完整，請(qǐng)補(bǔ)充完整。RandomizeDima(10）Forj=1To10a(i）=Int()IfThenk=k+1Printa(j)NextjPrintPrintk/1031、在一個(gè)工程中有兩個(gè)窗體，窗體Form1上有一個(gè)命令按鈕Disp,單擊該按鈕，F(xiàn)orm1窗體隱藏，顯示Form2窗體，程序如下，請(qǐng)補(bǔ)充完整。PrivateSubDisp_Click()Me。HideForm2。EndSub1.5VB程序設(shè)計(jì)語(yǔ)言填空題答案：題序1—11—22答案預(yù)定義對(duì)象用戶定義對(duì)象Ctrl或Shift題序456答案指數(shù)5Sqr((x*x+y＊y）/（a+b））題序79—19-2答案X<=5orx〉=5SelectCasexCaseElse題序答案題序11-111—2121314-1答案97step—1Chr$(i)1210Mid$(a＄，I，I）題序14—21516—116—2答案B＄=”i”3、4Swit=1I=I+1題序17—117—21819答案imgpic1Picture1.Picture=LoadPicture(“C:\moon.jpg")題序20—120-221—1答案GotFocusLostFocusXmod4=1