《[考试复习题库精编合集]二级VB上机题库19.docx》由会员分享，可在线阅读，更多相关《[考试复习题库精编合集]二级VB上机题库19.docx（4页珍藏版）》请在三一文库上搜索。
1、考试复习题库精编合集二级VB上机题库19考试复习题库精编合集二级VB上机题库191、【简答题】OptionBase1PrivateSubCommand1_Click()DimarrN(20)AsIntegerDimAverAsSingleDimSumAsIntegerRandomizeFori=1To20arrN(i)=?NextiSum=?Fori=1To20Sum=?NextiAver=?PrintAverEndSub10分解析：OptionBase1PrivateSubCommand1_Click()DimarrN(20)AsIntegerDimAverAsSingleDimSumAsI
2、ntegerRandomizeFori=1To20arrN(i)=Int(Rnd*1000)NextiSum=0Fori=1To20Sum=Sum+arrN(i)NextiAver=Sum/20PrintAverEndSub2、【简答题】10分解析：按要求解答即可3、【简答题】PrivateSubCommand1_Click()OpenApp.Path&in5.datForInputAs#1Fori=1To12Forj=1To10Input#1,a(i,j)NextjNextiClose#1EndSubPrivateSubCommand2_Click()考生编写10分解析：Fori=1To12
3、Sum=a(i,1)Forj=2To10Sum=Sum+a(i,j)Nextjs(i)=Int(Sum/10)NextiEndSubPrivateSubCommand3_Click()以下程序段在Text1文本框内显示每组数的组号及平均值Text1.Text=Fori=1To12Ifi0ThenY=Y+1EndIfNextiFun=YEndFunctionPrivateSubCommand1_Click()d=Fun()Text1.Text=dSaveDataEndSub8、【简答题】10分解析：PrivateSubForm_Click()Label1.Left=-Label1.Width+M
4、e.WidthLabel1.Top=0EndSubPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Label1.Left=-Label1.Width+Me.WidthLabel1.Top=0EndSubPrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Label1.Left=-Form1.Label1.Width+Me.WidthLabel1.Top=0EndSub9、【简答题】10分解析：Pr
5、ivateSubCommand1_Click()HScroll1.Max=Form1.WidthHScroll1.Min=0HScroll1.LargeChange=50HScroll1.SmallChange=10EndSubPrivateSubHScroll1_Change()PrintMe.HScroll1.ValueEndSub10、【简答题】SubSaveData()OpenApp.Path&outtxt.txtForOutputAs#1Print#1,Text1.TextClose#1EndSubFunctionFun()需要考生编写的代码10分解析：Sum=0Fori=0To200IfiMod3=0ThenSum=Sum+iEndIfNextiFun=SumEndFunctionPrivateSubCommand1_Click()d=Fun()Text1.Text=dSaveDataEndSub 4 / 4