VB练习题(2)

练习二6-10: DBDCB

一、单选题

1、用______属性可唯一标志控件数组中的某一个控件。

A)Name B)Index C)Caption D)Tablndex

2、算法的时间复杂度是指________。

A)执行算法程序所需要的时间 B)算法程序的长度

C)算法执行过程中所需要的基本运算次数 D)算法程序中的指令条数

3、下列哪条语句是错的_______。

A)exit sub B)exit function C)exit while D)exit do

4、下列叙述中正确的是_______。

A)在窗体的Form Load事件过程中定义的变量是全局变量

B)局部变量的作用域可以超出所定义的过程

C)在某个Sub过程中定义的局部变量可以与其他事件过程中定义的局部变量同名，但其作用域只限于该过程

D)在调用过程中，所有局部变量被系统初始化为0或空字符串

5、对建立良好的程序设计风格，下面描述正确的是_______。

A)程序应简单、清晰、可读性好 B)符号名的命名要符合语法

C)充分考虑程序的执行效率 D)程序的注释可有可无

6、设在菜单编辑器中定义了一个菜单项，名为menu1。为了在运行时隐藏该菜单项，应使用的语句是_______。

A)menu1．Enabled=True B)menu1．Enabled=False

C)menu1．Visible=True D)menu1．Visible=False

7、图像框有一个属性，可以自动调整图像框的大小，以适应图像的尺寸，这个属性是 ___。

A)AutoSize B)Stretch C)AutoRedraw D)Appearance

8、大部分控件都没有的属性是_______。

A)Top B)Name C)Visible D)Interval

9、在代码中定义了一个子过程：

Sub P(a,b)

…

End Sub

下面_______调用该过程的格式是正确的。

A)Call P B)Call P 10,20 C)Call P(10,20) D)P(10,20)

10、将一个窗体设置为MDI子窗体的方法是________。

A)将窗体的名称改为MDI B)将窗体的MDIChild属性设为True

C)将窗体的MDIChild属性设为False D)将窗体的Enabled属性设为False

11、在程序运行期间，如果拖动滚动条上的滚动框，则触发的滚动条事件是______。

A)Move B)Change C)Scroll D)GetFocus

12、表达式4+5＼6*7／8 Mod 9的值是______。

A)4 B)5 C)6 D)7

13、在Visual Basic中，下列____是合法的变量名。

A) Rem B) 2nd C) Lo ap D) Sum

14、对象的三个要素是：____。

A) 属性、方法、事件 B) 色彩、高度、宽度

C)事件、属性、色彩 D) 属性、高度、宽度

15、窗体模块文件的扩展名是：____。

A) frm B) bas C) vbp D) txt

16、Visual Basic逻辑运算符Xor、0r、Not、And中，级别最高的运算符是______。

A) Xor B) Or C) Not D) And

17、InputBox函数返回值的类型为_______。

A)数值B)字符串 C)变体 D)数值或字符串(视输入的数据而定)

18、为了把焦点移到某个指定的控件，所使用的方法是_______。

A)SetFocus B)Visible C)Refresh D)GetFocus

19、设a=6，则执行 x=IIF(a>5，-1,0) 后，x的值为_______。

A)5 B)6 C)0 D)-1

20、以下对变量名的说法中，不正确的是_______。

A) 不能以数字开头 B) 不能是Visual Basic的保留字

C) 可以包含字母、数字、下划线和标点符号 D) 不能超过255个字符

21、以下关于多重窗体程序的叙述中，错误的是_______。

A) 用Hide方法不但可以隐藏窗体，而且能清除内存中的窗体

B) 在多重窗体程序中，各窗体的菜单是彼此独立的

C) 在多重窗体程序中，可以根据需要指定启动窗体

D) 对于多重窗体程序，需要单独保存每个窗体

22、在Visual Basic 中，设置控件的大小，可改变下列____属性。

A) Height与 Width B) Height与Top C) Left与Top D) Left与Width

23、Visual Basic根据计算机访问文件的方式将文件分成三类，其中不包括_______。

A)顺序文件 B)Unix文件 C)二进制文件 D)随机文件

24、符号％是声明_______类型变量的类型定义符。

A)Integer B)Variant C)Single D)String

25、用Dim(1，1 to 3)声明的是一个_______维数组。

A) 1 B) 2 C) 3 D) 4

26、计算机操作系统的作用是________。

A)管理计算机系统的全部软、硬件资源，合理组织计算机工作流程，以达到充分发挥计算机资源的效率，为用户提供使用计算机的友好界面

B)对用户存储的文件进行管理，方便用户

C)执行用户键入的各类命令

D)为汉字操作系统提供运行基础

27、计算机的硬件主要包括：中央处理器（CPU）、存储器、输出设备和_________。

A)键盘 B)鼠标 C)输入设备 D)显示器

28、下列个组设备中，完全属于外部设备的一组是________。

A)内存储器、磁盘和打印机 B)CPU、软盘驱动器和RAM

C)CPU、显示器和键盘D)硬盘、软盘驱动器、键盘

29、计算机存储器中，组成一个字节的二进制位数是________。

A)4 B)8 C)16 D)32

30、微型计算机硬件系统中最核心的部件是________。

A)硬盘 B)I/O设备 C)内存储器 D)CPU

二、填空题

I 阅读程序，写出下列程序的运行结果：

1、下列Visual Basic程序段运行后,变量M的值为__[1]__。

a=2 : b=1 : c=5

If a

If c

2、在窗体上画一个文本框，然后编写如下事件过程：

Private Sub Textl_KeyPress(KeyAscii As Integer)

Dim char As String

char=Chr(KeyAscii) KeyAscii=Asc(UCase(char)) Textl．Text=String(6，KeyAscii) End Sub

程序运行后，如果在键盘上输入字母“a”，则文本框中显示的内容为___[2]____。

3、在窗体上画一个命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()

x=0

Do Until x=-l

a=InputBox(＂请输入A的值＂)

a=Val(A)

b=InputBox（＂请输入B的值＂) b=Val(B)

x=InputBox(＂请输入x的值＂) x=Val(x) a=a+b+x Loop Print a End Sub

程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-l，则输出结果为___[3]____。

4、在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click() Static x As Integer

Cls

For i=l TO 2

y=y+x x=x+2 Next

Print x,y End Sub

程序运行后，连续三次单击Command1按钮后，窗体上显示的是___[4]____。

5、执行下列语句后整型变量a的值是___[5]_____。

If(3-2)>2 Then

a=10

Else If(10／2)=6 Then a=20 Else a=30 End If

II 在下列程序的划线处填写适当代码，使之能够完成题目要求：

6、完善程序，自定义一个名为JieC的函数，利用递归定义N!=n*(n-1)!求n的阶乘。Public ____[6]________ JieC(___[7]____%) As Double

If n = 0 Then

JieC = 1

Else

__________[8]___________

End If

_________[9]______ Function

7、完善程序，统计文本框中大小写字母各有多少个。

s = Text1.Text

For i = 1 To _____[10]______

c = _____[11]_______

If c >= "A" And _____[12]_______ Then

t = t+1

Else

m = m +1

End If

___[13]______

Print "大写字符有" & t & "个"; "小写字符有" & m & "个"

8、完善程序，完成选择排序。程序可随机生成指定个数的[10，99]区间的整数进行排序，在窗体中显示每一步排序操作的结果。

Dim ia() As Integer, i%, j%, imin%, t%, n% n = Val(InputBox("请输入数组元素的个数:")) ______[14]__________

Form1.Cls

For i = 1 To n

ia(i) = ___________[15]_____________

Print ia(i);

Next i

For i = 1 To _____[16]________

imin = i

For j = i + 1 To n If ia(imin) > ia(j) Then imin = j Next j

t = ia(i)

ia(i) = ia(imin)

____________[17]_________________ Print

For j = 1 To n

Print ia(j);

Next j

Next i

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)

Dim x!

Dim Sx!

Dim i%, t!

x = Val(InputBox("x="))

i = 1

t = x / 1

Do Until ___[18]______ < 10 ^ (-5) _______[19]______

i = i + 2

t = -1____[20]______ x ^ 2 / ((i - 1) * i)

_____[21]_______

MsgBox "计算结果Sin(" & x & ")=" & Sx & vbCrLf & " 验证Sin(" & x & ")=" & Sin(x)

10、完善程序，在窗体中绘制y=Sin(x)函数图形。要求鼠标单击窗体时开始绘制，绘制范围：

-3.1415926<=x<=3.1415926

Dim x!, y!

Private Sub ______[22]______ ________[23]_________

Timer1.Interval = 100

End Sub

Private Sub Timer1_Timer() x = x + 0.05

______[24]__________

x0 = x + Line2.X1

y0 = -y + Line1.Y1

Shape1.Move x0, y0 - Shape1.Height / 2 PSet (x0, y0), RGB(255, 0, 0)

If x ______[25]___ Then Timer1.Interval = 0 End Sub

三、编程题

1、建立一个名为Max的函数过程，它能接受一个单精度类型的数组参数，求出该数组元素的最大值并将这个最大值作为函数值返回。建立一个简单的窗体界面，任意定义一个单精度类型数组，调用上述的函数Max求出其最大值并显示出来。

2、编程计算圆周率 Pi的近似值。

计算方法：

……一直到 1/i 小于0.0000001为止。

参考答案

一、单选题

1- 5: BCCCA 6-10: DBDCB 11-15: CBDAA

16-20: CBADC 21-25: AABAB 26-30: ACDBD

二、填空题

1、(1) 1

2、(2) AAAAAAA

3、(3) 2

4、(4) 12 18

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) Next i

8、(14) ReDim ia(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、Function Max(a() As Single) As Single Dim iMax%, i%

iMax = Lbound(a)

For i = Lbound(a)+1 To Ubound(a)

If a(i) > a(iMax) Then iMax = i Next i

Max = a(iMax)

End Function

Private Sub Picture1_Click()

Dim x(1 To 10) As Single

For i = 1 To 10

x(i) = Rnd * 100

Print "x(" & i & ")=" & x(i);

Next i Print

Print "最大的数组元素是" & Max(x()) End Sub

2、Dim Pi As Double, I As Long, fuhao%

fuhao = 1

i = 1

Do Until 1 / i < 0.0000001

Pi = Pi + fuhao * 1 / I

fuhao = -fuhao

i = i + 2

Loop

Pi = 4 * Pi

Print "π="; Pi