程序设计基础VB第1次浙大.docx
《程序设计基础VB第1次浙大.docx》由会员分享，可在线阅读，更多相关《程序设计基础VB第1次浙大.docx（16页珍藏版）》请在冰豆网上搜索。
程序设计基础VB第1次浙大
《程序设计基础（VB）》作业
第2章习题
一、选择题
1．如果把一个人当作对象，那么血型相当于这个对象的___A____。
（A）属性（B）方法（C）事件（D）特征
2．下列方法中___A____不能改变窗体的大小。
（A）设计时在“窗体布局”窗口中进行调整
（B）设计时在“属性”窗口中设置相应的属性
（C）运行时设置相应属性的值
（D）运行时调用窗体的Move方法
3．一个对象可以执行的动作和可被对象识别的动作分别称为___B____。
（A）事件、方法（B）方法、事件（C）属性、方法（D）过程、事件
4．在窗体Forml的Click事件过程中有以下语句：
Label1.Caption=”VisualBasic”
若本语句执行之前，标签控件Label1的Caption属性为默认值，则标签控件的Name属性和Caption属性在执行本语句之前的值分别为___C____。
（A）”Label”、”Label”（B）”Label”、”Caption”
（C）”Labell”、”Labell”（D）”Caption”、”Label”
5．见上题。
该语句执行后，标签控件的Name属性和Caption属性的值分别为__B_____。
（A）”Label”、”VisualBasic”（B）”Label1”、”VisualBasic”
（C）”Label1”、”Caption”（D）”Labe1”、”Label1”
6．下面___B____对象没有Caption属性。
（A）Form（B）TextBox（C）CommandButton（D）Lable
7．文本框对象的默认属性是__B_____。
（A）Name（B）Text（C）Visible（D）Enabled
8．VisualBasic源程序的续行符是___D____。
（A）单引号（B）双引号（C）冒号（D）空格与下划线
9．下面的动作中，不能引发按钮Click事件的是___B____。
（A）在按钮上单击鼠标左键（B）在按钮上右击
（C）把焦点移至按钮上，然后按Enter（D）如果按钮有快捷字母，按”Alt+该字母”
二、判断题
1．标签控件是专门用来显示信息的，所以不能响应鼠标的单击事件。
X
2．窗体的Move方法不但可以移动窗体，而且可以改变窗体的大小，同时也会改变与窗体的大小和位置有关属性的值。
√
3．窗体的Enabled属性为False时，窗体上的按钮、文本框等控件都不会对用户的操作作出反应。
√
4．一条VisualBasic语句如果不超过80个字符是不能续行的。
X
5．在VisualBasic程序中不可能同时出现txtA和txta两个控件名。
√
6，命令按钮支持Click事件，但不支持DblClick事件，所以双击按钮不会有任何反应。
X
7．文本框的Left属性是文本框左边框与屏幕左边框之间的距离（单位为缇）。
X
8，VisualBasic工程文件的扩展名为.vbp，窗体文件的扩展名为.frm。
√
9．语句frmFirst.Move1000，，1200可以把窗体frmFirst水平地移动到坐标为1000单位处，并改变宽度为1200个单位，垂直坐标与高度保持不变。
X
三、填空题
1．要使按钮表面上显示的文字为“确定（O）”，（其中“O”为快捷键），则按钮的Caption属性值应为______”确定（&O）”____
（1）_______。
2．欲将按钮设为默认按钮，应把其Default
（2）属性值设为True（3）。
3．要使按钮无效，则可将其Enabled属性设置为（4）False。
4．文本框中所显示的内容是它（5）Text的属性的值。
四、编程题
新建工程，创建如图2．1所示的界面。
要求编写代码实现如下目的：
在四个文本框中输入适当数值，单击“改变”按钮后，窗体移动到由“横坐标”和“纵坐标”文本框确定的位置上，并且窗体的高度与宽度也变为“高度”和“宽度”文本框指定的值。
图2．1窗体界面
保存所建工程、编译为可执行文件，并在VisualBasic集成环境之外运行此程序。
图2．1窗体界面
命令按钮的单击事件过程如下：
PrivateSubCommand1_Click（）
Form1.MovetxtLeft,txtTop,txtWidth,txtHeight
EndSub
命令按钮的单击事件过程的第二种做法如下：
PrivateSubCommand1_Click（）
Form1.Left=txtLeft
Form1.Top=txtTop
Form1.Width=txtWidth
Form1.Height=txtHeight
EndSub
第3章习题
一、选择题
1．Integer类型的变量可存的最大整数为_____D____。
（A）255（B）256（C）32768（D）32767
2．下面的4对数据类型中，____A_____所占的内存字节数相等：
（A）Integer和Boolean（B）Integer和Single
（C）Date和Single（D）Long和Double
3．下列数据类型中，占用内存最小的是___B______。
（A）Boolean（B）Byte（C）Integer（D）Single
4．____C_____数据类型的变量不能存放负值。
（A）Integer（B）Single（C）Byte（D）Long
5．____D_____不是字符串常量。
（A）”你好”（B）””（C）”True”（D）#False#
6．下面列出的语句中，没有错误的是____D_____。
（A）txtl.Text+txt2.Text=txt3.Text（B）cmdAdd.Name=cmdSub
（C）12Label.Caption=1234（D）frmFirst.Move1000,1000,2000,1200
7．变量名最多不能超过的字符个数为：
D
（A）10（B）12（C）40（D）255
8．___C______是日期型常量：
（A）”2／1／99”（B）2／1／99（C）#2／1／99#（D）{2／1／99}
9．下列语句中，____D_____会产生错误。
（A）DimintlAsInteger：
intl=True（B）DimstrlAsstring*10：
strl=”123.4.5”
（C）DimintlAsInteger：
intl=”123.4”（D）DimblnlAsBoolean：
blnl=”Yes”
二、填空题
1．下列数据类型的变量各占多少字节的内存：
Byte：
____1
（1）___；Integer：
___2_
（2）____；Long：
__4_（3）___；Single：
_4___（4）___；Double：
___8_（5）___。
2．把整型数1赋给一个逻辑型变量，则逻辑变量的值为True（6）。
3．刚被声明尚未赋值的日期型变量的值为#0:
00:
00#（7）；逻辑型变量的值为（8）False；对象型变量的值为Nothing（9）；变体变量的值为（10）Empty。
4．如果intl是整型变量，则执行intl=”2”+3语句之后，intl的值为5（11）；intl=”2”+”3”语句之后，intl的值为23（12）。
5．把逻辑值True赋给一个整型变量之后，此变量的值会变为（13）-1。
6．默认情况下，所有未经显示定义的变量均视为（14）Variant类型。
如果要强制变量的定义，应在模块的声明段使用（15）OptionExplicit语句。
7．如果要在文本框中显示“Hesaid,“Goodmorning!
”.”（注：
不包括外层的中文引号，内层是英文双引号），则应使用以下的赋值语句：
Text1.Text=“Hesaid,””Goodmorming!
””.”（16）。
三、判断题
1．在定义符号常量的语句中可以先不赋值，在以后赋值；但是一旦被赋值便不能再赋新值。
X
2．定义符号常量时给常量赋值可以使用表达式，但不能包含变量和函数调用。
√
3．因为Single类型的变量可表示的范围大于Long类型的变量，所以Single类型占用内存空间大于Long类型。
X
4．日期时间型变量既可以保存日期值，也可以保存时间值，但不能同时保存日期和时间值。
X
5．给长度为4的定长字符串变量赋一个长度为8的字符串会产生“溢出”错误。
X
6．一个变量在刚被声明尚未被赋值之前没有值。
X
第4章习题
一、求下列表达式的值（已知a=3：
b=4：
c=5）
1．a+b>cAndb=c为False
2．1*2+3/4\2^2为2
3．True=-1为
二、选择题
1．代数式
对应的VisualBasic表达式是___D_____。
（A）a/b+c/d（B）a/（b+c）/d（C）（a/b+c）/d（D）a/（b+c/d）
2．____B____是算术运算符。
（A）Imp（B）Mod（C）Not（D）Eqv
3．下列运算符中，优先级最高的是__D______。
（A）Not（B）Is（C）Like（D）&
4．下列运算符中，属于单目运算符的是___A_____。
（A）Not（B）=（C）^（D）Mod
5．假定bln1是逻辑型变量，下面赋值语句中不出错的是____D____。
（A）bln1=’True’（B）bln1=.True.（C）bln1=#TRUE#（D）bln1=3<4
三、填空题
1．判断变量X是不是能被5整除的偶数，逻辑表达式可写为
（1）（XMod5）=0And（XMod2）=0或XMod10=0。
2．已知a、b、c都是整型变量，使用VisualBasic逻辑表达式描述下列条件：
a小于b或小于c：
（2）aa和b都大于c：
（3）a>cAndb>c；
a和b中至少有一个大于c（4）a>cOrb>c；
a是非正数：
（5）a<=0；
a不能被b整除：
（6）aModb<>0。
第5章习题
一、判断题
1．If与EndIf必须成对地使用，有一个If就有一个EndIf与之相对应。
X
2．Do和Loop关键词必须成对使用，有一个Do就必须有一个Loop与之对应。
√
3．For和ExitFor必须成对使用，有一个For就必须有一个ExitFor与之对应。
X
4．SelectCase语句实现的是一种循环结构。
X
5．一个Do循环只能使用一个Loop关键字，但可以使用多个ExitDo语句。
√
6．如果有多重Do循环嵌套，位于最里层循环体语句中的ExitDo语句可以跳出所有的循环。
X
7．如果有多重Do循环与For循环嵌套使用，并且ExitFor语句位于一个内层Do循环中，则该语句不能从Do循环中跳出。
X
二、填空题
1．执行下面的程序段，文本框Textl中显示的是
（1）9。
DimintlAsInteger，int2AsInteger
intl=1
int2=0
DoWhileintl<20
int2=intl+int2
intl=intl*（intl+1）
Loop
Text1.Text=int2
2．阅读下面的事件过程。
单击窗体后，在文本框Textl和Text2中显示的内容分别是
（2）3和（3）3；若将程序中A语句与B语句的位置互换，再次执行程序，单击窗体后在文本框Textl和Text2中显示的内容分别是3（4）和5（5）。
PrivateSubForm_Click（）
DimxAsInteger，yAsInteger
x=1：
y=0
DoWhilex<3
y=y+x‘A语句
x=x+1‘B语句
Loop
Text1.Text=x
Text2.Text=y
EndSub
3．下面的事件过程判断文本框txtl中输入的数所在的区间，并在文本框txt2中输出判断结果。
在画线处填入正确的内容。
PrivateSubCommand1_Click（）
DimintlAsInteger
intl=CInt（txtl.Text）
SelectCaseintl
Case（6）0
txt2.Text=”值为0”
Case（7）1To10
txt2.Text=”值在1和10之间（包括1和10）”
Case（8）Is>10
txt2.Text=”值大于10”
CaseElse
txt2.Text=”值小于0”
EndSelect
EndSub
4．下面程序段中，k循环共执行（9）3次，在窗体上显示的结果是（10）515。
DimbAsInteger，kAsInteger
Letb=1
Fork=1To5
Letb=b*k
Ifb>=15Then
ExitFor
Else
Letk=k+1
EndIf
Nextk
Printk，b
5．阅读下面程序，当单击窗体之后，窗体上输出的是（11）4。
PrivateSubForm_Click（）
DimiAsInteger,jAsInteger
DimkAsInteger
Fori=0To10Step3
Forj=1To10
Ifj>=5Theni=i+4:
ExitFor
j=j+1
k=k+1
Next
Ifi>8ThenExitFor
Next
Printk
EndSub
三、编程题
1．编程计算
的值，其中n=20。
PrivateSubCommand1_Click（）
DimsngAmountAsSingle
Dimint1AsInteger
sngAmount=0
Forint1=1To20
sngAmount=sngAmount+1/int1/（int1+1）
Nextint1
Text1.Text=sngAmount
EndSub
结果为0.9523811
2．某公司每年的销售收入均比前一年增长10个百分点，按此增长率，需要多少年实现销售收入翻两番的目标？
PrivateSubCommand1_Click（）
Dimsng1AsSingle
Dimint1AsInteger
Sng1=1
Do
Sng1=sng1*1.1
Int1=int1+1
LoopUntilsng1>4
Printint1
EndSub
结果为15年
第6章习题
一、选择题
1．Sub过程与Function过程最根本的区别是___D_____。
（A）前者可以使用Call或直接使用过程名调用，后者不可以
（B）后者可以有参数，前者不可以
（C）两种过程参数的传递方式不同
（D）前者无返回值，但后者有返回值
2．在定义函数过程时，不可能用到的关键字是___C_____。
（A）Exit（B）As（C）Sub（D）End
3．在定义通用过程时，下列关键字中不能用来修饰形参的是___D_____。
（A）ByVal（B）ByRef（C）Optional（D）Static
二、判断题
1．如果过程的一个形参使用了ByRef修饰，且调用时相应的实参是一个变量，则实参的变量的数据类型必须与形参相同。
2．因为函数有返回值，所以只能用在表达式中，不能使用Call语句调用。
X
3．事件过程只能在事件发生时由系统调用，不能在程序中使用代码直接调用。
X
4．在函数过程中，如果不给函数名赋值，则函数不返回任何值。
X
5．定义通用过程时有几个形参，则调用该过程时就必须提供几个实参。
X
三、填空题
1．在过程调用中，参数的传递可分为按值传递和按地址传递两种方式，其中按地址传递
（1）是默认方式。
使用ByVal
（2）关键字来修饰形式参数，可以使之按值传递。
2．阅读下面程序，当Value过程形参前有ByVal关键字时，单击窗体，在窗体上显示的第一行内容是（3）2010，第二行内容是（4）1015。
若将形参表中的ByVal关键字删除，再执行本程序，单击窗体后在窗体上显示的第一行内容是2010（5），第二行内容是（6）2010。
PrivateSubValue（ByValmAsInteger,ByValnAsInteger）
m=m*2:
n=n-5
Printm,n
EndSub
PrivateSubForm_Click（）
DimxAsInteger,yAsInteger
x=10:
y=15
CallValue（x,y）
Printx,y
EndSub
3．下面是一个按钮的事件过程，过程中调用了自定义函数。
单击按钮在窗体上输出的结果第一行是（7）16，第五行是（8）526。
PrivateSubCommand1_Click（）
DimxAsInteger,yAsInteger
DimnAsInteger,zAsInteger
x=1:
y=1
Forn=1To6
z=f1（x,y）
Printn,z
Next
EndSub
PrivateFunctionf1（xAsInteger,yAsInteger）AsInteger
DimnAsInteger
DoWhilen<=4
x=x+y
n=n+1
Loop
f1=x
EndFunction
《程序设计基础（VB）》作业
第1章习题
1．什么是对象？
什么是对象的属性、方法和事件？
答；是在程序设计思想中，自然界中所有的事物（包括计算机）都可以被看做一个的对象（Object）.如：
人、杯子、桌子，程序界面中的文本框、单选框、复选框和按钮也是对象。
属性是一个对象所具有的性质、特征。
方法是对象所具有的动作和行为。
事件是对象能够识别并作出反应的外部刺激。
2．VisualBasic有哪些不同的版本，你上机使用的是哪一个版本？
答；有纵向版本，如VB1.0、VB3.0、VB5.0以及VB6.0，在VisualBasic语言的发展过程中，每一次大的改进都伴有新版本的诞生。
这种版本从时间上可以看成“纵向版本”。
有横向版本，其中又分为本地化版本和不同类型用户版本。
在同一个“纵向版本”下还有不同的“横向版本”。
例如，同样是VisualBasic6.0，Microsoft公司针对不同的国家和地区对它进行了“本地化”，有VisualBasic6.0简体中文版、VisualBasic6.0繁体中文版、VisualBasic6.0日文版等。
除了推出VisualBasic的“本地版”，Microsoft还为不同类型的用户提供了不同的版本，如VisualBasic6.0有学习版（LearningEdition）、专业版（ProfessionalEdition）和企业版（EnterpriseEdition）。
我使用的是VisualBasic6.0中文专业版。
第2章习题
四、简答题
1．什么是注释？
VisualBasic程序的注释符是什么？
为什么要使用注释？
答；在程序中添加的说明文字。
VisualBasic把“’”（英文的单引号）作为注释符。
注释内容主要用来解释语句、过程的作用，以便他人或开发者本人日后能够读懂程序。
2．VisualBasic中续行符是什么？
为什么要续行？
注释行能不能使用续行符？
答：
是“-”（空格与下划线）。
因为代码编辑器中文本不自动换行，太长的语句不能在窗口中方便地查看，需要把一条语句分两行或多行书写，在每个未完的行末加续行符。
可以使用续行符。
3，图2.1所示的界面是由多少个控件组成的？
它们的类型名分别是什么？
答：
1个窗体、4个标签、4个文本框、1个命令按钮
第3章习题
四、找出合法的变量名
3M，
，
，[，e，PI，OK，DIM，dim，+a，we$，_name，a+b
第5章习题
三、编程题
3．编程计算1-2+3-4+5-6…
n的值，其中n由文本框输入（
）。
PrivateSubCommand1-Click（）
DimintNAsInteger
Dimint1AsInteger
DimintSumAsInteger
DimintSngAsInteger
intSng=1
intN=CInt（Text1.Text）
Forint1=1TointN
intSum=intsum+intsng*int1
intSng=-intSng
Nxetint1
Text2.Text=intSum
EndSub
4．编程计算
的值
PrivateSubCommand1-Click（）
Dimint1AsInteger
DimSng1AsSingle
Sng1=0
Forint1=1To10
Sng1=sng1+int1ˆint1
Nxet
Text1.Text=sng1
EndSub
结果为1.040507E+10
第8章习题
一、选择题
1．下列对象中__B_____在运行时一定是不可见的。
（A）Line（B）Timer（C）Shape（D）Frame
2．下面各类型对象中，没有Move方法的是___C___。
（A）Form（B）Shape（C）Line（D）Image
3．列表框控件的下列几个属性中，__B___不是数组。
（A）List（B）ListIndex（C）Selected（D）ItemData
4．向列表框中添加一个条目，应使用列表框的__B_____方法。
（A）InsertItem（B）AddItem（C）AppendItem（D）RemoveItem
5．下列的控件中，不具有Caption属性的是__A____。
（A）ListBox（B）CheckBox（C）Frame（D）OptionButton
6．下面
升级会员 