1、第 1 页，共 9 页Visual Basic 程序设计基础试题一（每小题 2 分，共 10 分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】过程 JiSuan 用于计算 e = 1 + 1/1! + 1/2! + 1/3! + +1/n!的值，直至末项小于0.00001（不包含小于 0.00001 的项） ，并用消息框显示结果。【程序】Option ExplicitPrivate Sub JiSuan()Dim e As single, (1) , i As longe = 1: t = 1: (2) (3) i = i + 1: e = e + t:
2、 (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.00001C、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 “近似值为：“ + tB、M
3、sgBox “近似值为：“ End SubSub aa(b As Byte) (3)b = a + 2End Sub【供选择的答案】（22） 单击窗体两次后，窗体上显示的内容是什么？A、0 0 B、2 2 C、2 4 D、4 8（23） 其它代码不变，仅将程序中的语句（1）前面的单引号“ ”删除，单击窗体两次后，窗体上显示的内容是什么？A、0 0 B、2 2 C、2 4 D、4 8（24） 其它代码不变，仅将程序中的语句（2）改为 call aa(a+2)，单击窗体两次后，窗体上显示的内容是什么？A、0 0 B、2 2 C、2 4 D、4 8（25） 其它代码不变，仅将程序中的语句（3）改成
4、sub aa(byval b as byte)，单击窗体两次后，窗体上显示的内容是什么？A、0 0 B、2 2 C、2 4 D、4 8试题六（每小题 2 分，共 12 分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】程序界面如下图所示，程序运行时要求有以下功能：1. 单击影像框(Image1)，定时器（timer1）开始运行；再次单击影像框，定时器停止运行。2. 定时器运行时，每隔一定时间更换影像框中的图片：第 1 次显示“c:pic1.bmp”的图片，第 2 次显示“c:pic2.bmp”的图片，第 3 次显示“c:pic3.bmp”的图片，第 4 次
5、又显示“c:pic1.bmp”的图片依次类推。3. 滚动条(HScroll1)用于控制定时器 Timer1 的 Timer 事件时间间隔。第 6 页，共 9 页【程序】Dim i As BytePrivate Sub Form_Load()HScroll1.Min = 1000: HScroll1.Max = 10000: HScroll1.SmallChange = 1000HScroll1.LargeChange = 3000: HScroll1.Value = 1000 : i = 1Timer1.Enabled = False: Timer1.Interval = HScroll1.V
6、alueEnd SubPrivate Sub HScroll1_Change()_ (26) End SubPrivate Sub Image1_Click()_ (27) End SubPrivate Sub Timer1_Timer()Dim fn As Stringfn = “c:pic“ +_ (28) + “.bmp“_ (29) if i 3y = x + 3Case Is = 1y = x * xCase Is 0y = Sqr(x)Case Elsey = 0End SelectPrint y 1 分End Sub试题九：（8）函数头定义 2 分，其中数组参数定义1 分，返回值
7、类型 1 分Function CalcAVG(a() As Single, n As Integer) As SingleDim h As Single, i As Integer 变量定义 1 分For i = 1 To n 循环 2 分h = h + a(i) 累加 1 分Next iCalcAVG = h / n 函数赋值 1 分,求平均值 1 分End Function试题十：（14）Private Sub Command1_Click()End 1分End SubPrivate Sub Form_Load()File1.Pattern = “*.txt“ 1 分End SubPriv
8、ate Sub Dir1_Change()File1.Path = Dir1.Path 1 分End SubPrivate Sub Drive1_Change()Dir1.Path = Drive1.Drive 1 分End SubPrivate Sub File1_Click()Dim fs As String, s As String获取完整文件名 3 分If Right(File1.Path, 1) = “ Thenfs = File1.Path + File1.FileNameElsefs = File1.Path + “ + File1.FileNameEnd IfOpen 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) WendClose #1 打开文件 1 分End Sub
