当前位置:首页 >> 其它课程 >> 2009课终考试试卷A

2009课终考试试卷A


第 1 页 共 9 页 得分 评阅教师

可以通过(

)事件获得输入键值的 ASCII 码.

(A)Change (B)LostFocus (C)KeyPress (D) 一、单项选择题(1 分/小题,共 10 分) 1、 语句 PRINT"SGN(-26)=";SGN(-26)的输出结果为 (

). (A)SGN(-26)=26 (B)SGN(-26)=-26(C) SGN(-26)=+1(D)SGN(-26)=-1 2、 应用程序保存在磁盘上,至少会有以( VB 展名两个文件. (A).DOC 和.TXT (B).COM 和.EXE (C).VBW 和.BAS (D).VBP 和.FRM 3、组合框有三种风格,它们由 Style 属性所决定, 其中为下拉列表框时,Style 属性值应为( (A)0 (B)1 (C)2 (D)3 4、Int(198.555*100+0.5)/100 的值( ). (A)198 (B)199.6 (C)198.56 (D)200 5、若要访问组合框 Comb1 中被用户选中的表项, 应使用( ) 二、程序阅读(3 分/题,共 45 分) 1、在窗体上画一个名称为 Label1、标题为 "VisualBasic 考试"的标签,两个名称分别为 Command1 和 Command2、标题分别为"开始"和"停止 "的命令按钮,然后画一个名称为 Timer1 的计时器 控件,并把其 Interval 属性设置为 500. 编写如下 程序: Private Sub Form_Load() (B) Timer1.Enabled = False End Sub Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Command2_Click() Timer1.Enabled = False End Sub Private Sub Timer1_Timer() ). 得分 评阅教师 )为扩 GotFocus 9、以下不属于 VisualBasic 系统的文件类型是 ( ). (A).frm (B).bat (C).vbg (D).vbp 10、控件是( ). (A)建立对象的工具 工具 (C)编写程序的编辑器 编辑窗口 (D)建立图形界面的 (B)设置对象属性的

(A)Comb1.Text (B)Comb1.List (C) Comb1.ListIndex (D)Comb1.ListCount 6、下列各项变量中,哪一项所占的内存空间最多 ( ). (A)dim x as currency x=99 dim st1 as string st1='good' (C)dim st2 as string st2='goodbye' (D) dim d as data d='1898/09/12' 7、清除列表框的所有选项应选择下列哪种方法 ( ). (A)Clear (B)Cls (C)ClearItem (D) RemoveItem 8、 如果在窗体上已经创建了一个文本框对象 Text1,

1

第 2 页 共 9 页

If Label1.Left < Width Then Label1.Left = Label1.Left + 120 Else Label1.Left = 0 End If End Sub (1)程序运行后,单击"开始"按钮,标签在窗体中 移动. 对于这个程序,以下叙述中错误的是( (A)标签的移动方向为自左向右 (B)单击"停止"按钮后再单击"开始"按钮, 标签从停止的位置继续移动 (C) 当标签全部移出窗体后,将从窗体的另一 端出现并重新移动 (D)标签每隔 1 秒移动一次 (2)程序使用了几个控件( (A)1 (B)2 (C)3 ) (D)4 ) (D) )

For i = 1 To 3 Sum = Sum + f(a) Next i Print Sum End Sub (4) 程序运行后,窗体上显示的值为( (A) 24 (D) 32 (5) 如果将 Static c As Integer 改为 dim c As Integer,则 sum 的值为( (A) 24 (B) 12 ) 。 (C) 28 (B) 12 (C) ) 。 28

(D) 32 (6) 如果将语句 b=1 去掉,则 sum 的值又为( (A) 24 (B) 12 (C) 28 ) 。

(D) 32 3、程序如下 Dim x As Integer, y As Integer, z As Integer Sub s1(a As Integer, b As Integer) Dim c As Integer a = 2 * a b = b + 2 c = a + b End Sub Sub s2(a As Integer, ByVal b As Integer) Dim c As Integer a = 2 * a b = b + 2 c = a + b End Sub Private Sub Command1_Click()

(3)Timer 控件的 Interval 属性的单位是( 28 (A)秒 纳秒 2、程序如下 Function f(m As Integer) As Integer b = 1 Static c As Integer b = b + 1 c = c + 1 f = m * b * c End Function Private Sub Command1_Click() Dim a As Integer a = 2 Sum = 0 (B)毫秒 (C)微秒

2

第 3 页 共 9 页

x = 4 y = 4 z = 6 Call s1(x, y) Print x + y + z; Call s2(x, y) Print x + y + z End Sub (7)程序运行后,窗体上显示的结果为( (A) 20 18 24 28 (D) (B) 20 20 20 28 ) 。 (C)

End If Next dat2 If swit Then num = num + 1 Write #1, " 第"; num; "个数"; dat1 End If Next dat1 Close #1 End Sub (10)程序中 write 语句的作用是( (A) 读数据 ).

(B)写数据 (D)追加数据 ) 。

(8) 将 ByVal b As Integer 改为 b As Integer 后 窗体上显示的结果为( (A) 24 28 18 (9) (D) 20 ) 。 (C) 20

(C) 修改数据

(11) 执行程序后, prime.dat 文件的内容是 ( (A)第 1 个数 7 第 2 个数 5 ). (C) (C)第 1 个数 2 第 2 个数 3 第 3 个数 5 第 4 个数 7 (12) 该程序的功能是( ) 。 (D)以上都不对 第 3 个数 9 (B)第1个数2 第 2 个数 3 第 3 个数 5

(B) 20 28 30

修改后变量 x 和 y 的最后取值为( (B) 20 20

(A) 24 28 16 8

(D) 20 30

4、程序如下 Private Sub Form_Click() Dim num As Integer, dat1 As Integer, dat2 As Integer Dim swit As Boolean num = 0 Open "d:\prime.dat" For Output As #1 For dat1 = 2 To 10 swit = True For dat2 = 2 To Sqr(dat1) If (dat1 Mod dat2) = 0 Then swit = False Exit For

(A) 统计 2 到 10 之间的数据个数。 (B)统计 2 到 10 之间的素数个数。 (C)找出 2 到 10 之间所有的素数。 (D)找出 2 到 10 之间的第一个素数。 5、程序如下 Sub s1(b() As Integer) For i = 1 To 4 b(i) = 2 * i Next i

3

第 4 页 共 9 页

End Sub L1: Private Sub Command1_Click() Dim a() As Integer Redim a(1 to 4) For i = 1 To 4 a(i) = i + 5 Next i s1 a() For i = 1 To 4 Print a(i); Next i End Sub (13)程序运行的结果是( ) 。 (A) 6 7 8 9 2 4 6 8 (D) (B) 12 14 16 18 1 2 3 4 ) 。 (B) (C)

1、下面的程序段用于求矩阵相乘 C=A× B,设 A、B、 C 分别为 m× p、p× n、m× 的矩阵。 n Private Sub Form_Click() Const m = 4, p = 3, n = 2 Dim a(1 To m, 1 To p) As Integer Dim b(1 To p, 1 To n) As Integer Dim c(1 To m, 1 To n) As Integer Dim i As Integer, j As Integer, k As Integer, sum As Integer For i = 1 To m For k = 1 To p a(i, k) = i Next k Next i For i = 1 To p For k = 1 To n b(i, k) = i Next k Next i (D) 用 For i = 1 To m For j = 1 To n 【①】 For k = 1 To p (B)无变化 (D)以上都不 sum = sum +【②】 Next k c(i, j) =【③】 Next j, i

(14) 程序中所定义的 a()是( (A) 用户自定义类型

静态数组 (C) 动态数组 户自定义类型数组 (15)在 L1 处添加语句 option base 1 后,程序 运行的结果( (A) 有变化 (C)出现语法错误 是 ) 。

得分

评阅教师

Print "输出矩阵" For i = 1 To m

三、程序填空(2 分/空,30 分)

For k = 1 To n Print c(i, k),

4

第 5 页 共 9 页

Next k Print Next i End Sub 2、以下程序段分别以子过程和函数来计算某级数 部分和,级数公式如图 1 所示。

【②】 jishu2(f2, 2#, 0.000001) Print "f1="; f1, "f2 = "; f2 End Sub 3、用输入对话框输入 x,根据如图公式计算对应的 y,在窗体上输出 y 的值。

Option Explict Function jishu1(x!, eps#) As Double Dim n%, s#, t# n = 1: s = 0: t = 1 Do While (Abs(t) >= eps) s = s + t t = t * x / n n = n + 1 Loop 【①】 End Function Sub jishu2(s#, x!, eps#) Dim n%, t# n = 1: s = 0: t = 1 Do While (Abs(t) >= eps) s = s + t t = t * x / n n = n + 1 Loop End Sub Private Sub Command1_Click() Dim f1#, f2# f1 = jishu1(2#, 0.000001) Private Sub Command1_Click() Dim x As Single 【①】 x = Val(【②】("Please input x :", "输入 X 的值")) If x = 10 Then 【③】 ElseIf x > 10 Then y = Else y = 2 * x ^ 3 + 6 End If Print y End Sub 4、以下程序段实现的功能是:查找一数列中是否 存在某数字 x,若数列中存在该数字,则输出其出 现的次数,否则输出不存在信息。 Private Function Search(a() As Integer, ByVal key, n%) As Boolean Dim i% Search = False For i = LBound(a) To 【①】 【④】

5

第 6 页 共 9 页

If key = a(i) Then Search = True 【②】 End If Next i End Function Private Sub Form_Click() Dim x As Integer, k As Integer, num As Integer Dim b() As Integer num = Int(Rnd * 10) + 1 ReDim b(num) For i = 0 To num b(i) = Int(Rnd * 70) + 20 Print b(i); Next i Print x = Val(InputBox("输入待查找数据")) If Search(【③】, x, k) Then Print x; "在数列中出现"; k; "次" Else Print x; "未在数列中出现" End If End Sub 5、在文本框内输入一串字符后,统计并显示各字 母出现的次数(不区分大小写字母)。 Private Sub Command1_Click() Dim a(1 To 26) As Integer, c As String * 1 【①】 = Len(Text1) For I = 1 To k c = 【②】(Mid(Text1, I, 1)) If c >= "a" And c <= "z" Then 得分 a(j);

j = Asc(c) - 【③】 + 1 a(j) = a(j) + 1 End If Next I Picture1.Cls For j = 1 To 26 If a(j) > 0 Then Picture1.Print " "; Chr(j + 96); "=";

End If Next j End Sub

评阅教师

四、程序改错题(每个错误点 3 分,共 15 分) 有一程序其功能为:单击“生成”按钮后,利用随 机函数产生 10 个(1~100)之间的随机整数并输出 在 LIST1 中,单击“计算”按钮,在窗体上打印其 中能被 5 整除的数并求它们的和。程序中有 5 个错 误,在不删除整条语句的前提下,可修改或补充语 句,添加的语句不能超过两条。

6

第 7 页 共 9 页

答 得分 评阅教师



一、单项选择题(1 分/小题,共 10 分) 1 2 3 4 5 6 7 8 9 10

得分

评阅教师

错误源代码: Option Base 1 Dim x(10) As Integer Private Sub Command1_Click() List1.Remove For i = 1 To 10 x(i) = List1.AddItem x(i); Next i End Sub Private Sub Command2_Click()

二、程序阅读(3 分/题,共 45 分) 1 2 3 4 5 6 7 8 9 10

11

12

13

14

15

得分

评阅教师

三、程序填空(2 分/空,30 分) 1 、 、 、

Dim sum As Integer 2、 sum = 0 For i = 1 To 10 、 If Print x(i) sum = sum + x(i) 、 Next i 5 、 Print "sum="; sum End Sub 、 得分 评阅教师 、 4 、 、 Then 3 、 、 、

7

第 8 页 共 9 页

一、单项选择题(1 分/小题,共 10 分) 1、D 6、C 2、D 7、A 3、C 8、C 4、 C 9、 B 5、 D 10、A

二、程序阅读(3 分/题,共 45 分) 26、D 31、B 36、C 27、D 32、B 37、C 28、B 33、D 38、C 29、 A 34、C 39、 C 30、 B 35、 B 40、C

三、程序填空(2 分/空,30 分) 1、 (1)sum = 0、 (2)a(i, k) * b(k, j)、 (3)sum
2、 (1)jishu1 = s、 (2)call 3、 (1)y、 (2)InputBox、 (3)y = 0、 (4)+ Sin(x) 4、 (1)UBound(a)、 (2)n=n+1、 (3)b() 5、(1)k、 (2)Lcase、 (3)97 四、程序改错题(每个错误点 3 分,共 15 分)

Option Base 1 Dim x(10) As Integer Private Sub Command1_Click() List1.Remove For i = 1 To 10 x(i) = List1.AddItem x(i); Next i End Sub Private Sub Command2_Click() Dim sum As Integer sum = 0 For i = 1 To 10 If Then Print x(i) sum = sum + x(i) Next i Print "sum="; sum End Sub

(1)修改为:list1.clear (2) 修改为:x(i) = Int(Rnd * 100 + 1) (3)修改为:List1.AddItem x(i)

(4)修改为:If x(i) Mod 5 = 0 Then

(5)修改为:End If

8

第 9 页 共 9 页

二、单项选择题(1 分/小题,共 10 分) 1、D 6、C 2、D 7、A 3、C 8、C 4、 C 9、 B 5、 D 10、A

二、程序阅读(3 分/题,共 45 分) 26、D 31、B 36、C 27、D 32、B 37、C 28、B 33、D 38、C 29、 A 34、C 39、 C 30、 B 35、 B 40、C

三、程序填空(2 分/空,30 分) 1、 (1)sum = 0、 (2)a(i, k) * b(k, j)、 (3)sum
2、 (1)jishu1 = s、 (2)call 3、 (1)y、 (2)InputBox、 (3)y = 0、 (4)+ Sin(x) 4、 (1)UBound(a)、 (2)n=n+1、 (3)b() 5、(1)k、 (2)Lcase、 (3)97 四、程序改错题(每个错误点 3 分,共 15 分)

Option Base 1 Dim x(10) As Integer Private Sub Command1_Click() List1.Remove For i = 1 To 10 x(i) = List1.AddItem x(i); Next i End Sub Private Sub Command2_Click() Dim sum As Integer sum = 0 For i = 1 To 10 If Then Print x(i) sum = sum + x(i) Next i Print "sum="; sum End Sub

(1)修改为:list1.clear (2) 修改为:x(i) = Int(Rnd * 100 + 1) (3)修改为:List1.AddItem x(i)

(4)修改为:If x(i) Mod 5 = 0 Then

(5)修改为:End If

9


更多相关文档:

《机械设计基础》08-09课程考试试卷(_A_)

中国计量学院 200 8 ~ 200 9 学年第 2 学期 《机械设计基础》课程考试试卷( A )开课二级学院:机电工程学院,考试时间:2009 年 6 月 6 日 18:00-20:00...

2009春电路课程考试试卷A

2009 年春季学期 《 电路》课程考试试卷(A 卷) 注意:1、本试卷共 页; 2、考试时间:110 分钟; 3、姓名、学号、网选班级、网选序号必须写在指定地方。 得分...

2009年湖南省张家界市初中毕业九年级数学学业考试试卷...

y C B D x 2 ?4 A O 1 张家界市 2009 年初中毕业学业考试数学试卷答案一、选择题 1.B 2.A 3.B 4.A 5.C 6.D 7.C 8.A 二、填空题 9. 3 ...

济南大学2009~2010学年第一学期课程考试试卷(A卷)

济南大学2009~2010学年第一学期课程考试试卷(A卷) 隐藏>> 济南大学 2009~2010...4 [ ] 课 程 概率论与数理统计年 1 月 4 日 授课教师 考试班级 姓名五...

2008-2009线性代数课程考试试卷A

2008 2009 学年第一学期《线性代数》考试试卷( 2008—2009 学年第一学期《线性代数》考试试卷( A 卷)一、填空题(每小题5分,共15分) 填空题( 小题5 15分...

VC++_2009试卷A课程考试标准答案与评分标准

VC++_2009试卷A课程考试标准答案与评分标准_理学_高等教育_教育专区 暂无评价|0人阅读|0次下载|举报文档 VC++_2009试卷A课程考试标准答案与评分标准_理学_高等...

2009《电力系统分析》课程考试试卷(A卷)答案

2009 年春季学期 《电力系统分析》课程考试试卷(A 卷) 注意:1、本试卷共 3 页; 2、考试时间:110 分钟; 3、姓名、学号、网选班级、网选序号必须写在指定地方...

华南农业大学期公共经济学终考试试卷(A)

2009年华南农业大学期末... 7页 免费 华南农业大学...​学​终​考​试​试​卷​(​A...一些非生产性的财产,是可以作为课对象的。 5、作图...

湖北大学2008至2009学年伦理学课程考试试题A

湖北大学 2008 至 2009 学年伦理学课程考试试题 A 程名称: 考试方式: 学院: 开卷 伦理学 (开卷、闭卷) 哲学学院 任课教师: 专业年级: ( A 卷) 倪霞 ...

2009-2010-1工厂供电课程试卷A标准答案1

2009-2010-1工厂供电课程试卷A标准答案12009-2010-1工厂供电课程试卷A标准答案1隐藏>> 200 南昌大学 2009~2010 学年第一学期期末考试试卷试卷编号: 试卷编号: 课...
更多相关标签:
网站地图

文档资料共享网 nexoncn.com copyright ©right 2010-2020。
文档资料共享网内容来自网络,如有侵犯请联系客服。email:zhit325@126.com