《Visual Basic语言程序设计教程》课后习题答案文档格式.docx
《《Visual Basic语言程序设计教程》课后习题答案文档格式.docx》由会员分享，可在线阅读，更多相关《《Visual Basic语言程序设计教程》课后习题答案文档格式.docx（21页珍藏版）》请在冰豆网上搜索。
二、根据要求写出表达式
1．Int（100*Rnd+1）
2．x>
10Andx<
50
3．xmod4=0Orxmod13=0
4．Chr（Int（25*Rnd+65））
三、写出下列函数的值
1．Int（–3.14159）=-4
2．Sqr（Sqr（16））=2
3．Fix（–3.1415926）=-3
4．Int（Abs（99–100）/2）=0
5．Sgn（7*3+2）=1
6．Format（2.3,"
##.000"
）=2.300
7．Left（"
Hello"
2）=”He”
8．Val（"
16Year"
）=16
9．Str（–459.65）=”-459.65”
四、将下列数学表达式改写为等价的VB表达式
1．（b^2-sqr（4*a*c-b^2））/（4*a）
2．sqr（sin（3.14/18）^2+cos（3.14/9）^2）+15
3．abs（（a+b）^2-4*a*c）
4．a^2+exp（4）+sqr（abs（a+exp
（1）））
五、编程题
1．界面设计如图：
文本框text1的change事件代码如下：
PrivateSubText1_Change（）
Text2.Text=LCase（Text1.Text）
2．界面设计如图：
设置计时器的interval属性值为1000，Timer1的Timer事件代码如下：
PrivateSubTimer1_Timer（）
Text1.Text=Time
第4章
1-5DBCCA6C
1.输入字符型val
2.Msgbox“是否显示数据”,vbOkCancle+vbQuestion,”提示”
3.34
4
5
*
***
*****
*****
三、编程题
第5章
1-5DADCDB
二、程序填空
1．Inputbox、is<
1、x^3+10*x+2、-x
y=
x3+7x2+101≤x≤6
x+10x>
6
-x-5x<
1
2．
3．Rnd、1、xmod5=0
4．Val（text1.text）、xmod2=0、"
奇数"
、EndIf
1．代码如下：
PrivateSubform_Click（）
DimxAsSingle
x=Val（InputBox（"
请输入任意一个实数：
））
Ifx<
0Then
Print"
概数是负数"
ElseIfx=0Then
概数是零"
Else
概数是正数"
EndIf
2．代码如下：
DimxAsSingle,yAsSingle
x=val（InputBox（"
请输入x的值:
y=x^4+10
ElseIfx<
10Then
y=x^2-10
20Then
y=5*x+8
y=x/2+1
MsgBox"
当x的值为：
&
x&
"
时，函数值y为：
y
3．运行界面如下：
代码如下：
x=Val（Text1.Text）
100Then
y=x
200Then
y=x*0.95
300Then
y=x*0.9
y=x*0.8
Text2.Text=y
4．运行界面如下：
=3Then
y=8
y=（x-3）*1.6+8
第6章习题答案
1-5ABDAB6-7CB
1．Do……Loop、While……Wend、For……Next
2．715
3．5
4．For……NextWhile……Wend
5．5.65
6．1540
7．Nextjprint
1．
（1）代码如下：
PrivateSubForm_Click（）
Fori=1To5
Forj=1Toi
Print"
*"
;
Nextj
Print
Nexti
（2）代码如下：
PrintTab（6-i）;
（3）代码如下：
Forj=1To6-i
（4）代码如下：
PrintTab（i）;
2.输入若干个字符，分别统计其中英文字母、数字、其他字符各有多少个。
运行界面如下：
代码如下：
Dimm,n,a,b,cAsInteger,iAsString
n=Val（Text1）:
a=0:
b=0:
c=0
Form=1Ton
i=InputBox（"
请输入"
n&
个字符"
）
SelectCasei
Case"
a"
To"
z"
"
A"
Z"
a=a+1
0"
9"
b=b+1
CaseElse
c=c+1
EndSelect
Nextm
Text2=a
Text3=b
Text4=c
EndSub
3．代码如下：
Forn=2To100000
s=0
Fori=2ToInt（Sqr（n））
IfnModi=0Then
s=1
ExitFor
Nexti
Ifs=0ThenList1.AddItemn
Nextn
4．输入10个数，求出其中正数、负数和零的个数
Dima,b,c,i,nAsInteger
Forn=1To10
i=Val（InputBox（"
请输入10个数字"
CaseIs>
0
CaseIs<
Nextn
正数有"
a&
个"
负数有"
b&
零有"
c&
5.略
第7章
1-5BDCAD6-10BADDD
1．DimX（）、X（1To20）
2．Max、Max=arr1（i）
3．4
4．25
5.5869
6.1234
1．界面中设计一个按钮，代码如下：
OptionBase1
Dima（20）AsInteger,iAsInteger
Fori=1To20
a（i）=Val（InputBox（"
输入数组元素"
Printa（i）;
Ifi=10ThenPrint
Fori=1To10
t=a（21-i）
a（21-i）=a（i）
a（i）=t
Print
Printa（i）;
Ifi=10ThenPrint
2.PrivateSubForm_Click（）
Dima（1To10）AsInteger,i%,maxa%,m%
a（i）=Int（Rnd*70）+30
maxa=a
（1）
Fori=2To10
Ifa（i）>
a
（1）Then
maxa=a（i）:
m=i
EndIf
Printa（i）;
Print"
maxa="
maxa;
下标为"
m
3.运行结果界面如下
DimcAsString,x%,a（1To26）AsInteger
Picture1.Cls
Fori=1ToLen（Text1.Text）
c=UCase（Mid（Text1.Text,i,1））
Ifc>
="
Andc<
Then
j=Asc（c）-64
a（j）=a（j）+1
Nexti
Forj=1To26
IfjMod6=0Then
Picture1.PrintChr（j+64）&
="
a（j）
Picture1.Print
a（j）;
Picture1.PrintSpace（3）;
4．窗体不需设计，运行结果界面如下：
Dima（1To3,1To3）
Fori=1To3
Forj=1To3
Randomize
a（i,j）=Int（Rnd*100）
Printa（i,j）;
Ifi=1Ori=3Orj=1Orj=3ThenSum=Sum+a（i,j）
矩阵四周元素之和"
Sum
5.PrivateSubCommand1_Click（）
Dima（1To50）AsInteger,b（1To9）AsInteger
DimiAsInteger,jAsInteger
Randomize
Fori=1To9
b（i）=0'
初始化数组
Next
Fori=1To50
a（i）=Int（90*Rnd+10）'
产生随机数
Forj=1To9'
判定范围存入数组
Ifa（i）>
j*10-1Anda（i）<
j*10+10Thenb（j）=b（j）+1
Next
'
输出
IfiMod10=0ThenPrint'
一行输出10个
Forj=1To9
范围"
（j*10）&
到"
（j*10+9）&
的数有"
b（j）&
个。
第8章
1-5：
ADDBD6-10：
DCCAD
11-15：
CADBD
1.从列表框中删除指定项目
2.下拉式列表框
3.Interval
4.Timer
5.Picture
三、程序填空
1.List1_Dblclick、List1.Text
2.1000、true、Time
第9章
一、选择题
1-5ACACB6-8BCC
1.ByvalByrefByref
2.窗体/模块级全局级局部变量窗体/模块级全局级
3.在调用函数的过程中出现的直接或间接调用该函数本身的现象
4.b6.117
5，
7.
A=1B=1
X=2Y=3
A=2B=3
三、四
第10章
1-4：
DBDB
1.属性设置区、编辑区、菜单项显示区
2.打开、另存为、颜色、字体
3.PopupMenu
4.CommonDialog1.Action=1、CommonDialog1.ShowSave
第11章
1-5DCABB6-10BDDBA11-15DBCAC
二．填空题
1.Open、close
2.append
3.write、print
4.put、get
5.EOF
（1）、whole
三．编程题
界面设计如下：
Dima（1To4,1To5）AsSingle,s（1To5）AsSingle
StaticjAsInteger
Fori=0To3
a（i+1,j+1）=Text2（i）
Text1.Text=Text1.Text&
a（i+1,j+1）
Chr（13）&
Chr（10）
Text2（i）.Text="
j=j+1
Text2（0）.SetFocus
PrivateSubCommand2_Click（）
Fork=1To4
s（i）=s（i）+a（k,i）
Nextk
Text3（i-1）.Text=s（i）/4
PrivateSubCommand3_Click（）
Open"
d:
\result.dat"
ForOutputAs#1
Forj=1To4
Write#1,a（j,i）;
Write#1,"
平均分"
s（i）/4
Close
第12章
一、简答题
略。
二、编程题
数据表“学生表”结构如下：
字段名
类型
长度
学号
Text
10
姓名
20
性别
2
专业
30
籍贯
民族
升级会员 