VB考试试卷及答案一_vb考试试卷及答案一

VB考试试卷及答案一由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“vb考试试卷及答案一”。

Visual Basic程序设计基础

试题一（每小题2分，共10分）

阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】

过程JiSuan用于计算e = 1 + 1/1!+ 1/2!+ 1/3!+ …+1/n!的值，直至末项小于0.00001（不包含小于0.00001的项），并用消息框显示结果。

【程序】

Option Explicit Private Sub JiSuan()Dim e As single,(1), i As long e = 1: t = 1:(2)(3)i = i + 1: e = e + t:(4)Loop(5)End Sub 【供选择的答案】

（1）A、t As String B、Dim t As String C、Dim t As Single D、t As Single（2）A、i = 1 B、i = 2 C、i = 0 D、i = 3（3）A、While t >= 0.00001 B、Do While t >= 0.00001 C、While e >= 0.00001 D、Do While e >= 0.00001（4）A、t = t * i B、t = 1/(i * t)C、t = t / i D、t = 1 / i（5）A、MsgBox “近似值为：” + t B、MsgBox “近似值为：” & t C、MsgBox “近似值为：” + e D、MsgBox “近似值为：” & e

试题二（每小题2分，共8分）

阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】

程序界面如下图所示，程序运行时要求有以下功能：

1.单击“加粗”复选框（Check1）,若复选框被选中，则设置标签(Label1)上显示的文字为加粗，否则设置为不加粗。

2.单击“选择颜色”按钮(Command1)将显示“颜色”对话框，若单选按钮“前景色”（Option1）被选中，则设置Label1的前景色为用户选择的颜色，否则设置Label1的背景色为用户选择的颜色。通用对话框控件名称为CommonDialog1。

【程序】

Private Sub Check1_Click()Label1.FontBold = False If(6)Then Label1.FontBold = True End Sub Private Sub Command1_Click()Dim c As Long :(7): c =(8)If(9)Then Label1.ForeColor = c Else Label1.BackColor = c End Sub 【供选择的答案】

（6）A、Check1.Value = True B、Check1.Value = False C、Check1.Value = 1 D、Check1.Value = 0（7）A、CommonDialog1.ShowOpen B、CommonDialog1.ShowColor C、CommonDialog1.ShowSave D、CommonDialog1.Action = 1（8）A、CommonDialog1.ForeColor B、CommonDialog1.FontColor C、CommonDialog1.BackColor D、CommonDialog1.Color（9）A、Option1.Value B、Option1.Value = 1 C、Option1.Value = false D、Option1.Value = 0

试题三（每小题2分，共10分）

阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】

程序界面如上面两图所示，程序运行时要求有以下功能：

1.当用户单击“增加”按钮(Command1)，若文本框(Text1)中的内容不为空，则将文本框中的内容添加到列表框末尾，并自动将文本框中的内容选中。

【程序】

Dim i As Byte Private Sub Form_Load()HScroll1.Min = 1000: HScroll1.Max = 10000: HScroll1.SmallChange = 1000 HScroll1.LargeChange = 3000: HScroll1.Value = 1000 : i = 1 Timer1.Enabled = False: Timer1.Interval = HScroll1.Value End Sub Private Sub HScroll1_Change()_(26)End Sub Private Sub Image1_Click()_(27)End Sub Private Sub Timer1_Timer()Dim fn As String fn = “c:pic” +_(28)+ “.bmp” _(29)if i

A、3000 B、4000 C、5000 D、6000

第6页，共9页

试题七（每小题2分，共8分）

阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】

程序界面如下图所示，程序运行时要求有以下功能：

1.在窗体的Load事件过程中，设置图片框p1中的内部坐标系如下：图片框左、右边线在其内部坐标系中的横坐标分别为0、200，上、下边线在其内部坐标系中的纵坐标分别为50、-50。

2.单击“中心线”按钮（Command1），在图片框的水平和垂直的中心位置画两条直线，效果如左下图所示。

3.单击“画图”按钮（Command2），在图片框上画5个大小相等并水平相接的圆，效果如右下图所示。

【程序】

Private Sub Form_Load()_(32)End Sub Private Sub Command1_Click()_(33)P1.Line(100, 50)-(100,-50)End Sub Private Sub Command2_Click()Dim r As Integer r = _(34)For i = _(35)p1.Circle(r * i, 0), r, vbBlue Next i End Sub 【供选择的答案】（32）A、p1.Scale(-50,0)-(50,200)B、p1.Scale(0,-50)-(200,50)C、p1.Scale(50,0)-(-50,200)D、p1.Scale(0,50)-(200,-50)（33）A、p1.Line(200,0)-(0,0)B、p1.Line –(200,0)第7页，共9页 C、p1.Line(0,-50)-(200,-50)D、p1.Line(0,50)-(200,50)（34）A、p1.ScaleWidth / 5 B、p1.Width / 5 C、p1.ScaleWidth / 10 D、p1.Width / 10（35）A、9 to 1 Step-1 B、1 to 9 Step 2 C、1 to 5 D、5 to 1 Step-1

试题八（8分）

编程，用Inputbox函数输入x，根据下面公式计算y值，并在窗体上显示y值。代码写在窗体的Click事件过程中。

x3当x3x2当1≤x≤3y = 

x当0x10当x≤0

试题九（8分）

编写一个自定义函数CalcAVG，计算Single类型一维数组所有元素的平均值。

试题十（14分）

界面设计、运行时状态如下图所示，按照下列要求定义各事件过程：

1.2.3.4.为窗体的Load事件编写代码，使得文件列表框(File1)仅显示文本文件(*.txt)实现驱动器列表框(Drive1)和目录列表框(Dir1)，及文件列表框(File1)的联动。单击文件列表框中某一文件，将被选中文件的内容原样显示在文本框(Text1)中。单击“退出”按钮(Command1)，结束程序运行。

参考答案

试题一：DABCD 试题二：CBDA

试题三：AADAC 试题四：ACCBAAB 第8页，共9页 试题五：DBCC 试题六：AACCAC 试题七：DACB 试题八：（8）

Private Sub Form_click()

Dim x As Single, y As Single ’1分

x = Val(InputBox(“x=”))

’1分

Select Case x ’5分

Case Is > 3

y = x + 3

Case Is >= 1

y = x * x

Case Is > 0

y = Sqr(x)

Case Else

y = 0

End Select

Print y ’1分 End Sub 试题九：（8）

'函数头定义2分，其中数组参数定义1分，返回值类型1分

Function CalcAVG(a()As Single, n As Integer)As Single

Dim h As Single, i As Integer '变量定义1分

For i = 1 To n '循环2分

h = h + a(i)'累加1分

Next i

CalcAVG = h / n '函数赋值1分,求平均值1分 End Function

试题十：（14）

Private Sub Command1_Click()

End

'1分

End Sub

Private Sub Form_Load()

File1.Pattern = “*.txt”

'1分 End Sub

Private Sub Dir1_Change()

File1.Path = Dir1.Path

'1分 End Sub

Private Sub Drive1_Change()

Dir1.Path = Drive1.Drive

'1分 End Sub

Private Sub File1_Click()

Dim fs As String, s As String

'获取完整文件名3分

If Right(File1.Path, 1)= “” Then

fs = File1.Path + File1.FileName

Else

fs = File1.Path + “” + File1.FileName

End If

Open fs For Input As #1 '打开文件2分

While Not EOF(1)

'循环2分

Line Input #1, s

'读取行1分 '累加1分

Text1.Text = Text1.Text + s + Chr(13)+ Chr(10)

Wend

Close #1

'打开文件1分 End Sub 第9页，共9页