vb程序设计基础课后答案

1、vb程序设计基础课后答案【篇一：vb程序设计基础与vba应用1-8章参考答s=txt>p28习题一二，单选题1,b2,b3,d4,a5,d6,b7,b8,c9,d三，程序设计题privatesubcommand1_click()forml.fontname=宋体form1.print中文字体宋体endsubprivatesubcommand2_click()form1.fontname=楷体_gb2312form1.print中文字体楷体endsubprivatesubcommand3_click()form1.fontname=仿宋_gb2312form1.print中文字体仿宋end

2、subp57习题二一，判断题对:1,3,7,10,14错:2,4,5,6,8,9,11,12,13二，单选题,a2,c3,c4,ba7,b8,c9,b,c12,d13,b14,a16,b17,b18,c19,b21,b22,d23,a24,c26,a27,d28,b(2) 三，简答题(1)2*cos(alfa)*sin(alfa/(2*a)sqr(s*(s-a)*(s-b)*(s-c)(a*a+b*c*(x+y)/(a+b)(7) (2*3.14159*r+exp(-5)*log(x)5,b10,c15,d20,b25,b(5)1/(x+1/(y+1)k/(1+a*exp(-b*x)cos(a

3、lfa)八2+atn(alfa)sqr(y八3+3*(a*a+b*b)/(x*x+y*y)(1)(a+b)modc(2)sqr(abs(x)int(x)+1(4)int(rnd*101)+2003 o(1)f(2)tft4 .(1)1=xandx12(2)t+3v-2and(t+v)100(3) (a+b)=cor(a-c)=c(4) a0andint(a)=aandb0andint(b)=bora0andb0(5) x=yorx=z(6) a=0andb0ora0andb=0四,编程题privatesubform_click()dimaasinteger,basinteger,casinte

4、gerdimyassinglea=inputbox(请输入正整数a的值)b=inputbox(请输入正整数b的值)c=inputbox(请输入正整数c的值)y=(a+b+c)/3print平均值:;yendsub2.privatesubcommand1_click()dimaasinteger,basinteger,casintegerdimyassinglea=val(text1.text)b=val(text2.text)c=val(text3.text)y=(a+b+c)/3label1.caption=str(y)endsub1. privatesubform_click()dimra

5、sinteger,sassingleconstpi=3.14159r=inputbox(输入圆半径)s=pi*r*rmsgbox圆面积area=+str(s)endsubp114习题三一，1,a2,b3,b4,a5,c二，1,37,55,64,28,192, y=kigeca3, 1121123211234321123454321123456543214, china!三，1,tasdoubles=1abs(t)=0.00001s=s+t2, s+c-1s3, m=nmtonsum=sum+jsum=i四，1,privatesubform_click()dimxassingle,fassing

6、lex=inputbox(输入x:)ifx-5thenf=3*x*x+2*x-1elseifx=5thenf=x*sin(x)+2八xelsef=sqr(x-5)+log(x)/log(10)endiflabel1.caption=fendsub2.privatesubform_click()dimnasinteger,iasinteger,flagasinteger,sassingle,tasintegern=inputbox(请输入n的值：)sum=0t=1flag=-1fori=1tonflag=-flagt=t*is=s+flag*i/tnextiprints=;sendsub3.pr

7、ivatesubcommand1_click()fori=1to9forj=1toiprinti;*;j;=;i*j;nextjprintnextiendsub4.(1) privatesubform_click()fori=1to5printtab(6-i);forj=1to2*i-1print*;nextjprintnextifori=4to1step-1printtab(6-i);forj=1to2*i-1print*;nextjprintnextiendsubp152一、单选题1,b2,d3,c4,c5,d二、程序阅读题1,24711162,1491625234545656712109

8、,div=3三、程序填空题1、len(stmid(str1,i,1)P=jip2、l=len(str)a(i)=mid(str,i,1)p=s-96x(p)=x(p)+13、a(1to4,1to5)s=0a(i,5)=s/4四，程序设计题1,privatesubform_click()练习四【篇二：二vb程序设计基础课后选择题答案】txt>cdadbbabdadbadacccdcbcacbc第2章ababdcbccdbabdcccabcdffftftfttf第3章cacbaacccbccacacbbadcdbdatttttft第4章bddbbccdbcbc第6章bbabbacdacbab

9、cd第7章cbadccaaacccabcdcbddcbbcabbd【篇三：计算机程序设计基础课后练习题参考答案】ss=txt>一.判断题(错)事件过程由某个用户事件或系统事件触发执行，但不能被其他过程调用。(2) (错)若x=2,y=5,则表达式y-2xandx+2>y的结果为：true。(3) (错)常量是指在程序运行过程中其值可以改变的那些量。(错，timer没有)vb工具箱中的所有控件都具有宽度(width)和高度(height)属性。(错)定义变量:dimmax,minassingle,贝Umax和min的数据类型均为single。(对)如果创建的菜单项的标题是一个减号-”

10、，则该菜单项显示为一条分隔线。(错)标准模块文件的扩展名是“*vbpo(错，都不能)定时器控件可以响应click事件，但不能响应dbclick事件。(4) (错)在默认情况下，数组下标下界的缺省值为1。(对)在使用字体对话框时，需要对其flags属性先进行相应设置。(5) 二.单选题在visualbasic中，表示鼠标单击事件的是c。(6) activateb)doubleclickc)clickd)mousedown用于设置计时器时间间隔的属性是。(7) intervalb)namec)leftd)top函数int(10*rnd)是在范围内的整数。(8) 1,10b)1,10c)0,9)d)

11、0,9selectcase语句结构的结尾应使用a)endb)endcasec)endsubd)endselect改变了容器的坐标系后，该容器的a属性值不会改变。(9) a)leftb)scaleleftc)scaletopd)scalewidth执行下列语句后，列表框中各表项顺序为list1.clearfori=1to4:list1.additemi-1,0:nextia)b)c)d)输入对话框inputbox的返回值的类型是。(10) a)字符串b)整数c)浮点数d)长整数将焦点主动设置到指定的控件或窗体上，应采用b方法。(11) a)setdateb)setfocusc)settextd)

12、getdata有如下程序段：(12) dimiasinteger,sasintegers=1fori=1to8step2s=s*inextiprint"s=;s运行结果为ba)s=9b)s=105c)s=1d)s=16利用以下语句，可以输出日期和时间信息。(13) a)printdateb)printmonthc)printtimed)printnow一只漂亮的酒杯被摔碎了，则漂亮，酒杯，摔是d。(14) a)对象，属性，事件b)对象，属性，方法c)属性，对象，方法d)属性，对象，事件将通用对话框以打开文件对话框”方式打开，则选以下方法。a)showopenb)showcolorc)

13、showsaved)showfont执行语句"line(100,100)-(150,200),vbblue,b在齿体上绘制出一个矩形，那么该矩形的面积=a。(15) a)5000b)10000c)15000d)20000如何使一个标签或按钮控件在运行时不可用c。(16) a)把它的visible属性设置成falseb)把它的visible属性设置成truec)把它的enabled属性设置成falsed)把它的enabled属性设置成true下列c表达式的结果为1234556789。a) a)trim(12345+56789)b)ltrim(12345)+rtrim(56789)c)r

14、trim(12345)(56789)d)ltrim(12345)rtrim(56789)将图形框(picturebox)控件的autosize属性设置为true后,则对于图形框而言，b°图形框中的图片自动改变大小适应图形框图形框自动改变大小适应其中的图形如果图片的大小比图形框大，则图形框自动裁剪图象以适应图形框的大小。b) 如果图片的大小比图形框小，则图形框大小不发生变化。(17) 要获得当前驱动器应使用驱动器列表框的哪个属性。(18) a)pathb)drivec)dird)pattern以下关于函数过程的叙述中，正确的是a。(19) 函数过程形参的类型与函数返回值的类型没有关系在

15、函数过程中，过程的返回值可以有多个数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递如果不指明函数过程参数的类型，则该参数没有数据类型单击滚动条的滚动箭头时，产生的事件是c。(20) a)clickb)scrollc)changed)move以下能返回文件长度的函数是_b。a)bofb)lofc)lend)eof三.程序填空题【程序填空1】在c盘当前文件夹下已存在名为data.txt的文件，利用文本框(text1)输入若干英文单词。要求每输入一个单词后，按下回车键将文本框中的单词写入文件，然后清除文本框的内容以便输入下一个单词。当在文本框中输入的单词是“end”时，则表示结束输入

16、(对于单词“end”不论大小写都视为结束)，最后将文件关闭。privatesubform_load()atext1.text=endsubprivatesubtext1_keypress(keyasciiasinteger)ifkeyascii=13thenif(32)d=endthenclose#endelse(33)a(注意，text1的默认属性为text,可省略不写)text1.text=endifendifendsuba)openc:data.txtforoutputas#1openc:data.txtforinput#1openc:data.txtinputas#1openc:dat

17、a.txtoutputas#1a)lcase(text1.text)b)textl.textc)str(textl)d)ucase(textl.text)a)write#1,textlb)write#1,textc)write#3,text1.textd)write#1,text.text【程序填空2】程序运行后如下图所示，label1的caption显示为字体定时变大，影响字体大小的属性每隔0.5秒增加1,数值在8,72之间变化。optionexplicitprivatesubform_load()timer1.enabled=trueblabel1.caption=字体定时变大endsub

18、privatesubtimer1_timer()staticiasintegerifi7ori=72theni=7i=i+1aendsuba)erval=5/10b)erval=500c)erval=trued)erval=false(35)a)label1.fontsize=ib)label1.font=ic)label1.size=id)label1.fontsize=i+1【程序填空3】已知五个数存放在数组中，用冒泡法对该数组进行递减排序(冒泡法：一旦发现数组中两个数逆序马上交换这两个数)。privatesu

19、bcommand1_click()dima(1to5)asintegerdimn%,i%,j%,t%a(1)=53:a(2)=34:a(3)=45:a(4)=89:a(5)=23fori=1to4(确保第i轮循环后，a(i)位置上存放第i大的数)forj=5toi+1step-1ifthent=a(j)a(j-1)=tendifnextjnextifori=1to5printa(i);nextiendsub(31) a)a(j)a(j-1)b)a(j)a(j-1)c)a(i)a(j)d)a(j)a(i)a)a(i)=a(j)b)a(j-1)=a(j)c)a(j)=a(i)d)a(j)=a(j-1)【程序填空4】在窗体上画一