VB第二章课后习题答案
计算机VB第二章课后参考答案
第二章VB程序入门参考答案：一、简答题（略）二、找出以下语句中的错误1．False --- 错，因为False是VB的关键字或保留字2．Integers ----- 错，正确的写法是dim x ,y ,z as integer3．a+b=c 改为c=a+b4．Mode ---- 错，应改为mod5．37001 --- 错，因为x取值范围是–32768 ---- 327676．÷----- 错，应该写为/7．.E ---- 错，E的左边必须是有一个数字8．错，赋值符号的左边字符串缺了双引号9． 1 --- 错…如是数字1,使用+将会出现”类型不匹配”的错误.如一定要使一字符串与一数字相联,可使用”&”运算符.或用str()函数将数字转换为字符串类型．10．错，可改成如下形式：#01-01-2000#三、编写语句完成以下任务1．设这3个数用x、y、z表示，则求3个数乘积的表达式为：x*y*z如：Dim x as integer,y as integer , z as integer, mul as integerMul= x*y*z2．Option explic it3．Form1.print “Print Text to The Windows”4．Dim result as longDim x as integer,y as integer , z as integerResult=(x+y+z)/35．Dim x as integer, y as integer, z as integer6．Y=3*x^5+2*x^4-6*x^3-1四、数据常量有：”Xname”（字符串型）、True(逻辑型)、517.3(实数型) 、"2/08/05"（日期时间型）、#1-1#（日期时间型）、”String”（字符串型）、1（整型）数据变量有：Xname、Step、X五、写出下列表达式的值：1． 6 注: 可用语句Print 2 * 3 ^ 3 mod 4*2 验证, 注意运算符的优先级.2．2002-1-1 注: 日期数据可进行加减运算3．xyz123abc4．xyz123abc5．126．11 注:可用语句x=10 : y=7 : Print y/2*x\3 验证, 优先级相同从左至右进行.思考为什么会是这个得数.5 7-2 -9False False程序段2：VisualThe Demo Basic实验部分1. '计算通过inputbox()接受三个数，在窗体上输出'它们的和,乘及平均值.参考代码：方法之一:Private Sub Command1_Click()Dim a As Single, b As Single,c As Singlea = InputBox("请输入第一个数a：")b = InputBox("请输入第二个数b：")c = InputBox("请输入第三个数c：")Print "a="; a, "b="; b, "c="; cPrint "a + b + c = "; a + b + cPrint "a * b *c ="; a * b * cPrint " a + b + c / 3="; (a + b + c) / 3End Sub方法之二:Private Sub Form_Click()Dim x As Integer, y As Integer, z As Integerx = InputBox("请输入：")y = InputBox("请输入：")z = InputBox("请输入：")Print x + y + zPrint x * y * zPrint (x + y + z) / 3End Sub2．参考代码和界面如下：Private Sub Command1_Click()Dim r As Integerr = InputBox("请输入圆半径：")Label1.Caption = 2 * r & " "Label1.Caption = Label1.Caption & 3.14 * r ^ 2 & " "Label1.Caption = Label1.Caption & 2 * 3.14 * rEnd Subr = InputBox("请输入圆半径：")Label1.Caption = "直径：" & 2 * rLabel1.Caption = Label1.Caption & " 周长：" & 3.14 * r ^ 2Label1.Caption = Label1.Caption & " 面积：" & 2 * 3.14 * rEnd SubPrivate Sub Command3_Click()EndEnd Sub3．参考代码：Private Sub Form_Click()Dim a As Integera = InputBox("请输入16或33或53...：") …输入的值分别是16，33…..等MsgBox "注意观测！", a, "消息框"End Sub思考： a 代表MsgBox中的什么参数？4．参考代码和界面如下：方法之一:Private Sub command1_Click()Dim temp As Integertext1.Text = ""text2.Text = ""text3.Text = ""Label4.Caption = "+"text1.Text = InputBox("请输入第一个数：")text2.Text = InputBox("请输入第二个数：")temp = V al(text1.Text) + V al(text2.Text)text3.Text = tempEnd SubPrivate Sub command2_Click()Dim temp As Integertext1.Text = ""text2.Text = ""text3.Text = ""Label4.Caption = "-"text1.Text = InputBox("请输入第一个数：")text2.Text = InputBox("请输入第二个数：")temp = V al(text1.Text) - V al(text2.Text)text3.Text = tempEnd SubPrivate Sub Command3_Click()Dim temp As Integertext1.Text = ""text1.Text = InputBox("请输入第一个数：") text2.Text = InputBox("请输入第二个数：") temp = V al(text1.Text) * V al(text2.Text)text3.Text = tempEnd SubPrivate Sub Command4_Click()Dim temp As Singletext1.Text = ""text2.Text = ""text3.Text = ""Label4.Caption = "/"text1.Text = InputBox("请输入第一个数：") text2.Text = InputBox("请输入第二个数：") temp = V al(text1.Text) / V al(text2.Text)text3.Text = tempEnd Sub方法之二:Private Sub command1_Click()Dim temp As Integertext1.Text = ""Text2.Text = ""text3.Text = ""Label4.Caption = Command1.Captiontext1.Text = InputBox("请输入第一个数：") Text2.Text = InputBox("请输入第二个数：") temp = V al(text1.Text) + V al(Text2.Text)text3.Text = tempEnd SubPrivate Sub command2_Click()Dim temp As Integertext1.Text = ""Text2.Text = ""text3.Text = ""Label4.Caption = Command2.Captiontext1.Text = InputBox("请输入第一个数：") Text2.Text = InputBox("请输入第二个数：") temp = V al(text1.Text) - V al(Text2.Text)text3.Text = tempEnd SubPrivate Sub Command3_Click()Dim temp As Integertext1.Text = ""Label4.Caption = Command3.Captiontext1.Text = InputBox("请输入第一个数：") Text2.Text = InputBox("请输入第二个数：") temp = V al(text1.Text) * V al(Text2.Text)text3.Text = tempEnd SubPrivate Sub Command4_Click()Dim temp As Singletext1.Text = ""Text2.Text = ""text3.Text = ""Label4.Caption = Command4.Captiontext1.Text = InputBox("请输入第一个数：") Text2.Text = InputBox("请输入第二个数：") temp = V al(text1.Text) / V al(Text2.Text)text3.Text = tempEnd Sub。
VB课后练习答案.doc
VB课后练习答案P12第一章课后练习答案:一、选择题二、填空题第二章（P39）选择题答案：填空题答案：1.Cmdl, Click2.Text 1.Text二"Hello"P64第三章课后练习答案一、选择题二、填空题1.(Y Mod 4=0 And Y Mod 10000) Or Y Mod 400=0 2.a<>0 And b*2-4*a*c>=0 3.X Mod 5=0 And X Mod 2=0 或 Tnt(x/5)=X/5 And Int(X/2)=X/2 4. 注意：返回的均是字符型。
第四章课后答案：P79一、选择题答案为：$$41.50010二、填空题三、程序设计题（提示）1、鸡的头数为x,兔的头数为y,则可列方程式:\x-\- y = h （兀 * 2 + y * 4 =于求得x, y 的值再在窗体上输出结果。
2、 利用Format 格式函数，再通过窗体的Print 将格式化后的信息输出到窗体上。
3、 厶员I 的周长=2加" $岡的面积=加25、通过Inputbox 函数或用文本框输入三边和圆的半径a,b,c, r,利用公式：. a + b + cn 二 ---------2 S 三角形面积=Jh （h - - b ）（h - c ）P97第五章课后练习答案:第9题| D一、选择题答案D 改为:30二、填空题第］题Y Mod 4二0 And Y Mod 100二0 Or Y Mod 400二0 第2题笫3题笫4题Private Sub Command l_Click()X=Val(Textl.Text)Select Case XCase Is>200. Isv-10()Print “xv 100 Or x>200"Case ls<=0Y=l()()-XCase Isv二100Y=100+XCase Is<=200Y=400End SelectText2.Text=yEnd Sub三、程序设计题(提示)1、判断条件：假设一个整数为xX Mod 3=0 Or x Mod 5=0 或x/3=x\3 Or x/5=x\52、选项按钮的知识点在P182,利用该控件的Wlue属性判断是否选中该项。
VB课后答案
第1章习题与思考题参考答案1．思考题（略）2．判断题（1）——（10）×、√、×、√、×、√、×、×、√、√3．填空题（1）Selstart （2）Enabled （3）Load（4）TabIndex, 0 （5）vbModal 或14．选择题（1）A （2）A （3）D （4）A （5）D （6）B （7）B （8）C （9）A （10）B上机练习参考程序参见本目录中的bct1，bct2第2章习题与思考题参考答案1．思考题（略）2．填空题（1）（2）int(rnd*90)+10（3）(x mod 10)*10+ x\10（4）sin(65/180*3.14)+2*3.14*sqr(x+2*exp(y))/(x+y)（5）-10（6）CDEF3．编程题参见本目录中的bct1，bct2第3章习题与思考题1．思考题（略）2．（略）3．程序阅读（1）A=2 B=3 C=2 （2）5 （3）BABCBACBC（4） 1 2 False (5) 1-12-123-1234-4．选择题（1）B（2）D（3）B（4）B（5）D（6）C5．编程题参见本目录中的bct1，bct2第4章习题与思考题参考答案1．判断题（1）——（5）×、√、×、×、√2．写出下列Visual Basic表达式的值：（1）False (2) True (3) True (4) False（5）True (6) True (7) 1000 (8) False3. 将下列命题用Visual Basic布尔表达式表示：（1）z>x and z>y（2）Abs(a)<=Abs(b+2) or a>b+2（3）p Mod q=0（4）(x<-5 or x>-2) and (x<2 or x>5)（5）(x-z)*(y-z)<0（6）a<b and a mod 2=04 选择题（1）A （注：程序段最前面加一些个语句：Dim A%，I%）（2）D（3）A（4）B（5）A（6）A5.程序阅读（1）x=3 y=7（2）w=4w=13w=135w=31(3) ^_`a12 uv^（4）1296．程序填空题（1）Chr(KeyAscii) Chr(KeyAscii)=”)” Count1 =count1-1 Count1=0 Count1>0（2）Max Min c>Max c<Min（3）x Mod 3=2 and x Mod 5=3 x Mod 7=4 Text1.SetFocusText1.SelStart = 0 Text1.SelLength = Len(Text1)7．编程题参见本目录中的bct1，bct2，…..第5章习题与思考题1．判断题（1）——（6）√、√、√、√、×、×2 选择题（1）B（2）B（3）B3.程序阅读（1）78578635786413578642（2）ZYYYXXXXXWWWWWWWVVVVVVVVVUUUUUUUUUUU(3) 44．程序填空题（1）sign=-1 for i=2 to 19 sign=-sign（2）Len(oldsen) Mid(oldsen,i,1) Ucase(char) char（3）Len(str1) length-1 Mid(str1,i,2) sum=0（4）Trim(Str(i)) Trim(Str(i*i)) x1=Right(x2,Len(x1))（5）lase_one=last_two last_two=this_one i=i+1 i5．编程题参见本目录中的bct5-5-1，bct5-5-2,……第6章习题与思考题1．判断题（1）——（6）×、×、×、×、×、√2 选择题（1）D（2）D（3）B（4）C（5）D3.程序阅读（1）x(1)=8x(2)=6x(3)=4x(4)=3x(5)=1（2）1 2 3 4 5 6 77 1 2 3 4 5 66 7 1 2 3 4 55 6 7 1 2 3 44 5 6 7 1 2 33 4 5 6 7 1 22 3 4 5 6 7 11 2 3 4 5 6 7(3) 删除后的数组: 5 0 -1 10 2 34．程序填空题（1）此题的最后一个空的那一行应与后面的Next j交换位置。
Visual Basic程序设计第2章习题答案
1．选择题：(1) 下列哪个符号是合法的变量名? （A）A. VB123B. AbsC. 99JiD. x\y(2) 数学式子10sin25o写成Visual Basic表达式是？（D）A. 10sin25B. 10*sin(25)C. 10*sin(25o)D. 10*sin(25*3.14/180)(3) Visual Basic中不存在下列哪一种数据类型？（D）A. 字符串类型B. 日期类型C. 逻辑类型D. 指针类型(4) 表达式Left(“Visual”,3)+Lcase(“AB”)的值是？（C）A. visABB. VisABC. VisabD. ualab(5) 表达式6+10 Mod 4*2+1的值是？（B）A. 9B. 11C. 1D. 3(6) 用于截去字符串左右空格的函数是？（A）A. Trim()B. Rtrim()C. InStr()D. Mid()(7) 下列( )是日期型常量？（C）A. “07/03/11”B. 02/02/11C. #03/01/19#D. {2/11/02}(8) 把数值型转换为字符串型需要使用下列哪一种函数? （B）A. Val()B. Str()C. Asc()D. Chr()2．符号常量与变量有何区别？如何定义符号常量？一般在什么情况下使用符号常量？答：符号常量是指用一个符号代表常量值，该符号在程序中表示恒定值。
符号常量有两种来源：用户定义的符号常量和内部(或系统)定义的符号常量。
变量就是在程序执行期间其值可变的量。
实际上变量是一个存储单元，这个存储单元的名字就是变量名，变量能够用来保存数据。
在程序中对变量应先定义，再使用。
被声明的变量均有变量名和相应的数据类型。
符号常量的定义格式为：Const 符号常量名[As 数据类型]=表达式在符号常量的定义中，需要有关键字“Const”，且必须提供常数值，“As 数据类型”为可选项，当省略“As 数据类型”时，常量的类型由其后赋给的值决定。
VB程序设计习题及答案第2章VisualBasic语言基础知识
第2章 Visual Basic语言基础知识2．1 Visual Basic定义了几种数据类型，变量有哪几种数据类型，常量有哪几种数据类型。
【答】Visual Basic基本数据类型：1. 字符串型（String）：字符串分为变长字符串和定长字符串两种。
2. 数值型：数值型数据分为整型数和浮点数两类。
3. 货币型（Currency）4. 变体型（Variant）5. 字节型（Byte）6. 布尔型（Boolean）7. 日期型（Date）8. 对象型（Object）Visual Basic中包含两种常量，即文字常量和符号常量。
变量的基本数据类型：Byte（字节型），Boolean（布尔型），Integer（整型），Long （长整型），Single（单精度型），Double（双精度型），Currency（货币型），Date（日期型），Object（对象型），String（变长字符串），String（定长字符串），Variant（变体型、数字），Variant（变体型、字符）2．2 符号常量和变量有什么不同点?【答】符号常量一经定义，就不能在程序中的其他位置改变其值。
变量的值在程序中可以改变。
2．3 指出下列正确的变量名：g(1-k) 6adhs *sss kL2.1 Printx+1 ahi π .ex3 j5h【答案】正确的变量名：ahi，j5h2．4 指出下列正确的数字形式-1.25 ±0.123 89E D2585 10^(2.7) 3^5【答案】2．5 下列表达式若有错误，请改正（1） ts+cos(300) (2) (x+y)^(25÷s)（3） [(X1+X2)*(X1-3)-6]*7 (4) (X÷-2)+sin(1.2+π)【答案】(1) ts+cos(30*3.141593/180)(2) (x+y)^(25/s)(3) ((X1+X2)*(X1-3)-6)*7(4) (X/(-2))+sin(1.2+3.141593)2．6 写出下列数学式的Visual Basic表达式（1） sin(a)[cos(b)+1.5]（2） (x1+4)5(e2-a)（3） 36[(x1+π)(x1÷3.3)-b]（4） x-2π)【答案】Visual Basic表达式：(1) sin(a)*(cos(b)+1.5)(2) (x1+4)^5*(Exp(2)-a)(3) 36*((X1+3.141593)*(x1/3.3)-b)(4) x^（-2）+5.8*sin(3.5*3.141593)第3章顺序结构程序设计3．1 下列语句是否有错？若有，请改正。
VB第二章课后习题答案
习题一、选择题1. 在程序中已将变量Inta、Bl、st和D分别定义为Integer型、Boolean型、String型和Date型，下列语句中，正确的是。
A. Inta="333"+"a22"B. D=#10/05/01#C. st=5+"abc"D. Bl= #True#2. 语句Print "5*20" 输出结果是。
A. "5*20"B. 出错C. 5*20D. 1003. 下列可作为Visual Basic变量名的是。
A. a#aB. 4aC. xyD. Consta4. 表达式6*7/8 Mod 9的值是_______。
A. 4B. 5C. 6D. 7·5. 将数学表达式cos2(a+b)+5e2写成Visual Basic表达式，其正确的形式是_______。
A. cos(a+b)^2+5*Exp(2)B. cos^2(a+b)+5*Exp(2)C. cos(a+b)^2+5*Ln(2)D. cos^2(a+b)+5*Ln(2)6 .数学表达式Sin25°写成VB表达式是_______。
A. Sin25B. Sin（25）C. Sin（25°）D. Sin（25*180）7. 选拔身高T超过1.7米且体重W小于公斤的人，表示该条件的逻辑表达式为_______。
A. T>= And W<=B. T<= Or W>=C. T> And W<D. T>= Or W<8. 执行语句代码print format, "##,##")，以下答案中哪一个是正确的_______。
A. B. 2,004.21 C. 2, D. 02,&9. 下面表达式的值为真的是_______。
A. Mid("Visual Basic",1,12)=Right("Programming language Visual Basic",12)B. "ABCRG">"abcde"C. Int>=RoundD. <=957/ And –>10. 实现字符的Unicode编码方式与Windows编码方式相互转换的函数是。
VB教程课后习题的答案及解析
=第二章标准控件和属性1．下列可以激活属性窗口的操作是（ D ）A）用鼠标双击窗体的任何部位 B）执行‘工程’菜单中的‘属性窗口’命令 C）按Ctrl+F4键 D）按F4键2．确定一个控件在窗体上的位置的属性是（ D ）A）Width或Height B）Width和Height C）Top或Left D）Top和Left3．确定一个窗体或控件的大小的属性是（ B ）A）Width或Height B）Width和Height C）Top或Left D）Top和Left4．在Visual Basic中，所有标准控件都具有的属性是( B )。
【2013年9月考试真题】A) Caption B) Name C) Text D) Value参考答案：B【解析】VB标准控件中不同控件具有不同属性，有的相同有的不同，但都具有Name属性。
故选B。
5．为了让计时器控件每隔10秒产生了一个Timer事件，应把Interval属性设置为（ B ）A) 1000 B) 10000 C) 10 D) 1006．下面关于单选按钮和复选框的叙述中正确的是（ D ）A) 单选按钮被选中则它的Value属性为True；复选框被选中则它的Value属性为2B) 单选按钮被选中则它的Value属性为True；复选框被选中则它的Value属性为TrueC) 单选按钮被选中则它的Value属性为1；复选框被选中则它的Value属性为1D) 单选按钮被选中则它的Value属性为True；复选框被选中则它的Value属性为17．将文本框的ScrollBar设置为2，文本框中却没有垂直滚动条，其原因为（ B ）A) 文本框的Locked属性值为True B) 文本框的MultiLine属性值为FalseC) 文本框的MultiLine属性值为True D) 文本框中没有内容第三章简单程序设计语句1.在面向对象的程序设计中，可被对象识别的动作称为( B )。
VisualBasic程序设计教程第三版课后习题答案
《VB程序设计》综合复习资料第一章Visual Basic程序设计概述一、填空题1、Visual Basic是一种面向__________的可视化程序设计语言，采取了__________的编程机制。
2、在VB中工程文件的扩展名是____________，窗体文件的扩展名是____________，标准模块文件的扩展名是____________。
3、执行“工程”菜单下的__________命令，可选择并添加ActiveX控件。
4、Visual Basic 6.0用于开发__________环境下的应用程序。
二、选择题1、下面不是VB工作模式的是（）A．设计模式B．运行模式C．汇编模式D．中断模式2、可视化编程的最大优点是（）A．具有标准工具箱B．一个工程文件由若干个窗体文件组成C．不需要编写大量代码来描述图形对象D．所见即所得3、下列不能打开属性窗口的操作是（）A．执行“视图”菜单中的“属性窗口”命令B．按F4键C．按Ctrl+TD．单击工具栏上的“属性窗口”按钮4、下列可以打开立即窗口的操作是（）A．Ctrl+D B．Ctrl+E C．Ctrl+F D．Ctrl+G5、Visual Basic的编程机制是（）A．可视化B．面向对象C．面向图形D．事件驱动三、简答题1、代码窗口主要包括哪几部分？2、在工程资源管理器窗口中，主要列出了哪三类文件？3、窗体布局窗口的主要用途是什么？4、VB的基本特点是什么？5、怎样理解可视化设计？6、怎要理解事件驱动编程？第二章简单的VB程序设计一、填空题1、设置是否可以用Tab键来选取命令按钮，应该用______________属性。
2、一个控件在窗体的位置由_______和________属性决定，其大小由__________和_________属性决定。
3、利用对象的属性setfocus可获得焦点，对于一个对象，只有其visible属性和____________属性为true，才能接受焦点。
vb习题答案(1-9章)最全的
第一章VB程序设计概述二、选择题CADAB ACDAB CBDBB第二章VB可视化编程基础二、选择题ABDCA CACBC DADAD BDBBB三、填空题1.可视2.LEFT TOP WIDTH HEIGHT3.按字母序4.查看代码5.工具、选项6.Form1 Font7.Multiline8.只读属性9.工程属性通用Form1.show10.tabindex 0第三章VB语言基础二、选择题BCADB ADBBC DBCBA DAABB三、填空题1.整型、长整型、单精度、双精度2.sin(30*3.14/180)+sqr(x+exp(3))/abs(x-y)-log(3*x)3.160 今天是：3-224.False5.-4 3 -3 3 -4 46.“CDEF”7.(x mod 10)*10+x\108.(35\20)*20=20 ( 35 \ 20 ) * 20 = 209.x mod 3=0 or x mod 5=010.27.6 8.2 8 1 100 397 true false第四章VB程序控制结构二、选择题DBCAD ABCAB D25BAC CBACB DABBC三、填空题1.字符型整型2. 1 2 33.x>74.x<amin5.10246.117.128.6 I “*”;9.0 100 i+1 10.2*I 6 “*”;三、编程题1.Private Sub Form_Click()Dim n As Integer, i As Integer, s As Longs = 1n = Val(InputBox("请输入一个整数:"))For i = 1 To ns = s * iNext iMsgBox n & "！=" & sEnd Sub2．Private Sub Form_Click()Dim i%, k%For j = 3 To 100k = Int(Sqr(j))For i = 2 To kIf j Mod i = 0 Then Exit ForNext iIf i > k Theny$ = y$ & " " & jEnd IfNext jMsgBox y, , "显示质数"End Sub3．Private Sub Form_Click()Dim i%, s%For i = 1 To 100s = s + iNext iMsgBox "1+2+3+……+100=" & sEnd Sub4．Private Sub Form_Click()Dim x%, y%For x = 1 To 50For y = 1 To 33z = 100 - x - yIf 2 * x + 3 * y + 0.5 * z = 100 ThenPrint "小鸡、公鸡、母鸡分别为："; x; y; z End IfNext yNext xEnd Sub5.Private Sub Command1_Click()Dim a%, b%, c%, p!, s!doa = Val(InputBox("请输入三角形的第一条边"))if a=-1 then exit dob = Val(InputBox("请输入三角形的第二条边"))c = Val(InputBox("请输入三角形的第三条边"))If a + b > c And a + c > b And b + c > a Thenp = (a + b + c) / 2s = Sqr(p * (p - a) * (p - b) * (p - c))Print sElseMsgBox "你输入的三边不能构成三角形，请重新输入"End IfloopEnd Sub6. Private Sub Form_Click()Dim i As Integer, j As Integer,k as integerFor i = 1 To 8For k=1 to 8-iPrint spc(3);Next kFor j = 1 To 2 * i - 1Print i;Next jPrintNext iEnd Sub7. Private Sub Form_Click()Dim i As Integer, j As Integer, k As IntegerFor i = 1 To 30For j = 1 To 30For k = 1 To 30If i ^ 2 + j ^ 2 = k ^ 2 ThenPrint i & " ^ 2 + " & j & "^ 2 =" & k & "^ 2"End IfNext kNext jNext iEnd Sub8．Private Sub Form_Click()Dim x As Integer, a As Integer, b As Integer, c As Integer, ss As String ss = ""For x = 100 To 999a = Int(x / 100)b = Int((x - 100 * a) / 10)c = x - 100 * a - 10 * bIf a ^ 3 + b ^ 3 + c ^ 3 = x Thenss = ss & " " & xEnd IfNext xPrint ssEnd Sub9．Dim sr As Long, r As Singlesr = Val(InputBox("请输入收入："))Select Case srCase Is < 200r = 0Case 200 To 400r = (sr - 200) * 0.04Case 400 To 5000r = sr * 0.04Case Is >= 5000r = sr * 0.05End SelectPrint "收入为" & sr & "时所缴纳的税为：" & rEnd Sub10.Private Sub Form_Click()Dim t As Single, wf As Singlet = Val(InputBox("请输入上网时间:"))Select Case tCase Is < 10wf = 50Case 10 To 60wf = t * 6Case Is >= 60wf = t * 4End SelectIf wf >= 200 Thenwf = 200End IfPrint "上网时间为" & t & "小时上网的费用为：" & wf End Sub11. Private Sub Form_Click()Dim yf As Integeryf = Val(InputBox("请输入月份"))Select Case yfCase 12, 1, 2MsgBox yf & "月份是冬季"Case 3, 4, 5MsgBox yf & "月份是冬季"Case 6, 7, 8MsgBox yf & "月份是冬季"Case 9, 10, 11MsgBox yf & "月份是冬季"Case ElseMsgBox "输入错误，请重新输入"End SelectEnd Sub12.if的方法Private Sub Form_Click()Dim x As Single, f As Singlex = Val(InputBox("请输入一个数"))If x < 0 Thenf = 2 * x - 1ElseIf x = 0 Thenf = 4 * xElseIf x > 0 Thenf = 7 * x - 5End IfPrint "f(" & x & ")=" & fEnd SubSelect case语句：Private Sub Form_Click()Dim x As Single, f As Singlex = Val(InputBox("请输入一个数"))Select Case xCase Is < 0f = 2 * x - 1Case 0f = 4 * xCase Is > 0f = 7 * x - 5End SelectPrint "f(" & x & ")=" & fEnd Sub第五章数组一、选择题DCACD DBCDC BADAD二、填空题1.名称Index2.preserve3.变体4.235.1 2 3 1 4 16.1 2 3 2 4 67. max max=arr1(i)三、编程题1.Option Base 1Private Sub Form_Click()Dim a(10) As Integer, i%, temp%For i = 1 To 10a(i) = Val(InputBox("请输入第" & i & "个整数")) Next iPrint "原来各元素的值为："For i = 1 To 10Print a(i);Next iFor i = 1 To 5temp = a(11 - i)a(11 - i) = a(i)a(i) = tempNext iPrintPrint "交换后各元素的值为："For i = 1 To 10Print a(i);Next iEnd Sub2.Option Base 1Private Sub Form_Click()Dim a As Variant, b As Variant, c As Variant, i%a = Array(2, 8, 7, 6, 4, 28, 70, 25)b = Array(79, 27, 32, 41, 57, 66, 78, 80)ReDim c(8)For i = 1 To UBound(a)c(i) = a(i) + b(i)Next iFor i = 1 To UBound(c)Print c(i);Next iEnd Sub3.Option Base 1Private Sub Form_Click()Dim a() As Variant, i%, j%, n%, m%, max%, hh%, lh%n = Val(InputBox("请输入一个整数:"))m = Val(InputBox("请输入一个整数:"))ReDim a(n, m)For i = 1 To n - 1For j = 1 To m - 1a(i, j) = Int(Rnd * 101 + 50)If max < a(i, j) Then max = a(i, j): hh = i: lh = jNext jNext iPrint "最大值为:"; max; "所在的行号为："; hh; "所在的列号为:"; lh End Sub4.Option Base 1Private Sub Form_click()Dim a(50) As Integer, b(9) As Integer, i%, j% For i = 1 To 50a(i) = Int(Rnd * 90 + 10)j = Int(a(i) / 10)b(j) = b(j) + 1Next iFor j = 1 To 9Print b(j);Next jEnd Sub5.Option Base 1Private Sub Command1_Click(Index As Integer) Select Case IndexCase 0Text3 = Val(Text1) + Val(Text2)Case 1Text3 = Val(Text1) - Val(Text2)Case 2Text3 = Val(Text1) * Val(Text2)Case 3Text3 = Val(Text1) / Val(Text2)End SelectEnd Sub6.Private Sub Form_click()Dim s!, i&, j&i = 3s = 1j = 0Doj = j + 1s = s + (-1) ^ j / ii = i + 2Loop While 1 / i > 10 ^ (-6)Print 4 * sEnd Sub7.Option Base 1Private Sub Form_click()Dim a(40) As Long, i As Integera(1) = 1a(2) = 1For i = 3 To 39a(i) = a(i - 1) + a(i - 2)Next iFor i = 1 To 40Print a(i);Next iEnd Sub8.冒泡法：Option Base 1Private Sub Form_click()Dim a(10) As Single, ok As Boolean, i%, j%, x!For i = 1 To 10a(i) = Val(InputBox("请输入第" & i & "个数"))Print a(i);Next iFor i = 10 To 2 Step -1ok = TrueFor j = 1 To i - 1If a(j) > a(j + 1) Thenx = a(j)a(j) = a(j + 1)a(j + 1) = xok = FalseEnd IfNext jIf ok Then Exit ForNext iPrintPrint "冒泡排序的结果为："For i = 1 To 10Print a(i);Next iEnd Sub选择法：Option Base 1Private Sub Form_click()Dim a(10) As Single, p!, i%, j%, min!For i = 1 To 10a(i) = Val(InputBox("请输入第" & i & "个数"))Print a(i);Next iFor i = 1 To 9p = iFor j = i + 1 To 10If a(j) < a(p) Then p = jNext jIf p <> i Thenmin = a(i)a(i) = a(p)a(p) = minEnd IfNext iPrintPrint "排序后的结果为："For i = 1 To 10Print a(i);Next iEnd Sub第六章过程一、选择题CDBAB DBCCC ABCBD CDB二、填空题1.sub function2.形式实际3.内存的同一地址4.myf(a%,b() as integer ) as Boolean5.值传递地址传递6.lbound ubound7.局部8.通用任何过程9.2 5 9 10.2411.2 12.30 7013.-1三、编程题1. Option Base 1Private Sub Form_Click()Dim m1%, m2%, b() As IntegerFor i = 3 To 7 Step 2ReDim b(i)For j = 1 To ib(j) = Int(Rnd * 90 + 10)Print b(j);Next jm1 = b(1)m2 = b(1)Call mm(m1, m2, b())PrintPrint "最大值为:"; m1Print "最小值为:"; m2Next iEnd SubPublic Sub mm(max%, min%, a() As Integer) Dim i%For i = LBound(a) To UBound(a)If a(i) > max Then max = a(i)If a(i) < min Then min = a(i)Next iEnd Sub2.sub过程：Public Sub jc(n%, s&)Dim i%s = 1For i = 1 To ns = s * iNext iEnd SubPrivate Sub Form_click()Dim s&, a%, b%, c%, s1&a = Val(InputBox("请输入一个整数:"))b = Val(InputBox("请输入一个整数:"))c = Val(InputBox("请输入一个整数:")) Call jc(a, s1)s = s1 + sCall jc(b, s1)s = s1 + sCall jc(c, s1)s = s1 + sPrint a & "!+" & b & "!+" & c & "!=" & s End SubFunction过程：Public Function jc(n%) As LongDim i%, s%s = 1For i = 1 To ns = s * iNext ijc = sEnd FunctionPrivate Sub Form_click()Dim s&, a%, b%, c%, s1&a = Val(InputBox("请输入一个整数:"))b = Val(InputBox("请输入一个整数:"))c = Val(InputBox("请输入一个整数:"))s1 = jc(a) + jc(b) + jc(c)Print a & "!+" & b & "!+" & c & "!=" & s1 End Sub3.Public Sub jo(n As Integer)If n Mod 2 = 0 ThenPrint "false"ElsePrint "true"End IfEnd Sub4.Private Sub Form_click()Dim b(1 To 100) As Integer, i%For i = 1 To 100b(i) = Int(Rnd * 100 + 1)Next iCall sort(b())For i = 1 To 100If i Mod 10 = 0 Then PrintPrint b(i);Next iEnd SubPublic Sub sort(a() As Integer)Dim n%, ok As Boolean, k As Integern = UBound(a)For i = 1 To n - 1ok = TrueFor j = 1 To n - iIf a(j) > a(j + 1) Thenk = a(j): a(j) = a(j + 1): a(j + 1) = k: ok = False End IfNext jIf ok Then Exit ForNext iEnd Sub5.Private Sub Form_click()Dim b(1 To 10) As Integer, i%For i = 1 To 10b(i) = Val(InputBox("请输入第" & i & "个整数")) Next iCall sort(b())Print "排序后的结果"For i = 1 To 10Print b(i);Next iEnd SubPublic Sub sort(a() As Integer)Dim n%, p%, k As Integern = UBound(a)For i = 1 To n - 1p = iFor j = i + 1 To nIf a(j) < a(p) Then p = jNext jIf p <> i ThenMin = a(i)a(i) = a(p)a(p) = MinEnd IfNext iEnd Sub6.Public Sub gys(m%, n%)Dim r%, t%If m <> 0 And n <> 0 ThenIf m < n Thent = m: m = n: n = tEnd Ifr = m Mod nDo While r <> 0m = nn = rr = m Mod nLoopEnd IfEnd Sub7.Public Sub ws(n%, s%)Dim k%, i%For i = 1 To n - 1If n Mod i = 0 Then s = s + iNext iEnd SubPrivate Sub Form_click()Dim m%, sum%, c$For m = 1 To 999sum = 0Call ws(m, sum)If sum = m Then c = c & sum & " " Next mMsgBox cEnd Sub8.Public Function ef(a(), k%, wz%) As Integer Dim i%, low%, mid%, top%low = LBound(a)top = UBound(a)Do While low <= topmid = (low + top) / 2If k > a(mid) Thenlow = mid + 1ElseIf k = a(mid) Thenwz = midExit FunctionElsetop = mid - 1End IfLoopwz = -1End Function9.Function MaxGY(x As Integer, y As Integer) Dim Temp As IntegerTemp = x Mod yIf Temp = 0 ThenMaxGY = yElseMaxGY = MaxGY(y, Temp)End IfEnd FunctionPrivate Sub Form_click()Dim m%, n%m = Val(InputBox("请输入第一个整数："))n = Val(InputBox("请输入第二个整数：")) Print "最大公约数是:"; MaxGY(m, n)End Sub10. Function Ss(n%)If n = 1 ThenSs = 10ElseSs = Ss(n - 1) + 2End IfEnd FunctionPrivate Sub Form_click()Dim r%, x%r = 5x = Ss(5)Print "第5个小孩的岁数为:"; xEnd Sub第七章应用程序界面设计一、选择题BCDCA CDBBD CADAA CADBD DAAAB CAA二、填空题1.form1.show unload form12.form2.show form1.hide3.属性方法事件4、工程属性工程属性5．子窗体主窗体6、keypress list(i) additem7.0 list1.listindex list1.listcount-18、1000 true time() 9、AA10、下拉式组合框、简单组合框和下拉式列表框第八章VB图形操作一、选择题DCCDA CDAAA BABBC CAAA二、填空题1、不会也不会 2.、Scaleheight Scalewidth3、(300,-150)4、右上5、twip6、0~157、B 8、-2π~09、逆10、drawwidth11、右上12、move13、cls 14、坐标原点、坐标度量单位、坐标轴的长度与方向15、VB程序设计vbprogramming三、编程题1、Private Sub Command1_Click()Const pi = 3.14159P1.Circle (Val(Text1), Val(Text2)), Val(Text3)End SubPrivate Sub Command2_Click()P1.ClsText1 = ""Text2 = ""Text3 = ""End Sub2、Private Sub Form_Load()Pic1.Picture = LoadPicture("F:\VB程序设计\上课课件\tea.jpg")End SubPrivate Sub Pic1_Click()Pic2.Picture = Pic1.PicturePic1.Picture = LoadPicture("")End Sub3、Dim a1!, b1!Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) a1 = Xb1 = YEnd SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Circle (a1, b1), Sqr((a1 - X) ^ 2 + (b1 - Y) ^ 2)End Sub4、Dim a1!, b1!Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Thena1 = Xb1 = YEnd IfEnd SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 ThenLine (a1, b1)-(X, Y), vbGreen, BFEnd IfEnd Sub5、Private Sub Form_Click()Scale (-200, 200)-(200, -200)Dim i!For i = 0 To 140 Step 20Line (-i - 10, i + 10)-(i + 10, -i - 10), , BNext iEnd Sub第9章vb文件操作一、选择题BDDCC BBAAB二、填空题1、驱动器列表框、目录列表框和文件列表框2、change 3\file1.path=dir1.path4、name “D:\old.doc” as “c:\new.doc”5、dir1.path=drive1.drive file1.path=dir1.path6、filecopy “d:\text.doc”,”e:\text.doc”7、eof 8、input not eof(1)9、for inputFor outputnot eof(1)str1Close #110、pattern 11、空12、字节。
VB课后习题答案
第1章参考答案1．选择题（1）B （2）B2．综合题（1）属性有：蓝色、带有纹路；方法有：踢、按住；事件有：滚动、静止。
（2）VB应用程序开发的一般步骤有：①创建用户界面；②设置对象的属性；③编写代码；④程序运行与调试；⑤保存与编译。
第2章参考答案1．选择题（1）A （2）C （3）D （4）B （5）A （6）C2．操作题Private Sub Command1_Click()Label1.Caption = Text1.TextEnd SubPrivate Sub Command2_Click()Label1.Caption = ""Text1.Text = ""End SubPrivate Sub Form_Load()Label1.Caption = ""Text1.PasswordChar = "$"End Sub第3章参考答案1．选择题(1)B、C 分析：(B)3Acd 以数字开头；(C)IF是VB的关键字(2)B 分析：逻辑常量的值只有两个True和False，特别注意”false”是字符串常量。
(3)C 分析：VB表达式不区分大小写。
(4)C 分析：Long是长整型，Byte是字节型，Interge是整型。
2．综合题(1) a = Int(Rnd * (100)) 分析：产生一个区间在[m,n]之间的随机整数,其表达式为Int(Rnd*(n-m+1)+m)(2) Int(X*100+0.5)/100 分析：Int(X*100+0.5)的作用是将X扩大100倍后，第三位小数小于0.5，则舍掉，大于0.5，则产生进位，取整后就是四舍五入的作用，再除以100，是还原为原值。
(3)Private Sub Command1_Click()a = Int(99 * Rnd + 1)b = Int(99 * Rnd + 1)Label1.Caption = a & "+" & b & "=?"End Sub(4) ①False ②True ③8 Mod 3+3^3/4\5（有改动）答案：3第4章参考答案1．填空(1)T F (2)F (3) HEIGHT>160 AND HEIGHT<165 END IF(4)SCORE>60、LblSc.caption=、ELSE、LblSc.caption=、ENDIF (5)EXIT(6)21 (7)16 (8) 0 、1 、>100 、Total+Num、Num+22．程序设计题（略）第5章章参考答案1．选择C CD B D D B C C A B A C B B2．操作题（1）实现多中选一的功能，通过用图片框和框架来实现单选按钮的分组，方法是，选中图片框或框架后，再在里面绘制单选按钮，另一种方法是将绘制好单选按钮剪切粘贴到图片框或框架中。
VB课后答案 2
第1章一、选择题1-5 CCDBA 6-10ABCDB二、填空题1.bas2.工具栏3属性窗口4.工具栏5.设计状态，运行状态，中断状态三、简答题略四、编程题控件属性属性值FormNameForm1TextBoxNameText1Text1空白CommandButtonNameCommand1Caption确定Private Sub Command1_Click()Command1.Caption = Text1.TextEnd Sub第2章一、选择题1-5 CBDDC 6-10 AAAAC11-14 BBBD二、填空题1. Text1.Text = "Hello!"或Text1= "Hello!" 2．Width 、Height3．Ctrl4. ABCD、Visual Basic5. 123321第3章一、选择题1-5ABDCA 6-10CBCB C 11-15BBBCC 二、根据要求写出表达式1．Int(100*Rnd+1)2．x>10 And x<503．x mod 4=0 Or x mod 13=04．Chr(Int(25*Rnd+65))三、写出下列函数的值1．Int(–3.14159)=-42．Sqr(Sqr(16))=23．Fix(–3.1415926)=-34．Int(Abs(99–100)/2)=05．Sgn(7*3+2)=16．Format(2.3, "##.000")=2.3007．Left("Hello",2)=”He”8．Val("16 Year")=169．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事件代码如下：Private Sub Text1_Change()Text2.Text = LCase(Text1.Text)End Sub2．界面设计如图：设置计时器的interval属性值为1000，Timer1的Timer 事件代码如下：Private Sub Timer1_Timer()Text1.Text = TimeEnd Sub第4章一、选择题1-5 DBCCA 6 C二、填空题1.输入字符型val2.Msgbox “是否显示数据”,vbOkCancle+vbQuestion,”提示”3.3445******************三、编程题略第5章一、选择题1-5 DADCDB二、程序填空1．Inputbox 、is<1 、x^3+10*x+2 、-x y=x3+7x2+10 1≤x≤6x+10 x>6-x-5 x<1y=x3+7x2+10 1≤x≤6x+10 x>6-x-5 x<12．3．Rnd 、1 、x mod 5=04．Val(text1.text) 、x mod 2=0 、"奇数" 、End If 三、编程题1．代码如下：Private Sub form_Click()Dim x As Singlex = Val(InputBox("请输入任意一个实数："))If x < 0 ThenPrint "概数是负数"ElseIf x = 0 ThenPrint "概数是零"ElsePrint "概数是正数"End IfEnd Sub2．代码如下：Private Sub form_Click()Dim x As Single, y As Singlex = val(InputBox("请输入x的值:"))If x < 0 Theny = x ^ 4 + 10ElseIf x < 10 Theny = x ^ 2 - 10ElseIf x < 20 Theny = 5 * x + 8Elsey = x / 2 + 1End IfMsgBox "当x的值为："& x &"时，函数值y为："& y End Sub3．运行界面如下：代码如下：Private Sub Command1_Click()Dim x As Single, y As Singlex = Val(Text1.Text)If x < 100 Theny = xElseIf x < 200 Theny = x * 0.95ElseIf x < 300 Theny = x * 0.9Elsey = x * 0.8End IfText2.Text = yEnd Sub4．运行界面如下：代码如下：Private Sub Command1_Click()Dim x As Single, y As Singlex = Val(Text1.Text)If x <= 3 Theny = 8Elsey = (x - 3) * 1.6 + 8End IfText2.Text = yEnd Sub第6章习题答案一、选择题1-5 ABDAB 6-7 CB 二、填空题1．Do……Loop 、While……Wend 、For……Next2．7 153．54．For……Next While……Wend 5．5.6 56．15 4 07．Next j print三、编程题1．（1）代码如下：Private Sub Form_Click()For i = 1 To 5For j = 1 To iPrint "*";Next jPrintNext iEnd Sub（2）代码如下：Private Sub Form_Click()For i = 1 To 5Print Tab(6 - i);For j = 1 To iPrint "*";Next jPrintNext iEnd Sub（3）代码如下：Private Sub Form_Click()For i = 1 To 5For j = 1 To 6 - iPrint "*";Next jPrintNext iEnd Sub（4）代码如下：Private Sub Form_Click()For i = 1 To 5Print Tab(i);For j = 1 To 6 - iPrint "*";Next jPrintNext iEnd Sub2. 输入若干个字符，分别统计其中英文字母、数字、其他字符各有多少个。
最新VB程序设计课后习题答案资料
VB课后习题解答第一、二章:1、简述VB6.0的主要特点答：方便、直观的可视化设计工具；面向对象程序设计方法；事件驱动的编程机制；易学易用的应用程序集成开发环境；结构化程序设计语言；完备的联机帮助功能；强大的多媒体、数据库和网络功能。
2、当正常安装VB6.0后，误把Windows子目录删除。
当重新安装Windows后，是否需要再次安装VB6.0 ？答：要重新安装的。
因为安装VB6.0时，有些VB程序被系统自动安装在Windows目录下，所以一旦删除Windows子目录，就必须重新安装VB6.0。
3、Visual Basic 6.0分为学习版、专业版和企业版，如何知道所安装的是哪个版本？答：在VB6.0的启动界面上，能显示对应的版本。
4、叙述建立一个完整应用程序的过程答：首先建立用户界面的控件对象（简称控件）；然后对控件属性进行设置；再对控件事件过程及编程；保存应用程序；程序调试和运行。
5、Visual Basic 6.0有多种类型窗口，若要在设计时看到代码窗口，应怎样操作？答：选择“视图”一＞“代码窗口”命令或单击“工程资源管理器”窗口中的“查看代码”按钮。
6、当建立好一个简单的应用程序后，假定该工程仅有一个窗体模块。
试问该工程涉及多少个要保存的文件？若要保存该工程的所有文件，应先保存什么文件？再保存什么文件？若不这样做，系统会出现什么信息？答：涉及两个文件要保存。
先保存窗体文件（.frm），再保存工程文件（.vbp）。
若先保存工程文件，系统也会先弹出“文件另存为”对话框，要求先保存窗体文件。
7、保存文件时，若不改变目录名，则系统默认的目录是什么？答：系统默认的目录是VB98& 安装Visual Basic 6.0后，帮助系统是否也已安装？答：没有。
VB6.0的帮助系统在两张光盘上，即MSDN Library，其中还包含了VC、VFP等其他语言的帮助系统。
9、如何使用Visual Basic 6.0的帮助系统？答：最方便的方法是选定要帮助的内容，然后按F1功能键，这时系统打开MSDN Library查阅器，直接显示与选定内容有关的帮助信息。
visual basic 程序设计课后习题参考答案
Visual basic 程序设计习题参考答案第一章Visual basic 程序设计一、选择题二、填空题三、简答题1、简述visual basic 的特点。
（1）具有可视化的设计平台（2）面向对象的设计方法（3）事件驱动的编程机制（4）结构化程序设计语言（5）开放的数据库功能与网络支持2、什么是对象、类、属性、事件和方法？在可视化编程语言中，对象是代码和数据的集合，它可以是窗体和控件，也可以是菜单和数据库等。
描述一个对象有三个基本要素：属性、方法和事件。
类是一组用来定义对象的相关过程和数据的集合，即同类对象的集合和抽象。
属性是描述对象的一组特性。
方法是对象能够执行的动作，它是对象本身内含的函数或过程，用于完成某种特定的功能。
事件是发生在对象上并且能够被对象识别的动作，即由系统预先设置好的、能被对象识别的动作，如Click(单击)、DblClick(双击)、Load(窗体的装载)、KeyPress(按键)、Change(改变)、MouseMove (鼠标的移动)等，每一种对象能识别的事件是不同的5、什么是事件驱动的编程机制？当某个事件(一般由用户操作来触发) 发生时，系统就会自动执行此事件的事件过程。
由事件控制整个程序的执行流程。
事件过程要经过事件的触发才能被执行，这种工作模式称为事件驱动方式。
第二章Visual basic 程序设计基础一、选择题二、填空题第三章数据输入输出一、选择题二、填空题3第四章选择结构和循环结构程序设计一、选择题二、填空题第五章数组一、选择题二、填空题第六章过程一、选择题二、填空题三、简答题1、简述事件过程和通用过程的含义和联系。
5VB应用程序是由过程组成的，过程是完成某种特殊功能的一组独立的程序代码。
VB中的过程有两大类：事件过程和通用过程事件过程是当发生某个事件时，对该事件作出响应的程序段。
事件过程由VB自行声明，用户不能增加或删除。
事件过程是VB 应用程序的主体。
vb书本习题参考答案
参考答案第1章概述二．选择题：1.C2. B.3.C.4.C.5.A6.C7.D8.B9.B 10.B11.A12.C 13.D 14.C 15.D16.A17.C 18.A19.A20.D 21.B三．填空题：1.面向对象，事件驱动2.编译，解释3.设计，运行，中断4.F55.调试6.切换文件夹四．编程及上机调试：1．略2．Sub Form_Click( )Label1.Caption = “你单击了窗体”End SubSub Form_DblClick( )Label1.Caption = “你双击了窗体”End Sub第2章面向对象编程基础二．选择题：1.C2. C.3.B.4.B.5.D6.D7.B8.B9.C 10.D11.B 12.B 13.B 14.C 15.A16.B 17.B 18.B 19.C 20.B三．填空题：1.窗体，控件2.属性，事件，方法mand2_click4.picture5.中部，代码四．编程及上机调试：1．Private Sub Command1_Click()Form1.WindowState = 2End SubPrivate Sub Command2_Click()Form1.WindowState = 0End SubPrivate Sub Command3_Click()Form1.WindowState = 1End Sub2．Private Sub Command1_Click()Form1.Picture = LoadPicture("d:\picture\flower.wmf")Command1.V isible = FalseCommand2.V isible = FalseEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_DblClick()Form1.Picture = LoadPicture("")Command1.V isible = TrueCommand2.V isible = TrueEnd Sub第3章常用标准控件二．选择题：1.C2. B3.C.4.D5.B6.B7.A8.C9.B 10.C11.C 12.A13.C 14.B 15.D16.D 17.C 18.A19.D 20.A21.B三．编程及上机调试：1.Private Sub Check1_Click()If Check1.V alue = 1 ThenText1.FontBold = TrueElseText1.FontBold = FalseEnd IfEnd SubPrivate Sub Check2_Click()If Check2.V alue = 1 ThenText1.FontItalic = TrueElseText1.FontItalic = FalseEnd IfEnd SubPrivate Sub Check3_Click()If Check1.V alue = 1 ThenText1.FontUnderline = TrueElseText1.FontUnderline = FalseEnd IfEnd SubPrivate Sub Command1_Click()Text1.Text = " "End Sub2.Private Sub Command1_Click()Text2.Text = List1.ListCountEnd SubPrivate Sub Command2_Click()List1.AddItem Text1.TextText1.Text = " "End SubPrivate Sub Command3_Click()Dim i As Integeri = List1.ListIndexList1.RemoveItem iCommand3.Enabled = FalseText1.SetFocusText2.Text = List1.ListCountEnd SubPrivate Sub Form_Load()Command3.Enabled = FalseEnd SubPrivate Sub List1_Click()Command3.Enabled = TrueEnd Sub第4章VB语言基础二．选择题：1.A2. D3.D.4.A5.A6.A7.C8.D9.C 10.B11.A 12.D 13.C 14.A15.A16.C 17.D 18.A19.B 20.D21.C 22.A23.B 24.C 25.C三．编程及上机调试：1．Private Sub Form_Load()Dim x As Integer, s As String, d As IntegerRandomizex = Int(Rnd * 9000 + 1000)s = Trim(CStr(x))d = V al(Right(s, 1) + Mid(s, 3, 1) + Mid(s, 2, 1) + Left(s, 1))ShowPrint "产生的数；"; x; "倒序数"; dEnd Sub2．Private Sub Form_KeyPress(KeyAscii As Integer)Print "输入字符:"; Chr(KeyAscii), "ASCII码为:"; KeyAsciiEnd SubPrivate Sub Form_DblClick()ClsEnd Sub3．Private Sub Form_Click()MsgBox "在这里显示提示" & vbCrLf & "提示信息", 2 + 16, "请确认"End Sub或Private Sub Form_Click()MsgBox "在这里显示提示" + Chr(13) + "提示信息", vbAbortRetryIgnore _ + vbCritical, "请确认"End Sub第5章程序控制结构二．单选题1.D2. C3.C.4.D.5.B6.C7.A8.A9.D 10.C11.C 12.C 13.B 14.B四．编程及上机调试1. Private Sub Form_Click()Dim x As Integer, y As Integerx = InputBox("请输入一个数值")If x > 20 Theny = x ^ 2 + 3 * x + 2ElseIf x >= 10 Theny = Sqr(3 * x) - 2ElseIf x > 0 Theny = 1 / x + Abs(x)End IfPrint "x="; x, "y="; yEnd Sub（2）Select Case实现：Private Sub Form_Click()Dim x As Integer, y As Integerx = InputBox("请输入一个数值")Select Case xCase Is > 20y = x ^ 2 + 3 * x + 2Case Is >=10y = Sqr(3 * x) - 2Case Is > 0y = 1 / x + Abs(x)End SelectPrint "x="; x, "y="; yEnd Sub2.Private Sub Form_Click()Dim a As Integer, b As Integer, c As IntegerFor i = 100 To 999a = i \ 100b = (i - a * 100) \ 10c = i Mod 10If a ^ 3 + b ^ 3 + c ^ 3 = i ThenPrint i;k = k + 1If k Mod 2 = 0 Then PrintEnd IfNext iEnd Sub3．Private Sub Command1_Click()p = 60: r = 0.014Dop = p * (1 + r)n = n + 1Loop Until p >= 70Print n; "年后世界人口达到"; p; "亿"End Sub4．Private Sub Command1_Click()Dim s As Single, x As Integer, t As Single, n As Integer x = V al(InputBox("请输入x的值", , 2))s = 1n = 1m = 1Don = n + 1m = -mt = m * n / x ^ (n - 1)If Abs(t) < 0.00001 Then Exit Dos = s + tLoop Print s End Sub。
VB 课后习题参考答案
第1章 习题参考答案一、思考题 略二、选择题1. C2. B第2章 习题参考答案一、判断题二、填空题1． 窗体font2． 不能在代码中设置 3． selstart 4． Locked5． TabIndex 、 0 6． vbModal 或 17． Activate 、 Deactivate 8．PictureBox 和 Frame -三、选择题第3章 习题参考答案一、思考题1、double2、 xyC@abc ， 15eyd ， Is ， #END X8[P]3、变量有 (1) (4) (6) (8)，常量有 (2)字符串型 (3)逻辑型 (5)字符串型 (7)字符串型 (9)日期型 (10)实型 4、 fe d cb a++5、 (1) 26 (2) 3.75 (3) 36、写出下列Visual Basic 表达式的值：(1) False (2) True (3) True (4) False (5) True(6) True (7) False (8) False7、将下列命题用Visual Basic布尔表达式表示：(1) z>x and z>y (2) abs(a)<=abs(b+2) or a > b+2(3) p mod q=0 (4) x<-5 or x>-2 and x<2 or x>5(5) x<z and y>z or x>z and y<z (6) a<b and a mod 2=08、写出下列函数的值：(1) -4 (2) 换行符(3) –3 (4) -1 (5) hello(6) ello (7) 16 (8) “-459.65” (9) 5二、填空题1．整型、长整型、双精度型、双精度型2．(X mod 10)*10+X\103．sin(1/4*3.14)+sqr(x+2*exp(y))/abs(x-y)4．(a+b)/(c*d-sqr(1-a^2))5．x mod 5=0 or x mod 9=06．False7．-3 、 2 、-2 、 28．CDEF9．x>0 and y>0 or x<0 and y<0 或x*y>010．s>=”A” and s<=”Z” or s>=”a” and s<=”z”三、选择题四、编程题1、Private Sub Form_Click()Dim x%, Ten%, hundred%x = Val(Text1.Text)Ten = (x \ 10) Mod 10hundred = x \ 100Print "百位数是: " & hundredPrint "十位数是: " & TenEnd Sub2Private Sub Form_Click()Dim char As String * 1Form1.CurrentX = Rnd * Form1.ScaleWidthForm1.CurrentY = Rnd * Form1.ScaleHeightchar = Chr(Int(Rnd * 16) + 65)Print charEnd Sub第4章习题参考答案一、判断题二、选择题三、程序阅读写出下列各段程序执行后的输出结果。
VB书课后题答案 第2、3、6章习题
8lsb2.6 习题p411. 下列都属于Visual 数据类型的是___________。
A.Short、Int、Long、Single、DoubleB.Short、Integer、Long、Float、DoubleC.Integer、Long、Single、Double、DecimalD.Boolean、Byte、Bit、Decimal、Date2. 以下定义常量不正确的语句是____________。
A.Const Num as Integer=10B.Const Num as Long=23.4，Str$=""C.Const Str$=""D.Const Str$=# #3. 使用数值类型数据时，系统有时为什么会提示“溢出”错误？4. 什么是变量的隐式声明和显示声明？5. 根据条件写出相应的表达式。
（1）产生“A”~“Z”范围内的一个字符。
Int(rnd()*26+65)（2）产生150~268（包括150和268）范围内的一个正整数。
Int(rnd()*119+150)（3）产生100~999范围内的一个正整数，并判断是否能整除5和7。
X=int(rnd()*900+100)If x mod 5 And x mod 7 thenMsgBox( x & “能被5 和7 整除”)ElseMsgBox( x & “不能被5 和7 整除”)Endif（4）将任意一个2位数的个位与十位分离。
P30（5）产生“a”~“n”范围内的一个小写字母，并转换为大写字母。
Ucase(Chr(Int(Rnd()*14+97)))（6）将一个字符串中去掉左右的空格，再将首字母和末尾字母一起构成一个新的字符串。
（7）表示年龄age在15~30岁之间的女生。
Age >=15 And age<=30 And 性别=”女”6. 编写程序，将系统当前的时间和日期通过Label控件显示。
VB课本习题答案第二章
第2章基本数据类型与表达式2．1 填空题1．在程序设计语言系统中具有固定语法含义的符号串称为（关键字），它们通常用来表示系统提供的标准过程、函数、运算符、常量等。
2．（标识符）用于标记用户自定义的常量、类型、变量、控件、过程、函数等名字。
3．整型数据占（ 2 ）字节的内存空间。
长整型数据占（ 4 ）个字节的内存空间。
单精度浮点型数据占（ 4 ）个字节的内存空间。
双精度浮点型数据占（ 8 ）个字节的内存空间。
日期型数据占（ 8 ）个字节的内存空间。
4．100% 表示100为（整）型数据；100！表示100为（单精度浮点）型数据；100＠表示100为( 货币 )型数据。
6符号常量在某一过程中说明，则该符号常量只能在（该过程内）内有效。
6．若一个整型变量说明了之后没有给它赋值，则它的值为（ 0 ）。
7．在VB中可以把类型说明符放在变量名的（末尾）来说明变量的类型。
8．为使VB的编译程序自动检查变量声明，遇到未经说明的标识符发出错误警告信息，在程序中要加上（ Option Explicit ）语句。
9．对含有多种运算的表达式，各种运算之间的顺序为（函数运算）→（算术运算）→（关系运算）→（逻辑运算）。
10．把1234.567的小数部分四舍五入转换为整数，可使用函数（ Cint(1234.567) ）。
11．将x四舍五入到百位（例如，若x=23874.52应舍入成23900），可使用表达式（ Int(x / 100 + 0.5) * 100 ）。
12．将x从十位截断（例如，x=23874.52应截成23800）可使用表达式（ Fix(x / 100) * 100或者Int(x/100)*100或者Cint(x\100)*100 ）。
13．设X为数值变量，求X的常用对数可使用的表达式是（ Log(X)/Log(10) ）。
14．要从字符串“Visual BASIC 6.0”中截取子字符串“BASIC”可使用函数（ Mid(“Visual BASIC 6.0”,8,5) ）15．设S是字符串变量，并且串长度为7，写出生成由S的偶数序号字符组成的字符串的表达式（例如，把字符串”ABCDEFG”变成“BDF”）。
VB程序设计课后习题答案
VB课后习题解答第一、二章：1、简述VB6.0的主要特点答：方便、直观的可视化设计工具;面向对象程序设计方法；事件驱动的编程机制；易学易用的应用程序集成开发环境;结构化程序设计语言;完备的联机帮助功能；强大的多媒体、数据库和网络功能。
2、当正常安装VB6。
0后,误把Windows子目录删除。
当重新安装Windows后,是否需要再次安装VB6。
0？答：要重新安装的。
因为安装VB6。
0时，有些VB程序被系统自动安装在Windows目录下，所以一旦删除Windows子目录，就必须重新安装VB6。
0。
3、Visual Basic 6。
0分为学习版、专业版和企业版，如何知道所安装的是哪个版本？答：在VB6.0的启动界面上,能显示对应的版本.4、叙述建立一个完整应用程序的过程答：首先建立用户界面的控件对象（简称控件);然后对控件属性进行设置；再对控件事件过程及编程;保存应用程序；程序调试和运行。
5、Visual Basic 6。
0有多种类型窗口，若要在设计时看到代码窗口，应怎样操作？答：选择“视图"—>“代码窗口”命令或单击“工程资源管理器”窗口中的“查看代码"按钮。
6、当建立好一个简单的应用程序后，假定该工程仅有一个窗体模块。
试问该工程涉及多少个要保存的文件？若要保存该工程的所有文件,应先保存什么文件？再保存什么文件？若不这样做，系统会出现什么信息？答：涉及两个文件要保存.先保存窗体文件（.frm）,再保存工程文件（.vbp）。
若先保存工程文件，系统也会先弹出“文件另存为”对话框，要求先保存窗体文件。
7、保存文件时，若不改变目录名，则系统默认的目录是什么?答：系统默认的目录是VB988、安装Visual Basic 6。
0后，帮助系统是否也已安装？答:没有。
VB6.0的帮助系统在两张光盘上，即MSDN Library，其中还包含了VC、VFP等其他语言的帮助系统。
9、如何使用Visual Basic 6.0的帮助系统？答：最方便的方法是选定要帮助的内容，然后按F1功能键，这时系统打开MSDN Library查阅器,直接显示与选定内容有关的帮助信息。
vb课后习题参考答案
vb课后习题参考答案第一章习题参考答案一、填空题1、对象事件驱动2、编译运行模式解释运行模式二、简答题1、简述VB的特点。
答：①可视化的程序设计方法②面向对象的程序设计思想③事件驱动的编程机制④结构化的程序设计语言⑤高度的可扩充性⑥强大的数据库访问能力⑦支持动态数据交换⑧支持对象链接与嵌入2、简述VB的安装过程。
答：①向光驱中放入VB安装光盘；②计算机将运行自动安装程序，若没有，执行VB目录下的Setup.exe；③根据提示逐一回答问题，并点击“下一步”；④点击“完成”；2、如何启动VB。
答：三种方法：①单击“开始”按钮，选择“程序”菜单下的“Microsoft Visual Basic 6.0 中文版”菜单项并单击；②双击桌面上的VB6.0快捷图标；③在“开始”菜单的运行对话框中输入命令来启动VB；第二章习题参考答案一、选择题：1-10、DCACD BCBBC11-20、BADCA BBAAB21-29、AACBB CDDC二、填空题1．窗体、控件2．属性值3．属性窗口设置、代码窗口设置4．事件过程5．对象名、下划线、事件名6．Form_Click第三章习题参考答案一、选择题1、B2、C3、A4、B5、A6、C7、C二、填空题1、11字符型、字节型、整型、长整型、单精度型、双精度型、货币型、逻辑型、日期型、对象型、变体型。
String、Byte、Integer、Long、Single、Double、Currency、Boolean、Date、Object、Variant2、双引号(英文)、#3、ASCII、1、25、&、+、+6、Now()、Time、日期型三、解答题1、(3)2、(1 )3、（1）常量（关键字）（2）字符型常量（3）逻辑型常量（4）变量（5）字符串常量（6）变量（7）字符串常量（8）变量（9）日期型常量（题目应是#11/16/1999#）（10）数值型常量（单精度）4、315、（1）(1+y/x)/(1-y/x) （2）x^3+3*x*y/(2-y)（3）sqr(abs(a*b-c^3)) （4）sqr(s*(s-a)*(s-b)*(s-c))6、7、（1）13 （2）17（3）#1999-11-12# （4）zxy123ABC8、（1）19 （2）8.16666666666667（3）5．25 （4）29、（1）-4 （2）2 . 82842712474619 （3）-3 （4）49 （5）”hello” （6）He7）16 （8）“-459.65” （9）510、（4）11、（2）12、（4）第四章习题参考答案一、选择题：1—7: DAABBCD二、填空题1．500.00%2．将字号扩大为原来的二倍3． B三、编程题（略）1．文本框、标签和命令按钮的名称分别为text1、label1、command1Private Sub Command1_Click()Label1.caption=text1.textCommand1.caption=text1.textEnd Sub2．单价、数量、折扣和应付款对应的文本框的名称分别为：text1、text2、text3和text4，计算和清除命令按钮的名称分别为：command1和command2。
VB第二、三章习题答案
第一章课后习题一、选择题1. VB 6.0 集成开发环境中不能完成的功能是 .(A) 输入编辑源程序 (B)编译生成可执行程序(C) 调试运行程序 (D)自动查找并改正程序中的错误2.VB 6.0是一种面向的编程环境。
（A）机器（B）对象（C）过程（D）应用3．下列关于VB编程的说法中，不正确的是。
（A）属性是描述对象特征的数据（B）事件是能被对象识别的动作（C）方法提示对象的行为（D）VB程序采用的运行机制是面向对象4．在VB中最基本的对象是，它是应用程序的基石，是其他控件的容器。
（A）文本框（B）命令按钮（C）窗体（D）标签5．有程序代码如下：Text1.text="Welcome use VB"则Text1、Text、"Welcome use VB"分别代表。
（A）对象、值、属性（B）对象、方法、属性（C）对象、属性、值（D）属性、对象、值6. 对于窗体，下面______属性在程序运行时其属性设置起作用。
（A）MaxButton （B）BorderStyle （C）Name （D）Left7. 类是对象的抽象，对象则是类的具体化。
在窗体上建立的一个控件称为______。
（A）对象（B）容器（C）实体（D）类8. 若要使标签控件显示时不覆盖其背景内容，要对______属性进行设置。
（A）BackColor （B）BorderStyle（C）ForeColor （D）BackStyle9. 用一个程序段对一对象被单击(或双击)作出响应，从而实现指定的操作，称为______。
（A）可视画化程序设计（B）事件驱动编程机制（C）过程化程序实际方法（D）非过程化程序设计语言10. 文本框没有______属性。
（A）Enabled （B）Visible （C）BackColor（D）Caption11. 不论何控件，共同具有的是______属性。
（A）Text （B）Name （C）ForeColor （D）Caption12. 要使Form1窗体的标题栏显示"欢迎使用VB"，以下______语句是正确的。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
习题
一、选择题
1. 在程序中已将变量Inta、Bl、st和D分别定义为Integer型、Boolean型、String型和Date型，下列语句中，正确的是。
A. Inta="333"+"a22"
B. D=#10/05/01#
C. st=5+"abc"
D. Bl= #True#
2. 语句Print "5*20" 输出结果是。
A. "5*20"
B. 出错
C. 5*20
D. 100
3. 下列可作为Visual Basic变量名的是。
A. a#a
B. 4a
C. ?xy
D. Consta
4.表达式6*7/8 Mod 9的值是_______。
A. 4
B. 5
C. 6
D. 7
5.将数学表达式cos2(a+b)+5e2写成Visual Basic表达式，其正确的形式是_______。
A. cos(a+b)^2+5*Exp(2)
B. cos^2(a+b)+5*Exp(2)
C. cos(a+b)^2+5*Ln(2)
D. cos^2(a+b)+5*Ln(2)
6 .数学表达式Sin25°写成VB表达式是_______。
A. Sin25
B. Sin（25）
C. Sin（25°）
D.Sin（25*3.14/180）
7. 选拔身高T超过1.7米且体重W小于62.5公斤的人，表示该条件的逻辑表达式为_______。
A. T>=1.7 And W<=62.5
B. T<=1.7 Or W>=62.5
C. T>1.7 And W<62.5
D. T>=1.7 Or W<62.5
8. 执行语句代码print format(2004.218, "##,##0.00")，以下答案中哪一个是正确的_______。
A. 2004.21
B. 2,004.21
C. 2,004.22
D. 02,004.21
9. 下面表达式的值为真的是_______。
A. Mid("Visual Basic",1,12)=Right("Programming language Visual Basic",12)
B. "ABCRG">"abcde"
C. Int(134.69)>=Round(134.69)
D. 78.9/32.77<=957/43.91 And –45.4>-4.98
10. 实现字符的Unicode编码方式与Windows编码方式相互转换的函数是。
A. str
B. strconv
C. trim
D. mid
二、填空题
1. 在VB中整型数据占 2 个字节的内存空间，双精度浮点型数据占8 个字节的内存空间。
2. 在VB中，字符串常量要用双引号括起来，日期/时间型常量要用#号括起来。
3. 表达式10\6 = 10 mod 6 的运算结果是False 。
4. a$=Lcase("Hello") a$的返回值是：hello；
b$=Ucase("Hello") b$的返回值是：HELLO。
5. 要强制显式变量声明时，需在声明段部分加入语句Option Explicit 。
6. 在VB中，用Dim X As Integer定义的变量X，系统默认值为0 。
7. 语句Print Int(12345.6789*100+0.5)/100的输出结果是：12345.68 。
8. 设有如下程序段：
a$="BeijingShanghai"
b$=Mid(a$,InStr(a$,"g")+1)
执行上面的程序段后，变量b$的值为Shanghai 。
9. Private Sub Form_Click()
Dim x As String * 5
x = "abc"
y% = 1
Print x & y
x = "abcdefg"
Print x & y
End Sub 则单击窗体，显示结果的第分别为abc 1 和abcde1 。
10. 随机产生10个100～200之间的数，求最大值。
Private Sub Command1_Click()
Max = 100
For i = 1 To 10
x = Int(Rnd() * _101____ + 100)
Print x;
If x > Max Then Max = x
Next i
Print
Print "最大值="; Max
End Sub。