vb實(shí)驗(yàn)報(bào)告(答案)

(此文檔為word格式，下載后您可任意編輯修改！)試 驗(yàn) 報(bào) 告（1）院（系： 課程名稱： 日期：班級(jí)班級(jí)學(xué)號(hào)實(shí)驗(yàn)室專業(yè)姓名計(jì)算機(jī)號(hào)實(shí)驗(yàn)名稱VB環(huán)境的熟悉與應(yīng)用成績(jī)?cè)u(píng)定所用軟件VisualBasic6.0教師簽名實(shí)驗(yàn)?zāi)?1．熟悉VB的系統(tǒng)環(huán)境，了解VB程序的編寫(xiě)、保存和編譯的方法過(guò)程的 2．初步了解幾個(gè)常用控件的使用方法?；蛞?、在vb中 C 被稱為對(duì)象。2、A.窗體 B.控件 C.窗體和控件 D.窗體、控件和性3form11C1敘述中正確的是(B)4AClickform1_Click5BClickC1_Click6、C.命令按鈕的Click事件過(guò)程的過(guò)程名是Command1_Click7、編譯執(zhí)行程序的快捷鍵是_Ctrl+F5_。實(shí) 8、啟動(dòng)visualbasic后標(biāo)題欄中顯示的信息是（C。驗(yàn)步 A.工程-MmicrosoftVisualBasic[設(shè)計(jì)]驟 B.工程-MmicrosoftVisualBasic[中斷]、心 C.工程1-MmicrosoftVisualBasic[設(shè)計(jì)]得 D.工程1-MmicrosoftVisualBasic[中斷]體會(huì)9VisualBasic設(shè)計(jì)窗口；_屬性窗口；_工程資源管理器窗口_；_工具箱窗口。10、屬性顯示方式分兩種，即按字母順序和按_分類分別通過(guò)單擊相應(yīng)的按鈕來(lái)實(shí)現(xiàn)。111-1本:”按（command11-2（command2，即結(jié)束程序運(yùn)行。注意：保存時(shí)必須存放在自己創(chuàng)建的文件夾下，窗體文件名為kt1.frm，工程文件名為kt1.vbp。圖1-1 圖1-21-1修改控件屬性控件對(duì)象屬性名屬性值Command1Caption你的姓名是：Command2Caption結(jié)束Label1Caption歡迎使用vbLabel2Caption請(qǐng)輸入你的姓名編輯代碼PrivateSubCommand1_Click()Text2=Text1EndSubPrivateSubCommand2_Click()EndEndSub12、 在名稱為Form1的窗體上建立兩個(gè)名稱分別為Cmd1和Cmd2標(biāo)題分別為“喜歡”和“不喜歡”的命令按鈕。編寫(xiě)適當(dāng)?shù)氖录^(guò)程，要求程序運(yùn)行后，如果單擊“喜歡”命令按鈕，則在窗體上顯示“數(shù)理化；如果單擊“不喜歡”命令按鈕，則在窗體上顯示“政史地。注意：保存時(shí)必須存放在自己創(chuàng)建的文件夾下，窗體文件名為kt2.frm，工程文件名為kt2.vbp，并且在生成對(duì)應(yīng)的可執(zhí)行程序（.exe。1)界面設(shè)計(jì)：在窗體設(shè)計(jì)窗口設(shè)計(jì)如圖1-3界面圖1-32）屬性設(shè)置控件對(duì)象屬性名屬性值Command1Caption喜歡Command2Caption不喜歡代碼設(shè)計(jì)PrivateSubCmd1_Click()Print"數(shù)理化"EndSubPrivateSubCmd2_Click()Print"政史地"EndSubEndSub可以從以下幾個(gè)方面來(lái)總結(jié)：你在上機(jī)過(guò)程中遇到了哪些難題？你是怎么克服的？你對(duì)你的程序的評(píng)價(jià)？你的收獲有哪些？你有什么沒(méi)有解決的問(wèn)題？等）試 驗(yàn) 報(bào) 告（2）院（系： 課程名稱： 日期：班級(jí)班級(jí)學(xué)號(hào)實(shí)驗(yàn)室專業(yè)姓名計(jì)算機(jī)號(hào)實(shí)驗(yàn)名稱VB基本控件成績(jī)?cè)u(píng)定所用軟件VB6.0教師簽名實(shí)驗(yàn)?zāi)?1.熟練掌握VB中基本控件的屬性，方法和事的 2.通過(guò)編程能夠?qū)崿F(xiàn)簡(jiǎn)單的功能或要求1Form1VisualBasic句是（C。Form1.Name="VisualBasic窗體"Form1.Title="VisualBasic窗體"Form1.Caption="VisualBasic窗體"Form1.Text="VisualBasic窗體"。2VB使用語(yǔ)句（B。A.Show B.Hide C.Load D.Unload3上，應(yīng)該設(shè)置的屬性是（C。實(shí) A.設(shè)置Enabled的值為T(mén)rue B.設(shè)置TabIndex的值為1驗(yàn)步 C.設(shè)置TabIndex的值為0 D.設(shè)置Index的值為0驟 4、設(shè)窗體上有一個(gè)文本框Text1，要求只能顯示信息，不能輸入，、 則應(yīng)設(shè)置（B。心A.Text1.MaxLength=0 B.Text1.Enabled=False得體 C.Text1.Visible=False D.Text1.Width=0會(huì) 5、設(shè)置命令按鈕的屬性時(shí)，只有將（A）屬性設(shè)置為1，Picture屬性才有效，否則無(wú)效。A、Style B、Caption C、Enabled D、6.窗體文件的擴(kuò)展名是(C)A、.bas B、.cls C、.frm D、.res7TxtAPrivateSubTxtA_KeyPress(keyasciiasinteger)??EndSub若焦點(diǎn)位于文本框中，則能夠觸發(fā)KeyPress事件的操作是(D)A.單擊鼠標(biāo) B.雙擊文本框C.鼠標(biāo)滑過(guò)文本框 D.按下鍵盤(pán)上的某個(gè)鍵8、在文本框中，要使鍵入的所有字符都顯示"*"號(hào)。這時(shí)應(yīng)該設(shè)置 D 屬性為"*"AText BMultiLine CScrollBars D9、唯一能區(qū)別一個(gè)控件的屬性是 C 。A、Caption B、Text C、Name D、Index10、確定一個(gè)控件在窗體上位置的屬性是 Left 和 Top 。11、窗體邊框類型的默認(rèn)值是 2 。12、若要設(shè)置窗體為固定對(duì)話框，并包含控制菜單框和標(biāo)題欄，但沒(méi)有最大最小化按鈕，則應(yīng)進(jìn)行的屬性設(shè)置是_BorderStyle=1_。13、在窗體(form1)上畫(huà)一個(gè)文本框(text1)控件和兩個(gè)按鈕控件(command1、command2)分別顯示“向左”、“向右”。其中兩個(gè)命令按鈕一個(gè)顯示左移，一個(gè)顯示右移。要求在每次按下命令按鈕后文本框可以向左或向右移動(dòng)（不用考慮窗體邊界）。1)界面設(shè)計(jì)2）屬性設(shè)置控件對(duì)象屬性屬性值Command1Caption向左Command2Caption向右4）PrivateSubCommand1_Click()Text1.Left=Text1.Left-50EndSubPrivateSubCommand2_Click()Text1.Left=Text1.Left+50EndSub14、在窗體上部設(shè)置一個(gè)文本框（text1，文本框的下面設(shè)置3個(gè)命令按鈕，其中左邊按鈕（command1）中標(biāo)有“單擊此按鈕”，中間按鈕（command2）中標(biāo)有“清除”，右邊按鈕（command3）中標(biāo)有“程序結(jié)束”。當(dāng)程序運(yùn)行時(shí)，用鼠標(biāo)單擊左邊按鈕時(shí)，vb6.0”;如果單擊中間按1)界面設(shè)計(jì)屬性設(shè)置控件對(duì)象 屬性 屬性值Command1 Caption 單擊此按鈕Command2 Caption 清除Command3 Caption 程序結(jié)束代碼設(shè)計(jì)PrivateSubCommand1_Click()Text1="歡迎使用vb6.0"EndSubPrivateSubCommand2_Click()Text1=""EndSubPrivateSubCommand3_Click()EndEndSub15（text1）內(nèi)容為空；兩個(gè)命令按鈕（command1command2，上面分別顯示“消失HelloWorld”16。1)界面設(shè)計(jì)屬性設(shè)置控件對(duì)象屬性屬性值Command1Caption消失Command2Caption出現(xiàn)代碼設(shè)計(jì)PrivateSubCommand1_Click()Text1.Visible=FalseEndSubPrivateSubCommand2_Click()Text1.Visible=TrueText1="HelloText1.FontSize=16EndSub16Form1Txt1，內(nèi)容為"全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)"。命令按鈕的Cmd1，標(biāo)題為"計(jì)算"。編寫(xiě)適當(dāng)?shù)氖录^(guò)程，使得程序kt2.frmkt2.vbp。界面設(shè)計(jì)屬性設(shè)置控件對(duì)象Text1Command1Cmd1屬性NameNameCaption屬性值Txt1Cmd1計(jì)算Txt1Caption全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)3）代碼設(shè)計(jì)PrivateSubCmd1_Click()PrintTxt1.SelTextEndSub17、在名稱為Form1Text1，編寫(xiě)界面設(shè)計(jì)屬性設(shè)置(采用默認(rèn)值)控件對(duì)象 屬性 屬性值代碼設(shè)計(jì)PrivateSubForm_Click()Text1.Left=0Text1.Top=0EndSubPrivateSubText1_Change()Text1.Left=Form1.Width-Text1.WidthText1.Top=0EndSub18容和格式的復(fù)制練3-1，實(shí)現(xiàn)。屬性設(shè)置控件對(duì)象 屬性 屬性值代碼設(shè)計(jì)心得體會(huì)： （可以從以下幾個(gè)方面來(lái)總結(jié)你在上機(jī)過(guò)程中遇到了哪些難題？你是怎么克服的？你對(duì)你的程序的評(píng)價(jià)？你的收獲有哪些？你有什么沒(méi)有解決的問(wèn)題？等）哪些難題？你是怎么克服的？你對(duì)你的程序的評(píng)價(jià)？你的收獲有哪些？你有什么沒(méi)有解決的問(wèn)題？等）試 驗(yàn) 報(bào) 告（3）院（系： 課程名稱： 日期：班級(jí)班級(jí)學(xué)號(hào)實(shí)驗(yàn)室專業(yè)姓名計(jì)算機(jī)號(hào)實(shí)驗(yàn)名稱VB運(yùn)算符和表達(dá)式成績(jī)?cè)u(píng)定所用軟件Vb6.0教師簽名實(shí)驗(yàn)?zāi)?1．掌握基本語(yǔ)句（Print語(yǔ)句、賦值語(yǔ)句、Dim語(yǔ)句等）的使用的 2．掌握表達(dá)式的正確書(shū)寫(xiě)方法及函數(shù)、運(yùn)算符的正確使用?；蛞?、有如下語(yǔ)句printchr(65);Asc(“def”);其執(zhí)行結(jié)果是 A 100 2 。2、已知字符串A的值為“AbcDe“，現(xiàn)在把它全部轉(zhuǎn)換為大寫(xiě)字母正確的語(yǔ)句是 Ucase(“AbcDe“) 。3、有如下程序a=300:b=20a=a+b:b=a–a=a–bprinta實(shí) printb驗(yàn)步 分析該程序的功能是 a與b互換 驟 4、可以同時(shí)刪除字符串前導(dǎo)和尾部空白的函數(shù)是（C）。、心 A.Ltrim B.Rtrim C.Trim D.Mid得 5、下列不正確的標(biāo)識(shí)符是（B。體 A.a123 B.a?b C.a12_3 D.abcdefg會(huì) 6、如果一個(gè)變量未經(jīng)定義就直接使用，則該變量的類型為(DA.Integer B.Byte C.Boolean D.Variant72(Label1Label2)2個(gè)文本框(Text1和兩個(gè)命令按鈕(Command1、Command2)分別顯示“華氏轉(zhuǎn)攝氏”Text1Text2TextCommand1、Command2(Caption屬性)，溫度轉(zhuǎn)換公式為：F=9/5*C+32FC界面設(shè)計(jì)屬性設(shè)置控件對(duì)象 屬性 屬性值代碼編輯8Form1T1T2，初始情況下都沒(méi)有內(nèi)容。請(qǐng)編寫(xiě)適當(dāng)?shù)氖录^(guò)程，使得運(yùn)行時(shí)，T1T2何變量。界面設(shè)計(jì)屬性設(shè)置控件對(duì)象 屬性 屬性值代碼編輯9、在名稱為Form1T1，寬度和高1400400C12，標(biāo)題分別為“顯示”和“擴(kuò)大C1C23界面設(shè)計(jì)屬性設(shè)置控件對(duì)象 屬性 屬性值代碼編輯（哪些難題？你是怎么克服的？你對(duì)你的程序的評(píng)價(jià)？你的收獲有哪些？你有什么沒(méi)有解決的問(wèn)題？等）試 驗(yàn) 報(bào) 告（4）院（系： 課程名稱： 日期：班級(jí) 學(xué)號(hào)專業(yè) 姓名實(shí)驗(yàn)VB控制結(jié)構(gòu)名稱所用VB6.0軟件

實(shí)驗(yàn)室實(shí)InputBoxMsgBox；驗(yàn)掌握邏輯表達(dá)式及關(guān)系表達(dá)式的正確書(shū)寫(xiě)形式。目IF的掌握情況控制語(yǔ)句的使用及與多分支條件語(yǔ)句的區(qū)別。或For要Do求1、設(shè)a=2,b=3,c=4,d=5,求下列表達(dá)式的值：2、(1)a>bANDc<=d False 3、(2)b<cANDd>a True _4、(3)a<cORd<=b True 5、(4)a>bORc<=d True 6、(5)a>bANDc<=dOR 2*a>c False 7、(6)3>2*b OR a=c AND b<>c OR c>d 實(shí) False 驗(yàn)步 2、將下列數(shù)學(xué)式子寫(xiě)成vb表達(dá)式：驟 (1) cos2(c+d) Cos(2*(a+d)) 、 (2) 5+3(a+b) 5+3*(a+b) 心 (3)cosx(sinx+1) Cos(x)*(Sin(x)+1) 得 (4)exp(2)+2 體 3、以下語(yǔ)句的輸出結(jié)果是（C）。會(huì) PrintFormat(32548.5,“.00”)A.32548.5 B.32,548.5 C..50 D.32,548.504、設(shè)x=4,y=8,z=7,以下表達(dá)式的值是(D)x<yAnd(Noty>z)Orz<xA.1 B.-1 C.True D.False5Command1件過(guò)程：PrivateSubCommand1_Click()a$=″VisuaLBasic″PrintString(3,a$)EndSub程序運(yùn)行后，單擊命令按鈕，在窗體上顯示的內(nèi)容是( A )A.VVV B.Vis C.sic 6、設(shè)有如下聲明：DimXAsInteger如果Sgn(X)的值為-1，則X的值是( D )A.整數(shù) B.大于0的整數(shù) C.等于0的整數(shù) D.小于0的整7在窗體中添加一個(gè)名稱為Command1的命令按鈕然后編寫(xiě)如下代碼：PrivateSubCommand1_Click()a=InputBox(Aa=Val(a)b=InputBox(Bb=Val(b)x=InputBox(Xx=Val(x)a=a+b+PrintaEndSub程序運(yùn)行后，單擊命令按鈕，依次在輸入對(duì)話框中輸入1<CR>2<CR>3<CR>，則輸出結(jié)果為 6 8command1件過(guò)程。PrivateSubCommand1_Click()x=InputBox("Input")SelectCaseCase1,3PrintCaseIs>4PrintCaseElsePrint"else分支"EndSelectEndSub程序運(yùn)行后，如果在輸入對(duì)話框中輸入 2，則窗體上顯示的是 else分支_。9、下列語(yǔ)句正確的是( C )IfA≠BThenPrint″AB″IfA<>BThenPrintf″AB″IfA<>BThenPrint″AB″IfA≠B Print″AB″10zxyz=xz=y是(A)Ifx>=yThenz=x:z=yIfx>=yThenz=xElsez=yz=y:Ifx>=yThenz=xIfx<=yThenz=yElsez=x11、下列程序段的執(zhí)行結(jié)果為(C)a=5Fork=1Toa=a+kNextkPrintA.-16 B.-116 C.15 D.112112、下列程序段的執(zhí)行結(jié)果為( B a=3b=1ForI=1To3f=a+ba=bb=fPrintfNextIA.436 B.459 C.634 D.72813、下列程序段的執(zhí)行結(jié)果為(C)a=5Fork=1Toa=a+kNextkPrintA.-16 B.-116 C.15 D.112114、有如下程序：PrivateSubCommand1_Click()a=″AWORKERISHERE″x=Len(a)Fori=1Tox-1b=Mid(a,i,3)Ifb=″WOR″ThenS=S+1NextPrintSEndSub單擊命令按鈕，程序運(yùn)行結(jié)果為(A)A.1 B.2 C.3 D.515、在窗體上畫(huà)一個(gè)命令按鈕，然后寫(xiě)出如下事件過(guò)程：PrivateSubCommand1_Click()s=1Dos=(s+1)^(s+2)Number=Number+1LoopUntils>=6PrintNumber,sEndSub程序運(yùn)行后，輸出的結(jié)果是(C)A.2 3 B.3 18 C.1 8 D.10 2016、在窗體上畫(huà)一個(gè)名稱為Commandl的命令按鈕，然后編寫(xiě)如下事件過(guò)程：PrivateSubCommandl_Click()c=1234c1=Trim(Str(c))Fori=1To4Print NextEndSub程序運(yùn)行后，單擊命令按鈕，要求在窗體上顯示如下內(nèi)容：1121231234則在下劃線處應(yīng)填入的內(nèi)容為(B)A.A.Right(cl,i) C.Mid(cl,i,1) D.Mid(cl,i,i)174152，則輸出，否則，將焦點(diǎn)定位在文本框中，并清除文本框的內(nèi)容。PrivateSubCommand1_Click()x=Val(Text1.Text)If xmod4=1andxmod5=2 PrintxElseText1.Text=″″Text1.setfocus_EndIfEndSub18、下列程序的功能是：當(dāng)x<50時(shí)x；當(dāng)50≤x≤100時(shí)，y=0.7×x；當(dāng)x＞100時(shí)，沒(méi)有意義。請(qǐng)?zhí)羁?。PrivateSubCommand1_Click()DimxAsSinglex=InputBoxxSelectCasex_CaseIs<50y=0.8*Case _else y=0.7*xEndSelect_PrintEndSelectPrintx,yEndSub19、有如下程序PrivateSubCommand1_Click()Dimi%,j%Fori=-3To3PrintTab(7+Abs(i));Forj=1To7-2*Abs(i)Print"*";NextjPrintNextiEndSub 執(zhí)行程序后結(jié)果是 。20、有如下程序i=0:n=Do While i<32i=(i+1)*(i+1)n=n+1LoopPrint 執(zhí)行后循環(huán)體執(zhí)行了 4 次。21BASCII66各英文字母的使用次數(shù)Dim pp(65to90)_asinteger Fori=65To90pp(i)=0Nextx＄=InputBox(″Enterastring″,x＄)x＄=UCase＄(x＄)Fori=1To len(x) n=Asc(Mid＄(x＄,i,1))Ifn>=65Andn<=90Then_pp(n)=pp(n)+1 EndIfNextiFori=65To90Ifpp(i)>0ThenPrintChr＄(i);pp(i)EndIfNext22、在文本框中輸入半徑，計(jì)算后在標(biāo)簽中輸出圓周長(zhǎng)和面積。1)界面設(shè)計(jì)屬性設(shè)置控件對(duì)象 屬性 屬性值代碼編輯232label1label22label3中。1)界面設(shè)計(jì)屬性設(shè)置控件對(duì)象 屬性 屬性值代碼編輯24011代表正面，0界面設(shè)計(jì)屬性設(shè)置控件對(duì)象 屬性 屬性值代碼編輯25Isnumeric（如果非法輸入則將對(duì)應(yīng)文本框的）注：在檢測(cè)到是非法輸入時(shí)，可嘗試用msgbox示：msgbox6”1)界面設(shè)計(jì)2）代碼編輯26、已知學(xué)號(hào)由9個(gè)數(shù)碼組成，如，其中從左算起前2位表示年級(jí)，5碩士生4----本科生5 ?？粕O(shè)計(jì)程序從文本框(text1)中輸入一個(gè)學(xué)號(hào)，單擊按鈕(command1)后在另外兩個(gè)文本框中顯示該生的年級(jí)(text2)及學(xué)生類型(text3)。提示：要用到字符串操作函數(shù)對(duì)學(xué)號(hào)（例如：X=text1.text ‘ x第5個(gè)數(shù)碼表示學(xué)生類型，則mid(x,5,1),將字符串中第五個(gè)字符取出，如果取出的字符是4----本科生，進(jìn)行判斷后在text3中顯示Ifmid(x,5,1)=4 thentext3.text=1）界面設(shè)計(jì)2）代碼編輯27、輸入三個(gè)數(shù)（x,y,z，通過(guò)編程，使得x>y>z,（用兩種方法）界面設(shè)計(jì)方法一方法二28、編寫(xiě)一個(gè)程序，輸入上網(wǎng)時(shí)間并且計(jì)算上網(wǎng)費(fèi)用，計(jì)算方基數(shù)30元 上網(wǎng)時(shí)間<10小時(shí)費(fèi)用= 每小時(shí)2.5元 上網(wǎng)時(shí)間10~50小每小時(shí)2元 上網(wǎng)時(shí)間>=50小時(shí)同時(shí)為了鼓勵(lì)多上網(wǎng)，每月收費(fèi)做多不超過(guò)150元。界面設(shè)計(jì)代碼編輯29a2+b2=c21-20滿足條件的整數(shù)組合。例如：3，4，530（1）以上三角的形式輸出九九乘法表（2）以下三角的形式輸出九九乘法表31、編寫(xiě)一個(gè)程序，輸出所有水仙花數(shù)。所謂水仙花數(shù)，是指一個(gè)三153=13+53+3332S(1)S=1+2+3+?+100(2)S=1×2×3×?×100心得體會(huì)： （可以從以下幾個(gè)方面來(lái)總結(jié)你在上機(jī)過(guò)程中遇到了哪些難題？你是怎么克服的？你對(duì)你的程序的評(píng)價(jià)？你的收獲有哪些？你有什么沒(méi)有解決的問(wèn)題？等）試 驗(yàn) 報(bào) 告（5）院（系： 課程名稱： 日期：班級(jí) 學(xué)號(hào)專業(yè) 姓名實(shí)驗(yàn)數(shù)組名稱所用 VB6.0軟件

實(shí)驗(yàn)室實(shí)驗(yàn) 1、理解和掌握數(shù)組的基本概念以及靜態(tài)數(shù)組的聲明方式和使目 2、理解動(dòng)態(tài)數(shù)組的聲明方式和使用的 3、理解掌握數(shù)組的基本操作或 4、掌握控件數(shù)組在程序設(shè)計(jì)中的應(yīng)用方法和技要 5、掌握自定義數(shù)據(jù)類型的定義和使用求1、下面數(shù)組聲明語(yǔ)句中正確的是 B 。A.DimA[3,4]AsInteger B.DimA(3,4)AsIntegerC.DimA[3.4]AsInteger D.DimA(3.4)AsInteger2、下面數(shù)組聲明語(yǔ)句中正確的是 C 。A.DimA[1,5]AsString B.DimA[1to5,1to5]AsString實(shí) C.DimA(1to5)AsString D.DimA(1:5,1:5)AsString驗(yàn) 3、讀下列程序步 Dima(5)驟 ForI=1to5、 A(I)=I*I心 NextI得 Printa(I-1)體 執(zhí)行程序段的結(jié)果是 25 。會(huì) 4.設(shè)有聲明語(yǔ)句Dimb(-1To10,2To9,20)AsInteger則數(shù)組b中全部元素的個(gè)數(shù)為 2016 。5、在窗體上畫(huà)一個(gè)名稱為Command1的命令按鈕，然后編寫(xiě)如下代碼：OptionBase1PrivateSubCommand1_Click()d=0c=10x=Array(24)Fori=1To5Ifx(i)>cThend=d+x(i)c=x(i)Elsed=d-cEndIfNextiPrintdEndSub程序運(yùn)行后，如果單擊命令按鈕，則在窗體上輸出的內(nèi)容為(CA.89 B.99 C.23 D.776、在窗體上畫(huà)一個(gè)名稱為T(mén)ext1的文本框和一個(gè)名稱為Command1的命令按鈕，然后編寫(xiě)如下事件過(guò)程：PrivateSubCommand1_Click()Dimarray1(10,10)AsIntegerDimi,jAsIntegerFori=1To3Forj=2To4array1(i,j)=i+jNextjNextiText1.Text=array1(2,3)+array1(3,4)EndSub程序運(yùn)行后，單擊命令按鈕，在文本框中顯示的值是( A A.12 B.13 C.14 D.15下列程序段的執(zhí)行結(jié)果為(C)Dimt(10)Fork=2To10t(k)=11-kNextkx=6Printt(2+t(x))A.2 B.3 C.4 8、下列程序段的執(zhí)行的結(jié)果是(A)Dima(10)，b(10)i=3Forj=1To5a(j) =jb(i) =2*i+NextjPrintb(i)；a(i)A.11 3 B.3 15 C.3 11 D.15 39、以下定義數(shù)組或給數(shù)組元素賦值的語(yǔ)句中，正確的是(A)A.DimaAsVariant B.Dima(10)Asa=Array() a=Array()C.Dima%(10)a(1)=″ABCDE″10、 有如下事件過(guò)程PrivateSubCommand1_Click()Dimaa=array(“a”,”b”,”c”,”d”,”e”,”f”,”g”)Printa(1);a(3);a(5)EndSub執(zhí)行程序段的結(jié)果是 ”b””d””f” 。11、 有如下程序段Dima(4)AsInteger,b(4)AsIntegerFork=0to2a(k+1)=Val(InputBox(“請(qǐng)輸入數(shù)據(jù)：”))b(3-k)=a(k+1)NextkPrintb(k)執(zhí)行程序段的結(jié)果是 b(3) 。12、 有如下程序段DimmaxAsInteger,imaxAsIntegerMax=ia(1):imax=1:sum=ia(1)ForI=2to10sum=sum+ia(I)Ifia(I)>MaxThenMax=ia(I)imax=IEndIfNextIPrintMax,imax執(zhí)行程序段的功能是_找出數(shù)組ia中最大元素及所在的位置。13、 在窗體上畫(huà)一個(gè)命令按鈕Command1，然后編寫(xiě)如下代PrivateSubCommand1_Click()Dima(5,5)ForI=1To3Forj=1to4A(I,j)=I*jNextjNextIForn=1To2Form=1to3Printa(m,n)；NextmNextnEndSub執(zhí)行Command1的單擊事件后輸出結(jié)果是 123246 14、以下能正確定義數(shù)據(jù)類型TelBook的代碼是(A)A.TypeTelBook B.TypeTelBookNameAsString*10 NameAsString*10TelNumAsInteger TelNumAsIntegerEndType EndTelBookC.TypeTelBook D.TypedefTelBookName String*10 Name TelNum Integer TelNum IntegerEndTypeTelBook EndType15Label1List1Label1PrivateSubForm_Load()list1.AddItem"北京"list1.AddItem"上海"list1.AddItem"河北"EndSubPrivateSubList1_【DblClick】()label1.Caption=_【List1.Text】 EndSub16.設(shè)有如下程序：OptionBase0PrivateSubForm_Click()DimaDimiAsIntegera=Array(7,8,9)Fori=0To3Printa(5-i);NextEndSub程序運(yùn)行后，單擊窗體，則在窗體上顯示的是 C 。A.4321 B.5432 C.6543 D.765417、編輯程序。用戶隨機(jī)輸入一串字符串，通過(guò)單擊事件統(tǒng)計(jì)各個(gè)字母出現(xiàn)的次數(shù)（不區(qū)分大小寫(xiě)）并輸出結(jié)果。1830~100（30100）10最小值、平均值，并且顯示整個(gè)數(shù)組的值和結(jié)果。19、隨機(jī)產(chǎn)生20個(gè)學(xué)生的成績(jī)，統(tǒng)計(jì)各個(gè)分?jǐn)?shù)段的人數(shù)，產(chǎn)生的數(shù)據(jù)和統(tǒng)計(jì)的結(jié)果都要求在窗體上顯示。20label1list1（課程內(nèi)容自定label2list2，當(dāng)單擊左邊5（msgbox。界面設(shè)計(jì)代碼設(shè)計(jì)21、從鍵盤(pán)輸入10個(gè)整數(shù)，按照從大到小的順序排列并輸出。22（四個(gè)“+“÷，單擊按鈕可以完成對(duì)窗體上兩個(gè)文本框上的內(nèi)容（text1，text2）進(jìn)行相應(yīng)的計(jì)算，并且將結(jié)果顯示在text3上界面設(shè)計(jì)2）代碼設(shè)計(jì)2）代碼設(shè)計(jì)哪些難題？你是怎么克服的？你對(duì)你的程序的評(píng)價(jià)？你的收獲有哪些？你有什么沒(méi)有解決的問(wèn)題？等）試 驗(yàn) 報(bào) 告(6)院（系： 課程名稱： 日期：班級(jí)班級(jí)學(xué)號(hào)實(shí)驗(yàn)室專業(yè)姓名計(jì)算機(jī)號(hào)實(shí)驗(yàn)名稱過(guò)程成績(jī)?cè)u(píng)定所用軟件VB6.0教師簽名實(shí)驗(yàn) 1、理解掌握函數(shù)過(guò)程的定義和調(diào)用方目 2、理解掌握子過(guò)程的定義和調(diào)用方法的 3、理解掌握參數(shù)傳遞或 4、掌握變量和過(guò)程的作用要 5、理解遞歸的概念求1、下面的過(guò)程定義語(yǔ)句中合法的是 D 。A.SubPro(Byvaln()) B.SubPro(n)AsIntegerC.FunctionPro(Pro) D.FunctionPro(Byvaln)2、若需通過(guò)過(guò)程調(diào)用返回兩個(gè)結(jié)果，下面的過(guò)程定義語(yǔ)句合法的是 C 。A.SubPro(Byvaln,Byvalm) B.SubPro(n,Byvalm)C.SubPro(n,m) D.SubPro(Byvaln,3、有如下程序段Dimm(10)ForI=0to10m(I)=2*INextIPrintm(m(3))實(shí) 程序段執(zhí)行的結(jié)果是 12 。驗(yàn) 4、有如下事件過(guò)程步 PrivateSubCommand1_Click()驟 S=P(1)+P(2)+P(3)+P(4)、 PrintS心 EndSub得 PblicFunctionP(nAsInteger)體 Staticsum會(huì) Fori=1Tosum=sum+iNextIP=sumEndFunction單擊命令按鈕后，程序執(zhí)行的結(jié)果是 35 。5、有如下事件過(guò)程PrivateSubCommand1_Click()PrintMyFun(24,18)EndSubPblicFunctionMyFun(mAsInteger,nAsInteger)AsIntegerDowhilem<>nDoWhilem>n:m=m-n:LoopDoWhilem<n:n=n-m:LoopLoopMyFun=mEndFunction單擊命令按鈕后，程序執(zhí)行的結(jié)果是 6 。6、有如下程序PrivateSubValue(ByvalmAsInteger,ByvalnAsInteger)m=m*2:n=n-5printm;nEndSubPrivateSubDimxAsIntegerx=10:y=15callvalue(x,y)Printx;yEndSub20 10單擊窗體后，程序執(zhí)行的結(jié)果是_ 10 15 7、有如下程序Subss(Byvalx,Byrefx=x+1y=y+1z=z+1EndPrivateSubCommand1_Click()A=1:B=2:C=3Callss(A,B,C)PrintA,B,CEndSub單擊命令按鈕后，程序執(zhí)行的結(jié)果是134。分析原因可知變量xyz8mnab之間的隨機(jī)整數(shù)，存于56x56標(biāo)準(zhǔn)模塊：Subasum( m,n,a(),b() )Fori=1Tomb(i)=0Forj=1Tonb(i)=b(i)+a(i,j)NextNextiEndSubPrivateSubForm_Click()Dimx(5,6)AsInteger,y(5)AsIntegerFori=1To5Forj=1To6x(i,j)=Int(Rnd*9+1)Print _x(I,j) NextjPrint NextiCallasum(5,6,x(),y())Fori=1To5Printy(i)NextiEndSub9、編輯函數(shù)求兩數(shù)中較大數(shù)。利用窗體單擊事件給函數(shù)傳值并輸出結(jié)果到窗體上。10Function17371000~2000173711fac(n)=nn用函數(shù)，求得結(jié)果輸出到文本框試 驗(yàn) 報(bào) 告(7)院（系： 課程名稱： 日期：班級(jí)班級(jí)學(xué)號(hào)實(shí)驗(yàn)室專業(yè)姓名計(jì)算機(jī)號(hào)實(shí)驗(yàn)名稱用戶界面設(shè)計(jì)成績(jī)?cè)u(píng)定所用 VB6.0 教師簽軟件實(shí) 1、掌握單選按鈕、復(fù)選按鈕和框架的常用屬性、事件、方法及其使驗(yàn) 2、掌握滾動(dòng)條、進(jìn)度條的常用屬性、事件、方法及其使用目 3、定時(shí)器、圖形框和圖像框的常用屬性、事件、方法及其使的 4、掌握通用對(duì)話框的屬性、方法及其應(yīng)用或 5、掌握菜單的設(shè)計(jì)方法要 6、掌握多重窗體和多文檔界面的建立和相關(guān)屬性、事件和方求 7、理解鼠標(biāo)器和鍵盤(pán)事件1、以下說(shuō)法正確的是（ 。任何時(shí)候都可以使用“工具”菜單下的命令打開(kāi)菜單編輯器只有當(dāng)某個(gè)窗體為當(dāng)前活動(dòng)窗體時(shí)，才能打開(kāi)菜單編輯器只有當(dāng)代碼窗口為當(dāng)前活動(dòng)窗口時(shí)，才能打開(kāi)菜單編輯器菜單編輯器2、下面關(guān)于子菜單的說(shuō)法錯(cuò)誤的是（ 。A.每個(gè)菜單項(xiàng)都是一個(gè)控件，與其他控件一樣具有屬性和事件實(shí) B.除了Click事件以為，菜單項(xiàng)不科研響應(yīng)其它事件驗(yàn) C.菜單的索引號(hào)可以不連續(xù)步 D.菜單的索引號(hào)必須從1開(kāi)驟 3、編寫(xiě)如下事件過(guò)程、 PrivateSubFrom_KeyDowm(KeycodeAsInteger,ShiftAsInteger)心 PrintChr(KeyCode)得 EndSub體 PrivateSubFrom_KeyPress(KeyAsciiAsIntegerAsInteger)會(huì) PrintChr(KeyAscii)EndSub在一般情況下（即未按下Shift鍵和大寫(xiě)鎖定鍵，運(yùn)行程序，若“a”鍵，則程序的輸出是（ ）A.A B.a C.A D.aa A A 4、以下各選項(xiàng)說(shuō)法錯(cuò)誤的是（ ）NameCommonDialogX每種對(duì)話框都有自己的默認(rèn)標(biāo)題文件對(duì)話框可分為兩種，即打開(kāi)（Open）文件對(duì)話框和保存（Save）文件對(duì)話框DefaultEXT屬性和DialogTitle但非保存對(duì)話框的屬性5CommonDialog5FormLoadCaption后設(shè)置命令按鈕的字體和Caption6、菜單設(shè)計(jì)如圖界面，編程完成簡(jiǎn)單算術(shù)運(yùn)算。其中：注意:在此題當(dāng)中我們所有的動(dòng)作都是通過(guò)菜單的單擊來(lái)完成的.對(duì)于所生成的隨機(jī)數(shù)可以在規(guī)定的上限、下限范圍內(nèi)產(chǎn)生。7、編輯一個(gè)程序。要求在窗體上按下鼠標(biāo)左鍵時(shí)彈出一個(gè)窗口用于7、編輯一個(gè)程序。要求在窗體上按下鼠標(biāo)左鍵時(shí)彈出一個(gè)窗口用于3心得體會(huì)：（可以從以下幾個(gè)方面來(lái)總結(jié)：你在上機(jī)過(guò)程中遇到了哪些難題？你是怎么克服的？你對(duì)你的程序的評(píng)價(jià)？你的收獲有哪些？你