2025年湖南農(nóng)業(yè)大學(xué)vb考試題及答案一、單項選擇題（本大題共15小題，每小題2分，共30分）1.以下關(guān)于VB變量聲明的描述中，正確的是（）A.用Dim聲明的變量作用域僅為當(dāng)前過程B.全局變量必須用Public在標(biāo)準(zhǔn)模塊中聲明C.Static聲明的變量在過程結(jié)束后會被釋放D.變量聲明時若未指定類型，默認(rèn)為Integer2.表達(dá)式3^2+15Mod425的計算結(jié)果是（）A.9B.2C.4D.73.要實現(xiàn)“若x大于等于60且小于80，輸出‘合格’；若x大于等于80，輸出‘優(yōu)秀’；否則輸出‘不合格’”的邏輯，正確的If語句結(jié)構(gòu)是（）A.Ifx>=60ThenIfx<80ThenPrint"合格"ElsePrint"優(yōu)秀"ElsePrint"不合格"EndIfB.Ifx>=80ThenPrint"優(yōu)秀"ElseIfx>=60ThenPrint"合格"ElsePrint"不合格"EndIfC.Ifx<60ThenPrint"不合格"ElseIfx<80ThenPrint"合格"ElsePrint"優(yōu)秀"EndIfD.以上都不正確4.執(zhí)行以下代碼后，變量s的值是（）DimsAsInteger,iAsIntegers=0Fori=1To5Step2s=s+iNextiA.9B.6C.12D.155.以下關(guān)于動態(tài)數(shù)組的描述，錯誤的是（）A.動態(tài)數(shù)組聲明時用空括號，如Dimarr()AsIntegerB.可用ReDim重新定義動態(tài)數(shù)組的大小C.ReDim會保留數(shù)組原有數(shù)據(jù)，除非使用Preserve關(guān)鍵字D.動態(tài)數(shù)組的下標(biāo)默認(rèn)從0開始6.定義一個返回整型值的函數(shù)Func，正確的聲明是（）A.FunctionFunc()AsIntegerB.SubFunc()AsIntegerC.FunctionFunc(Integer)AsIntegerD.SubFunc()7.當(dāng)用戶點擊命令按鈕Command1時，觸發(fā)的事件是（）A.Command1_Click()B.Command1_Change()C.Command1_Load()D.Command1_Init()8.執(zhí)行語句a=Mid("湖南農(nóng)業(yè)大學(xué)信息學(xué)院",5,4)后，a的值是（）A.農(nóng)業(yè)B.大學(xué)C.農(nóng)大D.業(yè)大9.要以追加方式打開D盤下的“sales.txt”文件進(jìn)行寫操作，正確的Open語句是（）A.Open"D:\sales.txt"ForInputAs1B.Open"D:\sales.txt"ForAppendAs1C.Open"D:\sales.txt"ForOutputAs1D.Open"D:\sales.txt"ForRandomAs110.若要設(shè)置文本框Text1輸入時顯示星號（），需將其（）屬性設(shè)為""A.PasswordCharB.TextC.CaptionD.MaxLength11.以下錯誤處理語句中，能跳過錯誤并繼續(xù)執(zhí)行下一條語句的是（）A.OnErrorGoTo0B.OnErrorResumeNextC.OnErrorGoTo100D.OnErrorExitSub12.執(zhí)行Form1.Circle(1000,1000),500后，在窗體上繪制的圖形是（）A.圓心在(1000,1000)、半徑500的圓B.圓心在(500,500)、半徑1000的圓C.左上角在(1000,1000)、邊長500的正方形D.起點在(1000,1000)、長度500的直線13.使用ADO控件連接數(shù)據(jù)庫時，需設(shè)置（）屬性指定數(shù)據(jù)庫路徑A.RecordSourceB.ConnectionStringC.CommandTypeD.Recordset14.若要隱藏菜單項Menu1，需將其（）屬性設(shè)為FalseA.VisibleB.EnabledC.CheckedD.Caption15.定義一個表示“農(nóng)作物”的結(jié)構(gòu)體，包含名稱（字符串）、生長期（整型）、產(chǎn)量（單精度），正確的聲明是（）A.TypeCropNameAsStringGrowthPeriodAsIntegerYieldAsSingleEndTypeB.StructureCropNameStringGrowthPeriodIntegerYieldSingleEndStructureC.DimCropAsTypeNameAsStringGrowthPeriodAsIntegerYieldAsSingleEndTypeD.ClassCropPublicNameAsStringPublicGrowthPeriodAsIntegerPublicYieldAsSingleEndClass二、填空題（本大題共10小題，每空2分，共20分）1.表達(dá)式Int(-3.8)+Fix(3.8)的結(jié)果是________。2.執(zhí)行以下代碼后，變量n的值是________。DimnAsInteger,iAsIntegern=0Fori=1To10IfiMod3=0Thenn=n+iNexti3.函數(shù)Fun的功能是計算n的階乘，補(bǔ)全代碼：FunctionFun(nAsInteger)AsLongIfn=0ThenFun=1ElseFun=________EndIfEndFunction4.若要將標(biāo)簽Label1的文字居中顯示，需設(shè)置其Alignment屬性為________（填數(shù)值）。5.執(zhí)行以下文件操作代碼后，文件指針會移動到文件開頭的是________（填語句序號）。①Open"data.txt"ForInputAs1②Seek1,1③Reset6.二維數(shù)組arr(2,3)的元素個數(shù)是________。7.列表框List1的________屬性可返回選中項的索引（下標(biāo)）。8.執(zhí)行a=Len(Trim("2025年VB考試"))后，a的值是________。9.表達(dá)式(10+20)\3+15Mod4的結(jié)果是________。10.調(diào)用無參數(shù)過程Pro時，正確的語句是________或________。三、程序填空題（本大題共3小題，每空3分，共30分）1.以下代碼實現(xiàn)統(tǒng)計學(xué)提供績的平均分和優(yōu)秀率（分?jǐn)?shù)≥85為優(yōu)秀），請補(bǔ)全空白處。PrivateSubCommand1_Click()DimscoreAsSingle,sumAsSingle,countAsIntegerDimexcellentAsInteger,averageAsSinglesum=0:count=0:excellent=0Doscore=Val(InputBox("請輸入學(xué)提供績（輸入0結(jié)束）"))Ifscore=0ThenExitDosum=sum+scorecount=count+1If________Thenexcellent=excellent+1EndIfLoopIfcount>0Thenaverage=sum/countLabel1.Caption="平均分："&Format(average,"0.00")Label2.Caption="優(yōu)秀率："&Format(excellent/count,"0.00%")ElseMsgBox"無有效數(shù)據(jù)！"EndIfEndSub2.以下代碼從文件"crops.txt"中讀取農(nóng)產(chǎn)品名稱和產(chǎn)量，計算總銷量并輸出，補(bǔ)全空白處。PrivateSubCommand2_Click()DimnameAsString,yieldAsSingle,totalAsSingletotal=0Open"c:\crops.txt"For________As1DoWhileNotEOF(1)Input1,name,yieldtotal=total+yieldLoopClose1MsgBox"農(nóng)產(chǎn)品總銷量："&total&"噸"EndSub3.以下代碼在窗體上繪制坐標(biāo)系（x軸從0到100，y軸從0到80），補(bǔ)全空白處。PrivateSubForm_Paint()DimxAsInteger,yAsInteger'繪制x軸Line(0,Me.ScaleHeight/2)-(Me.ScaleWidth,Me.ScaleHeight/2)'繪制y軸Line(Me.ScaleWidth/2,0)-(Me.ScaleWidth/2,Me.ScaleHeight)'標(biāo)記x軸刻度（每10單位一個刻度）Forx=10To100Step10Line(Me.ScaleWidth/2+x,Me.ScaleHeight/23)-(Me.ScaleWidth/2+x,Me.ScaleHeight/2+3)Me.CurrentX=Me.ScaleWidth/2+x5Me.CurrentY=Me.ScaleHeight/2+5PrintxNextx'標(biāo)記y軸刻度（每10單位一個刻度）Fory=10To80Step10Line(Me.ScaleWidth/23,Me.ScaleHeight/2y)-(Me.ScaleWidth/2+3,Me.ScaleHeight/2y)Me.CurrentX=Me.ScaleWidth/220Me.CurrentY=Me.ScaleHeight/2y5PrintyNextyEndSub四、編程題（本大題共2小題，每小題10分，共20分）1.設(shè)計一個VB程序，實現(xiàn)“農(nóng)產(chǎn)品銷售統(tǒng)計”功能。要求：（1）界面包含文本框（輸入產(chǎn)品名稱）、數(shù)值框（輸入銷量，范圍0-1000）、數(shù)值框（輸入單價，范圍0-50）、命令按鈕（“統(tǒng)計”）和標(biāo)簽（顯示結(jié)果）；（2）點擊“統(tǒng)計”按鈕時，計算該產(chǎn)品的銷售額（銷售額=銷量×單價），并在標(biāo)簽中顯示“產(chǎn)品名稱：XX，銷量：XX，單價：XX元，銷售額：XX元”；（3）輸入驗證：若銷量或單價小于0，提示“輸入不能為負(fù)數(shù)”。2.編寫一個VB程序，讀取D盤下“soil_data.txt”文件（每行一個浮點數(shù)，表示土壤濕度），計算所有數(shù)據(jù)的平均值、最大值和最小值，并將結(jié)果寫入“soil_analysis.txt”文件（格式：平均值：X.XX，最大值：X.XX，最小值：X.XX）。答案一、單項選擇題1.B2.C3.B4.A5.C6.A7.A8.B9.B10.A11.B12.A13.B14.A15.A二、填空題1.-1（Int(-3.8)=-4，F(xiàn)ix(3.8)=3，-4+3=-1）2.18（i=3,6,9時累加，3+6+9=18）3.nFun(n-1)（遞歸計算階乘）4.2（Alignment=2表示居中）5.③（Reset關(guān)閉所有文件并重置文件指針）6.12（3行4列，3×4=12）7.ListIndex（選中項的下標(biāo)）8.8（Trim去除前后空格，"2025年VB考試"共8字符）9.10（(30)\3=10，15Mod4=3，10+3=13？原題可能計算錯誤，正確應(yīng)為(10+20)\3=10，15Mod4=3，10+3=13，可能題目或答案需修正）10.CallPro()；Pro（無參過程調(diào)用方式）三、程序填空題1.score>=85（優(yōu)秀條件）2.Input（讀取文件用Input模式）3.（注：題目中第三題代碼已完整，可能需補(bǔ)全的是坐標(biāo)系原點位置，如Me.ScaleWidth/2和Me.ScaleHeight/2表示窗體中心為原點）四、編程題1.參考代碼：PrivateSubCommand1_Click()DimpNameAsString,amountAsInteger,priceAsSingle,salesAsSinglepName=Text1.Textamount=Val(Spin1.Value)price=Val(Spin2.Value)Ifamount<0Orprice<0ThenMsgBox"輸入不能為負(fù)數(shù)！"ExitSubEndIfsales=amountpriceLabel1.Caption="產(chǎn)品名稱："&pName&"，銷量："&amount&"，單價："&price&"元，銷售額："&sales&"元"EndSub（界面設(shè)計：Text1用于輸入名稱，Spin1（數(shù)值框）設(shè)置Min=0、Max=1000，Spin2設(shè)置Min=0、Max=50，Command1標(biāo)題“統(tǒng)計”，Label1初始為空）2.參考代碼：PrivateSubCommand1_Click()DimhumidityAsSingle,sumAsSingle,countAsIntegerDi