当前位置:首页 >> 计算机软件及应用 >>

电大试题 vb 2005年7月_图文

中央广播电视大学 2004—2005 学年度第二学期“开放专科”期末考试 计算(应)、软件信息 软 件 网 站 专业 VisualBasic 程序设计 试题 2005 年 7 月 题 分 号 数 一 二 三 四 五 总 分





评卷人

一,单项选择题(每小题 2 分,共 30 分) 1.下列关于变量的说法不正确的是( ) A. 局部变量是指那些在过程中用 Dim 语句或 Static 语句声明的变量 B.局部变量的作用域仅限于声明它的过程 C. 静态局部变量是在过程中用 Sta“c 语句声明的 D.局部变量在声明它的过程执行完毕后就被释放了 2.无论何种控件,共同具有的属性是( ) A.Text 属性 B.Name 属性 C. Caption 属性 D.Autosize 属性 3.如果想让文本框中的内容在运行时不能编辑,需将文本框的( )属性设置为 True A.LOcked B.MultiLine C.TabStop D.Visible 4.后缀为.frm 的文件表示 VB 的( ) A. 类模块文件 B.窗体文件 C,工程文件 D.标准类模块文件 5.下列变量名合法的是( ) A,20ab B.a—b C.a_2 D.integer 6.为了在运行时把 d:文件夹的图形文件 a.jpg 装入图片框 Picturel 中, 所使用的语 句 为 (
A. A. Plcturel.Text = loadPicture("d:\pic\a.jpg") B. B. Picturel.Picture = loadPicture("d:\pic\a.jpg") C. C. Picturel.Picture = loadPicture("d:\pic\a.jpg") D. D.Picturel.Picture = loadPicture("d:\pic\a.jpg")

)

7.逻辑表达式 Not 5>3 And 9<3 Or 7>5( A . T r u e B . F a l s e

)

C. 表 达 式 有 错

D.

条 件 不 足
)

8. 表 达 式 4+19\ 6*7/ 8 Mod 2 的 值 是 ( A. 4 B. 5 C. 6 D. 7
A. TOOlBar B. StatursBar C. ImageList D. TreeView

9.下列可以用来存储图像供其他对象使用的控件是(

)

10.下列数据对象模型中采用 OLEDB 访问数据库的是(
A . D A O C.ADO D. B . R D O RDO 和 ADO

)

11. 要以读方式打开 D 盘的一个顺序文件 Stu.dat,应使用的语句是( A. A. Open"Stu.dat" FOr Output As #1 B. B. Open"D:\Stu.dat" For lnput As #l

)

C. C. Open:O: \Stu.dat"FOr Output As #1 D. D.Open"Stu.dat" FOr lnput As #1

12.VB 程序中设置断点的按键是(
A . C . F 5 键 F 9 键
B.Alignment

)

B . F 6 键 D . F 1 0 键

13.为使文本框显示滚动条,必须首先设置的属性是(
A.AutoSize

)

C.Multiline

D.TabStOp

14. 要 设 置 命 令 按 钮 的 背 景 图 形 , 必 须 设 置 的 两 个 属 性 是 ( ) A.Style 和 Picture B.Style 和 Icon C.Caption 和 Picture D.Value 和 Icon 15. 下 面 关 于 多 窗 体 的 叙 述 中 , 正 确 的 是 ( ) A. A. 作 为 启 动 对 象 的 Main 子 过 程 只 能 放 在 窗 体 模 块 内 B. B. 如 果 启 动 对 象 是 Main 子 过 程 , 则 程 序 启 动 时 不 加 载 任 何 窗 体 , 以 后 由 该 过 程 根 据不同情况决定是否加载及加载哪一窗体 C. 没 有 启 动 窗 体 , 程 序 不 能 执 行 D. 以 上 都 不 对





评卷人

二、填空题(每空 1 分,共 15 分)

1.1.数学关系 3≤x<10 表示成正确的 Visual Basic 表达式为____________。 2. 2. 已 知 A=2, B=3, C= 4, 则 表 达 式 A>B AND C>A OR Not C>B 的 值 为 ___________。 3. 3. Visual Basic 提 供 了 结 构 化 程 序 设 计 的 3 种 基 本 结 构 , 这 3 种 基 本 结 构 是 ________ 、 _________和 ____________。 4. 4. 用 Dim A(3, 一 2 To 3)语 句 声 明 二 维 数 组 后 , 数 组 A 的 元 素 共 有 ________ 个。 5. 5 . 在 Visual Basic 程 序 中 实 现 删 除 文 件 ” d : . tmp" 的 语 句 为 _____________________。
6. 6. 日期表达式#2/24/03#-#2/12/03#的值为_________。 7. 7. 改变容器对象的 ScaleMode 属性值,容器的大小_________改变,它在屏幕上的位置 ________改变。 8. 8. 设 Picturel.ScaleLeft=-200,Picturel.ScaleTop=250,Picturel.Width=500, Picturel.Height=-400。 则 Picturel 右下角坐标为__________________。 9. ActiveX EXE 文件的后缀是____________________。

10. Winsockl.Listen 语句的含义是_________________。 11.在整个程序运行时,用 Static 声明的局部变量是静态的,其值可以在该过程所在的模块运行期间 _________,而用 Dim 声明的变量只能在__________________才存在。
得 分 评卷人

三、阅读程序题(每小题 5 分,共 20 分)
阅读下列程序并写出程序运行结果 1. 1. Private Sub Commandl_Click() n=0: x=1: y=0 Do Whlle x<3 n=n+1 y=x 十 y X=x*(x+1)
Loop Textl.Text = "n=" & Str(n) Text2.Text = "x=" & Str(x) Text3.Text = "y=" & Str(y)

End Sub

程序运行时单击 Commandl 后,分别写出文本框 Textl,Text2,和 Text3 的值。 2. 2. Private Sub Commandl_C1ick() Dim x AS Integer StatiC S AS Integer x=Val(InputBox(” 请 输 入 一 个 正 整 数 =” )) If x<5 Then
s = s * x Else s = s * x End If

Textl.Text ="s=" & Str(s) End Sub 程序运行时连续 3 次单击 Commandl,且设输入的数据为 5、4、 3 时,分别写出文本框 Textl 的值。 3. 3. Private Sub Form_Click() Dim c As Integer,j AS Integer,k As Integer k=0 C=0 For j = 1 To 5 If j>3 Then C=C+4 Exit For Else k = k + 1 End If Next j Print c,k End Sub 写 出 程 序运 行 时单 击 窗体后 , c,k 的 值分 别 是:
4. 4. Private Sub Form_C1ick() Dim A(1 To 3) As String Dim c As Integer, j As Integer A(1)= ”1” A(2)= ”3” A(3)= ”4” C=0 For i=1 tO 3 c=c+Val(A(j)) Next j Print C End Sub

写 出 程 序运 行 时单 击 窗体后 ,c 的 结果 是 :





评卷人

四、完善程序题(每题 10 分,共 20 分) 1,1,列表框应用程序。要求在文本框 Textl 中输入课程名称,然后按”添加”按钮,把 课程名称添加到列表框中,当选择列表框中某一项后,按”删除”按钮,则从列表框 中删除该项,按”统计”按钮,在文本框 Text2 中输出课程数量总数:按”结束”按 纽,退出应用程序。程序运行结果如图 1 所示。

程序如下,请补充完整。 Private Sub Form_Load() Listl. Addltem” 计 算 机 应 用 基 础 ” Listl. Addltem” 程 序 设 计 基 础 ” Listl. Addltem” 软 件 技 术 基 础 ” Listl. Addltem” VisualBasic 程 序 设 计 ” Listl. Addltem, “ SQLSERVER 数 据 库 应 用 ” Listl. Addltem” 计 算 机 专 业 英 语 ” Listl. Addltem” Delphi 程 序 设 计 ” End Sub Private Sub Commandl_Click() If Textl.Text<>” ” Then _[1]_________________________ Textl.Text = __[2]________ Else MsgBox” 请 在 文 本 框 中 输 入 信 息 !”
__[3]___________ End Sub Private Sub Command2_Click() Listl. RemoveItem__[4]____ End Sub Private Sub Command3_Click() Text2. Tex = ____[5]_____ End Sub Private Sub Command4_Click()

Unload Me End Sub

2.以厘米为单位,以窗体的中心点为坐标原点,以窗体的宽度与高度绘制坐标 轴,并以窗体宽度与高度中最小值的 1/3 为半径画圆和椭圆,程序运行界面如图 2 所示。

程序如下,请补充完整。 Private Sub Forlm Click() Dim r As Integer ScaleMOde = 7 Scale(-Forml. ScaleWidth/ 2, -Forml. ScaleHeight/ 2)-(Forml. Scale_ Width/ 2, Form1. ScaleHeight/ 2)

Line(-Forml.ScaleWidth/2,0)-(Forml.ScaleWidth/2,o) ’画 x 轴
_______[1]_______ CurrentX=0:CurrentY=0:__[2]____ If Forml.ScaleWidth>Forml.ScaleHeight Then
__[3]___ E1se

’画 y 轴 ,标记坐标原点

r= Forml. ScaleWidth _[4]___DrawWidth= 3
__[5]___ Circle(0,0),r/3,vbGreen,, , 2.5 Circle(0,0),r/3,vbRed,, , 0.4 End Sub





评卷人

五、编写程序题(共 15 分)

编 写 一 个 角 度 与 弧 度 互 相 转 换 的 程 序 ,程 序 运 行 界 面 如 图 3 所 示 。要 求 程 序 运 行 时 ,在 文 本 框 Textl 中 输 入 角 度 值 ,单 击 ”角 度 转 弧 度 ”按 钮 (Commandl),,在 文 本 框 Text2 中 输 入 弧 度 值 ;在 文 本 框 Text2 中 输 入 弧 度 值 ,单 击 ”弧 度 转 角 度 ”按 钮 (Command2),在 Textl 中 输 出角度值。

需 要 使 用 的 转 换 公 式 是 : 弧 度 =角 度 */ 180, =3.1415926 提示:化为角度的方法为 (1)先 将 弧 度 值 变 为 十 进 制 。 以 1.233 为 例 1.233*(180/ )=70.6457558 (2)去 掉 整 数 部 分 70, 余 0.6457558 (3)0.6457558*60=39.745528 (4)去 掉 39, 余 0.745528 (5)0.745528*60= 44.73168≈ 45" 即 换 算 成 了 70 0 39’45"

试卷代号:223l 中央广播电视大学 2004—2005 学年度第二学期“开放专科”期末考试 计算(应)、软件信息 软 件 网 站 专业 VisualBasic 程序设计 试题答案及评分标准 (供参考) 2005 年 7 月 一、单项选择题(每小题 2 分,共 30 分) 1.D 2.B 3.A 4.B 5.C 6.B 7.A 8.B 9.C 10.C 11.B 12.C 13.C 14.A 15,B 二、填空题(每空 1 分,共 15 分) 1.3<=x And x<10 2.False 3.顺序结构 选择结构(或分支结构) 循环结构 4.24

5.Kill"d:\tem.tmp" 6,12 7.不会 不会 8. (300,—150) 9. .EXE 10.使服务程序处于侦听状态 11.一直存在 过程执行期间 三、阅读程序题(每小题 5 分,共 20 分) 1.n=2 x=6 y=3 2.s =5 s=20 s=60 3. 4 3 4.8 四、完善程序题(每题 10 分,共 20 分) 1. [1]Listl.AddlternTextl.Text [2]" " [3] End If [4] Listl.Listlndex [5]Listl.ListCount 2。 [1]line(0,Forml.ScaleHeight/2)一(0,一 Forml.ScaleHeight/2) [2]Print 0 [3]r=FOrml.ScaleHeight [4] End If [5] Circle(0,0),r/3 五。编写程序题(共 15 分) 参考答案: PrivateSubCommandl_Click() Const pi:3.1415926 1fTextl.Text<>” ”Then Text2.Text=Val(Textl.Text)* 3.1415926/180 End If End Sub Private Sub Command2_Click() Const pi:3.1415926 Dim x As Single,a As Single,al As Single Dim d As Integer,f As Integer,m As Integer Dim y As String x=Val(Text2.Text) a=x*(180/pi) d=Fix(a) a1=(a—d)*60 f=Fix(a1) m=Fix((a1 一 f)*60+0.5) y=Str(d) &"。"& Str(f)&"'" & Str(m)&" "" " Textl.Text=y End Sub


更多相关标签: