VB(机电业)

1．若要取消窗体的最大化功能，则可设置( C )属性为False来实现。

A. ControlBox B. MinButton C. MaxButton D. Enabled 2．若要改变窗体中显示文本的颜色，可以设置（ C ）属性来实现。 A. Caption B.BackColor C. ForeColor D. Font 3．若x是一个正实数，对x的第3位小数四舍五入的表达式是（C ）。 A．0.01*Int(x+0.005) B． 0.01*Int(100*x+0.5) C．0.01*Int(100*x+0.05) D． 0.01*Int(x+0.05) 4．窗体文件名的后缀是（ D ）。

A．BMP B．VBP C．BAS D．FRM 5．表达式10 + 5 mod 10 \\ 9 / 3的值是（ C ）。

A. 10 B. 15 C. 12 D. 运算错误 6．数学式子sin25o 写成VB表达式是（ D ）。

A．sin(25) B．sin25 C．sin(25o) D．sin(25*3.14/180) 7．若要以程序代码方式设置在窗体中显示文本的字体大小，则可用窗体对象的（ D ）属性来实现。

A. FontName B. Font C. FontBold D. FontSize 8．若要使标签框根据所显示内容自动调整其大小，可通过设置（ A ）属性的

值为True来实现。

A. AutoSize B. Alignment C. Enabled D. Visible 9．若设置或返回文本框中的文本，则可以通过（ B ）属性来实现。 A. Caption B. Text C. Name D. Visible 10．以下能正确计算5! 的程序是( C )。

A. Private Sub Command1_Click()

N=5:X=1 Do

X=X*I I=I+1

Loop While IEnd Sub

B. Private Sub Command1_Click()

N=5:X=1:I=1 Do X=X*I

I=I+1

Loop While IEnd Sub

C. Private Sub Command1_Click()

N=5:X=1:I=1 Do X=X*I

I=I+1

Loop While I<=N Print X

End Sub

D. Private Sub Command1_Click()

N=5:X=1:I=1 Do X=X*I

I=I+1

Loop While I>N Print X

End Sub

11．若使命令按钮失效，则可以设置（ ）属性的值为False来实现。 A. Value B. Enabled C. Visible D. Cancel 12．若要获得滚动条的当前位置，可以通过访问（ ）属性来实现。 A. Value B. Max C. Min D. LargeChange 13．为了使计时器控件Timer1每隔1秒触发一次Timer事件，应将Timer1控件

的InterVal 属性设置为 （ ）。

A. 100 B. 1 C. 10 D. 1000 14．用于去掉字符串左边空格的函数是（ ）。

A. Mid( ) B. Rtrim（） C. Right（） D. Ltrim（） 15．若有数组说明语句为：Dim a(-3 To 8) 则数组a包含元素的个数是(B )。

A.5 B.8 C.11 D.12 16．要使以下Do 循环体执行3次，应在横线上填写（ A ）。

x = 1 do

x = x + 2 i = i - 1

Loop While

A. x<7 B. x<=6 C. x<=7 D. x<=8

17．以下变量声明语句 Dim Data 所声明的变量Data是（ C ）类型的变量。

A. 整型（Integer） B．字符串型（String）

C．变体型（Variant） D．双精度型（Double）

18．窗体Form1的名称属性myfrm，则它的Load事件过程名为（A ）。

A. Form_Load B. Me_Load C. Myfrm_Load D. Form1_Load 19．X是小于100的非负数，用VB表达式表示正确的是（ C ）。

A． 0≤X＜100 B．0＜＝X＜100 C． 0<=X AND X＜100 D．0＜＝X OR X＜100 20．如下程序： Private Sub Command1_Click( A) S=0 : I=1 While I<=100 S=S+I Wend End Sub

运行后的运算结果是 A．死循环直到溢出

B．无穷大的数

C． 5050

D． 5051

21．能够在代码中唯一确定一个对象的是对象的（ D ）属性。

A．Caption B．Text C．Style D．Name 22．Len(“HELLO中国”)的值为（ A ）。

A. 7 B. 9 C. 14 D. 6

23．如果要在程序代码中为图片框动态加载和清除图像，可以利用( C )函数。

A．InputBox B．Input C．LoadPicture D．Picture 24．当检查框（复选框）的Value属性为（ B ）时表示该检查框被选定。

A．0 B．1 C．True D．False

25．一元二次方程ax2+bx+c=0有实根的条件为：a≠0,并且b2-4ac≥0，下列正确

的布尔表达式是（ A ）。

A． a<>0 And b^2-4*a*c>=0 B． a<>0 And b^2-4*a*c≥0

C． a≠0 And b^2-4ac >=0 D． a≠0 And b^2-4*a*c≥0

二、填空题（每1分，共10分）

要求：将答案填入下列表格中。 【1】 对象 【6】 运行 【2】 事件驱动 【7】 中断 (顺序可调整) 【3】 & 【8】 HELLO 【4】 + (顺序可调整) 【9】 action 【5】 设计 【10】 ShowSave 1．Visual Basic是一种面向【1】的可视化程序设计语言,采取了【2】的编程机制。 2．VB的字符串运算符有 【3】和 【4】两种。 3．VB有【5】、【6】、【7】三种工作模式。

4．Print Format (“Hello”, ”>” )语句的输出结果是【8】。

5．将通用对话框的 【9】属性值设为2或选择 【10】方法 ，可显示“另存为”对话框。

三、阅读程序题：（每小题3分，共12分）

1．以下是按钮对象Command1的单击事件过程，当第5次调用此过程，在执行End Sub之前，b、c的值分别是 1 5 。

Private Sub Command1_Click( )

Dim b As Integer : static c As Integer

b＝b+1 ：c=c+1 End Sub

2．执行下面程序，输出结果为 S=1234 。

k = k + 1 Loop

Print k; j

四、程序设计：（共28分）

1． 计算分段函数, 并将结果输出到窗体上：（9分） y= Option Base 1

2x2-2 x>0 0 x=0 Private Sub Commandl_Click() Dim a( ), s a = Array(1,2,3,4) j = 1

For i = 4 To 1 Step -1 s = s + a(i)*j j =j*10 Next i Print “s=”;s End Sub

3．执行下面程序，输出结果为 50 。 Private Sub Form_Click( )

Dim a as integer

For j = 1 To 20

4．下述程序的运行结果是 3 182 。 Do While j < 30

j = (j + 1) * (j + 2)

1. Private Sub Command1_Click()

dim x as integer dim y as integer

x=inputbox(“输入一个数x：”) I f x>0 then y=2*x^2-2 Else if x=0 then

y=0 else

y=3*x+3 End if

Print “y的值为：” & y

End Sub

3x+3 x<0

或x=val(text1.text) if j mod 5 =0 then a = a + j Next j Print a End Sub

j = 0

2. 编写程序，求任意正整数M和N的最大公约数。（10分） 2. 编程：求自然数n的阶乘，并将结果输出到窗体上。

Private Sub Form_Click( )

Dim i As Integer, t As Long, n As Integer n=inputbox(“输入一个自然数n：”)

3．窗体上输出10～100（包括10、100）之间不能被3整除的奇数及这些数的和。（9分） 3. 窗体上输出10～100（包括10、100）之间不能被3整除的奇数及这些数的和。

Dim i as integer, Sum as long

For i = 1 To 100

t = 1

if n=0 then t=1 else

For i = 1 To t = t * i Next i

End if

Print n;\"!=\End Sub

n

If i mod 2<>0 and I mod 3 <>0 then

Sum=Sum+i Print i; End if Next i print

Print “sum=”;sum End if

一、单项选择题：（每题2分）

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 C C C D C D D A B C B A D D D 16 17 18 19 20 21 22 23 24 25 C C A C A D A C B A 二、填空题（每空1分，共10分）

1． 【1】对象 【2】事件驱动

2． 【3】 & 【4】 + (顺序可调整) 3． 【5】设计 【6】运行 【7】中断 (顺序可调整) 4． 【8】 HELLO

5． 【9】 action 【10】ShowSave

三、阅读程序，写出运行结果：（每题3分，共12分）1． 1 5

2． S=1234 3． 50 4． 3 182

四、程序设计：（共28分）

1. Private Sub Command1_Click()

dim x as integer

dim y as integer

x=inputbox(“输入一个数x：”) 或x=val(text1.text) I f x>0 then y=2*x^2-2 Else if x=0 then

y=0 else

y=3*x+3 End if

Print “y的值为：” & y End Sub

2. 编程：求自然数n的阶乘，并将结果输出到窗体上。

Private Sub Form_Click( )

Dim i As Integer, t As Long, n As Integer n=inputbox(“输入一个自然数n：”)

t = 1

if n=0 then t=1 else

For i = 1 To n

t = t * i Next i

End if

Print n;\"!=\End Sub

3. 窗体上输出10～100（包括10、100）之间不能被3整除的奇数及这些数的和。Dim i as integer, Sum as long For i = 1 To 100

If i mod 2<>0 and I mod 3 <>0 then

Sum=Sum+i Print i; End if Next i print

Print “sum=”;sum End if