vb课后习题答案
vb第三章课后习题答案
习题一、单项选择题1、设x=4，y=6，则以下不能在窗体上显示出“A=10”的语句是（）A.PrintA=x+yB. Print"A="；x+yC. Print"A="+Str(x+y)D. Print"A="&x+y2、假定有如下的命令按钮(名称为Command1)事件过程：PrivateSubCommand1_Click()x=InputBox("输入："，"输入整数")MsgBox"输入的数据是：”，，”输入数据："+xEndSub程序运行后，单击命令按钮，如果从键盘上输入整数10，则以下叙述中错误的是（）A. x的值是数值10B. 输入对话框的标题是“输入整数”C. 信息框的标题是“输入数据：10”D. 信息框中显示的是“输入的数据是：”3、有如下程序a=3;b=4PRINT b＜aEND运行后，输出的结果是( )A.4＞3B.-1C.0D.显示出错信息4、在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。
程序运行以后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。
以下能实现上述操作的事件过程是（）A. Private Sub Text1_Change()B. Private Sub Command1_Click()Command1.Caption=”计算机等级考试”Caption=”计算机等级考试”End Sub End SubC. Private Sub Form1_Click()D. Private Sub Command1_Click()Text1.Caption=”计算机等级考试”Text1.Text=”计算机等级考试”End Sub End Sub5、假定有如下的窗体事件过程：Private Sub Form_Click()a$ = "Microsoft Visual Basic"b$ = Right(a$, 5)c = Mid(a$, 1, 9)MsgBox a$, 34, b$, c$, 5End Sub程序运行后单击窗体，则在弹出的信息框中的标题栏中显示的信息是（）A. Microsoft VisualB. MicrosoftC. BasicD. 56、窗体上放置了三个文本框，若在Text1中输入456，在Text2中输入78，在程序中执行了语句Text3=Text1+Text2后，则在Text3中显示（）A. 434B. 45678C. 溢出D. 语法错误7、执行下面的程序，单击窗体，则在窗体上显示的是（）。
vb课后思考题答案
第三章思考题答案及相关内容 1．Visual Basic 提供了哪些标准数据类型?声明类型时，其类型关键字分别是什么?其类型符又是什么? 表 1.3.1 Visual Basic 的数据类型 数据类型 字节型 逻辑型 整型 长整型 单精度型 关键字 Byte Boolean Integer Long Single 类型符 无 无 ％ & ! 前缀 byt bin int lng sng 占字节数 1 2 2 4 4 0～255 True 与 False -32768 到 32767 -2，147，483，648～2，147，483，647 负数：-3.402823E38～-1.401298E-45 正数： 1.401298E-45～3.402823E38 双精度型 Double # dbl 8 负数：-1.79769313486232D308～ -4.94065645841247D-324 正数：4.94065645841247D-324～ 1.79769313486232D308 货币型 Currency @ cur 8 -922，337，203，685，477.5808～922，337， 203，685，477.5807 日期型 字符型 对象型 变体型 Date(time) String Object Variant 无 $ 无 无 dtm str obj vnt 8 字符串长有关 4 根据需要分配 01，01,100～12，31，9999 0～65535 个字符 任何对象引用 范 围2．哪种数据类型需要的内存容量最少，且可存储诸如 3.2345 这样的值? 答：单精度数据类型。
3．在 Form1 窗体通用声明部分声明的变量，可否在 Form2 窗体中的过程被访问? 4．为了使某变量在所有的窗体中都能使用，应在何处声明该变量? 5．在同一模块、不同过程中声明的相同变量名，两者是否表示同一个变量?有没有联系? 表 1.3.22 作用范围 不同作用范围的 2 种过程定义及调用规则 模 窗体 过程名前加 Private 例：Private Sub Mysubl(形参表) 能 能 块 级 标准模块 窗体 过程名前加 Public 或缺省 例：[Public] Sub My2(形参表) 能 能，但必须在过程 不能 不能 Call 窗 体 能 能，但过程名必须唯一， 例 :Call 标 准 模 块 全 局 级 标准模块定义方式 能否被本模块 其他过程调用 能否被本应用 程序其他模块 调用名前加窗体名， 例： 否 则 要 加 标 准 模 块 名 ， 名.My2(实参表) 名.My2(实参表)局部变量：指在过程内用 dim 语句声明的变量(或不加声明直接使用的变量)，只能在本过程中使用的变量，别的过程不可访问。
大学VB课后习题参考答案
习题1一.单项选择题（要求在四个备选答案中选出一个正确答案）1．Visual Basic是一种（ D ）的可视化程序设计语言。
A．面向机器 B．面向过程 C．面向问题 D．面向对象2.在VB中，下面被称为对象的是（ C ）A. 窗体B.控件C. 窗体和控件D. 窗体、控件、属性3．以下说法正确的是（ A ）A.对象的可见性可设为1或0B.标题的属性值可设为任何文本C.如果属性的值不设置，默认为空D.属性窗口中属性只能按字母顺序排列4．为了在属性窗口中设置窗体的属性，预先要执行的操作是（ A ）。
A．单击窗体上没有控件对象的地方 B．单击任一个控件对象C．双击任一个控件对象 D．双击窗体上没有控件对象的地方5．要设置窗体上各控件的属性，可在（ C ）中进行。
A．窗体布局窗口 B．工程资源管理器窗口C．属性窗口 D．窗体窗口6．在代码窗口中，当从对象框中选定了某一对象后，在（ A ）中会列出适用该对象的事件。
A．过程框 B．属性窗口 C．工具箱 D．工具栏7．创建一个简单的应用程序，该程序只有一个窗体，则该工程至少有（ B ）个文件需要保存。
A．1 B．2 C．3 D．48．程序运行中用鼠标双击当前窗体时，会触发窗体的（ C ）事件。
A．Load B．Unload C．DblClick D．KeyPress9．在Visual Basic 6.0集成开发环境中，可以（ D ）。
A．编辑、调试、运行程序，但不能生成可执行程序B．编辑、运行程序，生成可执行程序，但不能调试程序C．编辑、调试程序，生成可执行程序，但不能运行程序D．编辑、调试、运行程序，并能生成可执行程序10．以下叙述正确的是（ C ）。
A．用属性窗口只能设置窗体的属性B．用属性窗口只能设置工具箱中标准控件的属性C．用属性窗口可以设置窗体和控件的属性D．用属性窗口可以设置任何对象的属性11.在VB程序运行期间，若改变窗体大小，则自动触发的窗体事件是（ B ）A. ClickB. ResizeC. LoadD. Unload12.以下为窗体文件扩展名的是（ C ）A. .basB. .clsC. .frmD. .ers13.能确定控件尺寸的是（ A ）A.Width和HeightB.Top和LeftC. Width或HeightD.Top或Left二. 多项选择题（要求在五个备选答案中选出多个正确答案）1．下列论述中，正确的是（ ACDE ）。
VB程序设计教程课后参考答案概要
VB程序设计教程课后参考答案习题一一、填空题1．对象、事件驱动2．窗体、控件3．属性4．属性窗口、编程设置5．事件过程6．对象名、下划线、事件名7．Form_click8．Print form1.print “我的VB”9．主窗口、属性、工具箱、代码、窗体、工程资源管理10．菜单、快捷键二、选择题1．C 2. A 3. B 4. B 5. D 6. B C 7. A 三、简答题（略）习题二一、选择题1. D2. C3. C4. B5. C6. B7. C8. B 9. A 10. B 11. B 12. C 13. D 14. B15. A 16. A 17. A 18. A 19. B 20. C 21. A22. B 23. B 24. A 25. C 26. A 27. B 28. B29. C 30. B 31. D 32. D 33. C二、填空题1．Controlbox、Maxbutton、Minbutton2．Multiline TRUE3．******4．单文档界面（SDI）多文档界面（MDI）5．窗体显示6．Passwordchar7．_change()三、编程题（略）习题三一、基础知识题（略）二、填空题1．整型、长整型、单精度、双精度2．(x mod 10)*10+x\103．Sin(3.14*15/180)+sqr(x+exp(3))/abs(x-y)-log(3*x)4．(a+b)/(1/(c+5)-c*d/2)5．X mod 5=0 or x mod 9=06．False7．-4、3、－3、3、－4、48．CDEF10．TRUE11．变量、属性12．‘_ :13．(略)14．“”＃15．Public、通用/模块、Dim、static、private16．+ 、&、+17．Now() 、time()、日期18．Inputbox()、字符串、val()19．Msgbox()三、选择题1．B 2. C 3. A 4. B D此题有误 5. B 6. A7. D 8. B 9. B 10. C 11. D 12. B13. C 14. B 15. A 16. C 17.A 18. D19. A 20. D 21. A 22. C 23. C 24. D25. A 26. D 27. D 28. B 29. C 30. B31. C 32. B 33. C D此题有误34. C 35. A36. D 37. C 38. A 39. B 40. A 41. C42. C 43. D 44. C 45. D 46. A四、编程题1.Option ExplicitPrivate Sub Command1_Click()Dim a%, b%, c%, delta%Dim x1#, x2#, x#a = Val(InputBox("please input data to a:", "info", 1))b = Val(InputBox("please input data to b:", "info", 1))c = Val(InputBox("please input data to c:", "info", 1))If a = 0 And b <> 0 Thenx = -c / bPrint "所构成的方程是：" & b & "x" & "+" & c & "=0"Print "该一元一次方程的根是：", xEnd IfIf a = 0 And b = 0 ThenPrint "很抱歉，不能构成合法的方程！"End IfIf a <> 0 Thendelta = b * b - 4 * a * cIf delta >= 0 Thenx1 = (-b + Sqr(delta)) / (2 * a)x2 = (-b - Sqr(delta)) / (2 * a)Print "所构成的方程是：" & a & "x2" & "+" & b & "x" & "+" & c & "=0"Print "该方程的根是："Print "第一个根是：", x1Print "第二个根是：", x2Else2Print "该方程有两个虚根："Print "第一个虚根是：" & -b / (2 * a) & "+" & Sqr(Abs(delta)) / (2 * a) & "i"Print "第二个虚根是：" & -b / (2 * a) & "－" & Sqr(Abs(delta)) / (2 * a) & "i" End IfEnd IfEnd Sub2.Option ExplicitPrivate Sub Command1_Click()Dim i%, s%s = 0For i = 1 To 99 Step 2s = s + iNextPrint sEnd Sub3.Option ExplicitPrivate Sub Command1_Click()Dim i%Dim s#s = 0For i = 1 To 100s = s + 1 / i * (-1) ^ (i + 1)NextPrint sEnd Sub4.Option ExplicitPrivate Sub Command1_Click()Dim i%, n%Dim t#, s#n = Val(InputBox("please input data:", "info", 5))s = 0t = 1For i = 1 To nt = t * is = s + tNextPrint sEnd Sub5.Option ExplicitPrivate Sub Command1_Click()Dim a%, b%, c%Dim p#, s#a = Val(InputBox("please input data to a:", "info", 3))b = Val(InputBox("please input data to b:", "info", 4))c = Val(InputBox("please input data to c:", "info", 5))If (a + b > c And Abs(a - b) < c) Or (a + c > b And Abs(a - c) < b) Or ((b + c) > a And Abs(b - c) < a) Thenp = (a + b + c) / 2s = Sqr(p * (p - a) * (p - b) * (p - c))Print "三角形的面积是：" & sElsePrint "很抱歉，不能构成合法的△三角形！"End IfEnd Sub6.Option ExplicitPrivate Sub Command1_Click()Dim ji%, tu%For ji = 1 To 27For tu = 1 To 27If ji * 2 + tu * 4 = 78 And ji + tu = 27 ThenPrint "鸡的个数是：" & jiPrint "兔的个数是：" & tuEnd IfNextNextEnd Sub7.Option ExplicitPrivate Sub Command1_Click()Dim i%Dim s#, t#s = 10t = 10For i = 1 To 7t = t * 0.4s = s + t * 2NextEnd Sub8.Option ExplicitPrivate Sub Command1_Click()Dim i%, fs%, max%, min%, s%Dim ave#fs = Val(InputBox("please input score:", "info", 90))s = fsmax = fsmin = fsFor i = 2 To 7fs = Val(InputBox("please input score:", "info", 90))If max < fs Thenmax = fsEnd IfIf min > fs Thenmin = fsEnd Ifs = s + fsNextave = (s - max - min) / 5Print "该运动员的平均成绩是：" & aveEnd Sub9. ‘同学们，这道题方法很多，主要考察你对选择结构的理解，我给出其中一种方法。
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教材课后习题答案
<大学程序设计基础-Visual Basic>教材课后习题答案第1章一、选择题1 2 3 4 5 6 7B D BC B B D第2章一、选择题1 2 3 4 5 6 7 8 9 10B C B C B C A A A A11 12 13 14A B A A二、填空题1.rem或’ _ ：2.“” # #3.5x2-3x-2sinA/34.3214565.300三、操作题1、程序段：Private Sub Command1_Click()Dim x As Integer, y As IntegerDim s As Long, c As Longx = Text1.Texty = Text2.Texts = x * yc = (x + y) * 2Label3.Caption = "长方形的面积为" + Str(s)Label4.Caption = "长方形的周长为" + Str(c)End Sub3、程序段：Private Sub Command1_Click()Text1.Text = "第一"End SubPrivate Sub Command2_Click()Text1.Text = "第二"End Sub4、程序代码：Private Sub Text1_Change()Text1.MaxLength = 10End Sub5、程序代码：Private Sub Text1_Click()Text1.SelStart = 0Text1.SelLength = Len(Text1.Text)End Sub第3章一、选择题1 2 3 4 5 6 7D A D B A D B二、填空题1. False2.B^2-4*a*c else三、操作题1．从键盘输入三个值，判断它们能否构成三角形的三个边。
如果能构成一个三角形，则计算三角形的面积。
VB部分课后习题答案
1. 选择题(1) 假定窗体的名称（Name属性）为Form1，则把窗体的标题设置为“VB Test”的语句为（B）。
A. Form1="VB Test"B. Caption="VB Test"C. Form1.Text="VB Test"D. ="VB Test"(2) 下列不能打开代码窗口的操作是（D）。
A．双击窗体上的某个控件B．双击窗体C．按F7键D．单击窗体或控件(3) 为了保存一个Visual Basic应用程序，应当（D）。
A．只保存窗体文件（.frm）B．分别保存工程文件和标准模块文件（.bas）C．只保存工程文件（.vbp）D．分别保存工程文件、窗体文件和标准模块文件(4) 为了装入一个Visual Basic应用程序，应当（C）。
A．只装入窗体文件（.frm）B．分别装入工程文件和标准模块文件（.bas）C．只装入工程文件（.vbp）．D分别装入工程文件、窗体文件和标准模块文件(5) 不为了使窗体的大小可以改变，必须把它的BorderStyle属性设置为（A）。
A．1 B．2 C．3 D．42. 填空题(1) 在用Visual Basic开发应用程序时，通常首先需要新建工程、其次还要经过、、、和5步。
(2) 控件和窗体的Name属性只能通过属性窗口设置，不能在运行期间设置。
(3) 代码窗口分为左右两栏，左边一栏称为对象，右边一栏称为事件。
(4) 为了在输入程序时能自动进行语法检查，必须执行菜单中的命令，打开对话框，然后选择“编辑器”选项卡中的选项。
(5) 在保存VB应用程序中，窗体文件和工程文件的扩展名分别为 .frm 和.vbp 。
(6) 为了把一个Visual Basic应用程序装入内存，只要装入工程文件即可。
(7) Visual Basic应用程序通常由3类模块组成，即、和。
(8) 在窗体上画两个文本框和一个命令按钮，然后在命令按钮的代码窗口中编写如下事件过程：Private Sub Command1_Click( )Text1.Text=“VB Programming”Text2.Text=Text1.TextText1.Text=“ABCD”End Sub程序运行后，单击命令按钮，两个文本框中显示的内容分别为ABCD 和VB Programming 。
(完整版)VB程序设计教程(第3版)课后实验完整答案
A．1Private Sub Command1_Click()Label3 = Text1End SubA．2Private Sub Form_Load()Timer1.Interval = 0End SubPrivate Sub Command1_Click() '自动Timer1.Interval = 200End SubPrivate Sub Command2_Click() '手动Timer1.Interval = 0Call MyMoveEnd SubPrivate Sub Timer1_Timer()Call MyMoveEnd SubSub MyMove()Label1.Move Label1.Left - 50If Label1.Left < 0 Then Label1.Left = Form1.Width End SubA．3Private Sub Form_Click()Text1 = Val(Text1) + 1End SubPrivate Sub Form_Load()Text1 = 0End SubA．4Private Sub Form_Click()Caption = "单击窗体，改变图片"Picture = LoadPicture(App.Path + "\n_015.bmp")Print "欢迎使用VB"End SubPrivate Sub Form_DblClick()ClsCaption = "双击窗体，卸去图片"Picture = LoadPicture("") 'End SubPrivate Sub Form_Load()Caption = "装入窗体"Picture = LoadPicture(App.Path + "\n_016.bmp")Print "装入图"End SubPrivate Sub Form_Resize() ' 该事件的作用窗体始终与图一样大'Caption = "窗体大小不变"'Form1.Width = 260 * 16 ' 260 是Tongji-2.bmp 图的宽度，象素单位'Form1.Height = 260 * 16 + 200 ' 260 是图的高度，象素单位，200 是窗体的标题栏高度End SubA．5Sub Command1_Click()Text1.FontName = "隶书"Text1.FontSize = 25End SubSub Command2_Click()Text2.Text = Text1.SelTextText2.FontName = Text1.FontNameText2.FontSize = Text1.FontSizeEnd SubB．1Private Sub Command1_Click()Text2 = Format(5 / 9 * (Val(Text1) - 32), "0.00")End SubPrivate Sub Command2_Click()Text1 = Format(9 / 5 * Val(Text2) + 32, "0.00")End Sub或Private Sub Command1_Click()Dim f!, c! ' 声明两个变量f = Val(Text1)c = 5 / 9 * (f - 32)Text2 = Format(c, "0.00") ' 保留两位小数End SubPrivate Sub Command2_Click()Dim ff!, cc! ' 声明两个变量cc = Val(Text2)ff = 9 / 5 * cc + 32Text1 = Format(ff, "0.00") ' 保留两位小数End SubB．2Label2 = Format(Val(Text1) * Val(Text1) * 3.14, "0.00") End SubPrivate Sub Command2_Click()Label3 = Format(Val(Text1) * 3.14 * 2, "0.00")End SubPrivate Sub Text1_LostFocus()If Not IsNumeric(Text1.Text) ThenMsgBox "输入有非数字字符，请重新输入", , "警告"Text1.Text = ""Text1.SetFocusEnd IfEnd Sub或Private Sub Command1_Click()Label2 = Format(Val(Text1) * Val(Text1) * 3.14, "0.00") End SubPrivate Sub Command2_Click()Label3 = Format(Val(Text1) * 3.14 * 2, "0.00")End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenIf Not IsNumeric(Text1.Text) ThenText1.Text = ""End IfEnd IfEnd SubB．3Private Sub Command1_Click()n = Int(Log(2) / Log(1.008) + 1)Label1 = n & "年后人数超过26 亿"End SubB．4Private Sub Command1_Click()Dim x, dx, cdx = Text1.Textdx = UCase(x)cd = Len(x)Print "大写字母为:"; dxPrint "字符串长度为:"; cdEnd SubB．5Text1 = Int(Rnd * 900 + 100)End SubPrivate Sub Command2_Click()Dim x%, x1%, x2%, x3%x = Val(Text1)x1 = x Mod 10 ' 分离出的个位数x2 = (x Mod 100) \ 10 ' 分离出的十位数x3 = x \ 100 ' 分离出的百位数Label1 = x1 * 100 + x2 * 10 + x3End SubB．6Private Sub Form_Click()Label1 = Left(Text1, 11)Label2 = Mid(Text1, 12, 6)Label3 = Right(Text1, 5)End SubB．7Private Sub Command1_Click()PrintFor i = 1 To 5Print Tab(15 - i * 2); String(2 * i - 1, "★"); Spc(18 - 4 * (i - 1)); String(2 * i - 1, "★")Next iEnd SubPrivate Sub Command2_Click()ClsEnd Sub进一步要求：Private Sub Command1_Click()PrintFor i = 1 To 5Print Tab(15 - i * 2); String(2 * i - 1, "★"); String(10 - (2 * i - 1), "☆"); String(2 * i - 1, "★") Next iEnd SubPrivate Sub Command2_Click()ClsEnd SubB．8Private Sub Form_Click()x = Val(InputBox("输入一正实数", "计算", 0))pf = Format(x * x, "0.000")pfg = Format(Sqr(x), "0.000")lf = Format(x * x * x, "0.000")lfg = Format(x ^ (1 / 3), "0.000")Print "平方为:"; pf; Space(5); "平方根为:"; pfg; Space(5); "立方为:"; lf; Space(5); "立方根为:"; lfgEnd SubC．1Private Sub Form_Click()Dim x!, y!x = Val(InputBox("输入x 的值"))If x < 1000 Theny = xElseIf x < 2000 Theny = 0.9 * xElseIf x < 3000 Theny = 0.8 * xElsey = 0.7 * xEnd IfPrint yEnd SubC．2Private Sub Form_Click()Dim x!, y!x = Val(InputBox("输入上网时间"))If x < 10 Theny = 30ElseIf x < 50 Theny = 30 + 2.5 * (x - 10)Elsey = 30 + 2.5 * 40 + 2 * (x - 50)End IfIf y > 150 Theny = 150End IfPrint yEnd SubC．3Private Sub Command1_Click()Dim x!, y!, z!x = InputBox("input x")y = InputBox("input y")z = InputBox("input z")Print " x y z"Print " 排序前"; x; " "; y; " "; z Ifx < y Then t = x: x = y: y = tIf x < z Then t = x: x = z: z = tIf y < z Then t = y: y = z: z = tPrint " 排序后" & x & " " & y & " " & z End SubPrivate Sub Command2_Click()Dim x!, y!, z!x = InputBox("input x")y = InputBox("input y")z = InputBox("input z")Print " x y z"Print " 排序前"; x; " "; y; " "; z Ifx < y Then t = x: x = y: y = tIf y < z Thent = y: y = z: z = tIf x < y Thent = x: x = y: y = tEnd IfEnd IfPrint " 排序后" & x & " " & y & " " & z End SubC．4Dim a(3) As IntegerPrivate Sub Command1_Click()Picture1.ClsFor i = 0 To 2a(i) = Int(Rnd * 100 + 200)Picture1.Print a(i)Next iEnd SubPrivate Sub Command2_Click()Picture2.ClsDim z As IntegerFor i = 0 To 1If a(i) > a(i + 1) Thenz = a(i + 1)a(i + 1) = a(i)a(i) = zEnd IfNext iPicture2.Print a(0)Picture2.Print a(1)Picture2.Print a(2)End SubC．5Private Sub Text2_LostFocus()Dim m%, n%, y%m = Val(Text1)n = Val(Text2)If n Mod 2 <> 0 ThenMsgBox ("脚数必定为偶数")Text2 = ""Text2.SetFocusElsey = n / 2 - mIf y < 0 ThenMsgBox ("脚数必须≥2 倍的头数，请重新输入")Text2 = ""Text2.SetFocusElsex = n / 2 - mLabel2 = yLabel3 = m - yEnd IfEnd IfEnd SubC．6Private Sub Command1_Click()Dim a!, b!, c!, x1!, x2!, de!a = Text1b = Text2c = Text3de = b * b - 4 * a * ct = 2 * aIf de = 0 ThenText4 = Format(-b / t, "0.00")Text5 = Format(-b / t, "0.00")ElseIf de > 0 ThenText4 = Format((-b + Sqr(de)) / t, "0.00")Text5 = Format((-b - Sqr(de)) / t, "0.00")ElseText4 = Format(-b / t, "0.00") & "+" & Format(Sqr(Abs(de)) / t, "0.00") & "i" Text5 = Format(-b / t, "0.00") & "-" & Format(Sqr(Abs(de)) / t, "0.00") & "i" End IfEnd SubPrivate Sub Command2_Click()Text1 = ""Text2 = ""Text3 = ""Text4 = ""Text5 = ""End SubC．7Private Sub Text3_LostFocus()Select Case Trim(Text3)Case "+"Text4 = Val(Text1) + Val(Text2)Case "-"Text4 = Val(Text1) - Val(Text2)Case "*"Text4 = Val(Text1) * Val(Text2)Case "/"If Val(Text2) = 0 ThenMsgBox "分母为零，重新输入"Text2 = ""Text2.SetFocusElseText4 = Val(Text1) / Val(Text2)End IfEnd SelectEnd SubC．8Private Sub Text1_LostFocus()Select Case Trim(Text1)Case 1Text2 = "Monday"Case 2Text2 = "Tuesday"Case 3Text2 = "Wednesday"Case 4Text2 = "Thursday"Case 5Text2 = "Friday"Case 6Text2 = "Saturday"Case 7Text2 = "Sunday"Case Is > 7, Is < 1MsgBox "数字为1~7，重新输入"Text1 = ""Text1.SetFocusEnd SelectEnd Sub或者Private Sub Text1_LostFocus()If Text1 > 7 Or Text1 < 1 ThenMsgBox "数字为1~7，重新输入"Text1 = ""Text1.SetFocusElseText2 = Choose(Text1, "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday", "Sunday")End IfEnd SubD．1Private Sub Form_Click()For i = 1 To 9Print Tab(10 - i); String(2 * i - 1, Trim(Str(i)))Next iEnd SubD．2Private Sub Form_Click()For i = 1 To 10 Step 1Print Tab(i); String((20 - 2 * i), Chr(64 + i))Next iEnd SubD．3Private Sub Command1_Click()Dim s!, t!, i&s = 1t = 1For i = 1 To 100000t = t + is = s + 1 / tIf 1 / t < 0.00001 Then Exit ForNext iPrint "For 结构"; s, i; "项"End SubD．4Private Sub Command1_Click()Dim n&, pi#, i&n = InputBox("输入n 值")pi = 2For i = 1 To npi = pi * (2 * i) / (2 * i - 1) * (2 * i) / (2 * i + 1) Next iPrint "当n=" & n & "时，pi="; piEnd SubD．5Private Sub Form_Click()Dim s!, t!, i!, a%, n%a = Int(Rnd * 9 + 1)n = Int(Rnd * 6 + 5)t = 0: s = 0Print "a="; a, "n="; nFor i = 1 To nt = t * 10 + as = s + tPrint t;Next iPrintPrint "s="; sEnd SubD．6Private Sub Command1_Click()Dim s As Integers = 0For i = 1 To 9For j = 0 To 9For k = 0 To 9s = i * 100 + j * 10 + kIf s = i ^ 3 + j ^ 3 + k ^ 3 ThenPrint sEnd IfNext kNext jNext iEnd SubPrivate Sub Command3_Click()formd6.Hidemain.ShowEnd SubD．7Private Sub Command1_Click()Dim a!, x0!, x1!a = 27x0 = 2i = 0Doi = i + 1x1 = 2 * x0 / 3 + a / (3 * x0 * x0)If Abs(x1 - x0) < 0.00001 Then Exit Dox0 = x1LoopPrint x1, iEnd SubD．8Private Sub Command1_Click()s = 0x0 = 0.01For i = 1 To 30s = s + x0x0 = x0 * 2Next iPrint sEnd SubD．9Private Sub Command4_Click()Picture1.ClsPicture1.Print "x 课安排在"; "y 课安排在"; "z 课安排在"Picture1.Print ""For z = 5 To 6For x = 1 To z - 2For Y = x + 1 To z - 1X1 = Choose(Weekday(x), "周一", "周二", "周三", "周四", "周五", "周六", "周日")Y1 = Choose(Weekday(Y), "周一", "周二", "周三", "周四", "周五", "周六", "周日") z1 = Choose(Weekday(z), "周一", "周二", "周三", "周四", "周五", "周六", "周日") Picture1.Print " "; X1; " "; Y1; " "; z1Next YNext xNext zEnd SubE．1Private Sub Form_Click()Dim a(1 To 10) As IntegerFor i = 1 To 10a(i) = Int(Rnd * 71 + 30)Print a(i); " ";Next iMax = a(1)Min = a(1)Avg = a(1)For i = 2 To 10If a(i) > Max Then Max = a(i)If a(i) < Min Then Min = a(i)Avg = Avg + a(i)Next iAvg = Avg / 10PrintPrint "Max="; Max; " Min="; Min; " Avg="; AvgEnd SubE．2Private Sub Form_Click()Dim aa = Array(56, 78, 98, 88, 76, 78)For i = 0 To 5Print String(a(i) \ 5, "◆"); a(i)PrintNext iEnd SubE．3Dim a%(19)Private Sub Command1_Click()Picture1.ClsFor i = 0 To 19a(i) = Int(Rnd * 101)Picture1.Print a(i); " ";If (i + 1) Mod 4 = 0 Then Picture1.PrintNext iEnd SubPrivate Sub Command2_Click()Picture2.ClsDim s(5 To 9)For i = 0 To 19k = a(i) \ 10Select Case kCase 0 To 5s(5) = s(5) + 1Case 9 To 10 '90～100 分的人数s(9) = s(9) + 1Case 6 To 8 ' 存放其他三个分数段的下标有规律，根据K 获得s(k) = s(k) + 1End SelectNext iFor i = 5 To 9If s(i) <> 0 Then Picture2.Print "s("; i; ")的人数有"; Format(s(i), "0"); "个" Next iEnd SubE．4Private Sub Command1_Click()Picture1.ClsDim d%(1 To 10)For i3 = 1 To 10Randomized(i3) = Int(Rnd * 91 + 10)Next i3For i = 1 To 10For j = 1 To 10 - iIf d(j) < d(j + 1) Thent = d(j): d(j) = d(j + 1): d(j + 1) = tEnd IfNext jNext iFor i = 1 To 10: Picture1.Print d(i);If i Mod 5 = 0 Then Picture1.PrintNext iEnd SubE．5Dim a%(3, 3), b%(3, 3)Private Sub Form_Load()For i = 0 To 3For j = 0 To 3a(i, j) = Int(Rnd * 36 + 35)b(i, j) = Int(Rnd * 41 + 100)Next jNext iEnd SubPrivate Sub Command1_Click()Picture1.ClsFor i = 0 To 3For j = 0 To iPicture1.Print a(i, j); " ";Next jPicture1.PrintNext iEnd SubPrivate Sub Command2_Click()Picture2.ClsFor i = 0 To 3For j = i To 3Picture2.Print Tab(j * 6); b(i, j);Next jPicture2.PrintNext iEnd SubPrivate Sub Command3_Click()Picture3.Clssa = 0For i = 0 To 3sa = sa + a(i, i)Next isb = 0For i = 0 To 3sb = sb + b(i, 3 - i)Next iPicture3.Print "A 数组主对角线元素和为："; sa Picture3.Print "B 数组副对角线元素和为："; sb End SubE．6Private Sub Form_Click()n = InputBox("输入n 值")ReDim a6%(n + 1, n + 1)a6(0, 0) = 1: a6(1, 1) = 1: a6(1, 0) = 1For i = 2 To n + 1For j = 2 To ia6(i, j) = a6(i - 1, j - 1) + a6(i - 1, j) Picture1.Print a6(i, j); "";Next jPicture1.PrintNextEnd SubE．7Private Sub Form_Load()List1.ClearList1.AddItem "大学计算机基础"List1.AddItem "C/C++程序设计"List1.AddItem "VB 程序设计"List1.AddItem "Web 程序设计"List1.AddItem "多媒体技术与应用"List1.AddItem "数据库技术与应用"List1.AddItem "网络技术与应用"List1.AddItem "硬件技术基础"List1.AddItem "软件技术技术基础"End SubPrivate Sub List1_Click()If List2.ListCount >= 5 ThenMsgBox ("超过5 门课程，不能再选")Exit SubElseList2.AddItem List1.TextList1.RemoveItem List1.ListIndexEnd IfEnd SubE．8Sub Combo1_KeyPress(KeyAscii As Integer) Select Case KeyAsciiCase 48 To 57, 13Case ElseKeyAscii = 0End SelectIf KeyAscii = 13 ThenCombo1.AddItem Combo1.TextCombo1.Text = ""End IfEnd SubPrivate Sub Command1_Click()Dim min%, max%min = Val(Combo1.List(0))max = Val(Combo1.List(0))imin = 0imax = 0For i = 1 To Combo1.ListCount - 1If Val(Combo1.List(i)) > max Thenimax = imax = Combo1.List(i)ElseIf Val(Combo1.List(i)) < min Thenimin = imin = Combo1.List(i)End IfNext it = Combo1.List(0)Combo1.List(0) = Combo1.List(imin)Combo1.List(imin) = tt = Combo1.List(Combo1.ListCount - 1)Combo1.List(Combo1.ListCount - 1) = Combo1.List(imax) Combo1.List(imax) = tEnd SubE．9Private Sub Form_Click()For i = 0 To Screen.FontCount - 1If Asc(Left(Screen.Fonts(i), 1)) < 0 ThenPicture1.Print Screen.Fonts(i)Picture2.FontName = Screen.Fonts(i)Picture2.Print "商丘师范学院"End IfNext iEnd SubE．10Private Type clerknumber As String * 3name As String * 5salary As IntegerEnd TypeDim a(0 To 4) As clerk, n%Private Sub Command1_Click()If n >= 5 ThenMsgBox ("输入人数超过数组声明的个数")ElseWith a(n).number = Text1.name = Text2.salary = Text3Picture1.Print a(n).number, a(n).name, a(n).salary PrintEnd Withn = n + 1Text1 = ""Text2 = ""Text3 = ""End IfEnd SubPrivate Sub Command2_Click()Dim t As clerk, i%, j%For i = 0 To n - 1For j = i To n - 1If a(i).salary < a(j + 1).salary Thent = a(i): a(i) = a(j + 1): a(j + 1) = tEnd IfNext jNext iPicture1.ClsPicture1.Print "工号姓名工资" For i = 0 To n - 1Picture1.Print a(i).number, a(i).name, a(i).salaryPrintNext iEnd SubF．1Private Sub Form_Click()Dim a(1 To 10), amin, i%For i = 1 To 10a(i) = -Int(Rnd * 101 + 300)Print a(i);Next iCall s(a(), amin)PrintPrint "min="; aminEnd SubSub s(b(), min)Dim i%min = b(LBound(b))For i = LBound(b) + 1 To UBound(b)If b(i) < min Then min = b(i)Next iEnd SubF．2Private Sub Command1_Click()Dim mm%, nn%mm = Val(Text1)nn = Val(Text2)Picture1.Print mm; Tab(6); nn; Tab(12); gcd(mm, nn) End SubFunction gcd%(ByVal m%, ByVal n%)If m < n Then t = m: m = n: n = tr = m Mod nDo While (r <> 0)m = n: n = r: r = m Mod nLoopgcd = nEnd FunctionF．3Dim x!Private Sub Command1_Click()Print "调用标准函数Sin 的结果"; Sin(x)End SubPrivate Sub Command2_Click()Print "调用自定义函数MySin 的结果"; MySin(x) End SubFunction MySin(x!) As DoubleDim i%, t!, s!t = xs = ti = 1Do While Abs(t) > 0.00001t = -1 * t * x * x / ((i + 1) * (i + 2))s = s + ti = i + 2LoopMySin = sEnd FunctionPrivate Sub Command3_Click()x = InputBox("输入要计算正弦函数的角度值x") x = x * 3.14 / 180End SubF．4Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 ThenIf Not IsNumeric(Text1) ThenMsgBox "输入非数字串，重新输入"Text1.Text = ""Text1.SetFocusElseIf IsH(Text1) ThenPicture1.Print Text1; " ★"ElsePicture1.Print Text1End IfText1 = ""End IfEnd IfEnd SubFunction IsH(ss As String) As BooleanDim i%, Ls%IsH = Truess = Trim(ss)Ls = Len(ss)For i = 1 To Ls \ 2If Mid(ss, i, 1) <> Mid(ss, Ls + 1 - i, 1) ThenIsH = FalseExit FunctionEnd IfNext iEnd FunctionF．5Function prime(ByVal m As Integer) As Booleanprime = TrueDim i%For i = 2 To m - 1If (m Mod i) = 0 Then prime = False: Exit Function '注意冒号和exit 的范围Next iEnd FunctionPrivate Sub Command1_Click()n = 0For i = 6 To 100 Step 2For j = 3 To i \ 2If prime(j) ThenIf prime(i - j) ThenList1.AddItem i & " =" & j & " +" & i - jn = n + 1End IfEnd IfNext jNext iPicture1.Print " 6 和100 之间共有"; n; "对素数和"End SubF．6Dim a%()Private Sub Form_Click()Print "1000 以内的完数为："For i = 1 To 1000If IsWs(i) ThenPrint i; "=1";For j = 1 To UBound(a)Print "+"; a(j);Next jPrintEnd IfNext iEnd SubFunction IsWs(m) As BooleanDim s%s = 0For i = 1 To m \ 2If m Mod i = 0 ThenReDim Preserve a(j)a(j) = ij = j + 1s = s + iEnd IfNext iIf m = s Then IsWs = TrueEnd FunctionF．7Private Sub DeleStr(s1 As String, ByVal s2 As String)Dim i%ls2 = Len(s2)i = InStr(s1, s2)Do While i > 0s1 = Left(s1, i - 1) + Mid(s1, i + ls2) ' 在s1 中去除s2 子串i = InStr(s1, s2)LoopEnd SubPrivate Sub Command1_Click() ' 调用DeleStr 子过程Dim ss1 As Stringss1 = Text1Call DeleStr(ss1, Text2)Text3 = ss1End SubPrivate Sub Command2_Click()End SubF．8Private Sub Command1_Click()Dim maxw$maxlen Text1 & " ", maxwText2 = maxwEnd SubSub maxlen(s$, maxw$)Dimword$ maxw = ""Do While s <> ""i = InStr(s, " ")word = Left(s, i - 1)If Len(word) > Len(maxw) Then maxw = words = Mid(s, i + 1)LoopEnd SubG．1Private Sub Command1_Click()List1.ClearList1.AddItem Combo1If Option1 Then List1.AddItem "Pentium II"If Option2 Then List1.AddItem "Pentium I"If Option3 Then List1.AddItem "Celeron"List1.AddItem Text1If Check1 Then List1.AddItem "声卡"If Check2 Then List1.AddItem "Modem"If Check3 Then List1.AddItem "网络适配器"End SubPrivate Sub Text1_LostFocus()st = UCase(Trim(Text1))le = Len(st)If Not IsNumeric(Left(st, le - 2)) Or Right(st, 2) <> "MB" Then MsgBox "有不合法字符！"Text1 = ""Text1.SetFocusEnd IfEnd SubG．2Private Sub Check1_Click()Picture1.Font.Bold = Not Picture1.Font.BoldEnd SubPrivate Sub Check2_Click()Picture1.Font.Italic = Not Picture1.Font.BoldEnd SubPrivate Sub Command1_Click()Picture1.ClsIf Option1 ThenPicture1.Print Sin(Val(Text1))ElseIf Option2 ThenPicture1.Print Exp(Val(Text1))ElseIf Option3 ThenPicture1.Print Sqr(Val(Text1))End IfEnd SubPrivate Sub return_Click(Index As Integer)Form6.ShowUnload Form2End SubG．3Private Sub HScroll1_Change()Text1 = VScroll1.ValueText2 = HScroll1.ValueText3 = HScroll2.ValueText4 = Format(Val(Text1) * (Text3 / 100) * (Text2 / 12), "0.00") Text5 = Format(Val(Text4) + Val(Text1), "0.00")End SubPrivate Sub HScroll2_Change()Text1 = VScroll1.ValueText2 = HScroll1.ValueText3 = HScroll2.ValueText4 = Format(Val(Text1) * (Text3 / 100) * (Text2 / 12), "0.00") Text5 = Format(Val(Text4) + Val(Text1), "0.00")End SubPrivate Sub VScroll1_Change()Text1 = VScroll1.ValueText2 = HScroll1.ValueText3 = HScroll2.ValueText4 = Format(Val(Text1) * (Text3 / 100) * (Text2 / 12), "0.00") Text5 = Format(Val(Text4) + Val(Text1), "0.00")End SubG．4Dim t As SinglePrivate Sub Command1_Click()t = InputBox("输入倒计时分钟数")t = t * 60ProgressBar1.Min = 0ProgressBar1.Max = tProgressBar1.Value = tEnd SubPrivate Sub Command2_Click()Timer1.Interval = 1000ProgressBar1.Visible = TrueEnd SubPrivate Sub Timer1_Timer()Dim m%, s%t = t - 1ProgressBar1.Value = tm = t \ 60s = t Mod 60Label1 = m & "分" & s & "秒"If t = 0 ThenMsgBox " 时间到！"Timer1.Interval = 0ProgressBar1.Visible = FalseEnd IfEnd SubG．5Private Sub Command1_Click()CommonDialog1.ShowColorLabel1.ForeColor = CommonDialog1.ColorEnd SubPrivate Sub Command2_Click()CommonDialog1.ShowOpeni = Shell("C:\WINDOWS\NOTEPAD.exe " + CommonDialog1.FileName, vbNormalFocus) End SubG．6rivate Sub bold_Click()Text1.FontBold = Not Text1.FontBoldbold.Checked = Not bold.CheckedEnd SubPrivate Sub del_Click()Text1 = ""End SubPrivate Sub end_Click()EndEnd SubPrivate Sub font12_Click()Text1.FontSize = 12End SubPrivate Sub font16_Click()Text1.FontSize = 16End SubPrivate Sub Form_Load()bold.Checked = Falseitalic.Checked = FalseEnd SubPrivate Sub italic_Click()Text1.FontItalic = Not Text1.FontItalicitalic.Checked = Not italic.CheckedEnd SubPrivate Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu menu2End SubG．7Private Sub Command1_Click()CommonDialog1.ShowColorLabel1.ForeColor = CommonDialog1.ColorEnd SubPrivate Sub Command2_Click()CommonDialog1.ShowOpeni = Shell("C:\WINDOWS\NOTEPAD.exe " + CommonDialog1.FileName, vbNormalFocus) End SubPrivate Sub return_Click(Index As Integer)Form6.ShowUnload Form5End SubG．8G．9Private Sub 结束_Click()EndEnd SubPrivate Sub 删除最大值_Click()max = List1.List(0)For i = 1 To List1.ListCount - 1If max < List1.List(i) Then max = List1.List(i): j = i Next iList1.RemoveItem jEnd SubPrivate Sub 删除最小值_Click()min = List1.List(0)For i = 1 To List1.ListCount - 1If min > List1.List(i) Then min = List1.List(i): j = i Next iList1.RemoveItem jEnd SubPrivate Sub 随机产生_Click()RandomizeFor i = 0 To 9List1.List(i) = Int(Rnd * 30 + 70)Next iEnd SubPrivate Sub 添加数据_Click()List1.AddItem Int(Rnd * 30 + 70)End SubPrivate Sub 统计_Click()Dim max%, min%, ave!, m%, n%max = List1.List(0)min = List1.List(0)ave = List1.List(0)m = 0n = 0For i = 1 To List1.ListCount - 1If max < List1.List(i) Then max = List1.List(i): m = i If min > List1.List(i) Then min = List1.List(i): n = i ave = ave + List1.List(i)Next iForm2.Text1 = List1.List(n)Form2.Text2 = List1.List(m)Form2.Text3 = Format(ave / List1.ListCount, "0.00") Form2.ShowEnd SubG．10Private Sub experimentG2_Click()Form2.ShowEnd SubPrivate Sub experimentG3_Click()Form3.ShowEnd SubPrivate Sub experimentG4_Click()Form4.ShowEnd SubPrivate Sub experimentG5_Click()Form5.ShowEnd SubPrivate Sub font_12_Click()Text1.FontSize = 12End SubPrivate Sub font_16_Click()Text1.FontSize = 16End SubPrivate Sub rnd10_Click()RandomizeFor i = 0 To 9List1.List(i) = Int(Rnd * 30 + 70)Next iEnd SubPrivate Sub stat_Click()Dim max%, min%, ave!, m%, n%max = List1.List(0)min = List1.List(0)ave = List1.List(0)m = 0n = 0For i = 1 To List1.ListCount - 1If max < List1.List(i) Then max = List1.List(i): m = i If min > List1.List(i) Then min = List1.List(i): n = i ave = ave + List1.List(i)Next istat2.Text1 = List1.List(n)stat2.Text2 = List1.List(m)stat2.Text3 = Format(ave / List1.ListCount, "0.00")stat2.ShowEnd SubPrivate Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu caidan2, vbPopupMenuCenterAlignEnd SubPrivate Sub xie_Click()Text1.Font.Italic = Not Text1.Font.BoldEnd SubH．1Private Sub Command1_Click()Open "c:\score" For Output As #1Print #1, "051023", "王海涛", 66Print #1, "052498", "周文英", 88Print #1, "050992", "陈建东", 77Open "c:\score1" For Output As #2Write #2, "051023", "王海涛", 66Write #2, "052498", "周文英", 88Write #2, "050992", "陈建东", 77Closei1 = Shell("NOTEPAD.exe" + " c:\score", vbNormalNoFocus)i2 = Shell("NOTEPAD.exe" + " c:\score1", vbNormalNoFocus)End SubPrivate Sub Command2_Click()Dim no As String, name As String, s As IntegerOpen "c:\score" For Input As #1Do While Not EOF(1)Line Input #1, linedataList1.AddItem linedataLoopOpen "c:\score1" For Input As #2Do While Not EOF(2)Input #2, no, name, sList2.AddItem no & name & sLoopCloseEnd SubH．2Private Sub Command1_Click()Dim fib%(0 To 9), i%Open "c:\fb.dat" For Output As #1For i = 0 To 9If i = 0 Or i = 1 Thenfib(i) = iElsefib(i) = fib(i - 1) + fib(i - 2)End IfPrint #1, """Fib(" & i & ")""," & fib(i)Next iClose #1i = Shell("NOTEPAD.exe" + " c:\fb.dat", vbNormalNoFocus) End SubPrivate Sub Command2_Click()Dim st$, n%, sum%Open "c:\fb.dat" For Input As #1Do While Not EOF(1)Input #1, st, nsum = sum + nList1.AddItem st & "=" & nLoopClose #1List1.AddItem " 合计：" & sumList1.AddItem "平均：" & sum / 10End SubH．3H．4Private Type studtypeno As String * 4name As String * 6mark As SingleEnd TypeDim student As studtype, stud(1 To 5) As studtype, t As studtypePrivate Sub Command1_Click()Open "d:\score.dat" For Random As #1 Len = Len(student) With student.no = "0001".name = "星期一"。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
VB 课后练习题参考答案第一章一、1、C2、C3、B4、B5、D6、B7、B8、D二、1、学习版、专业版、企业版2、alt+Q 或 alt+F43、.vbp 、 .frm4、固定、浮动5、"abcd"、"VB Programing"6、属性窗口、运行7、对象框、事件框8、窗体模块、标准模块、类模块第二章一、1、B2、B3、B4、B5、D6、D二、1、((x+y)+z)*80-5*(C+D)2、cos(x)*sin(sin(x)+13、2*a*(7+b)4、8*EXP(3)*LOG(2)5、good morning 、 good morning6、2001/8/25820017第三章一、1、C2、B3、D4、A5、D 、 36、C7、B8、C9、C10、D11、B12、C13、B14、B15、A16、B17、D18、C19、C二、1、AutoSize2、text1.setfocus3、0 、 04、picture1.picture=loadpicture("yy.gif")5、stretch6、interval7、enable8、下拉式组合框、简单组合框、下拉式列表框、style9、下拉式列表框10、条目1 、条目311、欢迎您到中国来、welcome to china!!第四章一、1、B2、C3、C4、B5、C6、B7、C8、B9、D10、A11、B12、A13、B14、D15、A16、B17、A18、C19、B二、1、2542=572、beijing3、002.45、2.449、24.49e-01、-2.4494、9 10 115、96、1 2 37、iif(x<=0,y=0,iif(x<=10,y=5+2*x,iif(x<=15,y=x-5,y=0)))8、x=7 或 x>6 或 x>59、x>=0 、x<amin10、1024 11、121.用vb程序从键盘上输入4个数，编写程序，计算并输出这4个数的和及平均值。
要求用Inputbox函数输入数据(解法1)Private Sub Form_Load()Form1.ShowSum = 0For i = 1 To 4a = InputBox("请输入数值型数据") Sum = Sum + aave = Sum / 4NextPrint Sum; aveEnd Sub (解法2)Private Sub form_Click() Dim a, b, c, d, sum As Integer Dim avg As Doublea = Val(InputBox("请输入第一个数"))b = Val(InputBox("请输入第二个数"))c = Val(InputBox("请输入第三个数"))d = Val(InputBox("请输入第四个数")) sum = 0sum = a + b + c + davg = sum / 4Print "4个数和为" & sumPrint "4个数平均值为" & avgEnd Sub (这个就比较通俗易懂)3.设a=5，b=2.5，c=7.8，编写程序计算 y= y=丌ab/（a+b*c）Private Sub Command1_Click()a = 5b = 2.5c = 7.8pi = 3.14159265y = pi * a * b / a + b * cPrint yEnd Sub4.输入以秒为单位表示的时间，编写程序，将其换算成几日几十几秒.Private Sub Command1_Click()a = Val(Text1.Text)tian = a \ 86399xiaoshi = (a - tian * 86400) \ 1439fenzhong = (a - tian * 86400 - xiaoshi * 1440) \ 59miao = a - tian * 86400 - xiaoshi * 1440 - fenzhong * 60Text2.Text = tian & "天" & xiaoshi & "小时" & fenzhong & "分钟" & miao & "秒"End Sub5.Private Sub Command1_Click()Const g As Single = 9.81t = InputBox("请输入t的值")v0 = InputBox("请输入v0的值")s = 1 / 2 * g * t * t + v0 * tPrint Format(s, "0.##")End Sub6.编写程序，计算2+4+6+ (100)Private Sub Command1_Click()Sum = 0For i = 2 To 100 Step 2Sum = Sum + iNextLabel1.FontSize = 20Label1.Caption = "2+4+6+……+100=" & SumEnd Sub7. 一个按钮一个标签Private Sub Command1_Click()Doa = InputBox("请输入三角形的第一条边长")a1 = Val(a)If a1 = -1 ThenEndEnd Ifb = InputBox("请输入三角形的第二条边长")b1 = Val(b)If b1 = -1 ThenEndEnd Ifc = InputBox("请输入三角形的第三条边长")c1 = Val(c)If c1 = -1 ThenEndEnd IfIf (a1 + b1 > c1) And (a1 + c1 > b1) And (b1 + c1 > a1) Thens = a1 + b1 + c1Exit DoElseError1 = MsgBox("您输入的数据不能组成三角形")End IfLoopLabel1.Caption = "您输入的边长分别为：" & a1 & "," & b1 & "," & c1 & " " & "面积为：" & sEnd Sub8．税务部门征收所得税，规定如下：（1）收入在200元以内，免征；（2）收入在200~400内，超过200元的部分纳税3%；（3）收入超过400元的部分，纳税4%；（4）当收入达到5000元或超过时，将4%税金改为5%。
编程序实现上述操作。
一个输入收入的文本框一个输出税金的文本框一个按钮Private Sub Command1_Click()If Text1.Text <> "" Thena = Text1.TextSelect Case aCase Is <= 200s = 0Case Is <= 400s = (a - 200) * 0.03Case Is < 5000s = 200 * 0.03 + (a - 400) * 0.04Case Is >= 5000s = (400 - 200) * 0.03 + (5000 - 400) * 0.04 + (a - 5000) * 0.05 End SelectText2.Text = sElseerror1 = MsgBox("请输入您的收入！")End IfEnd SubPrivate Sub Form_Load()Text2.Locked = True --------文本框不能被用户修改End SubPrivate Sub Text1_Change()If Not IsNumeric(Text1.Text) Thenerror1 = MsgBox("请输入数字")End If ----------如果用户没有输入收入而直接点击按钮则弹出对话框End Sub9.假定有以下每周工作安排：星期一、三：讲计算机课星期二、四：讲程序设计课星期五：进修英语星期六：公修课星期日：休息试编写一个程序，对上述工作日程进行检索。
程序运行后，要求在文本框内输入一周的某一天，然后单击“显示”按钮，在标签中将输出这一天的工作安排。
在输入时用0~6分别代表星期日到星期六，如果输入0~6之外的数或单击“退出”按钮，则程序结束运行。
（本题用Select case结构完成）Private Sub Text1_Change()a = Text1.TextSelect Case aCase 0Label2.Caption = "休息"Text1.SelStart = 0Text1.SelLength = 1Case 1, 3Label2.Caption = "讲计算机课" Text1.SelStart = 0Text1.SelLength = 1Case 2, 4Label2.Caption = "讲程序设计课" Text1.SelStart = 0Text1.SelLength = 1Case 5Label2.Caption = "进修英语"Text1.SelStart = 0Text1.SelLength = 1Case 6Label2.Caption = "政治学习"Text1.SelStart = 0Text1.SelLength = 1Case ElseError1 = MsgBox("您确认退出程序？", 52, "确认")If Error1 = 6 Then EndElseText1.SelStart = 0 Text1.SelLength = 1 End IfEnd SelectEnd Sub（通俗解法）Private Sub Command1_Click()Dim d%d = Val(InputBox("请输入日期")) Select Case dCase 1, 3Label1 = "讲计算机课"Case 2, 4Label1 = "讲程序设计课"Case 5Label1 = "进修英语"Case 6Label1 = "公修课"Case 0Label1 = "休息"Case ElseEndEnd SelectEnd Sub------------------------------ 10编写程序，打印如下所示的“数字金字塔”：. 1. 1 2. 1 2 3…… 7 8 9 8 7…------------------------------ Private Sub Command1_Click()For i = 1 To 9Print Tab(30 - 3 * i);For j = 1 To iPrint j;Next jFor k = i - 1 To 1 Step -1 Print k; Next k Print Next i End Sub11. Private Sub Command1_Click()For i = 1 To 30For j = i To 30For k = j To 30If i * i + j * j = k * k ThenPrint Tab(10); i, Tab(23); j, Tab(36); kEnd IfNext k, j, iEnd Sub14. Private Sub Command1_Click()Dim a As Integera = Val(Text1.Text)If a < 10 Or a > 99 Thenerror1 = MsgBox("您输入的不是两位正整数，请重新输入")ElseFor i = 10 To 99a1 = a \ 10 + (a Mod 10) * 10i1 = i \ 10 + (i Mod 10) * 10If (a + i = a1 + i1) And (a1 > 9) And (i1 > 9) ThenLabel2.Caption = Label2.Caption & Chr(13) & a & "+" & i & "=" & a1 & "+" & i1Form1.Height = Label2.Height + Label2.Top + 1000End IfNextEnd IfEnd Sub。