广东药学院VB练习二Word下载.docx
《广东药学院VB练习二Word下载.docx》由会员分享，可在线阅读，更多相关《广东药学院VB练习二Word下载.docx（11页珍藏版）》请在冰豆网上搜索。
下面__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）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<
bThenm=aElsem=b
Ifc<
mThenm=c
2、在窗体上画一个文本框，然后编写如下事件过程：
PrivateSubTextl_KeyPress（KeyAsciiAsInteger）
DimcharAsString
char=Chr（KeyAscii）
KeyAscii=Asc（UCase（char））
Textl．Text=String（6，KeyAscii）
程序运行后，如果在键盘上输入字母“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
程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-l，则输出结果为___[3]__2
__。
4、在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
StaticxAsInteger
Cls
Fori=lTO2
y=y+x
x=x+2
Next
Printx,y
程序运行后，连续三次单击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
m=m+1
___[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）;
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（"
Sin（x）
10、完善程序，在窗体中绘制y=Sin（x）函数图形。
要求鼠标单击窗体时开始绘制，绘制范围：
-3.1415926<
=x<
=3.1415926
y!
PrivateSub______[22]__Form_Clik（）____
________[23X=-3.1415926
Timer1.Interval=100
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
三、编程题
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）;
最大的数组元素是"
Max（x（））
2、编程计算圆周率Pi的近似值。
计算方法：
……一直到1/i小于0.0000001为止。
DimPiAsDouble,IAsLong,fuhao%
fuhao=1
DoUntil1/i<
0.0000001
Pi=Pi+fuhao*1/I
fuhao=-fuhao
Pi=4*Pi
π="
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）>
2、DimPiAsDouble,IAsLong,fuhao%
升级会员 