广东药学院VB练习二.docx
- 文档编号:3593751
- 上传时间:2022-11-24
- 格式:DOCX
- 页数:11
- 大小:23.25KB
广东药学院VB练习二.docx
《广东药学院VB练习二.docx》由会员分享,可在线阅读,更多相关《广东药学院VB练习二.docx(11页珍藏版)》请在冰豆网上搜索。
广东药学院VB练习二
练习二
一、单选题
1、用_B_____属性可唯一标志控件数组中的某一个控件。
A)NameB)IndexC)CaptionD)Tablndex
2、算法的时间复杂度是指____C____。
A)执行算法程序所需要的时间B)算法程序的长度
C)算法执行过程中所需要的基本运算次数D)算法程序中的指令条数
3、下列哪条语句是错的___C____。
A)exitsubB)exitfunctionC)exitwhileD)exitdo
4、下列叙述中正确的是____C___。
A)在窗体的FormLoad事件过程中定义的变量是全局变量
B)局部变量的作用域可以超出所定义的过程
C)在某个Sub过程中定义的局部变量可以与其他事件过程中定义的局部变量同名,但其作用域只限于该过程
D)在调用过程中,所有局部变量被系统初始化为0或空字符串
5、对建立良好的程序设计风格,下面描述正确的是___A____。
A)程序应简单、清晰、可读性好B)符号名的命名要符合语法
C)充分考虑程序的执行效率D)程序的注释可有可无
6、设在菜单编辑器中定义了一个菜单项,名为menu1。
为了在运行时隐藏该菜单项,应使用的语句是___D____。
A)menu1.Enabled=TrueB)menu1.Enabled=False
C)menu1.Visible=TrueD)menu1.Visible=False
7、图像框有一个属性,可以自动调整图像框的大小,以适应图像的尺寸,这个属性是_B__。
A)AutoSizeB)StretchC)AutoRedrawD)Appearance
8、大部分控件都没有的属性是_D______。
A)TopB)NameC)VisibleD)Interval
9、在代码中定义了一个子过程:
SubP(a,b)
…
EndSub
下面__C_____调用该过程的格式是正确的。
A)CallPB)CallP10,20C)CallP(10,20)D)P(10,20)
10、将一个窗体设置为MDI子窗体的方法是__B______。
A)将窗体的名称改为MDIB)将窗体的MDIChild属性设为True
C)将窗体的MDIChild属性设为FalseD)将窗体的Enabled属性设为False
11、在程序运行期间,如果拖动滚动条上的滚动框,则触发的滚动条事件是_C_____。
A)MoveB)ChangeC)ScrollD)GetFocus
12、表达式4+5\6*7/8Mod9的值是___B___。
A)4B)5C)6D)7
13、在VisualBasic中,下列_D___是合法的变量名。
A)RemB)2ndC)LoapD)Sum
14、对象的三个要素是:
A____。
A)属性、方法、事件B)色彩、高度、宽度
C)事件、属性、色彩D)属性、高度、宽度
15、窗体模块文件的扩展名是:
A____。
A)frmB)basC)vbpD)txt
16、VisualBasic逻辑运算符Xor、0r、Not、And中,级别最高的运算符是__C____。
A)XorB)OrC)NotD)And
17、InputBox函数返回值的类型为____B___。
A)数值B)字符串C)变体D)数值或字符串(视输入的数据而定)
18、为了把焦点移到某个指定的控件,所使用的方法是__A_____。
A)SetFocusB)VisibleC)RefreshD)GetFocus
19、设a=6,则执行x=IIF(a>5,-1,0)后,x的值为____D___。
A)5B)6C)0D)-1
20、以下对变量名的说法中,不正确的是__C_____。
A)不能以数字开头B)不能是VisualBasic的保留字
C)可以包含字母、数字、下划线和标点符号D)不能超过255个字符
21、以下关于多重窗体程序的叙述中,错误的是____A___。
A)用Hide方法不但可以隐藏窗体,而且能清除内存中的窗体
B)在多重窗体程序中,各窗体的菜单是彼此独立的
C)在多重窗体程序中,可以根据需要指定启动窗体
D)对于多重窗体程序,需要单独保存每个窗体
22、在VisualBasic中,设置控件的大小,可改变下列_A___属性。
A)Height与WidthB)Height与TopC)Left与TopD)Left与Width
23、VisualBasic根据计算机访问文件的方式将文件分成三类,其中不包括__B_____。
A)顺序文件B)Unix文件C)二进制文件D)随机文件
24、符号%是声明___A____类型变量的类型定义符。
A)IntegerB)VariantC)SingleD)String
25、用Dim(1,1to3)声明的是一个___B____维数组。
A)1B)2C)3D)4
26、计算机操作系统的作用是____A____。
A)管理计算机系统的全部软、硬件资源,合理组织计算机工作流程,以达到充分发挥计算机资源的效率,为用户提供使用计算机的友好界面
B)对用户存储的文件进行管理,方便用户
C)执行用户键入的各类命令
D)为汉字操作系统提供运行基础
27、计算机的硬件主要包括:
中央处理器(CPU)、存储器、输出设备和_____C____。
A)键盘B)鼠标C)输入设备D)显示器
28、下列个组设备中,完全属于外部设备的一组是____D____。
A)内存储器、磁盘和打印机B)CPU、软盘驱动器和RAM
C)CPU、显示器和键盘D)硬盘、软盘驱动器、键盘
29、计算机存储器中,组成一个字节的二进制位数是____B____。
A)4B)8C)16D)32
30、微型计算机硬件系统中最核心的部件是__D______。
A)硬盘B)I/O设备C)内存储器D)CPU
二、填空题
I阅读程序,写出下列程序的运行结果:
1、下列VisualBasic程序段运行后,变量M的值为__[1]_1_。
a=2:
b=1:
c=5
Ifa Ifc 2、在窗体上画一个文本框,然后编写如下事件过程: PrivateSubTextl_KeyPress(KeyAsciiAsInteger) DimcharAsString char=Chr(KeyAscii) KeyAscii=Asc(UCase(char)) Textl.Text=String(6,KeyAscii) EndSub 程序运行后,如果在键盘上输入字母“a”,则文本框中显示的内容为___[2]AAAAAAA ____。 3、在窗体上画一个命令按钮,然后编写如下事件过程: PrivateSubCommand1_Click() x=0 DoUntilx=-l a=InputBox("请输入A的值") a=Val(A) b=InputBox("请输入B的值") b=Val(B) x=InputBox("请输入x的值") x=Val(x) a=a+b+x Loop Printa EndSub 程序运行后,单击命令按钮,依次在输入对话框中输入5、4、3、2、1、-l,则输出结果为___[3]__2 __。 4、在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: PrivateSubCommand1_Click() StaticxAsInteger Cls Fori=lTO2 y=y+x x=x+2 Next Printx,y EndSub 程序运行后,连续三次单击Command1按钮后,窗体上显示的是___[4]__1218 __。 5、执行下列语句后整型变量a的值是___[5]___30__。 If(3-2)>2Then a=10 ElseIf(10/2)=6Then a=20 Else a=30 EndIf II在下列程序的划线处填写适当代码,使之能够完成题目要求: 6、完善程序,自定义一个名为JieC的函数,利用递归定义N! =n*(n-1)! 求n的阶乘。 Public____[6]___Function_____JieC(___[7]__n__%)AsDouble Ifn=0Then JieC=1 Else __________[8JieC=n*JieC(n-1) EndIf _______End_[9]______Function 7、完善程序,统计文本框中大小写字母各有多少个。 s=Text1.Text Fori=1To_____[10]______Len(s) c=_____[11]___Mid(s,i,1)____ Ifc>="A"And_____[12c<=”Z”Then t=t+1 Else m=m+1 EndIf ___[13]___Nexti Print"大写字符有"&t&"个";"小写字符有"&m&"个" 8、完善程序,完成选择排序。 程序可随机生成指定个数的[10,99]区间的整数进行排序,在窗体中显示每一步排序操作的结果。 Dimia()AsInteger,i%,j%,imin%,t%,n% n=Val(InputBox("请输入数组元素的个数: ")) ______[14]___ReDimia(n)_______ Form1.Cls Fori=1Ton ia(i)=___________[15]_Int(Rnd*(99-10+1))+10 Printia(i); Nexti Fori=1To_____[16]_n-1_______ imin=i Forj=i+1Ton Ifia(imin)>ia(j)Thenimin=j Nextj t=ia(i) ia(i)=ia(imin) ____________[17]____ia(imin)=t_____________ Print Forj=1Ton Printia(j); Nextj Nexti Print 9、完善程序,输入x,求: Sin(x)=x/1-x^3/3! +x^5/5! -x^7/7! +``````+(-1)^n-1*x^2n-1/(2n-1)! 要求当第N项的精度小于10^-5时结束运算,自变量x单位为弧度。 提示: t当前项=-1*t前一项*x^2/((i-1)*i) Dimx! DimSx! Dimi%,t! x=Val(InputBox("x=")) i=1 t=x/1 DoUntil___[18]_t_____<10^(-5) _______[19Sx=Sx+t i=i+2 t=-1____[20]____*t*__x^2/((i-1)*i) _____[21Loop MsgBox"计算结果Sin("&x&")="&Sx&vbCrLf&"验证Sin("&x&")="&Sin(x) 10、完善程序,在窗体中绘制y=Sin(x)函数图形。 要求鼠标单击窗体时开始绘制,绘制范围: -3.1415926<=x<=3.1415926 Dimx! y! PrivateSub______[22]__Form_Clik()____ ________[23X=-3.1415926 Timer1.Interval=100 EndSub PrivateSubTimer1_Timer() x=x+0.05 ______[24]____y=sin(x)______ x0=x+Line2.X1 y0=-y+Line1.Y1 Shape1.Movex0,y0-Shape1.Height/2 PSet(x0,y0),RGB(255,0,0) Ifx______[25]__>3.1415926 _ThenTimer1.Interval=0 EndSub 三、编程题 1、建立一个名为Max的函数过程,它能接受一个单精度类型的数组参数,求出该数组元素的最大值并将这个最大值作为函数值返回。 建立一个简单的窗体界面,任意定义一个单精度类型数组,调用上述的函数Max求出其最大值并显示出来。 1、FunctionMax(a()AsSingle)AsSingle DimiMax%,i% iMax=Lbound(a) Fori=Lbound(a)+1ToUbound(a) Ifa(i)>a(iMax)TheniMax=i Nexti Max=a(iMax) EndFunction PrivateSubPicture1_Click() Dimx(1To10)AsSingle Fori=1To10 x(i)=Rnd*100 Print"x("&i&")="&x(i); Nexti Print Print"最大的数组元素是"&Max(x()) EndSub 2、编程计算圆周率Pi的近似值。 计算方法: ……一直到1/i小于0.0000001为止。 DimPiAsDouble,IAsLong,fuhao% fuhao=1 i=1 DoUntil1/i<0.0000001 Pi=Pi+fuhao*1/I fuhao=-fuhao i=i+2 Loop Pi=4*Pi Print"π=";Pi 练习二参考答案 一、单选题 1-5: BCCCA6-10: DBDCB11-15: CBDAA 16-20: CBADC21-25: AABAB26-30: ACDBD 二、填空题 1、 (1)1 2、 (2)AAAAAAA 3、(3)2 4、(4)1218 5、(5)30 6、(6)Function(7)n (8)JieC=n*JieC(n-1)(9)End 7、(10)Len(s)或Len(Text1.text)(11)Mid(s,i,1) (12)c<=”Z”(13)Nexti 8、(14)ReDimia(n)(15)Int(Rnd*(99-10+1))+10或Int(Rnd*90)+10 (16)n-1(17)ia(imin)=t 9、(18)t(19)Sx=Sx+t(20)*t*(21)Loop 10、(22)Form_Clik()(23)X=-3.1415926(24)y=sin(x)(25)>3.1415926 三、编程题 1、FunctionMax(a()AsSingle)AsSingle DimiMax%,i% iMax=Lbound(a) Fori=Lbound(a)+1ToUbound(a) Ifa(i)>a(iMax)TheniMax=i Nexti Max=a(iMax) EndFunction PrivateSubPicture1_Click() Dimx(1To10)AsSingle Fori=1To10 x(i)=Rnd*100 Print"x("&i&")="&x(i); Nexti Print Print"最大的数组元素是"&Max(x()) EndSub 2、DimPiAsDouble,IAsLong,fuhao% fuhao=1 i=1 DoUntil1/i<0.0000001 Pi=Pi+fuhao*1/I fuhao=-fuhao i=i+2 Loop Pi=4*Pi Print"π=";Pi
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 广东 药学 VB 练习
![提示](https://static.bdocx.com/images/bang_tan.gif)