电大《VisualBasic程序设计》形考作业任务0106网考试题及答案Word文件下载.docx
《电大《VisualBasic程序设计》形考作业任务0106网考试题及答案Word文件下载.docx》由会员分享，可在线阅读，更多相关《电大《VisualBasic程序设计》形考作业任务0106网考试题及答案Word文件下载.docx（22页珍藏版）》请在冰豆网上搜索。
D.工程管理器
8.确定一个窗体或控件的大小的属性是（）。
A.Top或Loft
B.Top和Loft
C.Width或Height
D.Width和Height
9.下列关于窗体的说法不正确的是（）。
A.窗体的标题由Caption属性确定
B.窗体的Name属性与Caption属性相同
C.窗体的背景图片由其Picture属性设定
D.通过设置Icon属性可使窗体获得最小花时的图标
10.在VB中，要想快速获得某个相关控件或语句的帮助信息，一般可首先选中该控件或语句，然后按的键是（）
A.Help
B.F1
C.F10
D.Enter
11.下列关于属性设置的叙述错误的是（）。
A.一个控件具有什么属性是VisualBasic预先设计好的，用户不能改变
B.一个控件具有什么属性是VisualBasic预先设计好的，用户可以改变
C.一个控件的属性既可以在属性窗口中设置，也可以用程序代码设置
D.一个控件的属性在属性窗口中设置后，还可以利用程序代码为其设置新值
12.在界面设计时，双击窗体中的对象后，VisualBasic将显示的窗口是（）。
A.立即窗口
B.属性窗口
C.代码窗口
D.工程资源管理器窗口
13.当使用上下文相关的帮助时，选择要帮助的内容，然后按（）键，就可出现MSDN窗口直接显示所需的帮助信息。
B.F10
C.Esc
D.F1
14.如果想让文本框中的内容在运行时不能编辑，需将文本框的（）属性设置为True。
A.Locked
B.MultiLine
C.TabStop
D.Visible
15.在VB6.0集成开发环境中，可以（）。
A.编辑、调试、运行程序，但不能生成可执行文件
B.编辑、生成可执行文件，运行程序，但不能调试程序
C.编辑、调试、生成可执行文件，但不能运行程序
D.编辑、调试、运行程序，也能生成可执行文件
16.VisualBasic应用程序处于执行模式时，这时（）。
A.既不能设计界面，也不能编写代码
B.可以编辑代码，不能设计界面
C.可以设计界面，不能编辑代码
D.既能设计界面，也能编写代码
17.要改变控件的宽度，应该修改控件的（）属性。
A.Top
B.Left
C.Width
D.Height
18.Timer控件只有一个事件，该事件的名称是（）
B.Timer
C.Click
D.Run
19.要在命令按纽上显示图形，应首先设置的属性是（）
A.Enabled
B.Style
C.Caption
D.Icon
20.后缀为.frm的文件表示VB的（ ）。
A.窗体文件
B.类模块文件
C.工程文件
D.标准类模块文件
21.无论何种控件，共同具有的属性是（ ）
A.Text
B.Name
D.ForeColor
22.多窗体程序是由多个窗体组成，在缺省情况下，VB在应用程序执行时，总是把（）指定为启动窗体。
A.不包含任何控件的窗体
B.设计时的第一个窗体
C.包含控件最多的窗体
D.命名为Frm1的窗体
23.要改变控件的高度，应该修改控件的（）属性。
24.VisualBasic是一种面向对象的程序设计语言，构成对象的三要素是（）。
A.属性、控件和方法
B.属性、事件和方法
C.窗体、控件和过程
D.控件、过程和模块
25.对于定时器（Timer）控件,设置其定时是否开启的属性是（）
A.Index
B.Tag
C.Enabled
D.Left
二、作品题（共2道试题，共50分。
1.
设计一个简单的倒计时程序，要求：
（1）在文本框中输入倒计时的分钟数后，单击开始按纽就开始倒计时，倒计时结束时，弹出“时间到”的信息框。
程序运行界面如图5所示：
（2）将应用程序打包，并安装运行。
注意：
存盘时保存在以学号或姓名命名的文件夹下，工程文件名为vbxk1-05.vbp，窗体文件名为vbxk1-05.frm，文件夹名为vbxk1-05。
参考答案：
程序代码如下：
DimttAsInteger
PrivateSubCommand1_Click（）
Label1.Caption="
现在开始倒计时"
Command1.Visible=False
Timer1.Enabled=True
tt=Val（Text1）*60
EndSub
PrivateSubTimer1_Timer（）
tt=tt-1
Text1=tt
Iftt=0Then
a=MsgBox（"
时间到!
"
vbOKOnly,"
倒计时"
Command1.Visible=True
Timer1.Enabled=False
EndIf
2.
在名称为Form1的窗体上画两个文本框，其名称分别为Text1和Text2，它们的高、宽分别为300、2400和1200、2400。
窗体的标题为“窗口”。
请通过属性窗口设置适当的属性满足以下要求：
1）Text2可以显示多行文本，且有垂直和水平两个滚动条；
2）运行时在Text1中输入的字符都显示为“*”。
运行后的窗体如图1所示。
存盘时保存在以学号或姓名命名的文件夹下，工程文件名为vbxk1-01.vbp，窗体文件名为vbxk1-01.frm，文件夹名为vbxk1-01。
PrivateSubText1_MouseDown（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）
IfButton=2Then
PopupMenuFormat
PrivateSubM1_Click（）
Text1.FontBold=True
PrivateSubM2_Click（）
Text1.FontItalic=True
PrivateSubM3_Click（）
Text1.FontUnderline=True
02任务
02任务_0001
1.能够实现“窗体总在最前端”界面效果的API函数是（ ）。
A.SetWindowPos
B.SetWindowAPI
C.SetWindowShape
D.DeclareAPI
2.在窗体上画两个文本框（其Name属性分别为Text1和Tex12）和一个命令按钮（其Name属性为Command1）,然后编写如下事件过程：
x=1:
n=0
DoWhilex<
100
x=x*10
n=n+1
Loop
Text1.Text=Str（n）
Text2.Text=Str（x）
程序运行后，单击命令按钮，在两个文本框中显示的值分别为（）。
A.10和0
B.2和100
C.3和50
D.4和168
3.下面程序段的循环结构执行后，i的输出结果是（）。
Fori=1To10Step2
y=y+i
Nexti
Printi
A.25
B.10
C.11
D.因为y的初值不知道，所以不确定
4.把字符串型转换为数值型需要使用的函数是（）。
A.Val
B.Str
C.Asc
D.Chr
5.以下可以作为VisualBasic变量名的是（）。
A.SIN
B.CO1
C.COS（X）
D.X（-1）
6.可通过设置一普通窗体的何种属性，将它转变成MDI子窗体（ ）。
A.MDIChild=True
B.WindowState=Normal
C.MDIChild=False
D.WindowState=Maximized
7.下列关于过程叙述不正确的是（）。
A.过程的传值调用是将实参的具体值传递给形参
B.过程的传址调用是将实参在内存的地址传递给形参
C.过程的传值调用参数是单向传递的，过程的传址调用参数是双向传递的
D.无论过程传值调用还是过程传址调用，参数传递都是双向的
8.数学式子Sin30°
写成VB表达式是（）。
A.Sin30
B.Sin（30）
C.SIN（30°
D.Sin（30*3.14/180）
9.“x是小于80的非负数”，用VB表达式表示正确的是（）。
A.0£
x<
80
B.0<
=x<
C.0<
=xAndx<
D.0<
=xOrx<
10.下面正确的赋值语句是（）。
A.x+y=30
B.y=p*r*r
C.y=x+30
D.3y=x
11.事件的名称（）。
A.都要由用户定义
B.有的由用户定义，有的由系统定义
C.都是由系统预先定义
D.是不固定的
12.如果要在窗体代码编辑器的“通用”部分定义私有Sub过程，则正确的语句是（ ）。
A.PublicSub
B.PrivateSub
C.PublicFunction
D.PrivateFunction
13.如果仅需要得到当前系统时间，则可以使用哪个函数（ ）。
A.Time
B.Year
C.Now
D.Date
14.赋值语句：
a=123+MID（“123456”,3,2）执行后，a变量中的值是（）。
A.123
B.34
C.12334
D.157
15.DimA（1To6,6）AsString定义的数组包含的元素个数是（）。
A.36
B.49
C.42
D.50
16.VB提供了结构化程序设计的3种基本结构，这3种基本结构是（）。
A.递归结构，选择结构，循环结构
B.选择结构，过程结构，顺序结构
C.过程结构，输入、输出结构，转向结构
D.选择结构，循环结构，顺序结构
17.要退出Do…Loop循环，可使用的语句是（）语句。
A.Exit
B.ExitFor
C.EndDo
D.ExitDo
18.如果希望以模态方式显示窗体Form1，下列正确的语句是（）。
A.Form1.Show0
B.Form1.Show
C.Form1.Show1
D.Form1.Show0,1
19.表达式6+10Mod4*2+1的值是（）。
A.9
B.11
C.1
D.3
20.下列4项中合法的变量名是（）。
A.45xyz
B.Single
C.x-yz
D.x_yz
21.在窗体上按下鼠标左键时产生的事件是（）
A.KeyDown
B.MouseUp
C.MouseMove
D.MouseDown
22.关于语句行，下列说法正确的是（）。
A.一行只能写一条语句
B.一条语句可以分多行书写
C.每行的首字符必须大写
D.长度不能超过255个字符
23.可通过何种属性判断List列表框控件的项目总数目（）。
A.ListIndex
B.ListCount
C.ListText
D.LisItem
24.
以下程序段的输出结果为（）。
x=1
y=4
DoUntily>
4
x=x*y
y=y+1
Printx
A.1
B.4
C.8
D.20
25.把数值型转换为字符串型需要使用的函数是（）。
创建一个多功能计算器程序，程序运算界面如图2-6所示。
要求：
（1）用控件数组设计数字按钮
（2）用API函数实现“总在前面效果”
存盘时保存在以学号或姓名命名的文件夹下，工程文件名为vbxk2-03.vbp，窗体文件名为vbxk2-03.frm，文件夹名为vbxk2-03。
OptionExplicit
Dimi（1To100）AsInteger
PrivateSubCmd1_Click（）
DimjAsInteger
OpenApp.Path&
\in.txt"
ForInputAs#1
Forj=1To100
Input#1,i（j）
Text1.Text=Text1.Text&
i（j）&
Space（5）
Next
Close#1
PrivateSubCmd2_Click（）
DimkAsInteger
DimtempAsInteger
DimflagAsBoolean
flag=False
Fork=1To100-j
Ifi（k）<
i（k+1）Then
temp=i（k）
i（k）=i（k+1）
i（k+1）=temp
flag=True
IfNotflagThen
ExitFor
Text1.Text="
putdatai,100
编写某市公用电话收费程序，程序运行界面如图2-10所示。
收费标准为：
通话时间在3分钟以下，收费0.5元；
3分钟以上，则每超过一分钟加收0.15元；
在7:
00～19:
00之间通话，按上述收费标准全价收费，在其它时间通话者，一律按收费标准的半价收费。
要求程序运行后，点击“开始通话”按钮，在文本框text1中以hh:
mm:
ss的形式显示通话开始的时间，点击“结束通话”按钮，在文本框text2中，以hh:
ss的形式显示通话结束的时间，点击“计费”按钮，在text3中显示通话的分钟数，在text4中显示通话的费用，点击“清楚”按钮，清楚全部数据。
存盘时保存在以学号或姓名命名的文件夹下，工程文件名为vbxk2-07.vbp，窗体文件名为vbxk2-07.frm，文件夹名为vbxk2-07。
PrivateSubOption1_Click（）
Text1.Alignment=0
PrivateSubOption2_Click（）
Text1.Alignment=2
PrivateSubOption3_Click（）
Text1.Alignment=1
PrivateSubOption4_Click（）
Text1.FontName="
宋体"
PrivateSubOption5_Click（）
黑体"
03任务
03任务_0001
1.在窗体上建立一个驱动器列表框、目录列表框、文件列表框、图片框、文本框。
要求程序运行后，驱动器列表框Drive1的默认驱动器设置为D盘，选择File1中所列的图片文件（*.bmp,*.gif和*.jpg）,则相应的图片显示在图片框Picture1中，文件的路径显示在文本框中。
程序运行结果如图3-1所示。
存盘时保存在以学号或姓名命名的文件夹下，工程文件名为vbxk3-01.vbp，窗体文件名为vbxk3-01.frm，文件夹名为vbxk3-01。
PrivateSubFile1_Click（）
IfFile1.ListCount>
0Then
'
Command1.Enabled=True
Text1.Text=File1.Path+File1.FileName
DimobjPicAsPicture
SetobjPic=LoadPicture（Text1.Text）
Picture1.Picture=objPic
PrivateSubForm_Load（）
Drive1.Drive="
d:
Dir1.Path="
\"
Drive1.Drive
Dir1.Refresh
File1.Pattern="
*.jpg;
*.bmp;
*.gif|（*.bmp,*.gif,*.jpg）"
File1.Path=Dir1.Path
PrivateSubDrive1_Change（）
Dir1.Path=Drive1.Drive
PrivateSubDir1_Change（）
2.利用文件系统控件编写一个Word文件查找显示程序，程序运行界面如图3-2所示。
（1）在文件列表框中只显示后缀为.doc的文件。
（2）新创建一个标准工程，并通常“工程－部件”菜单项引入“MicrosoftRichTextBoxControl6.0”，将RichTextBox控件添加到工具箱中，用这个控件显示RTF格式的Word文件。
（3）单击打开按钮，在文本框中显示RTF格式的Word文件。
存盘时保存在以学号或姓名命名的文件夹下，工程文件名为vbxk3-02.vbp，窗体文件名为vbxk3-02.frm，文件夹名为vbxk3-02。
DimwdAppAsNewWord.Application
DimwdDocAsWord.Document
DimstrFileNameAsString
wdApp.Visible=False
strFileName=File1.Path+"
+File1.FileName
SetwdDoc=wdApp.Documents.Open（strFileName）
wdDoc.SaveAs"
C:
\临时文件.rtf"
6
wdDoc.Close
wdApp.Quit
RichTextBox1.FileName="
Kill"
c:
04任务
04任务_0004
一、作品题（共1道试题，共100分。
1.开发一个如图4-1所示指针式时钟程序。
（1）要求用Shap控件、Line控件和Label控件设计表盘，用图形方法动态生成指针，用时钟控件控制时钟的转动。
（2）圆形表盘在窗体的中央，其直径要求与窗体的高度和宽度相等。
存盘时保存在以学号或姓名命名的文件夹下，工程文件名为vbxk4-01.vbp，窗体文件名为vbxk4-02.frm，文件夹名为vbxk4-01。
Constpi=3.141592653
Form1.Scale（-14,14）-（14,-14）
DimxAsInteger
DimyAsInteger
Dimsec,min,hrAsInteger
sec=Second（Time）
min=Minute（Time）
hr=Hour（Time）
Form1.Cls
Form1.DrawWidth=2
x=9*Sin（sec*pi/30）
y=9*Cos（sec*pi/30）
Form1.Line（0,0）-（x,y）,vbRed
Form1.DrawWidth=3
x=7*Sin（min*pi/30）
y=7*Cos（min*pi/30）
Form1.Line（0,0）-（x,y）
Form1.DrawWidth=4
hr=hr+min/60
x=6*Sin（hr*pi/6）
y=6*Cos（hr*pi/6）
05任务
05任务_0001
开发一个成绩查询数据库应用程序。
它具有数据增加（Insert）、修改（Update）、删除（Delete）和查询（Select）功能。
开发步骤及要求：
１．准备工作
建立名称为“vbxk5－成绩查询”文件夹，在该文件夹下，建立“图标”文件夹，在其中存入界面设计时所用图标。
开发过程中的全部文件存放在“vbxk5－成绩查询”文件夹中。
２．建立成绩查询数据库
用MicrosoftAccess或SQLServer创建一个名称为“成绩”的数据库，其中包含三张数据表，即学生成绩表、学生情况表、课程情况表，如表5－3、表5－4、表5－5、表5－6所
--创建数据库；
createdatabasestudent;
go--使用数、数据库usestudent;
go--创建成绩表createtablestudentScore（stuidvarchar（10）primarykey,--学号cidvarchar（10）,--课程号socrevarchar（20）--成绩）go--创建学生情况表createtablestudentStatus（stuidvarchar（10）primarykey,stuNamevarchar（20））go--创建课程情况表createtablecurriculum（cidvarchar（10）,cNamevarchar（50））go--添加记录insertintostudentStatusvalue
升级会员 