电大VisualBasic程序设计作业答案Word下载.docx
- 文档编号:18433071
- 上传时间:2022-12-16
- 格式:DOCX
- 页数:20
- 大小:41.50KB
电大VisualBasic程序设计作业答案Word下载.docx
《电大VisualBasic程序设计作业答案Word下载.docx》由会员分享,可在线阅读,更多相关《电大VisualBasic程序设计作业答案Word下载.docx(20页珍藏版)》请在冰豆网上搜索。
用户不能建立新的事件,但可以根据需要对事件进行编程。
从非严格意义上讲,可以将事件理解为一种特殊的方法。
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
PrivateSubCommand2_Click()
Text1.Visible=True
2.
Text2.Text="
[Text3.Text="
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
3.
IfText1.Text="
Then
至少要输出单价!
Text1.SetFocus
ExitSub
EndIf
IfText2.Text="
ThenText2.Text=1
IfText3.Text="
ThenText3.Text=1
Text4.Text=Text1.Text*Text2.Text*Text3.Text
电大天堂【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。
4.
3.43
5.
*
***
*****
*******
*********
PrivateSubCommand1_Click()
DimxAsSingle,yAsSingle
x=Val(Text1.Text)
Ifx<
100Then
y=x
200Then
y=9.5*x
300Then
y=0.9*x
500Then
y=0.8*x
y=0.7*x
Text2.Text=y
DimxAsInteger
x=100
DoUntilx>
200
IfxMod3<
>
0Then
Text1.Text=Text1.Text&
Str(x)&
Chr(13)&
Chr(10)
x=x+1
Loop
PrivateSubForm_Click()
Print"
*"
。
Tab(9)。
3,Tab(18)。
6。
Tab(27)。
9。
Tab(36)。
ForI=15to18
PrintI。
Forj=3to12Step3
PrintTab(3*j)。
j*I。
Nextj
NextI
Endsub
4.
UnloadMe
PrivateSubOption1_Click()
Text1.Text=10*2
PrivateSubOption2_Click()
Text1.Text=10/2
PrivateSubOption3_Click()
Text1.Text=10+2
PrivateSubOption4_Click()
Text1.Text=10-2
PrivateFunctionDay(nAsInteger)
SelectCasen
Case0
Day="
星期日"
&
(Sunday)"
Case1
星期一"
(Monday)"
Case2
星期二"
(Tuesday)"
Case3
星期三"
(Wednesday)"
Case4
星期四"
(Thursday)"
Case5
星期五"
(Friday)"
Case6
星期六"
(Saturday)"
EndSelect
EndFunction
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
DimnAsInteger
n=Val(Text1.Text)
IfKeyAscii=13Then
Ifn>
=0Andn<
7Then
Label1.Caption=Day(n)
请输入0~6之间的整数!
Text1.SelStart=0
Text1.SelLength=Len(Text1.Text)
6.
新建一个工程,在默认的窗体Form1上放置一个Picture控件,然后编写如下代码。
PrivateSubPicture1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
IfButton=2Then
YoupressedrightButton"
Picture1.MousePointer=vbArrow
PrivateSubPicture1_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
Picture1.MousePointer=vbUpArrow
7.
PrivateSubForm_Load()
List1.AddItem"
李敏"
张华"
吕晓烨"
赵巍"
袁莉"
王津"
何小渴"
崔宁"
陈曦"
刘伟楠"
IfText1.Text<
List1.AddItemText1.Text
请在文本框中输入信息!
List1.RemoveItemList1.ListIndex
IfCommand3.Caption="
修改"
Text1.Text=List1.Text
Command1.Enabled=False
Command2.Enabled=False
Command3.Caption="
修改确认"
List1.List(List1.ListIndex)=Text1.Text
Command1.Enabled=True
Command2.Enabled=True
PrivateSubList1_Click()
IfList1.ListIndex<
-1Then
Command3.Enabled=True
电大天堂【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.本地数据库、远程数据库
三、程序设计题
Drive1.Drive="
c:
\"
File1.Pattern="
*.bmp。
*.gif。
*.jpg"
PrivateSubDrive1_change()
Dir1.Path=Drive1.Drive
PrivateSubDir1_Change()
File1.Path=Dir1.Path
PrivateSubFile1_click()
IfRight(File1.Path,1)="
f$=Form1.File1.Path+Form1.File1.FileName
f$=Form1.File1.Path+"
+Form1.File1.FileName
Picture1.Picture=LoadPicture(f$)
Picture1.AutoSize=True
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
-pi"
CurrentX=twopie/2
pi"
CurrentX=twopie-0.6
2pi"
p"
Fori=-1To1Step0.01'
画y轴
PSet(0,i)
Nexti
CurrentX=0'
标y轴刻度
Fori=-1To1Step0.5
CurrentY=i
Printi
Fori=-twopieTotwopieStep0.1'
画余弦曲线
PSet(i,Cos(i))
PrivateSubCheck1_Click()
IfCheck1.Value=1Then
Line1.BorderWidth=4
Line1.BorderWidth=1
PrivateSubOption1_Click(IndexAsInteger)
Check1.Value=0
SelectCaseIndex
Line1.BorderStyle=1
Line1.BorderStyle=2
Line1.BorderStyle=3
Shape1.Shape=0
Shape1.Shape=1
Shape1.Shape=3
Shape1.Shape=4
PrivateSubOption2_Click(IndexAsInteger)
Shape1.FillStyle=1
Shape1.FillStyle=3
Shape1.FillStyle=2
Shape1.FillStyle=6
PrivateSubOption3_Click(IndexAsInteger)
Shape1.BorderWidth=1
Shape1.BorderStyle=0
Shape1.BorderStyle=1
Shape1.BorderStyle=4
Shape1.BorderStyle=2
Shape1.BorderStyle=3
5.(以SQLServer数据库为例)
'
声明对象变量ADOcn,用于创建与数据库的连接
PrivateADOcnAsConnection
PrivateSubReadFromTable()
DimstrtmpAsString
DimADOrsAsNewRecordset
ADOrs.ActiveConnection=ADOcn
ADOrs.Open"
select*fromstudentsorderby学号"
MSFlexGrid1.Clear
MSFlexGrid1.Rows=0
MSFlexGrid1.Cols=3
strtmp="
+vbTab+"
姓名"
专业"
MSFlexGrid1.AddItemstrtmp
DoWhileNotADOrs.EOF
strtmp=ADOrs("
)+vbTab+ADOrs("
ADOrs.MoveNext
MSFlexGrid1.FixedCols=0
MSFlexGrid1.FixedRows=1
EndSub
'
定义数据库连接字符串
DimstrDBAsString
用于连接SQLServer数据库,其中:
Server为服务器名称
UserID为登录账号
Password为登录口令
Database为具体的数据库名
strDB="
Provider=SQLOLEDB。
LSF。
UserID=sa。
Password=。
Database=学生"
如果还没有建立与数据库的连接,则用以下代码创建。
IfADOcnIsNothingThen
SetADOcn=NewConnection
ADOcn.OpenstrDB'
连接SQLServer数据库
ReadFromTable'
调用过程显示students表中的记录
行结果及代码请参考主教材和实验教材相关内容。
电大天堂【VisualBasic程序设计】作业4
1
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 电大 VisualBasic 程序设计 作业 答案