vb习题(含答案)

1、窗体顶端本卷共有3道大题:窗体底端一、单项选择题（50道小题，共50分）1、VB程序中，通常不会产生错误提示的是(    )。（1分）A、编译错误B、逻辑错误C、运行时错误D、实时错误2、在设计阶段，双击窗体上任一空白处，打开的窗口是(    )。（1分）A、工程资源管理器窗口B、代码窗口   C、工具箱窗口D、属性窗口3、下列说法中，正确的说法是(    )。（1分）A、窗体名称和该窗体文件名必须一致B、窗体名称和该窗体文件名可以不相同C、窗体

2、名称和该窗体文件名不能使用汉字D、窗体名称不能使用汉字、但该窗体文件名能使用汉字4、Visual Basic有完备的Help联机帮助功能，可以通过按下功能键(    )得到帮助。（1分）A、F9B、F8C、F1D、F55、以下(    )控件可作为容器使用。（1分）A、LabelB、PictureBoxC、TextBoxD、Image6、将窗体的BoderStyle属性设置为(    )可使窗口不显示标题栏。（1分）A、0B、1C、2D、57、文本框没有( 

3、;   )属性（1分）A、TextB、NameC、CaptionD、BorderStyle8、以下关于命令按钮的控件属性的描述中，不正确的是(    )。（1分）A、Default用来设置缺省命令按钮B、ForeColor用来设置前景色C、Font用来设置字体D、Caption用来设置标题9、设置标签Label1的(    )属性使它不可见。（1分）A、Label1.Visible = 0B、Label1.Visible = 1C、Label1.

4、Visible = TruD、Label1.Visible = False10、要使时钟控件的Timer事件每隔3秒发生一次，应该把它的Interval属性设置为(    )。（1分）A、3B、30C、300D、300011、将当前目录下的图形文件Clock.jpg装入图片框Picture1的语句是(    )。（1分）A、Picture = "Clock1.jpg"B、Picture = LoadPicture(&

5、quot;Clock1.jpg")C、Picture1.Picture = "Clock1.jpg"D、Picture1.picture = LoadPicture("Clock1.jpg")12、决定一个控件不可见，要将该控件的(    )属性设置为False。（1分）A、EnablB、VisibleC、WidthD、Text13、以下算术运算符中，优先级最低的是(    )。（1分）A、B、/C、D、*14、下列表达式中，

6、合法的是(    )。（1分）A、a<b+cB、ab+cC、ab+cD、ab+c15、表达式4+56*7/8 mod 9的值是(    )。（1分）A、4   B、5  C、6   D、716、下列语句中，合法的是(    )。（1分）A、Print a:spcB、Print TAB(10)*"VB"C、Print TAB

7、(10): 1234.56D、Print "Date(    )"+"Time(    )"17、下列变量名写法错误的是(    )。（1分）A、abc B、abc123 C、abc_123 D、123abc18、判断正数a的开平方是否为整数的正确语句为(    )。（1分）A、a >0 and sqr(a)=c

8、hr(a) B、a >0 or  sqr(a)=abs(a)C、a >0 or  sqr(a)=int(sqr(a)D、a >0 and sqr(a)=fix(sqr(a)19、已知 a%=12.8 : b!=14.5，则执行 Print a%;b! 后，输出结果是(    )。（1分）A、12.8  14 B、12 &

9、#160;14.5 C、12.8  15 D、13  14.520、以下(    )语句可表示50,100之间的随机整数。（1分）A、Rnd*51+49B、Rnd*51+50C、Int(Rnd*51)+49D、Int(Rnd*51)+5021、函数UCase("basic")的值为(    )。（1分）A、BasicB、basicC、BAsicD、BASIC22、设a="39级台阶"，使b="台阶"

10、;的语句是(    )。（1分）A、Right(a,4)B、Instr(a,5,4)C、Left(a,5,4)D、mid(a,4,2)23、下列(    )是不合法的常量。（1分）A、100B、10E02C、100.0D、10e0.524、下列对变量的定义中，定义X为变体型变量的是(    )。（1分）A、Dim X as Double B、Dim X C、Dim X!D、X%=2325、设有如下变量声明：

11、Dim TestDate As Date，为变量TestDate正确赋值的表达方式是(    )。（1分）A、TextDate=#1/1/2002# B、TestDate=#"1/1/2002"#C、TextDate=date("1/1/2002") D、TestDate=Format("m/d/yy","1/1/2002")26、在立即窗口中运行以下语句，a="Beijing" :b="

12、;ShangHai" :Print a,b对其输出结果的描述中，正确的是(    )。 （1分）A、Beijing和ShangHai中间没有空格B、Beijing和ShangHai中间有1个空格C、Beijing和ShangHai中间有6个空格D、Beijing和ShangHai前面有7个空格27、语句段A=3: B=5:T=a：a=b: b=t执行后(    )。（1分）A、a值为3，b值为3 B、a值为3，b值为5 C、a值为5，b

13、值为5 D、a值为5，b值为328、下列语句中，正确的是(    )。（1分）A、If x<3*y And x>y Then y=x3B、If x<3*y And x>y Then y=3xC、If x<3*y : x>y Then y=x3D、If x<3*y And x>y Then y=x*32

14、9、下面程序段Dim  x%: x=5: If x Then y=x+1 Else y=x运行后，y结果是(    )。（1分）A、5B、6C、1D、显示出错信息30、执行语句 a = InputBox("Today", "Tomorrow", "Yesterday", 5, 5)，将显示一个输入对话框，在对话框的输入区中显示的信息是(&

15、#160;   )。（1分）A、Today B、TomorrowC、YesterdayD、531、窗体上有一个命令按钮Command1,编写如下事件过程: Private Sub Command1_Click() :x = Val(InputBox("x=") : y = InputBox("y=") : Print x + y : End

16、0;Sub, 单击命令按钮，先后在两个输入对话框中输入123和321，窗体显示的内容是(    )。（1分）A、444   B、123321C、123+321D、出错信息32、执行语句 MsgBox "AAA", 2, "BBB" 后，所产生的消息框的标题是(    )。（1分）A、AAAB、BBBC、2D、出错，不能产生消息框33、已知：a = "Soft

17、ware and Hardware"，b = Len(a)，c = Right(a, 8)，执行 MsgBox a, b, c 后，在弹出的信息框的标题栏中显示的信息是(    )。（1分）A、Software and Hardware B、Software C、HardwareD、1934、阅读下列程序段： m = 0:  For

18、60;i = 1 To 3:    For j = 1 To i:      m = m + j:  Next j, i:执行以上的循环后，i和m的值分别为(    )。（1分）A、3   6B、3   10C、4 &#

19、160; 6D、4   1035、窗体上有一个命令按钮Command1，编写如下事件过程：Private Sub Command1_Click():    a = 0:    For m = 1 To 3:      a = a + 1:    &#

20、160; b = 0:      For j = 1 To 3:        a = a + 1:        b = b + 2:      Next&#

21、160;j:    Next m:    Print a, b:  End Sub,运行时，单击按钮，输出结果是(    )。（1分）A、6  6B、6  18C、12  6D、12  1836、若有 k = 10，则循环结构 Do Until k < 

22、0: k = k - 1: Loop 中的循环体执行次数是(    )。（1分）A、9B、10C、11D、无数次37、下列语句中，不能实现循环100次的是(    )。（1分）A、N=0:Do: N=N+1: Loop Until N>=100B、N=0:Do: N=N+1: Loop While N<100C、N=0:Do: N=N+1:

23、60;Loop Until N<100D、N=0:Do While N<100: N=N+1: Loop 38、设a为整型变量，不能正确表达数学关系10 < a < 15的VB表达式是(    )。（1分）A、10 < a < 15 B、a = 11 Or a = 12 Or a&#

24、160;= 13 Or a = 14C、a > 10 And a < 15 D、Not ( a<= 10) And Not ( a >=15)39、在Visual Basic中，能正确描述条件“x>y>z”的表达式是(    )。（1分）A、x>y and zB、x>y 

25、and y>zC、x>y>zD、x> y and>z40、如果变量nop的值为2，则执行完语句 op = Choose(nop, "春", "夏", "秋", "冬")  后，op的值为(    )。（1分）A、春B、夏C、秋D、冬41、执行下列语句a = 3:x = IIf(a 

26、;> 5, int(-5.6), Fix(5.6)后，x的值是(    )。（1分）A、5B、-5C、6D、-642、结束当前程序运行的语句是(    )。（1分）A、quit B、exit C、end D、sub43、要从 For  Next 循环中退出循环，应使用(    )语句。（1分）A、ExitB、Exit ForC、ContinueD、Stop

27、60;Loop44、如下数组声明语句Dim a(3, -2 To 1, 5)中数组a包含的元素个数为(    )。（1分）A、96B、75C、60D、1345、下列语句错误的是(    )。（1分）A、Private a(-10 To 5)B、Dim a(N)   'N为变量C、Dim a() As IntegerD、Dim a%(10,-10

28、60;To -10)46、能使一维数组arr(6)元素个数加1，但保留数组中原有元素的语句是(    )。（1分）A、ReDim arr(7)B、ReDim Preserve arr(7)C、Public arr(1 To 7)D、Static arr(7)47、窗体上有一个命令按钮Command1，编写如下事件过程： Private Sub Command1_Click():    Dim a(

29、10):    For j = 6 To 10:      a(j)= j - 5:    Next j:    Text1.Text = a(0) + a(a(10) / a(6):  End Sub，运行时，单击按钮，Text1中显示(

30、    )。（1分）A、0B、1C、2D、348、以下定义数组或给数组元素赋值的语句中，错误的是(    )。（1分）A、Dim a :  a=Array(1,2,3,4,5)B、Dim a( ) : a=Array(1,2,3,4,5)C、Dim A%() : a=Array(1,2,3,4,5)D、Dim a As Variant :  a=&

31、#160;Array(1, 2, 3, 4, 5)49、当工程中有多个窗体时，必须指定启动窗体，其方法是：选择“工程”菜单中的“工程属性”命令，打开“通用”选项卡，在(    )中选择运行时显示的第一个窗体。（1分）A、工程类型B、工程名称C、工程描述D、启动对象50、在窗体Form1的单击事件中，与Form1.Hide等价的语句是(    )。（1分）A、Form1.ClsB、Me.HideC、Me.ClsD、Form1.UnLoad二、填空题（6道小题，共30分）1、*&

32、#160;输出Fibonacci数列1，1，2，3，5，8，的前20项。* 程序代码如下：Private Sub Command1_Click()  Dim s%, a%, b%, c%  a = 1  b = 1  Print a  Print b  For i = 3  To 

33、0;20      c = a + b     Print c     a=b     b=c  Next iEnd Sub（4分）2、* 使用双循环实现倒三角形输出          &#

34、160;                   *                              &

35、#160;*                                *                 

36、;                *                                 

37、0;* 程序代码如下： Private Sub Command1_Click()  For i = 1 To 5      Print Tab(25 + i );      For j = 1 To 11-2*i     

38、0;    Print "*"      Next j      Print  Next iEnd Sub（4分）3、* 利用数组求裴波那契数列1,1,2,3,5,.，并将其累加起来，直至其和首次大于200时为止。Private Sub Command启动_Click()  Dim a(20)

39、60;As Integer, i As Integer, s As Integer  a(1) = 1: a(2) = 1  Print a(1); a(2);  i = 2: s = a(1)+a(2)  Do     i = i + 1

40、     a(i) = a(i - 1) + a(i - 2)     Print a(i);     s = s + a(i)  Loop Until s > 200  Print: Print "S=

41、" sEnd Sub（4分）4、* 参照图<5-2.jpg>，完善下列程序。* 在窗体的标签1中每隔1秒刷新显示当前系统时间，并且动态改变其前景色和字体大小。'5-2.jpgPrivate Sub Form_Load()  Timer1.Interval= 1000End SubPrivate Sub Timer1_Timer()  Dim z As Integer  Labe

42、l1 = Time()  z = Int(Rnd * 5 + 1)  label1.BackColor = Choose(z, vbRed, vbYellow, vbGreen, vbBlue, vbWhite)  Label1.fontsize= Int(Rnd * 21+10)End Sub（【下载文件“5-2.jpg”】；）下载方法：在链接上

43、右击打开弹出菜单，选择“目标另存为”。（6分）5、* 参照图<12-1.jpg>，完善下列程序。* 在窗体的文本框中输入数字，当光标离开文本框的时候判断该数字是否能被3整除，若可以则全选输入的数字并且出现消息框“恭喜”，否则清空文本框并使光标重新回到该文本框中。'12-1.jpgPrivate Sub Text1_LostFocus()If Val(Text1) Mod 3 = 0 Then    Text1.SetFocus 

44、;   Text1.selstart= 0    Text1.sellength = Len(Text1)Msgbox "恭喜！"Else    Text1.SetFocus    Text1 = ""End IfEnd Sub（【下载文件“12-1.jpg”】；）下载方法：在链接上右击打开弹出菜单，选择“目标另存为”。（6分）

45、6、* 编写一个文本框复制的程序，如图<x_29.jpg>所示。* 运行过程：*    1.程序启动时，设置上面文本框的最大长度为10，文本框2不允许用户输入。*    2.在上面文本框（Text1）填入文本，选中其中部分文本*    3.单击清除按钮（Command1），清除两个文本框内容。*    4.单击复制按钮（Command2），将上面文本框（Text1）选中文本复制到下面文本框（Text2）'x_29.jpgPrivate Sub Form_Load()  Text1.maxlength = 10