VB复习题含参考答案

1、VB复习题2(含答案)一、选择题(每题1分，共10分)1.Visual Basic程序设计时常用的Print、Move属于对象的。A.属性B .过程C.方法D.事件2.调用由语句Private Sub Convert(Y As Integer)定义的Sub过程时，以下不是按值传递的 语句是OA. Call Convert(X)B. Call Convert(X*1)C. Convert (X)D. Convert X3.以下关于数组的表达中，错误的选项是。A .在过程中可以用Private定义数组B.数组是同类变量的一个有序的集合C.数组元素可以是控件D.数组重新定维时，原有的数组的内容将不保

2、存4.语句X=X+1的正确含义是。A.变量X的值与X+1的值相等B,将变量X的值存到X+1中去C.将变量X的值加1后赋给变量X D.变量X的值为15.表达式Int(-17.8)+Abs(17.8)的值是。A.0B, -0.2C. 0.8D, -34.86.要使启动后的窗体Form1出现在屏幕的中央，应在Load事件中设置如下的 代码。A . Form1.Width = Screen.Width / 2Form1.Height = Screen.Height / 2B.Top = (Screen.Height - Me.Height) 2 Left = Screen.Width - Me.Wid

3、thC.Move (Screen.Height - Height) 2 ,(Screen.Width - Width) 2D.Call Move(Screen.Width / 2, Screen.Height / 2)7.对动态数组A(),假设原数组为A(5),要改变数组为A(10)时，为保证其数组内的数据不 丧失，应使用语句进行定义。A. Dim A (10)B. ReDim A (10)C. ReDim Preserve A (10) D. Dim A (5 To 10)8.执行函数Chr(Asc(Mid(Basic, 2, 1) - 32)的结果是。A, AB. BC. aD. b9.向

4、列表框中添工程应采用 方法。A . PrintB. AddItemC. RefreshD. Clear10.决定控件上文字的字体、字形、大小、效果的属性是。A. Style B. Font C. NameD. BackStyle二、简单填空(每题1分，共10分)1 .在VB中有两种类型的数组：固定大小数组和。2.要在窗体上显示图片，需设置窗体的 属性。3.决定控件上文字的字体、字形、大小、效果的属性是_属性。4.列表框中的列表项的数目可通过 属性的值获得。5.符号%是声明 类型变量的类型定义符。6.表达式4+56*7/8 Mod 9的值是5。7.假设变量intVar是一个整型变量，那么执行赋值

5、语句intVar=2+3之后，变量intVar的值是5。8.按下F8键可以进行单步调试。9. VB的文件管理控件分别为：驱动器列表框、目录列表框和。10.如果编写的过程要被多个窗体及其对象调用，应将这些过程放在 模块中。三、写出以下程序的运行结果(每题2分，共20分)1 .运行以下程序，第一行输出的内容是135、第二行输出的内容是29。Private Sub Command6_Click()Dim I As Integer, J As Integer, K As IntegerK = 5For I = 1 To 10 Step 4 For J = 1 To 10 If J = 5 ThenK

6、= K + 4 Exit For End If K = K + 1NextNextPrint I, J Print K End Sub2.运行以下程序，第二行输出的内容是Bc,第四行输出的内容是BcJg。Private Sub Command7_Click()Dim ch As String, s As StringDim I As Integer, J As Integer ch = ABCDEFGHIJ: J = 1 For I = 1 To Len(ch) Step 2 J = J + IIf J Mod 2 = 0 Thens = s + Mid(ch, J, 1) Elses = s

7、 + Chr(Asc(Mid(ch, I, 1) + 32) End If Print sNext IEnd Sub3.运行以下的程序，第一行输出的内容是6 2 1_,第二行输出的内容是 一。3_。Private Sub Command8_Click()Dim a(3, 3) As Integer, I As IntegerDim J As Integer, K As Integer, N As IntegerN = 9For K = 5 To 1 Step -1If K = 3 ThenFor I = 1 To 6 - K a(K - 3 + I, I) = N N = N - 1Next

8、IElseFor I = 1 To Ka(K - I + 1,3 - I + 1) = NN = N - 1Next I End IfNext KFor K = 1 To 3For I = 1 To 3Print a(K, I);Next I Print Next K End Sub4.运行以下的程序，第一行输出的内容是6.5 4 9 13,第二行输出的内容是19.5 13 26 39。Dim a9 As Integer, b9 As IntegerPrivate Function Sub9(X As Integer) As SingleSub9 = a9 + b9 + X / 2 a9 =

9、a9 + b9 b9 = a9 + XX = b9 + a9End FunctionPrivate Sub Command9_click() Dim c As Integer a9 = 1 b9 = 3 c = 5Print Sub9(c);Print a9, b9, cPrint Sub9(c);Print a9, b9, cEnd Sub5.运行以下的程序， 第一行输出的内容是 一3-2_，第二行输出的内容是-1 2_Private Sub Sub10(X As Integer, ByVal Y As Integer)Static N As Integer Dim I As Integer

10、For I = 3 To 1 Step -1 N = N + XX = X - 1Next IY = Y + NEnd SubPrivate Sub Command10_click()Dim N As Integer, I As IntegerN = 2For I = 6 To 1 Step -1Call Sub10(I, N)Print I, NNext IEnd Sub四、读程序填写代码(每题3分，共30分)1.下面程序的功能是统计随机产生的十个两位正整数中偶数与奇数的个数，并求出偶数与 奇数各自的总和Option ExplicitPrivate Sub Form_Click()Dim x

11、 As Integer, s1 As Integer, s2 As IntegerDim n1 As Integer, n2 As Integer, i As Integer Randomize Fori = 1 To 10 x = _ int(rnd*90+10)_Print x;If x Mod 2 = 0Thenn2 = n2 + 1s2 = s2 + x ElseN1=n1+1s1 = s1 + x End IfNextPrintPrint 奇数个数=;n1,偶数个数=;n2End Sub2.下面程序的功能是找出2999中所有的水仙花数。水仙花数：一个数等于它各个数位的立方和。如：15

12、3=13+53+33Private Sub Form_Click()Dim i As Integer, m As Integer, n As Integer, sum As IntegerFor i = 2 To 999sum = 0 m = iDoN=m mod 10m = m 10sum = sum + n * n * nLoop Untilm=0 If sum=iThen Print i Next iEnd Sub3.下面的程序代码实现将一个一维数组中元素向右移动，移位次数由文本框Text1输入。例如数组个元素的值依次为0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10;移

13、位三次后，各元素的值依次为8, 9, 10, 0, 1, 2, 3, 4, 5, 6, 7。Private Sub Form_Click()Dim a(10) As Integer, i As Integer, j As Integer, k As IntegerFor i = 0 To 10a(i) = i Nextj = Val(text1.Text)k = 0Dok = k + 1Call MoveRight(a)loop until k=3For i = 0 To 10Print a(i);NextEnd SubPrivate Sub MoveRight(x() As Integer)

14、Dim i As Integer, j As Integer, k As Integer i = UBound(x) j = x(i)For k = i To LBound(x) + 1 Step -1_x(k+1)=x(k)一Nextx(Lbound(x)=x(1)End Sub五、按要求编写通用过程代码(每题8分，共16分)1 .编写一个求两个数的最大公约数的递归函数过程，过程名为Gcd,形参M、N分别是两个整数。Private Function Gcd(M As Integer, N As Integer) As IntegerEnd Function2.编写一个对数组元素进行排序的Sub子过程，过程名为Sort