文档库

最新最全的文档下载
当前位置:文档库 > coreldraw试卷A

coreldraw试卷A

coreldraw试卷A

coreldraw试卷A

coreldraw试卷A

coreldraw试卷A

肇庆工商职业技术学院2012-2013学年第二学期期末考试 VB 程序设计试卷 (A 卷) 系别: 班级: 学号: 姓名: 本试卷共 4 页,满分100分,考试时间100分钟,使用班级:12信息管理 一.基本操作(30分) 请根据以下各小题的要求设计Visual Basic 应用程序(包括界面和代码)。 (1) 在名称为Forml 的窗体上画1个名称为Lablell 、标题为“列表框的使用”的标签。再画1个名称为Listl 的列表框,列表中含有5个表项,表项内容分别为“北京”、“山西”、“辽宁”、“浙江”和“广东”,并且可以在列表中同时选择多个表项。运行后的窗体如图1-1所示。 图1-1 运行界面 图1-2运行界面 (2) 在名称为Forml 的窗体上画一个名为Imagel 的图像框,其高、宽分别为2000、3000,且不随图片大小而变化;再画两个命令按钮,标题分别是“显示图片”和“隐藏图片”,名称分别为Cmd1、Cmd2。如图1-2所示。需编写2个命令按钮的Click 事件过程,使得当单击“显示图片”按钮时,将当前文件夹下的图片文件“图片.jpg ”显示在图像框中;而如果单击“隐藏图片”按钮,则清除图像框中的图片。 二.简单应用(40分)

(1) 在考生文件夹下有一个工程文件sjt3.vbp,窗体上有两个列表框,名称分别为List1、List2,在List2中已经预设了内容;还有两个命令按钮,名称分别为C1、C2,标题分别为“添加”、“清除”。如图2-3所示。程序的功能是在运行时,如果选中右边列表框中的一个列表项,单击“添加”按钮,则把该项移到左边的列表框中;若选中左边列表框中的一个列表项,单击“清除”按钮,则把该项移回右边的列表框中。文件中已经给出了所有控件和程序,但程序不完整,请去掉程序中的注释符,把程序中的?改为正确的内容。但不能修改程序中的其他部分,也不能修改控件的属性。最后把修改后的文件按原文件名存盘。(20分)

coreldraw试卷A

coreldraw试卷A

图2-3运行界面图2-4 运行界面

已有程序代码如下:

Private Sub C1_Click()

Dim k As Integer

k = 0

' While (k < List2.?)

' If ?.Selected(k) = True Then

List1.AddItem List2.Text

' List2.RemoveItem ?

End If

k = k + 1

Wend

End Sub

Private Sub C2_Click()

List2.AddItem List1.Text

' List1.RemoveItem List1.?

End Sub

(2) 在考生文件夹下有一个工程文件sjt4.vbp,请在Forml窗体上建立一个名称为0p1的单选按钮数组,含有三个单选按钮,其标题分别为“10!”、“11!”、“12!”,Index属性分别为0、1、2;再画一个名称为C1的命令按钮,标题为“计算”;画一个名称为Textl的文本框,如图2-4所示。程序的功能是在选定一个单选按钮并单击“计算”按钮后,可以计算出相应的阶乘值,在Textl中显示该阶乘值。请画出上述控件并编写程序。(20分)

注意:不得修改工程中已经存在的内容,在结束程序运行之前,必须进行一次计算。必须通过单击窗体右上角的关闭按钮结束程序。最后按原文件名存盘。

已有程序代码如下:

Private Sub Form_Unload(Cancel As Integer)

unload_sub

End Sub

Sub unload_sub()

Dim n As Integer, k As Integer

For k = 0 To 2

If Form1.Op1(k).Value Then

n = Val(Left$(Form1.Op1(k).Caption, 2))

End If

Next k

Open "out4.dat" For Output As #1

Print #1, n, Val(Form1.Text1.Text)

Close #1

End Sub

三.综合应用(30分)

创建如图所示的界面,其窗体上标签L1和L2,标题分别为“口令”和“允许次数”;一个命令按钮C1,标题为“确定”;两个文本框名称分别为Text1和Text2。其中Text1用来输入口令(输入时,显示“*”),无初始内容;Text2的初始内容为3,并给出了C1的事件过程,但不完整,要求去掉程序中的注释符,把程序中的?改为正确的内容,使得在运行时,在Text1中输入口令后,单击“确定”,如果输入的是“123456”则在Text1中显示“口令正确”;如果输入其他内容,单击“确定”后,弹出如图14-5所示的错误提示对话框,并且Text2中的数字减1。最多可输入3次口令,若3次都输入错误,则禁止再次输入。

coreldraw试卷A

coreldraw试卷A

图14-5 运行界面

已有程序代码如下:

Private Sub C1_Click()

' If ? = "123456" Then

Text1.Text = "口令正确"

' Text1.? = ""

Else

Text2.Text = Text2.Text - 1

' If Text2.Text > ? Then

MsgBox "第" & (3 - Text2.Text) & "次口令错误,请重新输入"

Else

MsgBox "3次输入错误,请退出"

' Text1.Enabled = ? End If

End If

End Sub