VB实验任务9答案
【参考文档】vb实验指导书答案-范文word版 (10页)
![【参考文档】vb实验指导书答案-范文word版 (10页)](https://img.taocdn.com/s3/m/dc995c36e87101f69f31950b.png)
第6章 过程
一、单选题
二、填空题 2.5 5. 工具 7. &,Click 8. Enabled 9. 窗体
10. 模式,无模式
11. Action
12. CommonDialog1.FileName 13. cdlCCRGBInit 14. Unload,Show 15. 所在窗体的名称 16. 打开 17. Visible 18. 当前 19. 255 20. Show
(6)强制显式声明变量 (7)类 P35 第三章
1. CBAAABCDAD ABBBC ADDBD 2.(1)integer (2)???? (3)text (4)a=0 or b=0 (5)(x+y)*sin(30*3.14/180) (6)int(rnd*100+1)(7)# (8)0
1
C
(9)int(rnd*30+70)(10) CDEF P53 第四章
本文部分内容来自网络整理,本司不为其真实性负责,如有异议或侵权请及时联系,本司将立即删除!
== 本文为word格式,下载后可方便编辑和修改! ==
vb实验指导书答案
篇一:VB程序设计学习与实验指导书答案(包含实验答案)
VB学习与实验指导测试题
参考答案
第一章
第二章
第三章
第四章
第五章
第六章
第七章
第八章
篇二:VB实验指导书答案
vb程序设计实验教程习题答案(精品).doc
![vb程序设计实验教程习题答案(精品).doc](https://img.taocdn.com/s3/m/3062aac443323968001c928c.png)
实验教材实验-1:单项选择题:AACCC DCBBC2:填空题:(1).bas(2).vbp, ,frm(3)视图工具箱(4)对象(5)属性对象事件方法(6)Windows(7)事件行为(8)窗体模块实验二1:单项选择题:ADCCA BAB DC BBCBC BAB DC 2:基本运算题:(1)27(2) 3.33333333333333(3) 3(4)0(5)-3(6) 2(7)ab33(8)类型不匹配(9) 3(10)AB3实验三1:单项选择题:BCBDC2:填空题:(1)300(2)321456(3)Shanghai(4) 6 7 6(5)True(6)2+3=5(7)”area=” 12.56(8)VISUAL实验四1:单项选择题:CAACA2:填空题:(1)7(2) 3 5(3)输入的数小于0(4) 3(5)False(6)2010 is not leap year.试验五1:单项选择题:ACCAB ACCCB2:填空题:(1)9(2)@n ② 1(3)®Len(a)②n\2 ③Mid(a,(n-i+l),l)④Mid(a,(n-i+l),l)(4)@n Mod 3=1 And n Mod 5=1 And n Mod 7=1 ©While CountN<5(5)Mid(cl,l,i)实验六1:单项选择题:DB DCD ACADD2:填空题:(1)30(2) 3(3)①a(2)②a(3)③a(l)(4)①1 ②2 ③a(i)=a(6-i)(5)①i+j ②0 ③a(i,j)(6)©Print ②k ③a(k,j)=a(j,k)④a(k,j);实验七1:单项选择题:ABBACB2:填空题:(1)15(2)①Preserve a(n+l) ②a(i+l)=a(i) ③Exit For ④a(i+l)=m⑤0 to n+1 (或LBound(a) to UBound(a))(3)d,c,b,a实验八1:单项选择题:CADBD CACB2:填空题:(1)a=9 b=4(2)362516941(2)①a (2)UBound(b)③实验九1:单项选择题:DDDBB CAB CAD2:填空题:(1)①p=p*n ②Fac(n) ③ 10人-6(2)①Max=x ②Max=y ③p ④Max(x,a(n))(3)①number(i) ②n as integer (3)number=number+7* 10A(i-1)实验十1:单项选择题:DC BAB C实验十一1:单项选择题:DADBBB BDD实验十二1:单项选择题:CBCBC CBDAD DBC2:填空题:(1)①Label 1. FondName=Combo 1 .TextCombo2.Text ③ Label 1 .FontBold=True ④ Label 1 .FondItalic=True⑤ Label 1 .FondSize=Combo3.Text(2)①Listl.Text ©List 1 .RemoveitemListl.ListindexListl .Additem List2.Text ④ List2.RemoveItem实验十三实验十四1:单项选择题:DACDAABC2:填空题:(1)ShowFont(2)打开另存为颜色字体打印机帮助(3)工程部件Microsoft Common Dialog Control 6.0(4 ) ShowColor Action=3实验十五1:单项选择题:CB BCB B BAD2:填空题:(1)内建菜单弹出菜单(2)Click(3)工具(4)代码窗口Click(5)相同不同实验十六1:单项选择题:B CAAC ACDDB DCC2:填空题:(1)①Open "c:\studl.txt” For Output As #1Textl.Text=”End”White #l,Textl.Text(2)①For Input ②For Output As #2 ③Not Eof(l)Input #l,strl ⑤ Close #1,#2 ⑥Kill(“c:\old.txt”(3)①For Output ②For Input As #2。
vb实验教程答案
![vb实验教程答案](https://img.taocdn.com/s3/m/aaf5446da5e9856a57126011.png)
第一章答案:一、单项选择题1.B2. C3. D4.D5.D6.D7.D8.C9.B 10.B 11.A 12.D 13.B14.C二、判断题1.T2.T3.F4.F5.F6.T7.T8.T9.T 10.T 11.T第二章一、单项选择题1. B2. D3. A4. D5. B6.A7. D8. D9. D 10. A11. A 12. A 13. C 14. C 15. A 16. C 17. A 18. D 19. A 20. D21. B 22. C 23. B 24. A 25. B 26. A 27. C 28. D 29. D 30. B31. C 32. D 33. B 34. C 35. C 36. C 37. C 38. D 39. C 40. A41. D二、判断题1. True2. True3. False4. False5. False6. False7. False第三章一、单项选择题1.A2.D3.D4.B5.B6.D7.C8.D9.B 10.B 11.D 12.D 13.C 14.D 15.A16.C 17.B二、判断题1.T2.F3.T4.T5.F6.F7.F8.F9.F 10.F11.T 12.F 13.F 14.T 15.F 16.T 17.T 18.F .第四章一、单项选择题1.D2.A3.C4.C5.B6.C7.B8.B9.C 10.B 11.A 12.A 13.B 14.C 15.C 16.D 17.A18.D 19.B 20.A21.D 22.B 23.A 24.D 25.D 26.B 27.D 28.A 29.D 30.A 31.D二、判断题1.F2.T3.F4.F5.T6.F7.T三、操作题1.参考代码:Private Sub Command1_Click()Dim i As Integer, j As Integer, k As IntegerDim sum As IntegerFor i = 2 To 10000sum = 0For j = 1 To i / 2k = i Mod jIf 0 = k Thensum = sum + jEnd IfNext jIf i = sum ThenPrint iEnd IfNext iEnd Sub2.参考代码:Private Sub Command1_Click()Dim n%, i%n = InputBox("请输入天数:")x = 1For i = n - 1 To 1 Step -1x = (x + 1) * 2NextPrint xEnd Sub第五章一、单项选择题:1. B2.C3. C4. C5. D6. B7. A8. D9. D 10.D11. D 12.A 13.D 14.A 15.A16.C 17.B 18.D 19.C 20.B21.A 22.B 23.B 24.C 25.B26.B 27.A 28.A 29.D 30.A二、多项选择题1.BCD2. ABD3. ABC4.A BC5. BCD三、判断题1. (F)2. (T)3. (T)4. (T)5. (T)6.(F)7.(F)8.(F)9.(F) 10.(T)11.(F) 12.(F) 13.(T) 14.(F) 15.(F)四、填空题1.数学日期时间字符串2. Str(x) Val(x) Asc(x)3. Sin(30*3.14/180)4. 05. 26. 167. Right(x,5)8. 123? 123? 12? 09. Mid(S, 6, 4)10. Int(Rnd Text1.Text * 900) + 100Mid(Text1.Text, 3, 1) & Mid(Text1.Text, 2, 1) & Mid(Text1.Text, 1, 1) 或Reverse(Text1.Text)五、操作题1、求Sn=n+nn+nnn+nnnn+……nnnnnn…n(a个n)的和,其中a和n分别由随机函数产生的1~9之间的正整数,现假设n=5,a=3,则Sn=5+55+555,求Sn。
VB实验任务9答案
![VB实验任务9答案](https://img.taocdn.com/s3/m/afec422430126edb6f1aff00bed5b9f3f90f72ab.png)
课程名称:程序设计基础VB 实验名称——实验九循环结构程序设计实验1阅读程序,人工列表写出下列循环的运行次数和执行结果(注意输出格式),并上机验证结果,并充分使用单步调试工具(单步执行、立即窗口、本地窗口和监视窗口),弄清楚循环执行流程,以及相应变量值的变化情况。
(1)(2) Tab(8-I)将输出位置定位到第8-i列;String(I,Trim(Str(i)))输出i个相同的字符I(3)(4)实验2我国现有13亿人口,设年增长率为1%,编写程序,计算多少年后增加到或超过20亿?Private Sub Form_Click()Dim n As Integer, peoplenum As Doublepeoplenum = 13Don = n + 1peoplenum = peoplenum * (1 + 0.01) ‘或者peoplenum = 13 * (1 + 0.01)^nLoop Until peoplenum >= 20 ‘或者While peoplenum < 20Print n; "年后我国人口将达到"; peoplenum; "亿"End Sub实验3将10进制数转化成2进制数。
Private Sub CmdTrans_Click()Dim B As String, x As Double, r As Integerx = Val(TxtD)If Int(x) = x And x > 0 Then ‘对输入的一个10进制正整数x进行数据有效性的判断 Dor = x Mod 2 ‘将x除以2,记录余数rx = x \ 2 ‘x整除2的商作为下一次的被除数xB = CStr(r) & B‘逆序连接每一次的余数rLoop Until x = 0 ‘x整除2的商为0结束TxtB = B ‘通过文本框TxtB输出显示结果Else ‘若输入数据x不符合题目要求,则给出出错提示信息MsgBox "必须输入一个正整数!", vbExclamation, "输入错误"TxtD = ""TxtD.SetFocusEnd IfEnd Sub实验4实验8-1Private Sub Form_Click()Dim m As IntegerDoIf m Mod 2 = 1 And m Mod 3 = 2 And m Mod 4 = 3 And m Mod 5 = 4 And m Mod 6 = 5 And m Mod 7 = 0 Then Print mExit DoEnd Ifm = m + 1LoopEnd Sub实验5书后习题1随机产生20个两位正整数,分别统计其中偶数和奇数的个数,以及各类的数据之和。
VB程序设计 第九章课后习题答案
![VB程序设计 第九章课后习题答案](https://img.taocdn.com/s3/m/467c23c80c22590102029d8d.png)
第九章课后习题答案一、选择题二、填空题1、2—下拉式列表框Style 22、文本框列表框3、Inteval 5004、Scroll5、List 0 Clear6、没有方法,也没有外观四、设计题1、Private Sub Option1_Click()Text1.FontSize = 10End SubPrivate Sub Option2_Click()Text1.FontSize = 12End SubPrivate Sub Option3_Click()Text1.FontSize = 14End SubPrivate Sub Option4_Click()Text1.ForeColor = RGB(255, 0, 0)End SubPrivate Sub Option5_Click()Text1.ForeColor = RGB(0, 255, 0)End SubPrivate Sub Option6_Click()Text1.ForeColor = RGB(0, 0, 255)End Sub2、Private Sub Combo1_Click()Select Case Combo1.ListIndexCase 0Text1.FontSize = 10Case 1Text1.FontSize = 14Case 2Text1.FontSize = 18Case 3Text1.FontSize = Val(Combo1.Text) End SelectEnd SubPrivate Sub Combo2_Click()Select Case Combo2.ListIndexCase 0Text1.ForeColor = RGB(255, 0, 0) Case 1Text1.ForeColor = RGB(0, 255, 0) Case 2Text1.ForeColor = RGB(0, 0, 255) End SelectEnd SubPrivate Sub Form_Load()ShowCombo1.Text = "字体"Combo1.AddItem "10"Combo1.AddItem "14"Combo1.AddItem "18"Combo1.AddItem "22"Combo2.Text = "颜色"Combo2.AddItem "红色"Combo2.AddItem "绿色"Combo2.AddItem "蓝色"End Sub3、Private Sub Option1_Click(Index As Integer)Select Case Option1(Index).IndexCase 0label1.Left = 0Case 1label1.Left = (Me.ScaleWidth - label1.Width) / 2Case 2label1.Left = Me.ScaleWidth - label1.WidthEnd SelectEnd Sub4、Private Sub Command1_Click()If Option1.Value = True ThenText2 = Text1 - 100ElseText2 = Text1 - 105End IfEnd Sub5、Private Sub Command1_Click()s = 0If Option1.Value = True Thens = Val(Text1)ElseIf Option2.Value = True Thens = Val(Text1) * 1.2Elses = Val(Text1) * 1.4End IfIf Check1.Value = 0 And Check2.Value = 1 Thens = s / 4ElseIf Check1.Value = 1 Thens = s * 1.3End IfLabel2.Caption = "总学时:" & sEnd Sub6、Private Sub command1_Click()Form2.ShowForm2.ClsForm2.Print "您点中了以下"; Form1.List2.ListCount; "个菜:" For i = 0 To Form1.List2.ListCount - 1Form2.Print Form1.List2.List(i)NextEnd SubPrivate Sub Command2_Click()List2.RemoveItem List2.ListIndexEnd SubPrivate Sub Command3_Click()List2.ClearEnd SubPrivate Sub Command4_Click()EndEnd SubPrivate Sub Form_Load()List1.AddItem "鱼香肉丝"List1.AddItem "麻婆豆腐"List1.AddItem "京酱肉丝"List1.AddItem "水煮肉片"List1.AddItem "宫保鸡丁"List1.AddItem "酸菜鱼"End SubPrivate Sub List1_DblClick()For i = 0 To List2.ListCount - 1If List2.List(i) = List1.Text Then Exit ForNext iIf i = List2.ListCount ThenList2.AddItem List1.TextEnd IfEnd Sub7、Private Sub Combo2_Click()Select Case Val(Combo2.Text)Case 1, 3, 5, 7, 8, 10, 12t = 31Case 4, 6, 9, 11t = 30Case 2If Combo1.Text Mod 4 = 0 And Combo1.Text Mod 100 <> 0 Or Combo1.Text Mod 400 = 0 Thent = 29Elset = 28End IfEnd SelectCombo3.ClearCombo3.Text = "日数"For i = 1 To tCombo3.AddItem Str(i)NextEnd SubPrivate Sub Form_Load()Combo1.Text = "年份"For i = 1995 To 2050Combo1.AddItem Str(i)NextCombo2.Text = "月份"For i = 1 To 12Combo2.AddItem Str(i)NextCombo3.Text = "日数"For i = 1 To 31Combo3.AddItem Str(i)NextEnd Sub8、Private Sub HScroll1_Change()Label4.Caption = HScroll1.ValueMe.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) End SubPrivate Sub HScroll2_Change()Label5.Caption = HScroll2.ValueMe.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) End SubPrivate Sub HScroll3_Change()Label6.Caption = HScroll3.ValueMe.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) End Sub9、Private Sub Form_Load()Image1.Picture = LoadPicture("E:\ghy\万里图片\4.jpg")End SubPrivate Sub Form_Resize()Image1.Width = Me.WidthImage1.Height = Me.HeightEnd Subv10、Dim sPrivate Sub Form_Load()Label1.Caption = "程序已经运行了:0秒"Timer1.Interval = 1000Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer()s = s + 1Label1.Caption = "程序已经运行了:" & Str(s) & "秒" End Sub11、Private Sub Command1_Click()List2.AddItem List1.TextList1.RemoveItem List1.ListIndexEnd SubPrivate Sub Command2_Click()List1.AddItem List2.TextList2.RemoveItem List2.ListIndexEnd SubPrivate Sub Form_Load()List1.AddItem "清华大学"List1.AddItem "北京大学"List1.AddItem "中国人民大学"List1.AddItem "北京师范大学"List1.AddItem "北京理工大学"End Sub12、Private Sub Command1_Click()If Trim(Text1) <> "" ThenList1.AddItem Trim(Text1)Text1 = ""Text1.SetFocusLabel2.Caption = "院校数:" & List1.ListCount ElseMsgBox "请先输入院校名!"End IfEnd SubPrivate Sub Command2_Click()If Trim(Text1) <> "" ThenFor i = 0 To List1.ListCount - 1If List1.List(i) = Trim(Text1) ThenList1.RemoveItem iText1 = ""Exit ForEnd IfNextIf i > List1.ListCount Then MsgBox "您输入的院校不存在!"ElseMsgBox "请先输入院校名!"End IfLabel2.Caption = "院校数:" & List1.ListCountEnd SubPrivate Sub Command3_Click()List1.ClearText1 = ""End SubPrivate Sub Command4_Click()EndEnd Sub13、Private Sub Check1_Click(Index As Integer)Select Case IndexCase 0If Check1(0).Value = 1 Then Text1.FontBold = True Else Text1.FontBold = FalseCase 1If Check1(1).Value = 1 Then Text1.FontItalic = True Else Text1.FontItalic = FalseCase 2If Check1(2).Value = 1 Then Text1.FontUnderline = True Else Text1.FontUnderline = False Case 3If Check1(3).Value = 1 Then Text1.FontStrikethru = True Else Text1.FontStrikethru = False End SelectEnd SubPrivate Sub Command1_Click()HScroll1.Value = 8For i = 0 To 3Check1(i).Value = 0Option1(i).Value = FalseOption2(i).Value = FalseNextText1.FontSize = 12Text1.FontName = "宋体"Text1.ForeColor = vbBlackEnd SubPrivate Sub Command2_Click()EndEnd Sub'将text1的属性MultiLine设置为“True”Private Sub Form_Load()Text1 = "好雨知时节," & vbCrLf & "当春乃发生。
VB实验报告参考答案(本部)
![VB实验报告参考答案(本部)](https://img.taocdn.com/s3/m/26a5ec3d4a7302768e993987.png)
实验报告参考答案(本部)实验一VB集成开发环境实验内容(3):四、设计流程①界面设计:在窗体上画一个标签。
②属性设置:标签的width设为2000,height设为300。
有边框是BordStyle设为1,背景透明是BackStyle设为0。
显示“等级考试”是将caption设为“等级考试”,居中是将Alignment 设为2。
③代码设计:无五、关键代码(注意:解题方法有多种,其它方法只要能完成实验任务也是正确的)无六、调试和测试结果至少要写测试结果正确,如果写了调试中出现的典型问题及解决方法,分数给高些实验二简单的VB程序设计实验内容(3):四、设计流程①界面设计:在窗体上画一个标签、一个命令按钮。
②属性设置:固定边框是BordStyle设为1,背景透明是BackStyle设为0。
③代码设计:分别在3个事件过程form_load(),form_click(),Cmd1_click()中编程。
其中图片从网上下载,与工程文件、窗体文件保存在同一目录,代码中使用相对路径app.path。
五、关键代码(注意:解题方法有多种,其它方法只要能完成实验任务也是正确的)Private Sub Form_Load()Form1.Picture = LoadPicture(App.Path + "\tu.jpg")Form1.Caption = "我的变化"End SubPrivate Sub Form_Click()LBL1.Top = 0LBL1.Left = 0End SubPrivate Sub Cmd1_Click()Cmd1.Height = 1500Cmd1.Width = 2000End Sub六、调试和测试结果至少要写测试结果正确,如果写了调试中出现的典型问题及解决方法,分数给高些实验三数据类型及其运算四、设计流程①界面设计:在窗体上画1个文本框、1个标签、6个命令按钮。
VB实验报告答案-推荐下载
![VB实验报告答案-推荐下载](https://img.taocdn.com/s3/m/b500e36c16fc700abb68fcac.png)
VB编程实验报告答案 完整版
![VB编程实验报告答案 完整版](https://img.taocdn.com/s3/m/c58f2d8e84868762caaed5f8.png)
实验一:一、选择1.D2.D3.B4.A5.B6.C7.CD8.D9.D 10. BC11. A 12.D 13. D 14. C 15. A二、填空1.windows2. 中断3.工具箱4.代码5.分类6.form2.show7. 出现语法错误8. 错9. 事件10. 面向对象11.工程文件结构12. 工程13. 设计程序代码14. 双击窗体15. C:\Program Files\Microsoft Visual Studio\VB98 或者VB的安装文件夹16.属性17.方法18.font 19. form_load() 20.对象实验二:一、选择1.B2.C3. B4.C5.C6.C7.B8.B9.D 10. A11. C 12.C 13. C 14. B 15. A16.C 17.B 18.D 19.C 20. C二、填空1. Form_Click()2. Interval、50003..vbp .frm4.left top Height、Width twip5.picture6.load7. locked8. font Alignment9. GotFocus() LostFocus() 10. 属性窗口程序代码实验三:一、选择1.A2.BC3.BC4.A5.A6.A7.BCD8.D9.B 10. B11. B二、判断题不合法的变量:3. 4. 5. 6. 8. 10. 11. 14.15. 16.三、1、abs(x+y)2. (3+x*y)^23. (-b+sqr(b^2-4*a*c))/(2*a)4.sin(30*3.14/180)+exp(2)四、1. int(rnd* 71+20) 或int(rnd* 71)+202. x<0 and y>0 or x>0 and y<0 或者x*y<03. x mod 3=0 or x mod 7=0或x/3=x\3 or x/7=x\74. x>=10 and x<205. x>="A" and x<="Z"6. left(s,3)实验四:一、选择1.C2.D3. C4.D5.A6.D7.B8.B9.A 10. C二、填空1. 48.71E-01, -4.87122. 关系、逻辑、算术3. 900,100,mid(s,2,1)4.m、1,2,3 、print m & "月是第二季度"、end select 三、1. X=4 y=132. 10实验五一、选择B C B A C二、填空(1)for x=2 to 10s*(1-1/x)(2) 1 t>1E-6(3) j t(4) 5 11 5实验六一、选择B C C C D D D D C A实验七一、选择1C 2C 3D 4A 5B 6D 7AB 8A 9A 10A 二、填空(1)n!(2)1+1+2+3+4+……+n(3)n是否是素数(4)冒泡排序(5)递归调用产生斐波那契数列(6)求最大公约数和最小公倍数第八页编程2-1Private Sub Command1_Click()Label3 = Val(Text1) * Val(Text2)End SubPrivate Sub Command2_Click()Label3 = Val(Text1) / Val(Text2)End Sub2-2Private Sub Command1_Click()Picture1.Picture = LoadPicture("d:\tu1.jpg") End SubPrivate Sub Command2_Click()Picture1.Picture = LoadPicture("d:\tu2.jpg") End SubPrivate Sub Command3_Click()Picture1.Visible = FalseEnd Sub2-5Private Sub Form_Load()Image1.Picture = LoadPicture("C:\Documents and Settings\All Users\Documents\My Pictures\示例图片\Sunset.jpg")End SubPrivate Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Image1_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer()Image1.Left = Int(Rnd * (Form1.ScaleWidth - Image1.Width)) Image1.Top = Int(Rnd * (Form1.ScaleHeight - Image1.Height)) End Sub第11页编程2-3Private Sub Command1_Click()Dim x%, y%x = Int(Rnd * 900 + 100)Print "产生的随机数:"; xy = (x Mod 10) * 100 + (x \ 10 Mod 10) * 10 + x \ 100Print "反序数:"; Format(y, "000")End SubPrivate Sub Command2_Click()Dim x%, y As Stringx = Int(Rnd * 900 + 100)Print "产生的随机数:"; xy = Trim(Str(x))Print "反序数:" & Right(y, 1) & Mid(y, 2, 1) & Left(y, 1)End SubPrivate Sub Form_Load()End Sub2-4Private Sub Command1_Click()Dim m%, n%Randomizem = Val(Text1): n = Val(Text2)x = Int(Rnd * (n - m + 1) + m)y = Int(Rnd * (n - m + 1) + m)z = Int(Rnd * (n - m + 1) + m)Label3 = m & "到" & n & "之间的3个随机数为: " & x & Space(3) & y & Space(3) & zEnd SubPrivate Sub Form_Load()End Sub2-5Private Sub Command1_Click()Label1.Caption = DateEnd SubPrivate Sub Command2_Click()Label2.Caption = TimeEnd SubPrivate Sub Command3_Click()Label3.Caption = WeekdayName(Weekday(Date)) End SubPrivate Sub Form_Load()End Sub第十五页2-1方法一Private Sub Command1_Click()Dim x!, a!, aa%, b!, bb%, c!, cc$x = Val(Text1)a = x * 180 / 3.14aa = Int(a)b = (a - aa) * 60bb = Int(b)c = (b - bb) * 60cc = Format(c, "#.000")Label2 = "弧度" & Text1 & "转换为" & aa & "度" & bb & "分" & cc & "秒"End Sub方法二Private Sub Command1_Click()x = InputBox("请输入弧度数值", "弧度转换", 0)xx = Val(x)a = x * 180 / 3.14aa = Int(a)b = (a - aa) * 60bb = Int(b)c = (b - bb) * 60cc = Format(c, "#.000")MsgBox "弧度" & x & "转换为" & aa & "度" & bb & "分" & cc & "秒"End Sub2-2Private Sub Command1_Click()Dim x%x = Val(Text1)If x / 400 = x \ 400 Or x Mod 4 = 0 And x Mod 100 <> 0 ThenLabel2 = Text1 & "年是闰年"ElseLabel2 = Text1 & "年不是闰年"End IfEnd Sub2-3方法二Private Sub Command1_Click()Dim x%, y%, z%x = InputBox("输入第一个数")y = InputBox("输入第二个数") z = InputBox("输入第三个数") If x > y Then t = x: x = y: y = t If y > z Then t = y: y = z: z = t If x > y Then t = x: x = y: y = t Print x, y, zEnd SubPrivate Sub Form_Load()End Sub方法一Private Sub Command1_Click() Dim x%, y%, z%x = Val(Text1)y = Val(Text2)z = Val(Text3)If x > y Then t = x: x = y: y = t If y > z Thent = y: y = z: z = tIf x > y Thent = x: x = y: y = tEnd IfLabel1 = x & Space(5) & y & Space(5) & z End Sub2-4方法一Private Sub Command1_Click()x = Val(InputBox("请输入上网时间:"))If x <> -1 ThenSelect Case xCase Is < 10fei = 25Case 10 To 50fei = x * 2Case 50 To 100fei = x * 1.5Case Is >= 100fei = x * 1End SelectMsgBox "上网费用为:" & fei & "元"End IfPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()End Sub方法二Private Sub Command1_Click()Dox = Val(InputBox("请输入上网时间:", , -1)) If x <> -1 ThenSelect Case xCase Is < 10fei = 25Case 10 To 50fei = x * 2Case 50 To 100fei = x * 1.5Case Is >= 100fei = x * 1End Selectzongfei = zongfei & Space(3) & fei MsgBox zongfei, , "上网费用为" ElseExit DoEnd IfLoopEnd SubPrivate Sub Command2_Click() EndEnd SubPrivate Sub Form_Load()End Sub2-5第18页2-3Private Sub Command1_Click()n = 0DoIf n Mod 2 = 1 And n Mod 3 = 2 And n Mod 5 = 4 And n Mod 6 = 5 And n Mod 7 = 0 Then Exit Don = n + 1LoopPrint nEnd Sub]2-5Private Sub Command1_Click()x = Val(Text1)y = x * 4n = 0Do While x <= yx = x * (1 + 0.1)n = n + 1Print xLoopPrint x, nEnd Sub2-6Private Sub Command1_Click()n = Val(InputBox("输入计算到第几项:", , 0)) For i = 1 To ns = s + (-1) ^ (i + 1) * iNextPrint n, sEnd SubPrivate Sub Form_Load()-8End Sub2-8Private Sub Command1_Click()Dim s As Double, pi As Doublen = 1: s = 0Do While 1 / (2 * n - 1) >= 0.0001s = s + (-1) ^ (n + 1) * 1 / (2 * n - 1)n = n + 1Looppi = 4 * sPrint piEnd Sub2-9Private Sub Command1_Click()For n = 100 To 999k = Trim(Str(n))If n = Left(k, 1) ^ 3 + Mid(k, 2, 1) ^ 3 + Right(k, 1) ^ 3 Then Print nNextEnd Sub2-11Private Sub Command1_Click()s = 0: Max = 0: Min = 1000For i = 1 To 20Randomizex = Int(Rnd * 50 + 51)Print x;If x > Max Then Max = xIf x < Min Then Min = xs = s + xNext iaver = s / 20PrintPrint "max="; Max, "min="; Min, "aver="; aver End SubPrivate Sub Form_Load()End Sub。
第9章习题参考答案
![第9章习题参考答案](https://img.taocdn.com/s3/m/1bf48e771fd9ad51f01dc281e53a580216fc5082.png)
第9章习题参考答案第9章习题解答1.思考问题(1)vb对象的3要素是指什么?它们的作用是什么?答:对象的属性、方法、事件就称为对象的三要素。
1)属性属性描述对象的性质或特征,即对象的样子。
2)方法方法反映对象的行为,即该对象会干什么。
3)事件事件指示对象在什么条件下发生了什么,也就是说,在什么条件下,执行哪段代码。
(2)变量的范围是什么?什么类型的示波器?变量的生存期是多少?生存的类型是什么?答复:1)变量的作用域是指变量的有效范围。
2)根据范围,变量可分为局部变量、形式级变量、模块级变量和全局变量。
局部变量:在流程体中定义。
它的范围是从定义到语句块或进程结尾的局部范围。
它不能在其他地方使用。
窗体级变量:是在窗体代码的通用声明区用dim或private关键字定义的变量,它不属于该窗体的任何过程,可以被本窗体内的所有过程访问,而不能为其他窗体或模块使用。
窗体级变量与窗体的生存期一样,只要窗体不消失,它就不消失。
在“专用”或“模块”级别定义的变量是在“专用”或“模块”级别定义的变量。
它不属于本模块的任何进程,可以被本模块中的所有进程访问,但不能用于其他模块或表单。
全局变量:是在窗体或模块的通用声明区用public关键字进行定义的变量,它在整个工程的所有过程中均可使用,且在应用程序运行过程中一直存在。
3)变量的生存期表示它可以存储值的时间段。
变量的值可以在其生命周期内更改,但变量始终存储一些值。
也就是说,在程序执行的动态过程中,在哪个阶段变量存在。
4)局部变量根据生存期分为动态局部变量和静态局部变量,两者的区别是:(a)动态局部变量的生存期是:当程序执行定义该变量的dim语句时,该变量在内存中建立,然后该变量“出生”;当程序继续执行,直到变量所在的程序块(或进程)结束时,变量“死亡”,它所代表的值不再存在。
如果再次执行变量的过程,并且再次执行定义变量的dim语句,则新变量将“出生”,并且与上次“死亡”的同名变量无关。
VB实验任务9答案
![VB实验任务9答案](https://img.taocdn.com/s3/m/27c4c0a40029bd64783e2c19.png)
实验任务九参考答案课程名称:程序设计基础VB实验名称——八、循环结构程序设计(2)一、实验目的:1.进一步掌握循环语句的基本结构2.清楚循环流程,掌握循环语句的描述4.掌握多重循环结构程序的设计方法二、实验内容(包括实验要求(题目)、实验步骤、程序清单、运行情况):程序完善题的做题技巧和方法建议,先根据程序运行的参考界面和题目要求,分析代码中变量和对象各自的作用(一般从输入或输出方面着手推导和分析),然后填充程序[希望同学们通过实践掌握]实验1 阅读程序,人工列表写出下列循环的运行次数和执行结果(注意输出格式),并上机验证结果,并充分使用单步实验2实验书103页实验5-11 改错题。
窗体如图所示。
要求程序运行时,在文本框text1中输入一个姓氏,单击“删除”按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。
编程以下程序实现此功能。
在调试时发现,如输入“陈”,可以正确删除所有“陈”的项目,但输入“刘”,但输入“刘”,则只删除了“刘邦”,如图b 所示,这说明程序不能适应所有情况,需要修改。
Private Sub Command1_Click() Dim n%, k%n = Len(Text1.Text)For k = List1.ListCount - 1 To 0 Step -1If Left(List1.List(k), n) = Text1.Text Then List1.RemoveItem k End If Next k End Sub实验3 实验书实验6-5 编程实现求Armstrong 数,Armstrong 数具有如下特征:一个n 位数等于其各位数的n 次方之和。
例如,153=13+53+331634=14+64+34+44提示:把数值转换成字符串后,利用Mid 函数取每一位上的数。
法一:Private Sub Command1_Click()Dim i As Integer, a As Integer, j%, b As Integer, k%, c%, h As Long, d As Long For i = 10 To 99a = Val(Left(a, 1)) ^ 2 + Val(Right(a, 1)) ^ 2 If a = i Then Print i Next iFor j = 100 To 999b = Val(Left(j, 1)) ^ 3 + Val(Mid(j, 2, 1)) ^ 3 + Val(Right(j, 1)) ^ 3 If b = j Then Print b Next jFor k = 1000 To 9999c = Val(Left(k, 1)) ^ 4 + Val(Mid(k, 2, 1)) ^ 4 + Val(Mid(k, 3, 1)) ^ 4 + Val(Right(k, 1)) ^ 4If k = c Then Print c法二:Dim n%, k%n = Len(Text1.Text)For k = 0 To List1.ListCount - 1If Left(List1.List(k), n) = Text1.Text Then List1.RemoveItem k k = k - 1 End If Next kFor h = 10000 To 99999d = Val(Left(h, 1)) ^ 5 + Val(Mid(h, 2, 1)) ^ 5 + Val(Mid(h, 3, 1)) ^ 5 + Val(Mid(h, 4, 1))^ 5 + Val(Right(h, 1)) ^ 5If d = h Then Print dNext hEnd Sub法二:Private Sub Command2_Click()Dim i&, n%, s&, m%For i = 1 To 99999n = Len(CStr(i))s = 0For j = 1 To ns = s + Mid(CStr(i), j, 1) ^ nNext jIf s = i Then Print iNext iEnd Sub法三:Private Sub Command3_Click()Dim i As Long, a As Long, b As Integer, c As Integer, d As Integer, e As Integer, f As Integer For i = 1 To 99999a = i \ 10000b = (i - 10000 * a) \ 1000c = (i - 10000 * a - 1000 * b) \ 100d = (i - 10000 * a - 1000 * b - 100 * c) \ 10e = i - 10000 * a - 1000 * b - 100 * c - 10 * dn = Len(CStr(i))If i = a ^ n + b ^ n + c ^ n + d ^ n + e ^ n ThenPrint iEnd IfNext iEnd Sub实验4 实验书105页实验5-15在界面上放三个按钮,分别打出下面三幅图。
vb6.0实验九习题与答案
![vb6.0实验九习题与答案](https://img.taocdn.com/s3/m/1179f3d3360cba1aa811da0a.png)
实验九专业_____________ 班级________年级________姓名______________学号_______________一、实验目的1、掌握下拉式菜单和弹出式菜单的设计方法2、掌握菜单事件过程的编写方法二、实验内容1、按图示设置窗体:要求:①建立标题为“幼教”和“退出”主菜单yj和Exit;yj有标题为“三字经”、“弟子规”和“论语”的菜单项szj、dzg和Ly。
②编写适当过程,程序运行时单击“三字经”或“弟子规”在文本框中显示相应的文本。
单击“退出”,则退出应用程序。
P r i v a t e S u b s z j_C l i c k()'三字经内容T e x t1.T e x t="人之初,"&C h r(13)&C h r(10)&"性本善."&C h r(13)&C h r(10)_ &"性相近,"&C h r(13)&C h r(10)&"习相远."E n d S u bP r i v a t e S u b d z g_C l i c k()'弟子规内容T e x t1.T e x t="父母呼,"&C h r(13)&C h r(10)&"应勿缓."&C h r(13)&C h r(10)_ &"父母命,"&C h r(13)&C h r(10)&"行勿懒."E n d S u bP r i v a t e S u b t c_C l i c k()'退出程序E n dE n d S u b'|r e m为使文字可以换行成功,还需设置t e x t1的M u l t i L i n e属性为t r u e'|r e m C h r(13)表示回车C h r(10)表示换行2、按图示设置窗体:要求:①建立标题为“整数处理”和“清除”主菜单zscl和qc;zscl有标题为“数位求和”和“非零数位求积”的菜单项swqh和swqj。
VB实验及答案
![VB实验及答案](https://img.taocdn.com/s3/m/9212567125c52cc58bd6be8d.png)
对象名称
属性名称
Form1
Caption
Command1 Caption
Label1
Caption
Label2
Caption
Label3
Caption
Text1、Text2 Text
属性值 象限判断 判断 X= Y=
(3)编写事件代码: Private Sub Command1_Click() Dim x!, y!
Private Sub Command2_Click() Dim f!, c! c = Val(Text2.Text) f = 9 / 5 * c + 32 Text1 = Str(f)
End Sub
(4)程序的运行及保存。 4 求圆的面积及圆柱体的体积,界面如图 2-3 所示。
【步骤】 (1)设计应用程序的界面:在窗体上创建两个命令按钮 Command1 和 Command2,四个标签 Label1、Label2、Label3 和 Label4,四个文本框 Text1、Text2、Text3 和 Text4。 (2)设置对象的属性
【步骤】
( 1 ) 在 窗 体 中 创 建 一 个 标 签 Label1 、 一 个 命 令 按 钮 Command1。
(2)在属性窗口中设置对象的属性:
对象名称
属性名称
属性值
Form1
Caption
设计界面
Label1
Caption
请留意此处
Command1
Caption
单击此处
(3)在 Command1 的 Click 事件中编写程序代码:
x = Val(Text1) y = Val(Text2) If x > 0 Then
VB第九章自测题及答案
![VB第九章自测题及答案](https://img.taocdn.com/s3/m/88849ad333d4b14e85246808.png)
第9章自测题及其参考答案9.1 文件及其基本操作自测题一.单项选择题(共40分,每小题10分)1.若以读的方式打开顺序文件“d:\file1.dat”,则正确的语句是()。
a) Open “d:\file1.dat” For Output As #1b) Open “d:\file1.dat” For Input As #1c) Open “d:\file1.dat” For Binary As #1d) Open “d:\file1.dat” For Random As #12.若使已打开的文件不能被其它用户进行写操作,则在打开文件语句中应使用()参数。
a)Shared b)Lock Readc)Lock Write d)Lock Read Write3.下列访问方式中,()访问方式不能以不同的文件号打开当前未关闭的文件。
a)Output b)Inputc)Random d)Binary4.要判别顺序文件中的数据是否读完,应使用()函数。
a)LOF b)LOCc)EOF d)FreeFile二.填空题(共40分,每小题10分)1.要关闭所有已打开的文件,可以使用的语句为()。
2.为了获得当前还没有使用的通道号,可以使用()函数。
3.若要在8号通道上建立顺序文件“c:\dir1\file2.dat”,使用的语句为()。
4.假设随机文件“c:\dir1\file3.dat”的每条记录占用100个字节的存贮空间,则在5号通道上打开该随机文件使用的语句为()。
三.问答题(20分)在VB中,要对数据文件中的数据进行读写操作一般要经过哪三步?参考答案一.单项选择题1.b 2. c 3. a 4. c二.填空题1.Close2.FreeFile3.Open “c:\dir1\file2.dat” For Output As #84.Open “c:\dir1\file3.dat” For Random As #5 Len=100三.问答题答:(1)打开文件。
vb实验作业参考答案
![vb实验作业参考答案](https://img.taocdn.com/s3/m/f80ca147eef9aef8941ea76e58fafab069dc442d.png)
vb实验作业参考答案VB实验作业参考答案引言:Visual Basic(VB)是一种基于事件驱动的编程语言,广泛应用于Windows操作系统的软件开发。
在学习VB编程过程中,实验作业是非常重要的一部分,通过实践来巩固所学知识。
本文将提供一些VB实验作业的参考答案,帮助读者更好地理解和掌握VB编程。
一、VB基础知识实验作业参考答案1. 实验题目:编写一个VB程序,实现两个整数的加法运算,并将结果显示在文本框中。
参考答案:```Private Sub btnAdd_Click()Dim num1 As IntegerDim num2 As IntegerDim result As Integernum1 = CInt(txtNum1.Text)num2 = CInt(txtNum2.Text)result = num1 + num2txtResult.Text = CStr(result)End Sub```2. 实验题目:编写一个VB程序,实现输入一个数字,判断该数字是奇数还是偶数,并在消息框中显示结果。
参考答案:```Private Sub btnCheck_Click()Dim num As Integernum = CInt(txtNum.Text)If num Mod 2 = 0 ThenMsgBox "该数字是偶数"ElseMsgBox "该数字是奇数"End IfEnd Sub```二、VB控件应用实验作业参考答案1. 实验题目:编写一个VB程序,实现一个简单的计算器功能,包括加法、减法、乘法和除法操作。
参考答案:```Private Sub btnAdd_Click()Dim num1 As DoubleDim num2 As DoubleDim result As Doublenum1 = CDbl(txtNum1.Text) num2 = CDbl(txtNum2.Text)result = num1 + num2txtResult.Text = CStr(result) End SubPrivate Sub btnSubtract_Click() Dim num1 As DoubleDim num2 As DoubleDim result As Doublenum1 = CDbl(txtNum1.Text) num2 = CDbl(txtNum2.Text)result = num1 - num2txtResult.Text = CStr(result) End SubPrivate Sub btnMultiply_Click() Dim num1 As DoubleDim num2 As DoubleDim result As Doublenum1 = CDbl(txtNum1.Text) num2 = CDbl(txtNum2.Text)result = num1 * num2txtResult.Text = CStr(result) End SubPrivate Sub btnDivide_Click() Dim num1 As DoubleDim num2 As DoubleDim result As Doublenum1 = CDbl(txtNum1.Text)num2 = CDbl(txtNum2.Text)If num2 = 0 ThenMsgBox "除数不能为0"Elseresult = num1 / num2txtResult.Text = CStr(result)End IfEnd Sub```2. 实验题目:编写一个VB程序,实现一个简单的登录界面,包括用户名和密码输入框以及登录按钮。
VB电脑课实验-答案汇总
![VB电脑课实验-答案汇总](https://img.taocdn.com/s3/m/580206634028915f804dc2df.png)
学院专业(班级)姓名学号任课教师目录实验一 Visual Basic编程环境和控件 (1)实验二窗体及基本控件使用 (7)实验三顺序结构程序设计 (14)实验四选择结构程序设计 (20)实验五选择结构程序设计(续) (25)实验六循环结构程序设计 (33)实验七循环结构程序设计(续) (38)实验八常用控件 (42)实验九常用控件(续) (51)实验十数组 (56)实验十一数组(续) (65)实验十二顺序文件 (70)实验十三过程 (77)实验十四过程(续) (84)实验十五菜单及通用对话框 (90)实验十六随机文件(选作) (94)附录:VB统考编程题(精选) (98)期末自测题(A卷) (108)期末自测题(B卷) (113)实验报告的整理与编写上机实验结束后,编写实验报告是软件工程的要求,也是培养科学作风的重要途径,实验报告的主要内容包括:(1)实验目的实验作为教学的一个重要环节,其目的在于更深入地理解和掌握课程教学中的有关基本概念,应用基本技术解决实际问题,从而进一步提高分析问题和解决问题的能力。
因此,当我们着手做一个实验的时候,必须明确实验的目的,以保证达到课程所指定的基本要求。
在写实验报告时,要进一步确认是否达到了预期的目的。
(2)实验内容实验的目的是要通过解决一些具体问题来达到的。
在书中,每一部分都安排了多个实验题目,根据教学安排、进度、实验条件、可提供的机时、学生的基础等因素,可以选择其中的几个或全部。
因此,在实验报告中,实验内容是指本次实验中实际完成的内容。
在每一个实验题目中,一般都提出一些具体要求,其中有些具体要求是为了达到实验目的而提出的,不仅有具体的实验题目,还应包括具体要求。
(3)程序设计说明包括算法设计思路,必要的流程图,界面设计说明、使用模块及变量的说明等。
(4)源程序代码Visual Basic的源程序包括界面设计和代码。
程序设计的产品是程序,它应与算法或流程图相一致,要与用户界面设计一致。
VB实验书答案
![VB实验书答案](https://img.taocdn.com/s3/m/51eac465a45177232f60a2cb.png)
第1章一、选择题1.D 2.C 3.C 4.C 5.B 6.B7.C 8.A 9.D 10.D 11.B 12.A13.D 14.C 15.B 16.D 17.D 18.D19.C 20.A 21.C 22.B 23.B 24.C 25.C 26.C 27.C 28.B 29.B 30.B 二、填空题1.工程2.(1)程序和数据(2)属性3.(1)对象(2)事件4.“按字母顺序”5.(1)窗体(2)控件(3)菜单6.(1)对象属性(2)事件过程7.多8.标准模块9.视图10.对象查看按钮11.窗体布局12.Alt+Q第2章一、选择题1.D 2.B 3.A 4.A 5.D 6.A 7.B 8.C 9.C 10.A 11.B 12.B 13.B 14.B 15.B 16.C 17.A 18.A 19.A 20.B 21.C 22.C 23.A 24.C 25.A 26.C 27.B 28.C 29.D 30.D二、填空题1.(1)Print (2)0,02.(1)左键(2)右键3.(1)窗体(2)Font4.(1)1 (2)MDI父窗体5.Moveable6.(1)在属性窗口中设置(2)在程序代码中设置7.BackColor8.(1)Name (2)Caption9.(1)Print (2)Cls10.工程11.Hide12.Unload13..frm14.工程15.MaxButton第3章一、选择题1.D 2.D 3.A 4.D 5.B 6.B 7.C 8.B9.B 10.C 11.C 12.A 13.D 14.D 15.D 16.A17.B 18.D 19.B 20.C 21.C 22.B 23.D 24.A25.B 26.D 27.D 28.C 29.B 30.C 31.B 32.D33.A 34.B 35.B 36.C 37.D 38.C 39.A 40.C41.A 42.D 43.C 44.B 45.B 46.A47.B 48.D49.B 50.C 51.C 52.B 53.C 54.A 55.A 56.B二、填空题1.(1)窗体(2)图片框(3)Clear2.周期性地自动引发事件3.(1)Enabled (2)Locked4.TabStop5.Name和Caption(或者Name和Text)6.Timer7.Scroll和Change8.(1)0(2)−19.(1)Hide(2)Show10.(1)List(2)Selected11.ASCII码12.(1)Shift (2)Ctrl (3)Alt13.(1)DragMode (2)1 (3)DragMode (4)014.(1)MousePointer (2)99 (3)MouseIcon15.Combo1.List(Combo1.ListIndex)16.Change17.(1)密码验证(2)请输入密码:(3)* (4)验证18.(1)Unload (2)Show19.(1)BorderStyle (2)Shape20.(1)Chk1.Value(2)Text3.Passwordchar = "" (3)Text2.Text 21.(1)选择(2)性别(3)False (4)True22.Pic1.Picture=loadpicture("D:\Pic\Fishing.bmp")23.(1)KeyAscii=13 (2)a<=100(3)Text2.SetFocus (4)Len(Trim(Text1.Text))第4章一、选择题1.B 2.A 3.C 4.C 5.A 6.C 7.A 8.B 9.D 10.B 11.D 12.B 13.A 14.A 15.A 16.A 17.B 18.D 19.B 20.B21.C 22.A 23.C 24.B 25.D 26.C 27.C 28.B 29.A 30.D31.D 32.B 33.A 34.A 35.A 36.D 37.B 38.D 39.A 40.D41.B 42.B 43.D 44.C 45.A 46.D 47.D 48.D 49.A二、填空题1.(1)123 (2)567(3)889 (4)12300(5)02.(1)255 (2)冒号“:”(3)续行符“_”(空格和下划线)3.x>=-5 And x <=54.(1)(X+Y)<10 And (X−Y)>0(2)X*Y>0 And X=Int(X)And Int(Y)=Y(3)X*Y=0 And X+Y<>05.A<>0 And B*B –4*A*C>=06.(1)8888.30(2)628(3)0.67(4)0.57(5)hello(6)THIS IS A GOOD IDEA7.x+y<=8And x−y>88.x <100 And x >=09.x<=−5 or x >=510.6~1011.(1)(x^3-y^3)/(y*(sin(x))^3+7*log(y))(2)Log(y+cos(x)^2)(3)(a^(b*c)+c^(a*b))^(1/3)(4)abs((exp(x)+sin(x)^3)/(x*(x−y)))(5)log((exp(x*y)+abs(tan(z)^(−1)+cos(x)^3))/(x+y+z))12.(1)False(2)False(3)False13.(1)"10"(2)"输入整数"(3)"输入数据:10" (4)"输入的数据是:"第5章一、选择题1.A 2.B 3.D 4.C 5.C 6.C/D 7.C 8.D9.D 10.C 11.B 12.B 13.C 14.C 15.C 16.B 17.B 18.D 19.B 20.D 21.B 22.B 23.D 24.C 25.D 26.B 27.B 28.C 29.C 30.B 31.C 32.D 33.A 34.D 35.D 36.B 37.D 38.D 39.A 40.B 41.C 42.B 43.A 44.A 45.B 46.D 47.B 48.A 49.B 50.C 51.B 52.C 53.C 54.A 55.B 56.C 57.C 58.D 59.C 60.C 61.C 62.B 63.C 64.C 65.D 66.D 67.A 68.B 69.B二、填空题1. −12. −10Trur−613. 6 12312804. BASIC5. (1)6 (2)14 (3)7 (4)13(5)8 (6)3 (7)9 (8)16. (1)Spc(4)(2)Format(Sqr(a),"0.000")7. 3 −38. false9. * *0* *10. (1)a>0 And b>0 And c >0 (2)a<0 And b <0 And c<011. (1)c = Val(InputBox("请输入第三个数"))(2)b > a (3)b < a12. (1)Select Case x (2)Case Else13. (1)Text1 (2)Text1 (3)Form214. (1)Is (2)Else (3)End Select15. (1)Timer1.Enabled (2)Shape2.Top (3)Top (4)Shape2.Left16. 2117. (1)3 (2)−1818. (1)5.6 (2)519. (1)Aa (2)AaBbCc20. 2821.(1)Happy new year! (2)222.(1)For i = 1 To 5000 (2)i Mod 10 = 023.(1)d = d1 * 1000 + d2 * 100 + d3*10 + d4 (2)d = i * 924.(1)s = s + fz / fm (2)fm = fm + t25.(1)Exit Do (2)Right(Str(i),1)26.(1)Int(Rnd * 9 + 1)(2)Int(Rnd * 6 + 5)(3)j = j * 10 + a (4)If i < n Then Print j;"+";Else Print j;27.(1)n = n \ m (2)m = m + 128. If s > Max Then Max = s29.(1)c To 50 (2)b To 100 (3)1 /(a ^ 2)+ 1 /(b ^ 2)= 1 /(c ^ 2)第6章一、选择题1.A 2.C 3.D 4.C 5.A 6.B 7.C 8.C 9.B 10.C二、填空题1.(1)顺序结构(2)选择结构(3)循环结构2.(1)有穷性(2)确定性(3)有零个或多个输入(4)有一个或多个输出(5)有效性3.(1)自顶向下(2)逐步细化(3)模块化设计(4)结构化编码4.(1)伪代码(2)流程图5.模块化第7章一、选择题1.D 2.C 3.D 4.C 5.D 6.C 7.C 8.A9.D 10.C 11.B 12.D 13.B 14.B 15.B 16.B17.C 18.C 19.C 20.D 21.D 22.A 23.A 24.C25.C 26.D 27.D 28.A 29.C 30.A 31.D 32.D二、填空题1.(1)2 (2)6 (3)1 (4)2 (5)−1 (6)1 2.Variant(或变体型)3.454.(1)2 5 (2)3 65.1 2 1 4 46.0 20 25 30 35 407.−1 –2 –3 –4 –50 –1 –2 –3 –41 0 –1 –2 –32 1 0 –1 –23 2 1 0 –14 3 2 1 0s=−158.0 0 0 0 0 12 14 16 18 209.1 2 3 4 5 12 14 16 18 2010.(1)100 (2)10 (3)10 (4)a((I−1)*10+j)11.(1)Int(Rnd * 1000)(2)arr(i)> Max (3)arr(i)< Min 12.(1)preserve a(n)(2)a(I+1)=a(I)(3)a(I)=m (4)a(I+1)=m13.(1)I,J (2)I,I (3)I,5−I14.(1)a(i)= a(i − 1)(2)a(LBound(a))= j1 (3)k = j15.(1)c(2)<"A" or c(2)> "Z" (2)"Z" (3)"A"(4)keyAscii−1(5)keyAscii+116.(1)t = n (2)i To t – 1 (3)i = i + 1(4)b(i)(5)t = t − 117.(1)Redim A(n)(2)P>n or P <1 (3)P+1 (4)D 18.(1)int(Rnd*99+1)(2)In arr (3)x>50 and x <90(4)sum+x (5)x19.(1)Redim a(n,n)(2)1 to n (3)a(j,k)=i (4)Print 20.(1)7 (2)1 (3)16 (4)10 (5)5第8章一、选择题1.D 2.A 3.A 4.B 5.B 6.D 7.D 8.C 9.D 10.A11.A 12.A 13.C 14.D 15.D 16.C 17.D 18.D 19.C 20.A21.A 22.B 23.B 24.A 25.B 26.C 27.D 28.B 29.D 30.C二、填空题1.(1)4 (2)8 (3)162.1 3 14 3 109 27 93.(1)12 (2)18 (3)36 12 18 (4)36 36 124.(1)8 −2 (2)6 −25.(1)15 (2)36 (3)266.(1)34 (2)26 (3)87.3 5 7 9 58.(1)01 05 02 (2)08 (3)039.(1)10 6 (2)5 4 (3)10 −6 10.(1)17 (2)178 (3)17811.3 3 41 3 10 0 11 0 012.1 62 113 1613.(1)11 (2)61 (3)13614.(1)asicB (2)icBas15.(1)1 1 2 (2)1 3 2 (3)1 2 216.(1)Flag或Flag=True (2)Cstr(n)或Trim(Str(n))(3)Mid(x,i,1)< Mid(x,i + 1,1)17.(1)n = i * i(2)List1.AddItem(CStr(n)+ "=" + CStr(i)+ "*" + CStr(i))(3)ByVal n As Long(4)a(n Mod 10)= 1(5)If js = 2 Then Verify = True18.(1)L = 3 − Len(a)Mod 3 (2)n = Len(a)(3)c = c & Zh(b)(4)n = n + Val(Mid(s,p,1))* 2 ^ i 19.(1)Str(n)& "=" (2)P(i)+ P(j)+ P(k)= n (3)Exit Sub (4)idx = idx + 120.(1)n Mod 2 = 1 And n > 1 (2)s = n & "*3+1"(3)Exit Sub (4)Call Yz(n)第9章一、选择题1.D 2.B 3.B 4.C 5.D 6.C 7.C 8.C 9.C 10.B 11.D 12.B 13.D 14.B 15.B 16.B 17.A 18.B 19.C 20.A 21.A 22.A 23.C 24.B 25.B 26.B 27.C 28.C 29.C 30.B 31.C 32.A 33.A 34.D 35.B 36.C 37.A二、填空题1.Put2.Len3.Append4.Lof5.返回一个可供Open语句使用的文件号6.(1)Open "d:\data1.txt" For Random As #1 Len = Len(s)(2)Put #1,,s7.(1)Input (2)Output(3)0 (4)Close #1,#28.(1)For Append As #1 (2)For Input As #2(3)#1,s第10章一、选择题1.A 2.A 3.C 4.A 5.B 6.B 7.D 8.C9.C 10.C 11.A 12.C 13.D 14.D 15.B 16.A17.D 18.B 19.B 20.D 21.A 22.B 23.B 24.B25.D 26.B 27.C 28.C 29.B 30.C二、填空题1.(1)&(2)Alt (3)−2.菜单项显示区3.“→”按钮4.弹出式菜单5.调整菜单项顺序6.(1)Caption (2)Name (3)Index (4)Checked(5)Enabled (6)Visible7.(1)PopupMenu (2)MouseDown8.Ctrl+E9.(1)Height(2)Width10.(1)Microsoft Rich TextBox Control 6.0 (2)64K11.不可见的12.“部件”13.(1)DialogTitle (2)Filter (3)InitDir(4)ShowOpen或Action=1 14.StatusBar15.(1)不能(2)ToolBar。
VB经典例题(附答案)
![VB经典例题(附答案)](https://img.taocdn.com/s3/m/70920690ec3a87c24028c4b0.png)
实验4:编写一个程序。
要求在窗体内设置7个标签(Label)及7个文本框(TextBox),将每个标签的Text属性值设置为如下表达式。
在程序运行时,单击窗体空白区,可在对应的文本框中输出这些表达式的值。
1)8*3*6\22)7/6*3.2/2.15*(5.5+3.5)3)34\4+4.0^5/124)65\3 mod 3.4*fix(3.8)5)“abg”+”34” & “erert”6)true or not (8+3>=23)7)7>2 or 4<9实验目的:学习VB运算符的使用。
Public Class Form1Private Sub Form1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.ClickTextBox1.Text = 8 * 3 * 6 \ 2TextBox2.Text = 7 / 6 * 3.2 / 2.15 * (5.5 + 3.5)TextBox3.Text = 34 \ 4 + 4.0 ^ 5 / 12TextBox4.Text = 65 \ 3 Mod 3.4 * Fix(3.8)TextBox5.Text = """abg""" + """34""" & """erert"""TextBox6.Text = True Or Not (8 + 3)>= 23TextBox7.Text = 7 > 2 Or 4 < 9End SubEnd Class实验5:编写一个程序。
设a=2,b=3,c=4,d=5,S="ABCDEFGHI]K",求下列表达式的值:(1) 5+(a+b)2(2) cos(b)(sin(a)+1) (3) 8e3ln2(4) Left(S,4) (5) Mid(S, 3,4) (6) Instr(S, "EFG")(7) Lcase(Right(S, 5)) (8) Len(Mid((S, 3)实验目的:学习VB中函数的使用。
vb程序设计教程课后答案与实验题答案(第三版)
![vb程序设计教程课后答案与实验题答案(第三版)](https://img.taocdn.com/s3/m/7c79b99ca98271fe900ef962.png)
习题一答案在教材上找。
习题二1.对象指现实世界中的实体。
每个对象有自己的特征(属性)、行为(方法)和发生在该对象上的活动(事件)。
类是对同一种对象的集合与抽象。
类包含所创建对象的属性数据,以及对这些数据进行操作的方法。
封装和隐藏是类的重要特性,将数据结构和对数据的操作封装在一起,类的内部实现细节对用户来说是透明的。
VB工具箱中的可视图标是VB系统设计好的标准控件类。
通过将控件类实例化,得到真正的控件对象。
在窗体上画一个控件,就将类转换为对象,创建了一个控件对象。
VB中常用的对象是控件。
此外,VB还提供了系统对象。
窗体是个特例,它既是类也是对象。
当向一个工程添加一个新窗体时,实质就由窗体类创建了一个窗体对象。
对象的三要素:属性、事件和方法。
属性:存放对象的数据(决定对象外观及功能)对象属性的设置方法:在设计阶段,利用属性窗口直接设置属性值;程序运行时,通过语句[对象名.]属性名=属性值。
若属性只能在设计阶段设置,在程序运行阶段不可改变,称为只读属性。
事件:发生在对象上的事情。
同一事件,对不同的对象,会引发不同的反应。
事件过程:应用程序处理事件的步骤。
应用程序设计的主要工作就是为对象编写事件过程的代码。
方法:面向对象的程序设计语言,为程序设计人员提供了一种特殊的过程和函数。
方法是面向对象的,调用时一定要指明对象。
2.窗体和控件具有的基本属性“(1) Name属性:名称所创建的对象名称,在程序中引用。
(2) Caption属性:标题该属性决定了对象上显示的内容。
(3) Height、Width、Top和Left属性决定对象的大小和位置。
(4) Enabled 属性:对象是否允许操作(5) Visible 属性:对象是否可见(6) Font 属性组:文本的外观FontName字体、FontSize大小FontBold粗体、FontItalic斜体FontStrikethru 删除线FontUnderline 下划线(7) ForeColor属性:前景颜色(8) BackColor属性:背景颜色(9) MousePointer属性:鼠标指针类型, 设置值范围0~15,由系统指定。
【参考文档】vb实验指导书答案-范文word版 (10页)
![【参考文档】vb实验指导书答案-范文word版 (10页)](https://img.taocdn.com/s3/m/dc995c36e87101f69f31950b.png)
Dim b As Single Dim c As Single Dim y As Single a = 5 b = 2.5 c = 7.8
y = (a * b * 3.14) / (a + b * c) Print y End Sub
2. 参考代码如下:
Private Sub Form_Click() Dim a As Single Dim b As Single Dim c As Single Dim d As Single
本文部分内容来自网络整理,本司不为其真实性负责,如有异议或侵权请及时联系,本司将立即删除!
== 本文为word格式,下载后可方便编辑和修改! ==
vb实验指导书答案
篇一:VB程序设计学习与实验指导书答案(包含实验答案)
VB学习与实验指导测试题
参考答案
第一章
第二章
第三章
第四章
第五章
第六章
第七章
第八章
篇二:VB实验指导书答案
A
14. C 15. C 16. D 17. B 18. A 19. C 20. A 21. A 22. B 23. D 24. C 25. C 26. B 27. D 28. A 29. B 30. A 31. D 32. C
33. D 34. D 35. A 36. A 37. A 38. D 39. B 40. B 41. B 42. B 43. C 44. C 45. C 46. B 47. B 48.
2
4. sq(x As Integer),Function 5. Val(t.Text) 6. 30,70 7. 5
9. 30
10. nAA N, X ,N1,nT1 * X1
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
实验任务九参考答案
课程名称:程序设计基础VB
实验名称——八、循环结构程序设计(2)
一、实验目的:
1.进一步掌握循环语句的基本结构
2.清楚循环流程,掌握循环语句的描述
4.掌握多重循环结构程序的设计方法
二、实验内容(包括实验要求(题目)、实验步骤、程序清单、运行情况):
程序完善题的做题技巧和方法
建议,先根据程序运行的参考界面和题目要求,分析代码中变量和对象各自的作用(一般从输入或输出方面着手推导和分析),然后填充程序[希望同学们通过实践掌握]
实验1 阅读程序,人工列表写出下列循环的运行次数和执行结果(注意输出格式),并上机验证结果,并充分使用单步
实验2实验书103页实验5-11 改错题。
窗体如图所示。
要求程序运行时,在文本框text1中输入一个姓氏,单击“删除”按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。
编程以下程序实现此功能。
在调试时发现,如输入“陈”,可以正确删除所有“陈”的项目,但输入“刘”,但输入“刘”,则只删除了“刘邦”,如图b 所示,这说明程序不能适应所有情况,需要修改。
Private Sub Command1_Click() Dim n%, k%
n = Len(Text1.Text)
For k = List1.ListCount - 1 To 0 Step -1
If Left(List1.List(k), n) = Text1.Text Then List1.RemoveItem k End If Next k End Sub
实验3 实验书实验6-5 编程实现求Armstrong 数,Armstrong 数具有如下特征:一个n 位数等于其各位数的n 次方之和。
例如,153=13+53+33
1634=14+64+34+44
提示:把数值转换成字符串后,利用Mid 函数取每一位上的数。
法一:
Private Sub Command1_Click()
Dim i As Integer, a As Integer, j%, b As Integer, k%, c%, h As Long, d As Long For i = 10 To 99
a = Val(Left(a, 1)) ^ 2 + Val(Right(a, 1)) ^ 2 If a = i Then Print i Next i
For j = 100 To 999
b = Val(Left(j, 1)) ^ 3 + Val(Mid(j, 2, 1)) ^ 3 + Val(Right(j, 1)) ^ 3 If b = j Then Print b Next j
For k = 1000 To 9999
c = Val(Left(k, 1)) ^ 4 + Val(Mid(k, 2, 1)) ^ 4 + Val(Mid(k, 3, 1)) ^ 4 + Val(Right(k, 1)) ^ 4
If k = c Then Print c
法二:
Dim n%, k%
n = Len(Text1.Text)
For k = 0 To List1.ListCount - 1
If Left(List1.List(k), n) = Text1.Text Then List1.RemoveItem k k = k - 1 End If Next k
For h = 10000 To 99999
d = Val(Left(h, 1)) ^ 5 + Val(Mid(h, 2, 1)) ^ 5 + Val(Mid(h, 3, 1)) ^ 5 + Val(Mid(h, 4, 1))
^ 5 + Val(Right(h, 1)) ^ 5
If d = h Then Print d
Next h
End Sub
法二:
Private Sub Command2_Click()
Dim i&, n%, s&, m%
For i = 1 To 99999
n = Len(CStr(i))
s = 0
For j = 1 To n
s = s + Mid(CStr(i), j, 1) ^ n
Next j
If s = i Then Print i
Next i
End Sub
法三:
Private Sub Command3_Click()
Dim i As Long, a As Long, b As Integer, c As Integer, d As Integer, e As Integer, f As Integer For i = 1 To 99999
a = i \ 10000
b = (i - 10000 * a) \ 1000
c = (i - 10000 * a - 1000 * b) \ 100
d = (i - 10000 * a - 1000 * b - 100 * c) \ 10
e = i - 10000 * a - 1000 * b - 100 * c - 10 * d
n = Len(CStr(i))
If i = a ^ n + b ^ n + c ^ n + d ^ n + e ^ n Then
Print i
End If
Next i
End Sub
实验4 实验书105页实验5-15在界面上放三个按钮,分别打出下面三幅图。
数字三角形字母倒三角图形数字菱形图形
Private Sub Command1_Click()
Cls
For i = 1 To 9
Print Spc(9 - i);
For j = 1 To 2 * i - 1
Print CStr(i);
Next j
Print
Next i
Private Sub Command2_Click()
Cls
For i = 1 To 9
Print Spc(i - 1);
For j = 1 To 19 - 2 * i
Print Chr(i + 64);
Next j
Print
Next i
End Sub
Private Sub Command3_Click()
Cls
For i = 1 To 9
Print Spc(9 - i);
For j = 1 To 2 * i - 1
Print CStr(i);
Next j
Print
Next i
For i = 1 To 8
Print Spc(i);
For j = 1 To 17 - 2 * i
Print CStr(9 - i);
Next j
Print
Next i
End Sub
Private Sub Command4_Click()
Cls
For i = 1 To 9
Print Space(9 - i); String(2 * i - 1, CStr(i))
Next i
End Sub
实验5 使用随机函数生成30个学生的成绩,并求其中的最高分和第二高分。
Private Sub Form_Click()
Randomize
Dim a%, b%, i%, max1%, max2%, k%
Print "30个学生的成绩是:"
a = Int(Rnd * 100 + 1) '先生成2个成绩最为最大的两个,存储在max1和max2中
Print a;
max1 = a
a = Int(Rnd * 100 + 1)
Print a;
max2 = a
If max2 > max1 Then '如果max2比max1大,则交换两数
temp = max1
max1 = max2
max2 = temp
End If
For i = 3 To 30
a = Int(Rnd * 100 + 1)
Print a;
If i Mod 10 = 0 Then Print
If a > max1 Then
max1 = a
ElseIf a > max2 Then
max2 = a
End If
Next i
Print "最高分是:" & max1
Print "第二高分是:" & max2
End Sub
三、实验体会(包括对于本次实验的小结,实验过程中碰到的问题等)。