东北师范大学《VB程序设计》试题附答案.docx

1、东北师范大学VB程序设计试题附答案VB程序设计练习题一一、选择题1. 以下关系表达式中，其值为True的是( B )。A.XYZXYz B.VisualBasic visualbasicC.the = there D.Integer Int2. 若设置了文本框的属性PasswordChar=”$”,则运行程序时向文本框中输入8个任意字符后,文本框中显示的是( A )A.8个”$” B.1个”$” C.8个”*” D.无任何内容3.以下关键字中，不能定义变量的是( A )。 A. Declare B. Dim C. Public D. Private4. 若在某窗体模块中有如下事件过程 Priv

2、ate Sub Command1_Click(Index AS Integer) End Sub 则以下叙述中正确的是( D )。A.此事件过程与不带参数的事件过程没有区别B.有1个名称为Command1的窗体,单击此窗体则执行此事件过程C.有1个名称为Command1的控件数组,数组中有多个不同类型控件D.有1个名称为Command1的控件数组,数组中有多个相同类型控件5. 执行以下程序段a$ = Visual Basic Programming：b$ = C+：c$ = UCase(Left$(a$,7) & b$ & Right$(a$,12)后，变量c$的值为( C )。A. Visu

3、al BASIC Programming B. VISUAL C+ ProgrammingC. Visual C+ Programming D. VISUAL BASIC Programming6. 为把圆周率的近似值3.14159 存放在变量pi 中，应该把变量pi 定义为( C )。A. Dim pi As Integer B. Dim pi(7) As IntegerC. Dim pi As Single D. Dim pi As Long7. 如果变量 a=2、b=abc、c=acd、d=5，则表达式 ac AND bc 的值为( A )。A.True B.False C.Yes D.

4、No 8.在一个有(1)逻辑运算、(2)算术运算、(3)关系运算混合在一起的表达式(无括号)中，其运算顺序为( C )A.(1)(2)(3) B.(3)(2)(1) C.(2)(3)(1) D.(2)(1)(3)9. 窗体上有Command1、Command2 两个命令按钮。现编写以下程序：Option Base 0Dim a( ) As Integer, m As IntegerPrivate Sub Command1_Click( )m=InputBox(请输入一个正整数)ReDim a(m)End SubPrivate Sub Command2_Click( )m=InputBox(请输

5、入一个正整数)ReDim a(m)End Sub运行程序时，单击Command1 后输入整数10，再单击Command2 后输入整数7，则数组a 中元素的个数是( B )。A.7 B.8 C.10 D.1110.若 Y=welcome!，则表达式 Left(Y,Len(Y)-1)的值是( C )。A. welcome! B.w C. welcome D.11.表达式 Int(5*Rnd+1)* Int(5*Rnd-1) 值的范围是( D )。 A. 0,15 B. -1,15 C. -4,15 D. -5,1512. 以下程序段的运行结果是( B )。Private Sub Form_Clic

6、k() Dim I As Integer, X As String, Y As String X = ABCDEFG For I = 4 To 1 Step -1 Y = Y + Mid(X, I, 1) Next I Print Y End Sub A.ABCD B.DCBA C.DEFG D.GFED 13.下列 If 语句统计满足性别为男、职称为副教授以上、年龄小于 40 岁条件的人数，不正确的语句是( D )。A. If sex=男 And age0 Then n=n+1 B. If sex=男 And age40 And (duty=教授or duty=副教授) Then n=n+1

7、 C. If sex=男 And age40 And Right(duty,2)=教授 Then n=n+1 D. If sex=男 And agey,x,y) B. If xy Then Max=x Else Max=y C. Max=x :If y=x Then Max=y D. If y=x Then Max=y : Max=x 15.下列程序段的作用是( D )。 m=0:n=0 For i=1 To 10 x= Val(InputBox(请输入 x 的值:) If x0 Then m=m+x ElseIf x0 Then n=n+1 End If Next i Print m,n A

8、. 计算从键盘输入的数据之和，并统计输入数据的数目 B. 分别计算从键盘输入的正数之和与负数之和 C. 分别计算从键盘输入的正数和负数的个数 D. 计算从键盘输入的正数之和，并统计负数的个数 16.在窗体上有一个文件名称为Text1的文本框和1个名称为Command1的命令按钮，要求在程序执行时，每单击命令按钮一次，文本框向右移动一定距离。下面能够正确实现上述功能的程序是( C )。 A. Private Sub Command1_Click() B. Private Sub Command1_Click() Text1.Left=100 Text1.Left= Text1.Left-100

9、End Sub End Sub C. Private Sub Command1_Click() D. Private Sub Command1_Click() Text1.Move.Text.Left+100 Text1.Move.Text.Left End Sub End Sub17.以下程序段的执行结果是( A )。n=0 For i=0 To 1 For j=0 To 1 n=n+1 Next j Next i Print n A. 4 B. 2 C. 1 D. 018.在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timer1,在属性窗口中把计时器的Interval属性设

10、置为1000，Enabled属性设置为False,程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序：Private Sub Command1_Click() Timer1._End SubPrivate Sub Timer1_Timer() Text1.Text = NowEnd Sub则在_处应填入的内容是( A )。 A. Enabled=True B. Enabled=False C. Visible=True D. Visible=False19. 假定在图片框Picture1中装入了一个图形，为了清除该图形(不删除图片框)，应采用的正确

11、方法是：( B )。A.选择图片框，然后按Del键B.执行语句Picture1.Picture=LoadPicture()C.执行语句Picture1.Picture=D.选择图片框，在属性窗口中选择Picture属性，然后按回车键B. Private Sub List1_Click() Label1.Name = List1.ListIndexEnd Sub20. 在窗体上画一个List1的列表框，一个名称为Label1的标签，列表框中显示若干个项目，当单击列表框中的某个项目时，在标签中显示被选中的项目的名称，下列能正确实现上述操作的程序是( D )。A. Private Sub List1

12、_Click() Label1.Caption = List1.ListIndex End SubC. Private Sub List1_Click() Label1.Name = List1.TextEnd SubD. Private Sub List1_Click() Label1.Caption = List1.Text End Sub21. 设a=MicrosoftVisualBasic, 则以下使变量b的值为”VisualBasic”的语句是( B )。A. b=Left(a,10) B. b=Mid(a,10) C. b=Right(a,10) D. b=Mid(a,11,10)

13、22. 下列表达式中不能判断x 是否为偶数的是( D )。A.x/2=Int(x/2) B.x Mod 2=0 C.FiX(x/2)=x/2 D.x2=023. 以下叙述中错误的是( D )。A.在通用过程中，多个形式参数之间可以用逗号作为分隔符B.在Print 方法中，多个输出项之间可以用逗号作为分隔符C.在Dim 语句中，所定义的多个变量可以用逗号作为分隔符D.当一行中有多个语句时，可以用逗号作为分隔符24. 设窗体上有一个列表框控件List1。以下能表示当前被选中的列表项内容的是( C )。A.List1.List B.List1.ListIndex C.List1.Text D.Lis

14、t1.Index25. 一个二维数组可以存放一个矩阵。在程序开始有语句Option Base 0，则下面定义的数组中正好可以存放1 个4 * 3 矩阵（即只有12 个元素）的是( B )。A. Dim a(-2 To 0,2)As Integer B. Dim a(3,2)As IntegerC. Dim a(4,3)As Integer D. Dim a(-1 To -4,-1 To -3)As Integer26. 设在窗体上有1 个名称为Combol 的组合框，含有5 个项目，要删除最后一项，正确的语句是( B )。A.Combo1.RemoveItem Combo1.Text B.Co

15、mbo1.RemoveItem 4C.Combo1.RemoveItem Combo1.ListCount D.Combo1.RemoveItem 527.在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click( )Dim I, NumRandomizeDoFor I=1 To 1000Num=Int(Rnd*100)Print Num;Select Case NumCase 12Exit ForCase 58Exit DoCase 65, 68, 92EndEnd SelectNext ILoopEnd Sub上述事件过程执行后，下列描述中正确的是

16、( D )。A. Do 循环执行的次数为1000 次B. 在For 循环中产生的随机数小于或等于100C. 当所产生的随机数为12 时结束所有循环D. 当所产生的随机数为65、68 或92 时窗体关闭、程序结束28.某人创建了1个工程，其中的窗体名称为Form1;之后又添加了1个名为Form2的窗体，并希望程序执行时先显示Form2窗体，那么，他需要做的工作是( A ) A.在工程属性对话框中把“启动对象”设置为Form2 B.在Form1的Load事件过程中加入语句 Load Form2 C.在Form2的Load事件过程中加入语句Form2.Show D.在Form2的TabIndex属性

17、设置为1，把Form1的TabIndex属性设置为229.用 Select Case 语句选择|x|10 D. Is 10 30. 赋值语句 g = 123 + Mid(123456, 3, 2)执行后，变量 g 中的值是( D )。 A. 12334 B. 123 C. 12334 D. 15731.表达式 Len(123 程序设计 ABC)的值是( A )。 A. 10 B. 14 C. 20 D. 1732.一个工程中包含两个名称分别为 Form1 和 Form2 的窗体，一个名称为 mdlfunc 的标准模 块。假定 Form1,Form2 和 mdlfunc 中分别建立了自定义过程，

18、其定义格式为： Form1 中定义的过程： Private sub frmFunction1().End Sub Form2 中定义的过程： Public sub frmFunction2() .End Sub Md1func 中定义的过程： Public sub md1Function () .End Sub 在调用上述过程的程序中，如果不指明窗体或模块的名称，则以下叙述中正确的是( D )。 A. 上述三个过程都可以在工程中的任何窗体或模块中被调用 B. frmFunction2 和 md1Function 过程能够在工程中各个窗体或模块中被调用 C. 上述三个过程都只能在各自被定义的模块

19、中调用 D. 只有 md1Function 过程能够被工程中各个窗体或模块调用 33. 以下程序段的运行结果是( C )。 Private Sub Form_Click() Dim x As Integer x = 4 Print x; Call test(x) Print x End Sub Public Sub test(i As Integer) i = i + 1 End Sub A. 4 6 B. 4 4 C. 4 5 D. 5 4 34. 窗体的边框风格由窗体对象的( B )属性来设置。 A. BackStyle B. BorderStyle C. WindowState D. F

20、illStyle 35. 若要以程序代码方式设置在窗体中显示文本的字体大小，则可用窗体对象的( C )属性来实现。 A. FontName B. Font C. FontSize D. FontBold 36. 复选框的 Value 属性值为 vbChecked 时，表示( B )。 A. 复选框未被选中 B. 复选框被选中 C. 复选框内有灰色的勾 D. 复选框操作错误 37. 将数据项China添加到列表框 List1 中成为第一项，应使用语句( A )。 A. List1.AddItem China, 0 B. List1.AddItem China, 1 C. List1.AddIte

21、m 0, China D. List1.AddItem 1, China 38. 把窗体的KeyPreview属性设置为True,然后编写如下事件过程: Private Sub Form_KeyPress(KeyAscii As Integer) Dim ch As String ch = Chr(KeyAscii) KeyAscii = Asc(UCase(ch) Print Chr(KeyAscii + 2) End Sub程序运行后,按键盘上的”A”键,则在窗体上显示的内容是( C )。 A. A B. B C. C D. D39. 假定时钟控件的 Interval 属性为 1000，E

22、nabled 属性为 True，并且有如下事件过程，计算机最终将发出( D )次 beep 声。 Private Sub Timer1_Timer() For i = 1 To 5 beep Next i End Sub A. 100 B. 1000 C. 5 D.以上都不对40. 若要获知列表框中列表项的总项数，可通过访问( C )属性来实现。 A. List B. ListIndex C. ListCount D. Text41、关于Visual Basic方法的概念错误的是( C )A. 方法是对象的一部分 B. 方法是预先定义好的操作C. 方法是对事件的响应 D. 方法用于完成某些特定

23、的功能42.为了同时改变一个活动控件的高度和宽度，正确的操作是( A )A.拖拉控件4个角上的某个小方块 B.只能拖拉位于控件右下角的小方块C.只能拖拉仅次于控件左下角的小方块 D.不能同时改变控件的高度和宽度43.删除列表框中指定的项目所使用的方法为( D )A.move B.remove C.clear D.removeitem44.语句printsgn(62)+abs(62)+int(62)的输出结果是( C )A.36 B.1 C.1 D.7245.inputbox函数返回值的类型为( B )A.数值 B.字符串 C.变体 D.数值或字符串(视输入的数据而定)46.决定标签内显示内容的

24、属性是(D )A.text B.name C.alignment D.caption47.在窗体上画一个命令按钮(其name 属性为commad1)，然后编写如下代码：option base 1private sub command1_click()dim aa=array(1，2，3，4)j=1for i=4 to 1 step 1s=s+a(i)*jj=j*10next iprint send sub运行上面的程序，单击命令按钮，其输出结果是(D)A.4321 B.12 C.34 D.123448.设a=6，则执行x=iif(a5，1，0)后，x的值为( D )A.5 B.6 C.0 D.

25、149.在窗体上画一个列表框和一个文本框，然后编写如下两个事件过程： Private Sub Form_Load () List1.AddItem357 List1.AddItem246 List1.AddItem123 List1.AddItem456 Text1.Text= End Sub Private Sub List1_ DblClick ( ) a =List1.Text Print a + Text1.Text End Sub 程序运行后，在文本框中输入“789”，然后双击列表框中的456，则输出结果为 ( B ) A.1245 B. 456789 C. 789456 D. 05

26、0.设S中华人民共和国.表达式Left(S,1)+Right(S,1)+Mid(S,3,2)的值为( B ) A.”中华民国” B.”中国人民” C.”中共人民” D.”人民共和”二、填空题1语句Print Int(12345.6789*100+0.5)/100的输出结果是: _12345.68 _。2. 在窗体上画一个文本框和一个图片框,然后编写如下两个事件过程:Private Sub Form_Click() Text1.Text = VB程序设计End SubPrivate Sub Text1_Change() Picture1.Print VB ProgrammingEnd Sub程序

27、运行后,单击窗体,在文本框中显示的内容是_VB程序设计_ ,而在图片框中显示的内容是_VB Programming_ 。3.在窗体上画一个文本框，名称为Text1，然后编写如下程序：Private Sub Form_Load_()Open d:tempdat.txt _For Output As #1_ Text1.Text=End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii=13 Then_If UCase(Text1.Text)= END Then _ Close #1EndElse_If UCase(Text

28、1.Text)= Text1.Text Then_ Text1.Text=End IfEnd Sub以上程序的功能是：在D 盘temp 文件夹下建立一个名为dat.txt 的文件，在文本框中输入字符，每次按回车键都把当前文本框中的内容写入文件dat.txt，并清除文本框中的内容：如果输入“END”，则不写入文件，直接结束程序。请填空。4.某人编写下列函数来判断a 是否为素数，若是，则函数返回True；否则返回False。Function prime(a As Integer)As BooleanDim k As Integer，isprime As BooleanIf a2 ThenIsprime = FalseElseIsprime = Truek=2Do While ka/2 And isprimeIf a Mod k=0 Thenisprime=Fals