vb考卷(2)

B

D

B

D

B

D

B

D

B

D

B

Select

D select

Select

B

D B D B D B D B D B D B D B D

B D B D B D B D B D B D B D B

D B D B D B D

Basic6.0中，用Font.Bold属性设置。

含义是。

ual Basic是一种可视化编程语言",Lcase$(A$)函数返回值是。

方法清除运行时由绘图方法或Print方法在窗体、图片框上产生的图形和文本。

段实现要求程序运行时自动在标签中依次循环显示"宇宙"，"太阳"，"地球"，"亚洲"。。

Form_Load()

l1.AutoSize = True: Label1.FontSize = 30

l1.Caption =

r1.Interval = 2000

r1.Enabled = True

Timer1_Timer()

ct Case Label1.Caption

Label1.Caption = "宇宙"

"宇宙"

Label1.Caption = "太阳"

"太阳"

Label1.Caption = "地球"

Else

Label1.Caption = "亚洲"

画一个标签（名称为Label1）和一个计时器（名称为Timer1），然后编写如下几个事件过程：Form_Load()

ed =

val = 1000

Form_Click()

ed =

Timer1_Timer()

on = time()

单击窗体，将在标签中显示当前时间，每隔1秒钟变换一次（如见下图）。————————————————

————————————————

小题，共10分）

语句LET A＝5 是一个正确的语句。（1分）

错误

窗体、控件不可以和关键字同名。（1分）

错误

5列的位置上输出变量x的值，可以写成print tab(15),x（1分）

错误

A3_B4是合法的变量名。（1分）

错误

4，C=5，D=6，则表达式A>B And C<=D Or 2* A>C 的值是False。（1分）

错误

条件> then 结构中，条件必须是逻辑表达式或关系表达式。（1分）

错误

<控制变量>＝<初值> To <终值> [Step <步长>] 结构中，循环次数为Int((终值－初值)/步长+1)（1分）

错误

本框Text1中显示"Hello",可以用语句Text1.Caption="Hello"（1分）

错误

的扩展名是.frm。（1分）

错误

，即可以通过Inputbox函数来接收数据，也可以通过Msgbox函数接收用户简单的选择信息。（1分）

错误

小题，共60分）

，计算并输出下面级数前n项中(n=50)偶数项的和。(要求用循环做，非循环不给分。) 1*2*3+2*3*4+3*4*5+……+n*(n+1)*(n+2)+…

序最后的运行结果填入下面的框中。否则，该题以零分计!

题所写的源程序粘贴到下面或者上载源程序

数字，求其中偶数数字的个数及其和。

序最后的运行结果填入下面的框中。否则，该题以零分计!

题所写的源程序粘贴到下面或者上载源程序

，用普通迭代法求方程f(x)=x+lnx-2.5=0的近似实根r，迭代初值为1.5，精确到0.0001。把方程f(x)=0化成其等价形式x=g(x)〕。（允许使用其他迭代法）

序最后的运行结果填入下面的框中。否则，该题以零分计!

题所写的源程序粘贴到下面或者上载源程序

，给出行3，6，9，12的值和列15，16，17，18的值，得到如下的乘积表：(要求用循环做，非循环不给分。)

3 6 9 12

45 90 135 180

48 96 144 192

51 102 153 204

54 108 162 216

填写运行结果）

题所写的源程序粘贴到下面或者上载源程序

参考答案：

一、

1 A

2 B

3 D

4 A

5 C

6 C

7 C

8 D

9 没有答案

10 B

11 B

12 D

13 B

14 D

15 C

16 D

17 C

18 B

19 C

20 D

21 D

22 C

23 B

24 D

25 C

二、

1 Click

2 循环

3 加粗

4 生成（0，1）之间的随机数

5 visual basic是一种可视化编程语言

6 CLS

7 亚洲

亚洲

End Select

8 FALSE

TRUE

三、

1 T

2 F

3 F

4 T