《VB期中试卷讲评.ppt》由会员分享，可在线阅读，更多相关《VB期中试卷讲评.ppt（25页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、期中试卷讲评,E-MAIL:MATLAB123EYOU.COM,一、填空（7分，每题1分）,1、VB的工程文件扩展名是vbp，窗体文件的扩展名是frm。2、在VB中按F4键可以激活对象属性窗口。3、为了选择多个控件，可以按住ctrl/shift键，然后单击每个控件。4、在VB中用rem或引导注释内容。5、表达式4+56*7/8MOD9的值5。6、的VB表达式为。Log(abs(exp(3.14159)+sin(x)3)/(x*y+5*y)7、在代码窗口中输入一行代码并回车后，代码变成红色，表示语法有错误。,Log(abs(exp(3.14159)+sin(x)3)/(x*y+5*y),二、选择
2、（19分，每题1分）,1、为了把窗体上的某个控件变为活动的，应执行的操作是()A、单击窗体的边框B、单击该控件的内部C、双击该控件D、双击窗体2、确定一个控件在窗体上的位置的属性是（）A、Width或HeightB、Width和HeightC、Top或LeftD、Top和Left3、下列可作为VB的变量名的是（）。A、filenameB、a(a+b)C、254dD、print,4、设a=2，b=3，c=4，d=5，下列表达式的值是（）abANDccA、TrueB、FalseC、-1D、15、设a=2，b=3，c=4，d=5，下列表达式的值是（）32*bORa=cANDbcORcdA、TrueB
3、、FalseC、-1D、1,6、假定Picture1和Text1分别为图片框和文本框的名称，下列不正确的语句是（）A、Print25B、Picture1.Print25C、Text1.Print25D、Debug.Print257、下列语句的输出结果是（）PrintFormat$(32548.5,”000,000.00”)A、32548.5B、32,548.5C、032,548.50D、32,548.50,8、InputBox函数返回值的类型为（）A、数值B、字符串C、变体D、数值或字符串（视输入的数据而定）9、执行下面的语句后，所产生的信息框的标题是a=MsgBox(“AAAA”,”BBBB
4、”,”,5)A、BBBBB、空C、AAAAD、出错，不能产生信息框,10、决定标签内显示内容的属性是（）A、TextB、NameC、AlignmentD、Caption11、假定有以下循环结构DoUntil条件循环体Loop则：正确的描述是()A)如果“条件”是一个为0的常数，则一次循环体也不执行B)如果“条件”是一个为0的常数，则至少执行一次循环体C)如果“条件”是一个不为0的常数，则至少执行一次循环体D)不论“条件”是否为“真”，至少执行一次循环体,12、假定有以下程序段Fori=1to3Forj=5to1Step-1Printi*jNextjNexti则语句Printi*j的执行次数是（
5、）A、15B、16C、17D、1813、以下程序段的输出结果为（）x=1:y=4DoUntily5x=x*y:y=y+1LoopPrintxA、1B、4C、8D、20,14、设a=6，则执行x=IIf(a5,-1,0)后，x的值为（）A、5B、6C、0D、-115、执行下面的程序段后，x的值为（）x=5Fori=1to20Step2x=x+i5NextiA、21B、22C、23D、24,16、在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()X=0DoUntilx=-1a=InputBox(“请输入a的值”):a=Val(a)b=InputBox
6、(“请输入b的值”):b=Val(b)x=InputBox(“请输入x的值”):x=Val(x)a=a+b+xLoopPrintaEndSub程序运行后，单击命令按钮，依次输入5，4，3，2，1，-1，则输出的结果是（）A、2B、3C、14D、15,i=1,j=1,k=13i=2,j=1,k=13;j=2,k=23i=3,j=1,k=13;j=2,K=23;j=3,K=3,17、阅读下面的程序段：fori=1to3forj=1toifork=jto3a=a+1nextknextjnexti执行上面的3重循环后，a的值为A、3B、9C、14D、21,18、在窗体上画两个文本框（Text1,Tex
7、t2）和一个命令按钮（Command1）,然后编写如下事件过程：PrivateSubCommand1_Click()x=0DoWhilex50 x=(x+2)*(x+3)n=n+1LoopText1.text=str(n):Text2.text=str(x)EndSub程序运行后，单击命令按钮，在两个文本框中显示的值分别为（）A、1和0B、2和72C、3和50D、4和168,19、执行下列程序段后，变量c$的值为：a$=”VisualBasicProgramming”b$=”Quick”c$=b$SEndSub,2、计算泰勒级数展开式求sinx的近似值。展开式为：设在文本框text1中输入的是
8、角度，上面公式中的x为弧度。PrivateSubCommand1_Click()X1=val(text1)：X=X1*3.14159/180N=val(text2)：Y=F=1ForI=1ToNS=1ForK=1toT=T*K：S=NextKF=-F：Y=Y+F*NextIPrint“sin(”;X1;”)=”;YEndSub,3、利用梯形法求sinx的定积分，区间为0，2，完善程序。PrivateSubCommand1_Click()A=0:B=2:N=30:S=0H=(B-A)/NForK=ToNT=(sin(A+(K-1)*H)+sin(A+K*H)*H/2S=NextKPrintEnd
9、Sub,四、运行程序，写结果（4*6=24分）,1、执行下面的程序段，S的值为（）s=5fori=2.6to4.9step0.6s=s+1nexti,2、以下程序段的输出结果是（）num=0whilenum=2num=num+1:printnumwend,3、以下程序段所对应的函数表达式是（）,x=inputbox(“Enteraninteger”):x=cint(x)selectcasexcaseis15y=0endselect,4、设有以下的循环：x=1Dox=x+2:PrintxLoopUntil()程序运行后，要求执行30次循环体，请填空.,5、阅读下列程序：,PrivateSubFo
10、rm_Click()Dimk,n,masIntegern=10:m=1:k=1DoWhilek=nm=m*2k=k+1LoopPrintmEndSub程序运行后，输出的结果是（）,6、下列程序运行后，输出的结果是（）PrivateSubCommand1_Click()a=0Fori=1to2Forj=1to4Ifjmod20thena=a+1a=a+1NextjNextiPrintaEndSub,五、编程（要求设计界面，对控件使用情况列表说明，给出相应的程序代码）（2*10=20分）.设计程序，计算1！+2！+n!的值，n从inputbox输入，需要确保n不大于10。2.输出100以内的所有完数。“完数”是指一个数恰好等于它的所有因子之和。如6=1+2+3，28=1+2+4+7+14。,上机练习,1.随机产生20个互不相同的3位数,(1)排序;(2)求出其中的素数及其位置;(3)求出最大、最小值及其位置；(4)求出所有最大、最小值及其位置；(5)求出离平均值最近的数及其位置;(6)把它们放入45的二维数组中;(7)求出所有奇数和与偶数和。(8)输出时，每行5个数。,