visual basic程序设计4次作业.docx
- 文档编号:9792998
- 上传时间:2023-02-06
- 格式:DOCX
- 页数:39
- 大小:198.04KB
visual basic程序设计4次作业.docx
《visual basic程序设计4次作业.docx》由会员分享,可在线阅读,更多相关《visual basic程序设计4次作业.docx(39页珍藏版)》请在冰豆网上搜索。
visualbasic程序设计4次作业
作业1
一、选择题
1、在设计应用程序时,可以查看到应用程序工程中所有组成部分的窗口是(D)
A、窗体设计B、代码C、属性D、工程资源管理
2、窗体的Load事件的触发时机是(B)
A、用户单击窗体时B、窗体被加载时
C、窗体显示之后D、窗体被卸载时
3、与传统的程序设计语言相比,VB最突出的特点是(C)
A、结构化程序设计B、程序开发环境
C、事件驱动编程机制D、程序调试技术
4、VB6。
0集成开发环境的主窗口不包括(C)
A、标题栏B、菜单栏C、状态栏D、工具栏
5、如果对象的名称为Mytext,而且对象有一个属性Text,那么在代码中引用该属性的正确格式是(B)
A、Text.MytextB、Mytext.Text
C、Mytext.(Text)D、Mytext*Text
6、下列可以激活属性窗口的操作是(D)
A、用鼠标双击窗体的任何部位B、执行“工程”菜单中的“属性窗口”命令
C、按Ctrl+F4D、按F4键
7、假定已在窗体上画了多个控件,并有一个控件是活动的,为了在属性窗口中设置窗体的属性,预先应执行的操作是(A)
A、单击窗体上没有控件的地方B、单击任一个控件
C、不执行任何操作D、双击窗体的标题栏
8、如果要在文本框中键如字符时,只显示某个字符,如星号(*),应设置文本框的(B)属性。
A、CaptionB、PasswordCharC、TextD、Char
9、如果想让文本框中的内容在运行时不能编辑,需将文本框的(A)属性设置为True
A、LockedB、MultiLineC、TabStopD、Visible
10、关于定时器(Timer)控件,设置其定时是否开启的属性是(C)
A、IndexB、TagC、EnabledD、Left
11、要在窗体Form1内显示“myfrm”,使用的语句是(C)
A、Form.caption=”myform”B、Form1.caption=”myform”
C、Form1.print”myfrm”D、Form.print”myfrm”
12、对象的性质和状态特征称为(C)
A、事件B、方法C、属性D、类
13、下列正确的赋值语句是()
A、x+y=20B、y=x+20
C、3x=yD、s=pi*r*r
14、当使用上下文相关的帮助时,选择要帮助的内容,然后按(D)键,就可出现MSDN窗口直接显示所需的帮助信息。
A、HelpB、F10C、EscD、F1
15、将调试通过的工程经“文件“菜单的”生成.exe文件“编译成名.exe后,将该可执行文件放到其他机器上不能运行的主要原因是(D)
A、运行的机器上无VB系统B、缺少.frm窗体文件
C、该可执行文件有病毒D、以上原因都不多
二、填空题
1、当进入VB集成开发环境后,发现没有显示“工具箱“窗口,应选择视图菜单的工具箱选项,使”工具箱“窗口显示。
2、在VB中,事件过程名
3、工程文件的扩展名是vbp,窗体文件的扩展名是frm。
4、对象是代码和数据的集合,例如,VB中的窗体、标签、文本框等都是对象
5、对象的方法用于在对象上实施某种操作。
当方法不需要任何参数并且也没有返回值时,调用对象的方法的格式为对象名.方法名。
例如对窗体Form1使用Show方法,应写成Form1.show。
6、要使文本框显示滚动条,需要将其Scrollbars属性设置为1或2或3。
7、欲设置定时器的时间间隔为4秒,则属性Interval的值为4000。
8、要使标签框的大小随Caption属性做自动调整,应将Autosize属性设置为true。
9、通过窗体布局窗可以在设计时直观地调整窗体在屏幕上的位置。
10、要想在代码中给名为txtshow的文本框赋予文本:
GOODWORK!
时,应当编写的语句是txtshow.text=”GOODWORK!
”.
11、若命令按钮的名称为Cmdopen,程序要求单击以上命令按钮时,打开一个窗口frm1,请对以下事件过程填空。
PrivateSubCmdopen_Click()
frm1.show
EndSub
12、事件就是在对象上所发生的事情,VB中的事件如单击(Click)事件、装载(Load)事件、改变(change)事件等。
一个对象响应的事件可以有很多个,用户不能建立新的事件。
事件过程是指响应某个事件后执行的程序。
假设某一事件过程如下:
PrivateSubcmd1_Click()
Form1.Caption=”VB示例“
EndSub.
则响应该过程的对象名是Form1,事件名是Click。
13、对象的方法用于
14、为了在编写代码是能自动进行语法检查,必须执行工具菜单中的选项命令,打开选项对话框,然后选择“编辑器”选项卡中的自动语法检测。
15、定时器(Timer)控件可识别的事件是Timer事件,发生该事件的时间间隔由定时器的interval属性设置,其单位为毫秒(ms)。
三、问答题(答案自己到书上找)
1、什么是可视化编程和事件驱动?
答:
可视化编程是指无须编程,仅通过直观的操作方式即可完成界面的设计工作的这种编程方式。
当VB的应用程序运行后,系统处于等待状态,当某个事件发生后,程序就去执行此事件的事件过程,当这个事件过程执行完后,系统又处于等待另一个事件发生的状态,这就是事件驱动程序方式。
2、对象、属性、事件和文件之间的关系如何?
答:
对象是代码和数据的封装体。
对象的操作通过与该对象有关的属性、事件、方法来描述。
属性是一个对象的基本特性,每个对象都有它自己的属性。
方法是对象要执行的动作。
事件是在对象上所发生的事情。
3、简述事件驱动机制与传统编程方式的不同。
答:
传统的面向过程的应用程序中,应用程序自身控制了执行那一部分代码按何种顺序执行代码,程序从第一行代码开始执行并按应用程序中预定的路径执行,用户无法改变程序的执行流程。
而事件驱动机制则由用户来决定执行的路线。
这就是两者的不同。
4、简述事件驱动的工作过程。
答:
事件驱动的工作过程如下:
(1)启动应用程序,装载和显示窗体。
(2)窗体或窗体上的控件等待事件的发生。
(3)当某个事件发生后,执行其对应的事件过程代码。
(4)重复执行
(2)和(3),直到遇到END语句或单击“结束”按钮停止程序的运行。
四、程序设计题
1、在窗体上添加一个文本框和两个命令按钮,并把两个命令按钮的标题分别设置为“隐藏文本框”和“显示文本框”。
当单击第一个命令按钮时,文本框消失;而当单击第二个命令按钮时,文本框重新出现,并在文本框中显示“VB程序设计”(字体大小为16。
)程序运行界面如图1所示。
代码:
privateSubcommand1_click()
text1.visible=false
EndSub
Privatesubcommand2_click()
Text1.visible=true
Text1.text=”VB程序设计”
Text1.fontsize=”66”
Endsub
2、设计一个计算程序。
该程序用户界面如图2所示,由四个文本框:
文本框1(text1)、文本框2(text2)、文本框3(text3)、文本框4(text4),和三个按钮:
命令按钮1(command1)、命令按钮2(command2)、命令按钮3(command3)组成。
程序运行后,用户按清除按钮,则清楚文本框中显示的内容,按计算按钮,则计算三科平均成绩。
单击退出按钮退出。
命令按钮1
command1
文本框1(text1)
命令按钮2
command2
文本框2(text2)
文本框3(text3)
命令按钮3
command3
文本框4(text4)
代码:
privatesubcommand1_click()
text1.text=””
text2.text=””
text3.text=””
text4.text=””
endsub
privatesubcommand2_click()
dims
s=val(trim(text1.text))+val(trim(text2.text))+val(trim(text3.text))
text4.text=s/3
endsub
privatesubcommand3_click()
unloadme
endsub
3、编写一收款计算程序。
要求用户输入商品的“单价”、“数量”和“折扣”后,单击“计算”按钮显示“应付款”,单击“清除”按钮,清除文本框中所有的数据。
程序运行界面如图3所示
Text2
Text3
Text4
Text1
Command2
Command1
代码:
privatesubcommand1_click()
text4.text=val(trim(text1.text))*val(trim(text2text))*val(trim(text3text))
endsub
privatesubcommand2_click()
text1.text=””
text2.text=””
text3.text=””
text4.text=””
endsub
作业2
一、选择题
1、按照变量的作用域可将变量划分为(B)。
A、公用、私有、系统B、全局变量、模块级变量、过程级变量
C、动态、常数、静态D、Public、Private、Protected
2、可获得字符的ASCII码的函数是(C)。
A、ValB、FixC、AscD、Chr
3、要退出Do…..Loop循环,可使用的语句是(D)语句。
A、ExitB、ExitForC、EndDoD、ExitDo
4、把数值型转换为字符串型需要使用的函数是(D)。
A、ValB、StrC、AscD、Chr
5、关于语句行,下列说法正确的是(D)。
A、一行只能写一条语句B、一条语句可以分多行书写
C、每行的首字符必须大写D、长度不能超过255个字符
6、表达式6+10Mod4*2+1的值是(A)。
A、9B、11C、1D、3
7、以下可以作为VB变量名的是(B)
A、SINB、CO1C、COS(X)D、X(-1)
8、表达式Abs(-5)+Len(“ABCDE”)的值为(C)
A、5ABCDEB、-5ABCDEC、10D、0
9、在代码编辑器中,如果一条语句太长,无法在一行内写下(不包括注释),要折行书写,可以在末行使用续行字符(A),表示下一行是当前行的继续。
A、一个空格加一个下划字符(_)B、一个下划字符(_)
C、直接回车D、一个空格加一个连字符(-)
10、Sub过程与Function过程最根本的区别是(D)
A、Sub过程可以使用Call语句或直接使用过程名调用,而Function过程不可以。
B、Function过程可以有参数,Sub过程不可以。
C、两种过程参数的传递方式不同。
D、Sub过程的过程名不能返回值,而Function过程能够通过过程名返回值。
11、“x是小于80的非负数”,用VB表达式表示正确的是(C)
A、0〈x<80B、0<=x<80
C、0<=xandx<80D、0<=orx<80
12、在设计菜单时,如果要在菜单中加入一个菜单分隔条,则菜单分隔条的标题必须设置为(B)
A、加号(+)B、减号(-)C、星号(*)D、感叹号(!
)
13、如果要早程序中显示一个弹出式菜单,那么要调用VB中提供的方法(D)
A、PrintB、MoveC、RefreshD、PopupMenu
14、下列可以用来存储图象供其他对象使用的控件是(C)
A、ToolBarB、StatursBarC、ImageListD、TreeView
15、当单击工具栏上的按钮时,会触发的事件是(A)
A、ButtonClickB、ChangeC、LoadD、KeyPress
16、要利用公用对话框控件来显示“打开文件”对话框,需要调用控件的(B)方法
A、ShowPrinterB、ShowopenC、ShowSaveD、ShowColor
17、对于窗体级变量,下列说法中错误的是(C)
A、所在窗体的各子程序都可以访问
B、其他窗体的子程序不能访问
C、所在窗体的子程序不能访问用Private定义的窗体级变量
D、一定要在所在窗体的通用区内定义
18、从一个字符串中的第3个字符开始,获取5个字符,应使用(B)
A、Len函数B、Mid函数C、Left函数D、Right函数
19、用下面的语句所定义的数组的元素的个数是(D)
DimA(-3to5)AsInteger
A、6B、7C、8D、9
20、有如下程序段:
Dimstr1AsString*5
Str1=”VisualBasic”
当该段程序被执行完时,变量str1的值为(B)
A、“Visual”B、”Visua”C、”V”D、”VisualBasic”
二、填空题
1、菜单一般有下拉式菜单和弹出式菜单两种基本类型。
2、通用对话框可显示的常用对话框有打开对话框、另存为对话框、颜色对话框、字体对话框、打印对话框。
3、组合框具有文本框和列表框两种控件的基本功能。
4、要使数组的默认下标从“1”开始,则应在窗体或标准模块代码的声明部分使用语句
5、调用Sub过程时,使用CALL语句,该语句用于把程序控制传送到一个VB的Sub过程。
6、若已建立了Form1和Form2两个窗体,默认启动窗体为Form1。
通过工程菜单工程1属性命令的通用选项卡,可将启动窗体设置为Form2。
在程序中若要显示Form1窗体,则执行form1.show语句。
7、列表框中项目的序号是从0开始的。
8、Sub过程与Function过程最根本的区别是Function过程返回值,sub过程则没。
9、VB的代码存储在模块中。
在VB中提供了三种类型的模块窗体模块、类模块和
标准类模块。
10、使用Hide方法会隐藏被调用的窗体,但是在调用Hide方法之后不会把窗体
卸载,被调用的窗体中的属性等已处于form1.visible=false。
11、设A=2,B=3,C=4,D=5。
表达式NotA<=Cor4*C=B^2AndB<>A+C的值为
false。
12、在VB语言中有三种形式的循环结构。
其中,若循环的次数可以事件确定,可使用
fornext循环;若要求先判断循环进行的条件,可使用dowhile循环或dountil循环。
13、以下语句的输出结果是3.14159。
a%=3.14159
printa%
三、阅读下列程序,写出程序运行结果。
1、privatesubform_click()
staticsumasinteger
fori=1to100
sum=sum+1
nexti
printsum
endsub
结果:
5050
2、privatesubform_click()
A=10:
b=15:
c=20:
d=25
PrintA;Spc(5);b;Spc(7);c
PrintA;Spc(8);b;Spc$(5);c
Printc;Spc(3);”+”;Spc(3);d;
PrintSpc(3);”=”;Spc(3);c+d
Endsub
结果:
101517
101520
20+25=45
3、privatesubfom_click()
fori%=1to3
forj%=1toi
printLTrim(str(i%))+”*”+LTrim(str(j%))+”=”;i%*j%;
nextj%
nexti%
endsub
结果:
1*1=1
2*1=22*2=4
3*1=33*2=63*3=9
+
4、privatesubcommand1_click()
dima,basinteger
a=3.4
b=3.4
text1.text=a
text2.text=b
endsub
结果3.4
3.4
5、privatesubform_click()
fori=1to5
printtab(11-i);
forj=1toi*2-1
print“*”;
next
nexti
endsub
结果:
*
***
*****
*******
*********
四、程序设计题
1、购物优惠程序。
某商场为了加速促成商品流通,采用购物打折的优惠办法,每位顾客一次购物1)在100元以上者,按九五折优惠;2)在200元以上者,按九折优惠;3)300元以上者,按八折优惠;4)500元以上者按七折优惠。
在窗体上添加两个文本框和一个命令按钮,要求在text1中输入购物商品总金额,单击命令按钮,在text2中输出优惠后的价格。
程序运行结果如图4所示。
代码:
privatesubcommand1_click()
dims
s=val(trim(text1.text))
ifs>=500then
text2.text=s*0.7
elseifs>=300then
text2.text=s*0.8
elseifs>=200then
text2.text=s*0.9
elseifs>=100then
text2.text=s*0.95
else
text2.text=s
endif
endsub
2、输出100~~200之间不能被3整除的数,要求用Do语句的一种形式来实现,程序运行结果如图5所示。
代码:
dimiasinteger
i=0
dowhilei iflist1.list(i)mod3<>0then printlist1.list(i) endif i=i+1 loop 3、编写程序,打印如下的乘积表 代码: PrivateSubForm_Click() Print"*",3,6,9,12 Print Fori=1To4 Print14+i, Forj=1To4 Print3*j*(14+i), Nextj Print Nexti EndSub 4、 设计一个计算程序。 该程序用户界面如图7所示。 要求程序运行后,用户选中单选按钮,则程序做10和2的相应计算,并把计算结果在文本框中显示出来。 如用户选中加法单选按钮,则程序作10和2的相加,计算结果12在文本框中显示出来。 按结束,则退出。 代码: PrivateSubCommand1_Click() UnloadMe EndSub PrivateSubOption1_Click(IndexAsInteger) IfIndex=0Then Text1.Text=10*2 ElseIfIndex=1Then Text1.Text=10/2 ElseIfIndex=2Then Text1.Text=10+2 ElseIfIndex=3Then Text1.Text=10-2 Else ExitSub EndIf EndSub 5、编写输入一个0~6数字,显示汉字对照输出星期的Function过程。 程序运行结果如图8所示。 PrivateFunctionhz(xAsInteger)AsString SelectCasex Case0: hz="星期日" Case1: hz="星期一" Case2: hz="星期二" Case3: hz="星期三" Case4: hz="星期四" Case5: hz="星期五" Case6: hz="星期六" EndSelect Label2.Caption=hz EndFunction 6、编写一个程序,当鼠标移到Picture1控件上时,鼠标指针改变形状;当在Picture1控件上单击鼠标右键时,通过消息框显示“Youpressedrightbutton”,并再次改变鼠标指针的形状。 代码: privatesubform1_load() picture1.mousepointer=6 endsub privatesubpicture1_MousDown(buttonasinteger,shiftasinteger,xassingle,yassingle) ifbutton=1then msgbox“Youpressedrightbutton”,0,”按键提示” endif endsub 7、列表框应用程序。 要求从文本框中输入姓名,然后按“添加”按钮,把姓名添加到列表框中;当选择列表框某一项时,按“删除”按钮,从列表框中删除;当选择列表框中某一项时,按“修改”按钮,把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。 在文本框的内容修改好后,按“修改确认”按钮,再把文本框中修改后的信息送到列表框且“修改确认”按钮变为“修改”。 程序运行结果如图9所示。 代码: PrivateSubCommand1_Click() List1.AddItemText1.Text EndSub PrivateSubCommand2_Click() List1.RemoveItemList1.ListIndex EndSub PrivateSubCommand3_Click() IfCommand3.Caption="修改"Then Command3.Caption="修改确认" Text1.Text=List1.Text Else
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- visual basic程序设计4次作业 basic 程序设计 作业
![提示](https://static.bdocx.com/images/bang_tan.gif)