新版 Visual Basic 课后习题答案计算圆的周长和面积Private Sub Command1_Click()Text2 = Text1 * 2 * 3.14End SubPrivate Sub Command2_Click()Text3 = Textl A 2 * 3.14End Sub随机改变窗体背景Private Sub Command1_Click()Dim r%, g%, b%r = Int(Rnd() * 256)g = Int(Rnd() * 256)b = Int(Rnd() * 256)Form1.BackColor = RGB(r, g, b)End Sub第一章1. 系统分析、系统设计、编码、测试与调试、整理文档资料、运行与维护2、测试就是通过精心设计一批测试用例运行程序，检验程序是否达到预期的功 能。调试就是找出程序中的错误并改正错误。3、正确性维护。虽然经过测试，程序依然可能存在逻辑错误，在使用过程中发 现并改正。完善性维护。完善系统的运行环境。 适应性维护。尽量满足用户提出的修改和扩充程序功能的要求。4、可视化，面向对象，事件驱动，访问数据库5、包括：主窗口，工具箱窗口，窗体窗口，工程资源管理窗口，属性窗口，代 码窗口，立即窗口。可以通过“视图”菜单打开该窗口6 、一个 VB 应用程序也称为一个工程，两者是相同的7、设计模式，运行模式，中断模式。8、工程文件 (.vbp) ，窗体文件 (.frm) ，标准模块文件 (.bas) ，类模块文件 (.cls)9、解释性运行在工程运行中如果发现程序错误，系统立即中断工程的运行，回 到集成环境的中断模式。可执行文件可以脱离 VB 的集成开发环境独立运行，但需要动态连接库等文 件的支持。第二章一、选择题CBABA DBBBA二、问答题1. 因为该文本框的 Visible 属性设置为 False ，运行时不可见。2. 因为该文本框的 Locked 属性设置为 True ，运行时不可被编辑。3. 该命令按钮未编写相应的的 Click 事件代码；或是其 Enabled 属性设置为 False ， 运行时不可用4. 设置窗体的 Font 属性。5. 窗体文件的扩展名为.frm;工程文件的扩展名为.vbp三、程序设计题1.Private Sub Form_Click()Form1.Picture=loadpicture(d:vbmoon.jpg)End Sub2.Private Sub Command1_Click()Text1.Text = 我的第一个 VB 程序End SubPrivate Sub Command2_Click()Text1.Text = End SubPrivate Sub Command3_Click()EndEnd Sub3.Private Sub Command1_Click()Text2 = 5 / 9 * (Text1 - 32)End SubPrivate Sub Command2_Click()Text1 = Text2 = End SubPrivate Sub Command3_Click()Text1 = Text2 * 9 / 5 + 32End SubATy *第三章、选择题ABBCA BCCCB C二、问答题1. (x+Sin(x)*Exp(4*x)2. (-b+Sqr(Z2-4*a*c)/(2*a)3. left(s,4)mid(s,5,4)right(s,4)4. DateDiff(ww, #1/1/2010#, Date)5. DateDiff(y, #1/1/2000#, Date)DateDiff(ww, #1/1/2000#, Date)6. 通用-声明段，加上语句 Option Explicit 。7. 符号常量的值不可变，变量的值可变。定义符号常量可以增加程序的可读性，也便于程序的修改8. / 是除，运算对象可以是整数或实数，其结果是实数是整除，要求运算对象是整数，结果也是整数MOD 是取余，要求运算对象是整数，结果也是整数9. 在程序中定义数据类型，系统才能为数据分配存储空间，确定存储方式和限 定数据的运算集合。对数据类型进行细分，可以节省存储空间，提高程序运行速度。第四章一、问答题1. 顺序结构、选择结构和循环结构2. 赋值语句、数据输入语句和数据输出语句等3. InputBox 作为输入数据的界面，返回的函数值为所输入的数据； MsgBox 不 能输入数据， 只能选择对话框中的一个按钮， 其返回的函数值为该按钮所代表的 整数值。4. MsgBox 函数是打开一个对话框， 选择对话框中的一个按钮， 将返回该按钮所 代表的整数值。如果只是利用 MsgBox 对话框显示一些提示信息，并不需要返 回值，则可调用 MsgBox 方法。5. 注释语句可以提高程序的易读性，便于用户阅读程序6. Stop 是暂停程序的执行，而 End 是结束本程序的执行7. 单行结构 If 语句是在 then 和 else 后只有一个语句，可以写在一个语句行中。 如果 If 语句比较复杂，特别是嵌套 If 语句，用单行结构会降低程序的可读性， 这时应使用块结构 If 语句8. 可以，对数值型的数据，可以按“非零为真，零为假”的规则转为逻辑值；字符 型数据也可先转为数值型，然后再转为逻辑值。9. While-Wend 循环与 Do-Loop 循环都属条件型循环结构，但 Do-Loop 循环有 多种形式，功能更多，可以完全替代 While-Wend 循环。10. 死循环是指循环不能退出的程序，循环体中若没有包含对“条件”表达式的值 进行修改的语句，就可能会成为“死循环”，11. 在代码窗口选择要设置断点的语句，然后按“ F9 ”键，或直接用鼠标单击语句 行左边侧边框；用同样的方法可取消断点。二、选择题DACBB BBCBC三程序阅读。1.x= 123y= 123.456x=123y=123.456x= 123y= 123.456x= 123y= 123.4562.x= 123x= 123y= 123.456y= 123.456ABABC3.此程序用于在文本框中输入值，若输入数值，则显示是奇数或者偶数。4.A 大写字母A 其他字符B 大写字母B 其他字符1 其他字符2 其他字符a 小写字母b 小写字母5.216.n1000 i=8n=5040n6000 i=9n=403207.*四、程序设计题1.Const PI! = 3.1416Private Sub Form_click()Dim s!, v!, r!r = InputBox( 请输入圆的半径 )s = 4 * PI * r A 2v = 4 / 3 * PI * r a 3Print 圆球表面积是 ; sPrint 圆球体积是 ; vEnd Sub2.Private Sub Command1_Click()Text2 = UCase(Text1)End Sub3.Private Sub Command1_Click()Dim x%x = Text1If x 100 ThenMsgBox 数据出错！ ElseIf x = 90 ThenLabel1 = 优秀 ElseIf x = 60 ThenLabel1 = 及格 ElseLabel1 = 不及格 End IfEnd Sub4.Private Sub Command1_Click()Dim x!x = Text1If x 0 ThenLabel1 = 正数 ElseIf x 0 ThenLabel1 = 负数 ElseLabel1 = 零End IfEnd Sub5.Private Sub Command1_Click()Dim y%, m%, d%, n%, days%, i%y = Text1m = Text2d = Text3For i = 1 To m - 1Select Case iCase 1, 3, 5, 7, 8, 10, 12 days = 31Case 4, 6, 9, 11一X N sAep + u H u10 a)s PU 山 :pu 山82 H sAep SLIJ60 H sAepU_L (0 Av 00L POIAI A pup=olluo 丄 qns 2eosp + uos=旨 15000 Then Exit DoPrint f,f1 = f2f2 = fIf i Mod 5 = 0 Then Printi = i + 1LoopEnd Sub10.Pr