VB期末复习题.doc

1、1. 在 Visual Basic中，下列（）函数的值只为 1，0，-1A.INT(X) B.ABS(X) C.SQR(X) D.SGN(X) 解释：Sqr( x)是求算术平方根函数。Sgn( x )是符号函数，当 X为正数时值为 1，负数时值为-1，0 时值为 0Sgn( 121 )=1 Sgn( -121 )=-1 Sgn( 0 )=0 2.下列 Visual Basic程序段运行后，变量 a,b,c的值为_。a=1:b=1:c=1Do While a+b+cSqr(y)A.7 B.8 C.9 D.104.下列 VB变量名中，_是非法的变量名。A.Y3 B.SPM_1 C.H 2 D.书名

2、5.下列 Visual Basic程序段运行后，变量 s的值为_。a=2:b=1:s=0For i=10 To 6 Step-1s=s+ac=a+ba=bb=cNext iA.10 B.17 C.6 D.286.下列 Visual Basic中，下列_类型属于字符串型。A.Integer B.Single C.String D.Boolean7.在 Visual Basic中程序段是计算_公式的。s=0:t=1For i=1 To 10t=t*is=s+tNext iA.s=1+2+3+4+5+6+7+8+9+10B.s=1*2*3*4*5*6*7*8*9*10C.s=1!+2!+3!+4!+

3、5!+6!+7!+8!+9!+10!D.s=1+2*3+3*4+4*5+5*6+6*7+7*8+8*9+9*108.下列 Visual Basic中，下列_单词用于注释语句。A.Rem B.End C.Else D.Loop9.下列 Visual Basic程序段运行后，变量 s、t 的值为_。s=0:t=1For k=2 To 4s=s+kt=t*kNext kA.2 2 B.9 24 C.5 6 D.0 110.假定 X是一个数值型变量，那么由函数组成的表达式 INT(X/2)=X/2_.A.用于测试 X是否偶数 B.返回一个整数C.返回一个奇数 D.用于测试 X是否整数11.下列 Vis

4、ual Basic程序段运行后，变量 Value的值为_。x=20IF x=10 Then Value =5*x Else Value =4*xA.100 B.80 C.90 D.7012.下列 Visual Basic中，下列_程序是对的。A.X+Y=5 B.A+B=C3C.Y=1:Y=Y+1 D.I=X10“13.下列 Visual Basic程序段运行后，变量 max的值为_。a=5:b=10:max=aIF bmax Then max =bA.5 B.10C.5和 10 D.以上都不是14.下列 Visual Basic中，下列_是合法的变量名。A.Rem B.End C.Loop D

5、.Sum15.下列 Visual Basic程序段运行后，变量 a,b的值为_。a=3:b=4IF ab Then x=a:a=b:b=xA.3 4 B.4 3 C.3 3 D.4 416.下列 Visual Basic中，下列_的表达式的值不等于 4。A.int(4.1) B.Int(4.9)C.Abs(int(-3.9) D.Abs(int(-4.5)17.下列 Visual Basic程序段运行后，变量 m的值为_。a=2:b=1:c=5IF a10 a =a+1 1 2 3 4 b =b*2 1 2 4 8 c=b/2 1 1 2 4 38、下列 Visual Basic程序段运行后,

6、变量 x的值为_。x=3y=77dox=x+2Loop until xsqr(y)A、7 B、8 C、9 D、10答案：C 解释： xsqr(y) 3sqr(77) x=x+2 3 5 7 9 39、下列 Visual Basic程序段中，循环体执行的次数为_。y=2do while yb and Not ca Or cb And c=4Print sEnd Sub40. 阅读以下程序：Private Sub Form_click()Dim k,n,m As integern=10m=lk=lDo While k 559 表达式 Fix(-32)+Int(-24)的值为（-56） 。60 VB

7、 表达式 INT（-4.8）*62+FIX（-4.8）的值是（-7）。61 在 VB中向组合框中增加数据项所采用的方法为（additem）。62 DIM a (3,-3 to 0,3 to 6) as String 语句定义的数组元素有（64）个。63 在窗体中添加一个命令按钮，然后编写如下代码：Private Sub Command1_Click()a = InputBox(“请输入一个整数“)B = InputBox(“请输入一个整数“)Print Val(a) + Val(B)End Sub程序运行后，单击命令按钮，在输入对话框中分别输入 21和 45，输出结果为（66）。64若 I、n

8、 均为整型变量，下列程序段的输出结果为（5）。Private Sub Form_Click()n = 0For i = 1 To 10If i Mod 2 = 1 Then n = n + 1Next iPrint nEnd Sub65.设 A=5，B=6，C=7，D=8，计算表达式 32*B OR A=C AND BD的值是（false）。66 鼠标的光标在不同的窗口内，其形状是不一样的，光标的形状通过（mousepointer）属性来设置。67 下面程序运行时，内层循环的循环总次数是（6）。For m = 1 To 3For n = 0 To m - 1Next nNext m68 定义语

9、句 Dim A (-3 to 3) as Integer，定义数组的元素个数是（6）69 执行下面的程序段后，X 的值为（8） 。X=5For I=1 to 10 Step 2X=X+INext I 70在窗体中添加一个命令按钮，然后编写如下过程： Function fun(ByVal num As Long) As LongDim k As Longk = 1num = Abs(num)Do While numk = k * (num Mod 10)num = num 10Loopfun = kEnd FunctionPrivate Sub Command1_Click()Dim n As

10、LongDim r As Longn = InputBox(“请输入一个数“)n = CLng(n)r = fun(n)Print rEnd Sub程序运行后，单击命令按钮，在对话框中输入 234，输出结果为（24） 。VB程序分析题：程序分析题1. 在窗体上画一个名称为 Text1的文本框和一个名称为 Command1的命令按钮，然后编写如下事件代码：Private Sub Command1_Click()Dim i As Integer, n As IntegerFor i = 0 To 50i = i + 3n = n + 1If i 10 Then Exit ForNextText1.

11、Text = Str(n)End Sub程序运行后，单击命令按钮，在文本框中显示的值是（ ） 。2. 在窗体上画一个命令按钮，名称为 Command1，然后编写如下程序：Private Sub Command1_Click()For i = 1 To 4For j = 0 To iPrint Chr(65 + i);NextPrintNextEnd Sub程序运行后，单击命令按钮，在窗体中显示的值是（ ） 。3. 在窗体上画一个命令按钮，名称为 Command1，然后编写如下程序：Private Sub Command1_Click()For i = 1 To 4x = 4For j = 1

12、To 3x = 3For k = 1 To 2x = x + 6NextNextNextPrint xEnd Sub程序运行后，单击命令按钮，输出的结果是（ ） 。4. 在窗体上画一个命令按钮，名称为 Command1，然后编写如下程序：Private Sub Command1_Click()x = 0Do Until x = -1a = InputBox(“请输入 a的值“)b = Val(a)b = InputBox(“请输入 b的值“)b = Val(b)x = InputBox(“请输入 x的值“)x = Val(x)a = a + b + xLoopPrint aEnd Sub程序运

13、行后，单击命令按钮，依次在输入对话框中输入 5、4、3、2、1、-1，则输出结果为（ ） 。5. 阅读下面的程序段：For i = 1 To 3For j = 1 To iFor k = j To 3a = a + 1NextNextNext执行上面的三重循环后，a 的值为（ ） 。6. 下列程序为求 Sn =a+aa+aaa+aaa(n个 a)，其中 a为一个随机产生的 1至 9（包括 1、9）中的一个正整数，n 是一个随机产生的 5至 10（包括 5、10）中的一个正整数，请将程序补充完整。Private Sub Form_Load()Dim a As Integer, n As Inte

14、ger, s As Double, Sn As Doublea = Fix(9 * Rnd) + 1n = Fix(6 * Rnd) + 5Sn = 0s = 0For i = 1 To _s = s + a * 10 (i - 1)_ Print SnNextEnd Sub7. 在窗体上画一个命令按钮，名称为 Command1，然后编写如下代码：Option Base 1Private Sub Command1_Click()Dim a(10), p(3) As Integerk = 5For i = 1 To 10a(i) = iNext iFor i = 1 To 3p(i) = a(i

15、 * i)Next iFor i = 1 To 3k = k + p(i) * 2Next iPrint kEnd Sub程序运行后，单击命令按钮，输出结果是（ ） 。8. 在窗体上画一个命令按钮 Command1，然后编写如下代码：Private Sub Command1_Click()Dim aa = Array(1, 2, 3, 4)j = 1For i = 3 To 0 Step -1s = s + a(i) * jj = j * 10Next iPrint sEnd Sub程序运行后，单击命令按钮，输出结果是（ ） 。9. 在窗体上画一个命令按钮 Command1，然后编写如下代码：

16、Private Sub Command1_Click()Dim a(4, 4)For i = 1 To 4For j = 1 To 4a(i, j) = (i - 1) * 3 + jNext jNext iFor i = 3 To 4For j = 3 To 4Print a(j, i);Next jPrintNext iEnd Sub程序运行后，单击命令按钮，输出结果是（ ） 。10. 在窗体上画一个命令按钮 Command1，然后编写如下代码：Private Sub Command1_Click()Dim a(5)For i = 0 To 4a(i) = i + 1t = i + 1If

17、 t = 3 ThenPrint a(i);a(t - 1) = a(i - 2)Elsea(t) = a(i)End IfIf i = 3 Then a(i + 1) = a(t - 4)a(4) = 1Print a(i);Next iEnd Sub程序运行后，单击命令按钮，输出结果是（ ） 。11. 在窗体上画一个命令按钮 Command1，然后编写如下代码：Private Sub Command1_Click()Dim arr() As IntegerReDim arr(3)For i = 0 To 3arr(i) = iNext ix = InputBox(“请输入一个数字：“)If

18、 Val(x) 4 ThenReDim arr(4)arr(4) = xEnd IfMe.Print (arr(4) - arr(3)End Sub程序运行后，单击命令按钮，在输入对话框中输入 12，输出结果为（ ） 。12.阅读程序：Function F(a As Integer)b = 0Static cb = b + 1c = c + 1F = a + b + cEnd FunctionPrivate Sub Command1_Click()Dim a As Integera = 2For i = 1 To 3Print F(a)Next iEnd Sub程序运行后，单击命令按钮，输出结

19、果为（ ） 。13.假定有以下过程：Function Func(a As Integer, b As Integer) As IntegerStatic m As Integer, i As Integerm = 0i = 2i = i + m + 1m = i + a + bFunc = mEnd Function在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim k As Integer, m As IntegerDim p As Integerk = 4m = 1p = Func(k, m)Print p;p = Func(k,

20、m)Print pEnd Sub程序运行后，单击命令按钮，输出结果为（ ） 。14. 在窗体上画两个标签和一个命令按钮，其名称分别为 Label1、Label2 和 Command1，然后编写如下程序：Private Sub Func(L As Label, ByVal a As Integer)Static m As Integer, i As IntegerL.Caption = “1234“a = a * aEnd SubPrivate Sub Form_Load()Label1.Caption = “ABCD“Label2.Caption = 10End SubPrivate Sub

21、Command1_Click()a = Val(Label2.Caption)Call Func(Label1, a)Label2.Caption = aEnd Sub程序运行后，单击命令按钮，在两个标签 Label1和 Label2中显示的内容分别是（ ） （ ） 。15. 在窗体上画一个命令按钮，然后编写如下代码：Sub s1(ByVal x As Integer, ByVal y As Integer)Dim t As Integert = x: x = y: y = tEnd SubPrivate Sub Command1_Click()Dim a As Integer, b As I

22、ntegera = 10: b = 30s1 a, bPrint “a=“; a; “b=“; bEnd Sub程序运行后，单击命令按钮，输出结果为（ ） 。16. 在窗体上画一个命令按钮，然后编写如下代码：Function fun(ByVal num As Long) As LongDim k As Longk = 1num = Abs(num)Do While numk = k * (num Mod 10)num = num 10Loopfun = kEnd FunctionPrivate Sub Command1_Click()Dim n As Long, r As Longn = In

23、putBox(“请输入一个数“)n = Val(n)r = fun(n)Print rEnd Sub程序运行后，单击命令按钮，在输入对话框中输入“234” ，输出结果为（ ） 。17. 以下程序执行结果 s的值是（ ） 。Private Sub sub1(ByVal p As Integer)p = p * 2End SubPrivate Sub Command1_Click()Dim i As Integeri = 3Call sub1(i)If i 4 Then i = i Mod 2Print Str(i)End Sub18. 在窗体上画一个命令按钮 Command1和一个通用对话框 C

24、ommonDialog1，然后编写如下代码：Private Sub Command1_Click()CommonDialog1.FileName = “CommonDialog1.Flags = vbofnfilemustexistCommonDialog1.Filter = “ALL Files|*.*|(*.exe)|*.exe|(*.TXT)|*.TXT|(*.doc)|*.doc“CommonDialog1.FilterIndex = 4CommonDialog1.DialogTitle = “Open File(*.EXE)“CommonDialog1.Action = 1If Co

25、mmonDialog1.FileName = “ ThenMsgBox “No file selected“, 37, “chenking“Else 对所选择的文件进行处理End IfEnd Sub程序运行后，单击命令按钮，将显示一个对话框，1）该对话框的标题是（ ） 。2）该对话框“文件类型”框中显示的内容是（ ） 。3）单击“文件类型”框右端的箭头，下拉显示的内容是（ ） 。4）如果在对话框中不选择文件，直接单击“取消”按钮，则显示的在信息框中的信息是（ ） ，该信息框中的按钮是（ ）和（ ） 。19. 在窗体上画一个文本框，然后编写如下事件过程：Private Sub Text1_Key

26、Press(KeyAscii As Integer)Dim char As Stringchar = Chr(KeyAscii)KeyAscii = Asc(UCase(char)Text1.Text = String(6, KeyAscii)End Sub程序运行后，如果在键盘上输入字母 a，则文本框中显示的内容为（ ） 。简答题：1. 什么是对象的属性，事件和方法？答 在可视化编程语言中，对象是代码和数据的集合，它可以是窗体和控件，也可以是菜单或者是数据库等。从可视化编程的角度来看，这些对象都具有属性和方法。简单地说，属性用于描述对象的一组特征，方法为对象实施一些动作，对象的动作则常常要触发事件，而事件又可以修改属性。一个对象建立后，其操作就通过与该对象有关的属性，事件和方法来描述。2.简述 vb可视化程序设计的一般步骤？答：vb 可视化程序设计的一般步骤：1） 设计界面。先建立窗体，再利用控件在窗体上创建各种对象。2） 设置属性：设置窗体或控件等对象的属性。3） 编写代码。3.简述 VB的特点。 （P8）4.vb控件分为哪几类？第一，标准控件；第二，Active X 控件 第三 ，可插入的对象；p53，1，2，3，4，5p98，一，二p207 一