电大VisualBasic程序设计作业答案.docx
- 文档编号:5445570
- 上传时间:2022-12-16
- 格式:DOCX
- 页数:20
- 大小:41.50KB
电大VisualBasic程序设计作业答案.docx
《电大VisualBasic程序设计作业答案.docx》由会员分享,可在线阅读,更多相关《电大VisualBasic程序设计作业答案.docx(20页珍藏版)》请在冰豆网上搜索。
电大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
ForI=15to18
PrintI。
Forj=3to12Step3
PrintTab(3*j)。
j*I。
Nextj
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
一、选择题
1
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 电大 VisualBasic 程序设计 作业 答案