电大Visual Basic程序设计作业答案.docx
《电大Visual Basic程序设计作业答案.docx》由会员分享，可在线阅读，更多相关《电大Visual Basic程序设计作业答案.docx（23页珍藏版）》请在冰豆网上搜索。
电大VisualBasic程序设计作业答案
VisualBasic程序设计作业1
一、选择题
1．D2．B3．C4．C5．B6．D7．A8．B9．A10．C11．C12．C13．B14．D15．A
二、填空题
1．视图工具箱
2．对象事件
3．.vbp.frm
4．窗体控件菜单
5．完成某种特定的功能对象名.方法名Form1.Show
6．MultilineTrue
7．4000
8．AutoSizeTrue
9．窗体布局窗口
10．txtshow.text="GOODWORK！
"
11．Click（）、frm1.show
12．单击双击装载多响应某个事件后所执行的程序代玛cmd1Click
13．完成某种特定的功能对象名.方法名Form1.Show
14．工具选项选项自动语法检测
15．TimerIntervalms
三、问答题
1．参考答案
答：
可视化编程是目前最直观的一种编程方法，人们一般用Visual一词表示它。
之所以叫做“可视”，是指你无需编程，仅通过直观的操作方式即可完成界面的设计工作。
因此，可视化语言是目前最好的Windows应用程序开发工具。
在这种语言中引入了控件的概念，每个控件都有若干方法和事件，并通过一系列的属性来控制控件的外观。
利用这些控件，编程过程就如同画画，随意点几下鼠标，一个按钮就完成了，这些工作在使用传统编程语言的情况下，需要编写大量复杂的程序代码才能实现。
可视化编程主要用到了事件驱动机制，其原理是：
当应用程序运行后，程序处于等待状态，当某个事件发生后，程序就去执行此事件的事件过程，当这个事件过程执行完后，应用程序又处于等待另一个事件发生的状态。
2．参考答案
答：
对象是代码和数据的封装体，在VB中，“数据”表现为属性，“代码”则表现为事件和方法。
建立一个对象后，其操作通过与该对象的有关属性、事件和方法来描述。
属性是一个对象的基本特性，每个对象都有它自己的属性。
通过修改对象的属性，可以改变对象的外观和功能。
方法就是要对象执行的动作，一般可以将它理解为VB提供的一种特殊的过程和函数。
其特殊性在于，这些过程和函数是封装在对象内部的，是在对象上实施的某种操作功能。
事件就是在对象上所发生的事情。
对象的事件是由VB预先设置好的、能被对象识别的动作。
用户不能建立新的事件，但可以根据需要对事件进行编程。
从非严格意义上讲，可以将事件理解为一种特殊的方法。
3．参考答案
答：
传统的面向过程的应用程序中，应用程序自身控制了执行哪一部分代码和按何种顺序执行代码，程序从第一行代码开始执行并按应用程序中预定的路径执行，用户无法改变程序的执行流程。
在事件驱动的应用程序中，程序的执行发生了根本的变化，代码不是按照预定的路径执行，而是在响应不同的事件时执行不同的代码片段。
每个对象都有一个相应的事件集，每个事件发生都要执行一段程序代码。
事件可以由用户操作触发，也可以由操作系统或其它应用程序的消息触发，甚至可由应用程序本身的消息触发。
这些事件的顺序决定了代码执行的顺序，因此，应用程序每次运行所经过的代码路径是不确定的，它的执行流程由用户来决定。
在程序设计时，不需要指出先执行哪部分代码，或按什么顺序执行代码，只需编写针对某个事件的程序代码即可。
4．参考答案
答：
事件驱动是VB应用程序的基本机制，其基本过程是：
（1）启动应用程序，装载和显示窗体。
（2）窗体或窗体上的控件等待事件的发生。
事件可由用户引发（例如键盘操作或鼠标点击）、可由系统引发（例如定时器控件）、也可由代码间接引发（例如当代码装载其他窗体时产生的Load事件）。
（3）当某个事件发生后，执行其对应的事件过程代码。
（4）重复执行第2和第3步。
直到遇到End语句或单击“结束”按钮停止程序的运行。
四、程序设计题
1．
PrivateSubForm_Load（）
Text1.Text="VB程序设计"
Text1.FontSize=16
EndSub
PrivateSubCommand1_Click（）
Text1.Visible=False
EndSub
PrivateSubCommand2_Click（）
Text1.Visible=True
EndSub
2．
PrivateSubCommand1_Click（）
Text1.Text=""
Text2.Text=""
[Text3.Text=""
EndSub
PrivateSubCommand2_Click（）
IfText1Text=""OrText2.Text=""OrText3.Text=""Then
MsgBox"成绩输入不全！
"
Else
Text4.Text=（Val（Text1.Text）+Val（Text2.Text）+Val（Text3.Text））/3
EndIf
SubEnd
PrivateSubCommand3_Click（）
UnloadMe
EndSub
3．
PrivateSubCommand1_Click（）
IfText1.Text=""Then
MsgBox"至少要输出单价！
"
Text1.SetFocus
ExitSub
EndIf
IfText2.Text=""ThenText2.Text=1
IfText3.Text=""ThenText3.Text=1
Text4.Text=Text1.Text*Text2.Text*Text3.Text
EndSub
电大天堂【VisualBasic程序设计】作业2
一、选择题
1．B2．C3．D4．B5．D6．A7．B8．C9．A10．D11．C12．B13．D14．C15．A16．B17．C18．B19．D20．B
二、填空题
1．下拉式菜单弹出式菜单
2．打开另存为颜色字体打印
3．文本框列表框
4．OptionBase1
5．Call语句
6．工程工程属性通用Form1.Show
7．0
8．Sub过程的过程名不能返回值，而Function过程能通过过程名返回值
9．窗体模块标准模块类模块
10．移出内存无效状态
11．
（1）2*Cos*Sin/（2*）
（2）Sqr（s*（s-a）*（s-b）*（s-c））
（3）Sin（45*3.14/180）
12．
（1）x>=1Andx<12
（2）A+B>=COra-c<=c
（3）a>0Andb>0Or（a<0Andb<0）
13．False
14．ForWhileDo
15．3
三、阅读下列程序，给出程序运行结果。
1．程序运行后，单击窗体，输出结果为：
5050。
2．
3．
4．
3.43
5．
*
***
*****
*******
*********
四、程序设计题
1．
PrivateSubCommand1_Click（）
DimxAsSingle,yAsSingle
x=Val（Text1.Text）
Ifx<100Then
y=x
Else
Ifx<200Then
y=9.5*x
Else
Ifx<300Then
y=0.9*x
Else
Ifx<500Then
y=0.8*x
Else
y=0.7*x
EndIf
EndIf
EndIf
EndIf
Text2.Text=y
EndSub
2．
PrivateSubForm_Load（）
DimxAsInteger
x=100
DoUntilx>200
IfxMod3<>0Then
Text1.Text=Text1.Text&Str（x）&Chr（13）&Chr（10）
EndIf
x=x+1
Loop
EndSub
3．
PrivateSubForm_Click（）
Print"*"。
Tab（9）。
3,Tab（18）。
6。
Tab（27）。
9。
Tab（36）。
12
Print
ForI=15to18
PrintI。
Forj=3to12Step3
PrintTab（3*j）。
j*I。
Nextj
Print
NextI
Endsub
4．
PrivateSubCommand1_Click（）
UnloadMe
EndSub
PrivateSubOption1_Click（）
Text1.Text=10*2
EndSub
PrivateSubOption2_Click（）
Text1.Text=10/2
EndSub
PrivateSubOption3_Click（）
Text1.Text=10+2
EndSub
PrivateSubOption4_Click（）
Text1.Text=10-2
EndSub
5．
PrivateFunctionDay（nAsInteger）
SelectCasen
Case0
Day="星期日"&Chr（13）&"（Sunday）"
Case1
Day="星期一"&Chr（13）&"（Monday）"
Case2
Day="星期二"&Chr（13）&"（Tuesday）"
Case3
Day="星期三"&Chr（13）&"（Wednesday）"
Case4
Day="星期四"&Chr（13）&"（Thursday）"
Case5
Day="星期五"&Chr（13）&"（Friday）"
Case6
Day="星期六"&Chr（13）&"（Saturday）"
EndSelect
EndFunction
PrivateSubText1_KeyPress（KeyAsciiAsInteger）
DimnAsInteger
n=Val（Text1.Text）
IfKeyAscii=13Then
Ifn>=0Andn<7Then
Label1.Caption=Day（n）
Else
MsgBox"请输入0~6之间的整数！
"
EndIf
EndIf
Text1.SelStart=0
Text1.SelLength=Len（Text1.Text）
EndSub
6．
新建一个工程，在默认的窗体Form1上放置一个Picture控件，然后编写如下代码。
PrivateSubPicture1_MouseDown（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）
IfButton=2Then
MsgBox"YoupressedrightButton"
Picture1.MousePointer=vbArrow
EndIf
EndSub
PrivateSubPicture1_MouseMove（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）
Picture1.MousePointer=vbUpArrow
EndSub
7．
PrivateSubForm_Load（）
List1.AddItem"李敏"
List1.AddItem"张华"
List1.AddItem"吕晓烨"
List1.AddItem"赵巍"
List1.AddItem"袁莉"
List1.AddItem"王津"
List1.AddItem"何小渴"
List1.AddItem"崔宁"
List1.AddItem"陈曦"
List1.AddItem"刘伟楠"
EndSub
PrivateSubCommand1_Click（）
IfText1.Text<>""Then
List1.AddItemText1.Text
Text1.Text=""
Else
MsgBox"请在文本框中输入信息！
"
EndIf
EndSub
PrivateSubCommand2_Click（）
List1.RemoveItemList1.ListIndex
EndSub
PrivateSubCommand3_Click（）
IfCommand3.Caption="修改"Then
Text1.Text=List1.Text
Text1.SetFocus
Command1.Enabled=False
Command2.Enabled=False
Command3.Caption="修改确认"
Else
List1.List（List1.ListIndex）=Text1.Text
Command1.Enabled=True
Command2.Enabled=True
Text1.Text=""
Command3.Caption="修改"
EndIf
EndSub
PrivateSubList1_Click（）
IfList1.ListIndex<>-1Then
Command2.Enabled=True
Command3.Enabled=True
EndIf
EndSub
电大天堂【VisualBasic程序设计】作业3
一、选择题
1．B2．B3．B4．A5．C6．C7．D8．C9．C10．C11．B12．B13．A14．B15．C16．C17．B18．A 19．C20．B21．A
二、填空题
1．Output
2．FileCopy”c:
\”,”d:
\”
3．Kill”d:
\tem.tmp”
4．Open”SEQNEW.DAT”ForOutputAs#1
5．Open”SEQOLD.DAT”ForInputAs#2
6．右上
7．False
8．Picture1.Line（500,500）-（1000,1000）,RGB（255,0,0）,BF
9．520
10．ActiveConnection
11．外部数据库、远程数据库
12．ADOrs（"学号"）
13．增加、删除、修改（或者Select、Delete、Update）
14．Select*fromTable1Where学号=’001’
15．本地数据库、远程数据库
三、程序设计题
1．
PrivateSubForm_Load（）
Drive1.Drive="c:
\"
File1.Pattern="*.bmp。
*.gif。
*.jpg"
EndSub
PrivateSubDrive1_change（）
Dir1.Path=Drive1.Drive
EndSub
PrivateSubDir1_Change（）
File1.Path=Dir1.Path
EndSub
PrivateSubFile1_click（）
IfRight（File1.Path,1）="\"Then
f$=Form1.File1.Path+Form1.File1.FileName
Else
f$=Form1.File1.Path+"\"+Form1.File1.FileName
EndIf
Picture1.Picture=LoadPicture（f$）
Picture1.AutoSize=True
EndSub
2．
PrivateSubForm_Click（）
DimiAsSingle,twopieAsSingle
twopie=8*Atn
（1）'求pi
DrawWidth=2'设置点的大小
Scale（-twopie,1）-（twopie,-1）'设置坐标系
Fori=-twopieTotwopieSteptwopie/360'画x轴
PSet（i,0）
Nexti'标x轴
CurrentY=0
CurrentX=-twopie
Print"-2pi"。
CurrentX=-twopie/2
Print"-pi"。
CurrentX=twopie/2
Print"pi"。
CurrentX=twopie-0.6
Print"2pi"。
Print"p"
Fori=-1To1Step0.01'画y轴
PSet（0,i）
Nexti
CurrentX=0'标y轴刻度
Fori=-1To1Step0.5
CurrentY=i
Printi
Nexti
Fori=-twopieTotwopieStep0.1'画余弦曲线
PSet（i,Cos（i））
Nexti
EndSub
3．
PrivateSubCheck1_Click（）
IfCheck1.Value=1Then
Line1.BorderWidth=4
Else
Line1.BorderWidth=1
EndIf
EndSub
PrivateSubOption1_Click（IndexAsInteger）
Line1.BorderWidth=1
Check1.Value=0
SelectCaseIndex
Case1
Line1.BorderStyle=1
Case2
Line1.BorderStyle=2
Case3
Line1.BorderStyle=3
EndSelect
EndSub
4．
PrivateSubOption1_Click（IndexAsInteger）
SelectCaseIndex
Case0
Shape1.Shape=0
Case1
Shape1.Shape=1
Case2
Shape1.Shape=3
Case3
Shape1.Shape=4
EndSelect
EndSub
PrivateSubOption2_Click（IndexAsInteger）
SelectCaseIndex
Case0
Shape1.FillStyle=1
Case1
Shape1.FillStyle=3
Case2
Shape1.FillStyle=2
Case3
Shape1.FillStyle=6
EndSelect
EndSub
PrivateSubOption3_Click（IndexAsInteger）
Shape1.BorderWidth=1
SelectCaseIndex
Case0
Shape1.BorderStyle=0
Case1
Shape1.BorderStyle=1
Case2
Shape1.BorderStyle=4
Case3
Shape1.BorderStyle=2
Case4
Shape1.BorderStyle=3
EndSelect
EndSub
5．（以SQLServer数据库为例）
'声明对象变量ADOcn，用于创建与数据库的连接
PrivateADOcnAsConnection
PrivateSubReadFromTable（）
DimstrtmpAsString
DimADOrsAsNewRecordset
ADOrs.ActiveConnection=ADOcn
ADOrs.Open"select*fromstudentsorderby学号"
MSFlexGrid1.Clear
MSFlexGrid1.Rows=0
MSFlexGrid1.Cols=3
strtmp="学号"+vbTab+"姓名"+vbTab+"专业"
MSFlexGrid1.AddItemstrtmp
DoWhileNotADOrs.EOF
strtmp=ADOrs（"学号"）+vbTab+ADOrs（"姓名"）+vbTab+ADOrs（"专业"）
MSFlexGrid1.AddItemstrtmp
ADOrs.MoveNext
Loop
MSFlexGrid1.FixedCols=0
MSFlexGrid1.FixedRows=1
EndSub
PrivateSubCommand1_Click（）
UnloadMe
EndSub
PrivateSubForm_Load（）
'定义数据库连接字符串
DimstrDBAsString
'用于连接SQLServer数据库，其中:
'Server为服务器名称
'UserID为登录账号
'Password为登录口令
'Database为具体的数据库名
strDB="Provider=SQLOLEDB。
LSF。
UserID=sa。
Password=。
Database=学生"
'如果还没有建立与数据库的连接，则用以下代码创建。
IfADOcnIsNothingThen
SetADOcn=NewConnection
ADOcn.OpenstrDB'连接SQLServer数据库
EndIf
ReadFromTable'调用过程显示students表中的记录
EndSub
行结果及代码请参考主教材和实验教材相关内容。
电大天堂【VisualBasic程序设计】作业4
一、选择题
升级会员 