vb程序设计实验指导习题答案
【参考文档】vb实验指导书答案-范文word版 (10页)
第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
实验教材实验-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程序设计教程实验指导与习题解答上机答案
程序代码Private Sub Command1_Click()End SubPrivate Sub Command2_Click() = TrueEnd SubPrivate Sub Command3_Click() = TrueEnd SubPrivate Sub Command4_Click() = 10 = False = FalseEnd Sub初始窗口：单机放大之后窗口：单机下划线之后窗口：单击加粗之后窗口：自测2单击还原之后窗口：Private Sub Command1_Click()Label1 = "visual basic"Text1 = " 程序设计题"End SubPrivate Sub Command2_Click()Text1 = "visual basic"Label1 = " 程序设计题"End Sub初始窗口：单击显示之后窗口：单击交换之后的窗口：自测题3Private Sub Command1_Click()End SubPrivate Sub Command2_Click() = + 30End Sub= + 20= 1初始窗口：单击缩小两倍之后的窗口：单击向右下角移动之后的窗口：自测题4程序代码Private Sub Command1_Click() = "VB 学习"Print"简单的VB程序设计"End SubPrivate Sub Command2_Click()ClsEnd SubPrivate Sub Command3_Click()EndEnd SubPrivate Sub Command3_Click()EndEnd Sub初始化窗口：单击显示之后的窗口：单击清除之后的窗口：自测题5单击退出之后的窗口：Private Sub Comma nd1_Click()HHEnd SubPrivate Sub Comma nd2_Click() =Val + Val End SubPrivate Sub Comma nd3_Click() End End Sub初始化窗口: 单击运算之后窗口: 单击清除之后的窗口:也 I 绘I lirr-：輕 g砖屮 ZBPL H J ^E 霸赴 BAy 噹晔了 ZILT. 相0 ■tap乜=1 业 '-JS-J Q -•ST F■ I” _l ■■ B 事电r 兴/涉审叭暂背巧応科1I gMd I T B ' A bJ El -； F 」 )-1 a □瓷 a QB aitr 硕八— y -I Su日 r>M| PLi.l CnhwJ x> 蚀-7 -■nJ肝 k4・Jii.— Tr«：h^.L 33 -:呻p Ju IpL*口- i-JN h —vid.]F TM IHFLlMv ■ -UKncnm-'|LUIPI> r■41•成 &.■ B WOQULL,:■—PMd P GPrivate Sub Command1_Click()Dim a$= Left(a, 2)End SubPrivate Sub Command2_Click()= Right(a, 2)End SubPrivate Sub Command3_Click()End Sub初始窗口界面输入字符串截取前两个字符截取后两个字符字符串连接自测练习2 Private Sub Form_Click()Dim a%, b%, c%, d%, e%, f%, g%, h%, i%, j%, k%, l% a = 7349e = a Mod 10 ' 个位d = (a \ 10) Mod 10 ' 十位c = (a \ 100) Mod 10 ' 百位b = a \ 1000 ' 千位i = (e + 7) Mod 10 ' 个位h = (d + 7) Mod 10 ' 十位g = (c + 7) Mod 10 ' 百位f = (b + 7) Mod 10 ' 千位交换后的个位交换后的千位交换后的十位交换后的百位l = f * 1000 + g * 100 + h * 10 + i = FalsePrint " 加密前的4位整数是7439"; (Chr(10)); " 加密后的结果是"; l End Sub初始界面单击窗体运行后的界面自测练习1Private Sub Form_Click()Dim a%, b%, c%, d%, e%, f!a = Val(InputBox(" 输入第一个数", "b = Val(InputBox(" 输入第一个数", "f = Fix(f * 100 + / 100& "x/y=" & f, , " 输出的结果"End Sub自测练习2Private Sub Form_Click()Dim a%, b%, c%, d%, e%, f!Print " 和="; ePrint " 平均值="; f 输入一个数", 8)) 输入一个数", 7))MsgBox"x+y=" & c & Chr(10) & "x-y=" & d & Chr(10) & "x*y=" & e & Chr(10)a = Val(InputBox(" 输入第一个数的值"))b = Val(InputBox(" 输入第二个数的值"))c = Val(InputBox(" 输入第三个数的值"))d = Val(InputBox(" 输入第四个数的值"))End Sub自测练习3Private Sub Form_Click()Dim h%, f%, x%, y%h = Val(InputBox(" 输入总头数"))f = Val(InputBox(" 输入总脚数"))x = (4 * h - f) / 2y = (f - 2 * h) / 2Print " 笼中鸡的头数为"; x; 只"Print " 笼中兔的头数为"; y; 只"End Sub自测练习1：Private Sub Form_Click()Dim a%, b%, c%a = Val(InputBox(" 请输入第一条边", " 边长"))b = Val(InputBox(" 请输入第二条边", " 边长"))c = Val(InputBox(" 请输入第三条边", " 边长"))If a + b > c And a + c > b And b + c > a ThenIf a * a + b * b = c * c Or a * a + c * c = b * b Or b * b = c * c = a * a ThenPrint " 直角"ElseIf a = b And b = c ThenPrint " 等边三角形"ElseIf a = b Or a = c Or b = c ThenPrint " 等腰三角形"ElsePrint " 一般三角形"End IfElsePrint " 不是三角形"End IfEnd Sub不是三角形运行结果：初始窗口：输入三条边：运行结果：直角三角形运行结果：等边三角形运行结果如下：等腰三角形：般三角形自测练习2：Private Sub Form_Click()Dim a%, b!a = Val(InputBox(" 请输入"))If a Mod 2 = 0 And a Mod 3 = 0 And a Mod 5 = 0 Then b = Sqr(a)Print a, bElseEndEnd IfEnd Sub初始化窗口: 输入一个数: 运行结果: 自测练习3Private Sub Comma nd1_Click()Dim a%, b% a = ValSelect Case a > 0Case a < 20MsgBox "行李费为元/kg",," 行李费Case a >= 20 And a < 50MsgBox "行李费为元/kg",," 行李费Case a >= 50 And a < 100MsgBox "行李费为元/kg",," 行李费Case Elseb = * 100 + (a - 100) * : MsgBox " 行李费为"& b & "元",,"行李费End SelectEnd Sub初始窗口: 输入10: 输入25: 输入55: 输入120: 自测练习1Op tio n Base 1Private Sub Form_Click()Dim i%, a(1 To 20) As In teger a(1) = 1: a(2) = 1Print a(1);Print a(2);For i = 3 To 10 a(i) = a(i - 1) + a(i - 2)Print a(i);Next iPrintFori = 11 To 16a(i) = a(i - 1) + a(i - 2)Print a(i);Next iPrintFor i = 17 To 20 a(i) = a(i - 1) + a(i - 2) Print a(i);Next i初始界面：运行结果界面：自测练习2Option Base 1Private Sub Form_Load()= 10000= 5000End SubPrivate Sub Command1_Click()Dim i%, j%, t%, a(1 To 4, 1 To 4) As Integer For i = 1 To 4For j = 1 To 4 a(i, j) = Int(Rnd * 10) + 1a(i, j);Next jNext i " 对角线的元素如下"For i = 1 To 4 a(i, i);Next iFor i = 1 To 4 a(i, 5 - i);Next iFor i = 1 To 4 t = a(1, i) a(1, i) = a(4, i) a(4, i) = t Next iFor i = 1 To 4 t = a(i, 2) a(i, 2) = a(i, 3) a(i, 3) = t Next iFor i = 1 To 4Forj = 1 To 4 a(i, j)；Next jNext iEnd Sub运行初始界面:运行结果界面: 自测练习1Sub itostr(a As In teger)Dim b%, c$ a = VaiWhile a >= 1 c = Chr(a Mod 10+ 48) & c0 Fornnl施机;^生的拒畔相应处運输入矩阵茹处理般曲越$a = a \ 10WendEnd SubPrivate Sub Command1_Click()Dim a As Integer a = ValCall itostr(a)End Sub运行初始界面：运行结果界面：验证其他数字：自测练习2：Public Function area(n) As DoubleDim c#, d#, e#, s# n = Val c = (1 - 0) / nWhile e <= 1 d = I * c: e = (I + 1) * c s = s + (Sin(d) + Sin(e)) * c / 2 area = s WendEnd FunctionPrivate Sub Command1_Click()Dim s As DoubleCall area(n) = area(n)End Sub运行初始界面：运行结果：自测练习3Private Sub Form_click() n =Val(InputBox(" 请输入n 的值")) x = Val(InputBox(" 请输入x 的值"))Print "e 的值="; es(n, x)End SubPrivate Function es(n, x)Dim a As Double, b As Double, c As Double, i As Integer a = 1: b = 1: c = 1For i = 1 To n a = x * a: b = b * i: c = c + a / bNext i es = cEnd Function运行初始界面：输入数据：运行结果：自测练习4：For i = 1 To 4For j = i + 1 To 5If a(i) > a(j) Thent = a(i): a(i) = a(j): a(j) = tEnd IfNext jNext iFor i = 1 To 5Print a(i); " ";Next iFor i = 1 To 5If Y < a(i) Thent = a(i): a(i) = Y: Y = tEnd IfNext iFor i = 1 To 6a(6) = tNext iEnd FunctionPrivate Sub Command1_Click()Dim i#, a%(1 To 6), Y%Y = Val(InputBox(" 输入y 的值", " 输入数据"))Insertfun a%(), YPrintFor i = 1 To 6Print a(i); " ";Next iEnd Sub运行初始界面：插入数据：运行结果：自测练习1：Private Sub Command1_Click()If = 1 Then = " 报名参加羽毛球比赛" End IfIf = 1 Then = " 报名参加乒乓球比赛"If = 1 And = 1 ThenEnd If= " 报名参加羽毛球，乒乓球比赛"End IfEnd Sub运行初始界面：运行结果：自测练习4：Private Sub Form_Load()= 24 = " 黑体" = &HFF&End SubPrivate Sub Option1_Click() = " 我是学生"End SubPrivate Sub Option2_Click() = " 我是教师"End SubPrivate Sub Option3_Click() = " 我是工人"Private Sub Option4_Click()End Sub= " 我是农民"End Sub运行初始界面：运行结果：自测练习6：Private Sub Command1_Click()For i = 0 To - 1If (i) = ThenExit ForEnd IfNext iIf i > - 1 ThenEnd IfEnd SubPrivate Sub Command2_Click()If <> -1 ThenFor i = 0 To - 1If (i) = ThenEnd IfExit ForNext iEnd IfEnd SubPrivate Sub Command3_Click()End Sub运行初始界面:自测练习7：Private Sub Command1_Click()= TrueEnd SubPrivate Sub Form_Load()= 20= 20= 20= 20End SubPrivate Sub Timer1_Timer() lbltem = = + 10If VSbwd >= 100 Then lbltishi = " 水开了" = FalseEnd IfEnd Sub运行初始界面：运行结果：自测练习1：Private Sub myhelp_Click()End SubPrivate Sub mymenu1_Click() = " 百货大楼"End SubPrivate Sub mymenu2_Click() = " 利客隆"End SubPrivate Sub mymenu3_Click() = " 稻香村"End Sub运行初始界面：运行结果界面：自测练习2：Private Sub Dis_Click() = " 菜单程序设计" = 20 = " 黑体"End SubPrivate Sub Hid_Click() = FalseEnd Sub运行初始界面：运行结果界面：自测练习3：Private Sub vbhelp_Click() r = MsgBox(" 帮助", , " 程序设计题")End SubPrivate Sub Vbnew_Click() r = MsgBox(" 新建", , " 程序设计题")End SubPrivate Sub vbopen_Click() r = MsgBox(" 打开", , " 程序设计题")End SubPrivate Sub vbsave_Click()自测练习1： r = MsgBox （"存盘”，，" 程序设计题"）End Sub运行初始界面: 运行结果: 自测练习4:Private Sub Comma nd1_Click()End Sub运行初始界面:打开萱我菊園（1）：文件名oa ） ； I立件类型电》：Ir 以只读方式打开區IPrivate Sub Command1_Click()Dim a As String, n%, i%, j%我最近皈由 O ■ \ 27 我的文趋 岡上嘟居^41121(1£S □141130110041145029 口 411旳［)13_辛诒_经济L1D1 亡J jag 己1« iT^ Temp 匚PySoEt 巴第五次实脸要貳文楼 □新建文件夹g2O074£3LS294SS£4 总听ni咫S ! O S6u_p L nyi n J& 1tfySystem已義单SCX倉第五欢实脸要求丈档四寫件基^操作测试內容回数据1国數据1®数据l.dbc0掏门鄱爰甘濒SllfU 实甜直评d Hl 取消Open "E:\" For Input As #1Input #1, a n = Len(a)For i = 1 To nIf Mid(a, i, 1) = "%" Then j = j + 1 Next iClose #1Open "E:\" For Output As #1Print #1, jClose #1End Sub运行初始界面：运行结果：自测练习3：Private Sub Form_Click()Dim x$Open "e:\" For Input As #1Do While Not EOF(1)LoopClose #1Open "e:\" For Append As #1Print #1, x$Close #1Line Input #1, x$运行初始界面：自测练习4Private Sub Form_load()Print " 26 个英文字母"PrintPrint " a b c d e f g h i j k l m n o p q r s t u v w x y z" Print " 字母个数分别为"End SubPrivate Sub Form_Click()Open "E:\" For Output As #1文本$ = InputBox（" 请输入文本"） n = UCase( 文本$)Print #1, nOpen "E:\" For Output As #1For i = 1 To Len(n)ReDim Preserve a(1 To 26) j = Asc(Mid(n, i, 1)) - 64 a(j) = a(j) + 1Next iClose #1For j = LBound(a) To UBound(a)Print a(j);Next jClose #1Dim a%()。
VB60程序设计实践教程习题及答案
VB60程序设计实践教程习题及答案Vb6.0第一章一、判断题1．属性是ViualBaic对象性质的描述，对象的数据就保存在属性中。
2．控件的属性值不可以在程序运行时动态地修改。
3．许多属性可以直接在属性表上设置、修改，并立即在屏幕上看到效果。
4．所谓保存工程，是指保存正在编辑的工程的窗体。
5．面向对象的程序设计是一种以对象为基础，由事件驱动对象执行的设计方法。
6．为了使一个控件在运行时不可见，应该将该控件的Enabled属性设置为Fale。
7．保存ViualBaic文件时，若一个工程包含多个窗体或模块，则系统先保存工程文件，再分别保存各窗体或模块文件。
8．事件是由ViualBaic预先定义的对象能够识别的动作。
9．方法是ViualBaic对象可以相应的用户操作。
10．窗体中的控件，是使用工具箱中的工具在窗体上画出的各图形对象。
11．由ViualBaic语言编写的应用程序有解释和编译两种执行方式。
12．在打开一个ViualBaic工程进行修改后，要另存为一个版本，只需单击“工程另存为…”就行，因为系统将同时保存其他文件。
13．当用Load命令将窗体装入内存时，一定触发窗体的load事件和Activate事件.二、选择题1．要使某个控件不可操作，要对属性进行设置。
A、EnabledB、ViibaleC、CaptionD、Name2．下列不属于对象的基本特征的是A、属性B、方法C、事件D、函数3．当运行程序时，系统自动执行启动窗体的事件过程。
A、ClickB、LoadC、DblClickD、Unload4．ViualBaic中“程序运行”允许使用的快捷键是A、F2B、F5C、Alt+F3D、F85．改变控件在窗体中的左右位置应修改该控件的属性。
A、TopB、LeftC、WidthD、Right6．工程文件的扩展名为A、.vbpB、.baC、.fr某D、.frm7．在ViualBaic中，称对象的数据为A、属性B、方法C、事件D、封装8．下列选项中不属于属性的是10．下列关于属性设置的叙述错误的是A．一个控件具有什么属性是VB预先设计好的，用户不能改变它B．一个控件具有什么属性值是VB预先设计好的，用户不能改变它C．一个控件的大多数属性既可以在属性窗口中设置，也可以用程序代码设置D．一个控件的属性在属性窗口中设置后，还可以再利用程序代码为其设置新值第1页共75页三、填空题1．ViualBaic中可作为其它控件的容器除了窗体外，还有和2．在ViualBaic中，窗体和控件被称为3．窗体是用来存放的容器，窗体的left和top属性是相对对象的。
vb程序设计试题及答案(三)
vb程序设计试题及答案(三)一、单选题1. 在VB中，用于声明变量的关键字是（）。
A. DimB. SubC. FunctionD. Const答案：A2. VB中，用于结束一个程序的运行的语句是（）。
A. EndB. ExitC. StopD. Quit答案：A3. VB中，用于实现循环的关键字是（）。
A. ForB. NextC. DoD. Loop答案：A4. 在VB中，以下哪个不是合法的变量名？（）A. _nameB. name$C. 123nameD. name答案：C5. VB中，用于定义一个数组的关键字是（）。
A. DimB. ReDimC. EraseD. New答案：A二、判断题1. VB中的所有变量都必须先声明后使用。
（）答案：错误2. VB中，If语句后面必须跟Then。
（）答案：正确3. VB中，可以同时声明多个变量。
（）答案：正确4. VB中，使用Mid$函数可以返回字符串中的任意字符。
（）答案：错误5. VB中，可以创建一个没有名称的过程。
（）答案：错误三、填空题1. 在VB中，使用________关键字可以定义一个过程。
答案：Sub 或 Function2. VB中，使用________函数可以获取当前日期。
答案：Date3. VB中，使用________函数可以获取当前时间。
答案：Time4. VB中，使用________函数可以将字符串转换为数字。
答案：Val5. VB中，使用________函数可以将数字转换为字符串。
答案：Str四、简答题1. 请简述VB中事件驱动编程的概念。
答案：事件驱动编程是一种编程范式，程序的执行流程由外部事件（如用户操作、系统消息等）触发，而不是按照预先定义的顺序执行。
2. VB中如何实现一个简单的计算器？答案：可以通过创建一个窗体，添加两个文本框用于输入数字，添加一个按钮用于触发计算事件，再添加一个文本框用于显示结果。
在按钮的点击事件中编写代码实现加、减、乘、除等基本运算。
vb实验编程答案
实验教程实验三顺序结构程序设计编程题参考答案（第47页）1. 输入学生的语文、数学、英语、物理四门课程的成绩，计算该学生的总成绩和平均成绩并输出。
要求使用InputBox分别进行输入，使用Print 方法输出。
2. 输入圆的半径，输出其周长、面积。
要求使用TextBox控件进行输入，使用Label 控件输出。
3. 输入一元二次方程ax2+bx+c=0 的系数a、b、c，输出两个实根。
要求使用TextBox 控件分别进行输入，使用Label控件输出。
实验四选择结构程序设计编程题参考答案（第58页）1. 输入一个，判断其是否能同时被3和7整除。
2. 输入三个数，输出其中的最大值。
6. 编程及输出分段函数的值。
由键盘输入t 的值，计算y 的值7. 输入年龄，输出所处人群：9岁以下为儿童，输出A ；10～19为少年，输出B ；20～29为青年，输出B ；30～49为中年，输出B ； 50以上为老年，输出E ；要求使用Select Case 语句实现。
8. 输入年份，输出对应的属相。
已知1984年为鼠年，要求使用Select Case 语句实现。
实验五 循环结构程序设计编程题参考答案 （第77页）1. 编写程序，求s=1×2×3 + 2×3×4 + … + n ×(n+1) ×(n+2)的值，n 由程序输入。
2.有一个分数序列 ，求出这个序列前20项的和。
Y=t 2 t<1 t 2-1 1≤t<2 t 2-2t+1 2≤t<3 t 2+4t-17 t ≥3, (13)21,813,58,35,23,123. 求∑=101!nn（即1！+2！+3！+…+10！）4. 求一类三位数，该书中有某两位为相同数字，且该数是一个完全平方数，输出这些数并统计个数。
5. 输出所有的“水仙花数”。
“水仙花数”是指一个三位数，其各位数字立方和等于该数本身。
VB程序设计学习与实验指导答案-推荐下载
对全部高中资料试卷电气设备，在安装过程中以及安装结束后进行高中资料试卷调整试验；通电检查所有设备高中资料电试力卷保相护互装作置用调与试相技互术关，系电通，力1根保过据护管生高线产中0不工资仅艺料可高试以中卷解资配决料置吊试技顶卷术层要是配求指置，机不对组规电在范气进高设行中备继资进电料行保试空护卷载高问与中题带资2负料2，荷试而下卷且高总可中体保资配障料置2试时32卷，3各调需类控要管试在路验最习；大题对限到设度位备内。进来在行确管调保路整机敷使组设其高过在中程正资1常料中工试，况卷要下安加与全强过，看度并25工且52作尽22下可护都能1关可地于以缩管正小路常故高工障中作高资；中料对资试于料卷继试连电卷接保破管护坏口进范处行围理整，高核或中对者资定对料值某试，些卷审异弯核常扁与高度校中固对资定图料盒纸试位，卷置编工.写况保复进护杂行层设自防备动腐与处跨装理接置，地高尤线中其弯资要曲料避半试免径卷错标调误高试高等方中，案资要，料求编试技5写、卷术重电保交要气护底设设装。备备置管4高调、动线中试电作敷资高气，设料中课并技3试资件且、术卷料中拒管试试调绝路包验卷试动敷含方技作设线案术，技槽以来术、及避管系免架统不等启必多动要项方高方案中式；资，对料为整试解套卷决启突高动然中过停语程机文中。电高因气中此课资，件料电中试力管卷高壁电中薄气资、设料接备试口进卷不行保严调护等试装问工置题作调，并试合且技理进术利行，用过要管关求线运电敷行力设高保技中护术资装。料置线试做缆卷到敷技准设术确原指灵则导活：。。在对对分于于线调差盒试动处过保，程护当中装不高置同中高电资中压料资回试料路卷试交技卷叉术调时问试，题技应，术采作是用为指金调发属试电隔人机板员一进，变行需压隔要器开在组处事在理前发；掌生同握内一图部线纸故槽资障内料时，、，强设需电备要回制进路造行须厂外同家部时出电切具源断高高习中中题资资电料料源试试，卷卷线试切缆验除敷报从设告而完与采毕相用，关高要技中进术资行资料检料试查，卷和并主检且要测了保处解护理现装。场置设。备高中资料试卷布置情况与有关高中资料试卷电气系统接线等情况，然后根据规范与规程规定，制定设备调试高中资料试卷方案。
VB程序设计指导实验指导与习题解答上机答案
自测1程序代码Private Sub Command1_Click() Label1.FontSize = Label1.FontSize + 3End SubPrivate Sub Command2_Click() Label1.FontBold = TrueEnd SubPrivate Sub Command3_Click() Label1.FontUnderline = TrueEnd SubPrivate Sub Command4_Click() Label1.FontSize = 10Label1.FontBold = FalseLabel1.FontUnderline = FalseEnd Sub初始窗口：单机放大之后窗口：单机下划线之后窗口：单击加粗之后窗口：单击还原之后窗口：自测2程序代码Private Sub Command1_Click() Label1 = "visual basic"Text1 = "程序设计题"End SubPrivate Sub Command2_Click() Text1 = "visual basic"Label1 = "程序设计题"End Sub初始窗口：单击显示之后窗口：单击交换之后的窗口：自测题3Private Sub Command1_Click()Label1.FontSize = Label1.FontSize * (0.5) End SubPrivate Sub Command2_Click()Label1.Top = Label1.Top + 30Label1.Width = Label1.Width + 20Label1.Alignment = 1End Sub初始窗口：单击缩小两倍之后的窗口：单击向右下角移动之后的窗口：自测题4程序代码Private Sub Command1_Click() Form1.Caption = "VB学习" Print "简单的VB程序设计"End SubPrivate Sub Command2_Click() ClsEnd SubPrivate Sub Command3_Click() EndEnd SubPrivate Sub Command3_Click() EndEnd Sub初始化窗口：单击显示之后的窗口：单击清除之后的窗口：单击退出之后的窗口：自测题5程序代码Private Sub Command1_Click()Text1.Text = ""Text2.Text = ""End SubPrivate Sub Command2_Click()Text3.Text = Val(Text1.Text) + Val(Text2.Text) End SubPrivate Sub Command3_Click()EndEnd Sub初始化窗口：单击运算之后窗口：单击清除之后的窗口：单击退出之后的窗口：自测练习1Private Sub Command1_Click() Dim a$a = Text1.TextLabel1.Caption = Left(a, 2) End SubPrivate Sub Command2_Click() a = Text1.TextLabel2.Caption = Right(a, 2) End SubPrivate Sub Command3_Click()Text1.Text = Label1.Caption & Label2.Caption End Sub初始窗口界面输入字符串截取前两个字符截取后两个字符字符串连接自测练习2Private Sub Form_Click()Dim a%, b%, c%, d%, e%, f%, g%, h%, i%, j%, k%, l% a = 7349e = a Mod 10 '个位d = (a \ 10) Mod 10 '十位c = (a \ 100) Mod 10 '百位b = a \ 1000 '千位i = (e + 7) Mod 10 '个位h = (d + 7) Mod 10 '十位g = (c + 7) Mod 10 '百位f = (b + 7) Mod 10 '千位j = ii = f '交换后的个位f = j '交换后的千位k = hh = g '交换后的十位g = k '交换后的百位l = f * 1000 + g * 100 + h * 10 + iText1.Visible = FalsePrint "加密前的4位整数是7439"; (Chr(10)); "加密后的结果是"; lEnd Sub初始界面单击窗体运行后的界面自测练习1Private Sub Form_Click()Dim a%, b%, c%, d%, e%, f!a = Val(InputBox("输入第一个数", "输入一个数", 8))b = Val(InputBox("输入第一个数", "输入一个数", 7))c = a + bd = a - be = a * bf = a / bf = Fix(f * 100 + 0.5) / 100MsgBox "x+y=" & c & Chr(10) & "x-y=" & d & Chr(10) & "x*y=" & e & Chr(10) & "x/y=" & f, , "输出的结果"End Sub自测练习2Private Sub Form_Click()Dim a%, b%, c%, d%, e%, f!a = Val(InputBox("输入第一个数的值"))b = Val(InputBox("输入第二个数的值"))c = Val(InputBox("输入第三个数的值"))d = Val(InputBox("输入第四个数的值"))e = a + b + c + df = e / 4Print "和="; e Print "平均值="; f End Sub自测练习3Private Sub Form_Click()Dim h%, f%, x%, y%h = Val(InputBox("输入总头数")) f = Val(InputBox("输入总脚数")) x = (4 * h - f) / 2y = (f - 2 * h) / 2Print "笼中鸡的头数为"; x; "只" Print "笼中兔的头数为"; y; "只"End Sub自测练习1：Private Sub Form_Click() Dim a%, b%, c%a = Val(InputBox("请输入第一条边", "边长"))b = Val(InputBox("请输入第二条边", "边长"))c = Val(InputBox("请输入第三条边", "边长"))If a + b > c And a + c > b And b + c > a ThenIf a * a + b * b = c * c Or a * a + c * c = b * b Or b * b = c * c = a * a ThenPrint "直角"ElseIf a = b And b = c ThenPrint "等边三角形"ElseIf a = b Or a = c Or b = c ThenPrint "等腰三角形"ElsePrint "一般三角形"End IfElsePrint "不是三角形"End IfEnd Sub不是三角形运行结果：初始窗口：输入三条边：运行结果：直角三角形运行结果：等边三角形运行结果如下：等腰三角形：一般三角形自测练习2：Private Sub Form_Click()Dim a%, b!a = Val(InputBox("请输入"))If a Mod 2 = 0 And a Mod 3 = 0 And a Mod 5 = 0 Then b = Sqr(a)Print a, bElseEndEnd IfEnd Sub初始化窗口：输入一个数：运行结果：自测练习3Private Sub Command1_Click()Dim a%, b%a = Val(Text1.Text)Select Case a > 0Case a < 20MsgBox "行李费为0.2元/kg", , "行李费"Case a >= 20 And a < 50MsgBox "行李费为0.3元/kg", , "行李费"Case a >= 50 And a < 100MsgBox "行李费为0.4元/kg", , "行李费"Case Elseb = 0.2 * 100 + (a - 100) * 0.5: MsgBox "行李费为" & b & "元", , "行李费"End SelectEnd Sub初始窗口：输入10：输入25：输入55：输入120：自测练习1Option Base 1Private Sub Form_Click()Dim i%, a(1 To 20) As Integera(1) = 1: a(2) = 1Print a(1);Print a(2);For i = 3 To 10a(i) = a(i - 1) + a(i - 2) Print a(i);Next iPrintFor i = 11 To 16a(i) = a(i - 1) + a(i - 2) Print a(i);Next iPrintFor i = 17 To 20a(i) = a(i - 1) + a(i - 2) Print a(i);Next i初始界面：运行结果界面：自测练习2Option Base 1Private Sub Form_Load() Form1.Width = 10000 Form1.Height = 5000 End SubPrivate Sub Command1_Click()Dim i%, j%, t%, a(1 To 4, 1 To 4) As Integer For i = 1 To 4For j = 1 To 4a(i, j) = Int(Rnd * 10) + 1Picture1.Print a(i, j);Next jPicture1.PrintNext iPicture3.Print "对角线的元素如下"For i = 1 To 4Picture3.Print a(i, i);Next iPicture3.PrintFor i = 1 To 4Picture3.Print a(i, 5 - i);Next iFor i = 1 To 4t = a(1, i)a(1, i) = a(4, i)a(4, i) = tNext iFor i = 1 To 4t = a(i, 2)a(i, 2) = a(i, 3)a(i, 3) = tNext iFor i = 1 To 4For j = 1 To 4Picture2.Print a(i, j); Next jPicture2.PrintNext iEnd Sub运行初始界面：运运行结果界面：自测练习1Sub itostr(a As Integer) Dim b%, c$a = Val(Text1.Text)While a >= 1c = Chr(a Mod 10 + 48) & ca = a \ 10WendText2.Text = c End SubPrivate Sub Command1_Click()Dim a As Integera = Val(Text1.Text)Call itostr(a)End Sub运行初始界面：运行结果界面：验证其他数字：自测练习2：Public Function area(n) As Double Dim c#, d#, e#, s#n = Val(Text2.Text)c = (1 - 0) / nWhile e <= 1d = I * c:e = (I + 1) * cs = s + (Sin(d) + Sin(e)) * c / 2 I = I + 1Wendarea = sEnd FunctionPrivate Sub Command1_Click() Dim s As DoubleCall area(n)Text1.Text = area(n)End Sub运行初始界面：运行结果：自测练习3Private Sub Form_click()n = Val(InputBox("请输入n的值"))x = Val(InputBox("请输入x的值"))Print "e的值="; es(n, x)End SubPrivate Function es(n, x)Dim a As Double, b As Double, c As Double, i As Integer a = 1: b = 1: c = 1For i = 1 To na = x * a:b = b * i:c = c + a / bNext ies = cEnd Function运行初始界面：输入数据：运行结果：自测练习4：For i = 1 To 4For j = i + 1 To 5If a(i) > a(j) Thent = a(i): a(i) = a(j): a(j) = tEnd IfNext jNext iFor i = 1 To 5Print a(i); " ";Next iFor i = 1 To 5If Y < a(i) Thent = a(i): a(i) = Y: Y = tEnd IfNext iFor i = 1 To 6a(6) = tNext iEnd FunctionPrivate Sub Command1_Click()Dim i#, a%(1 To 6), Y%Y = Val(InputBox("输入y的值", "输入数据")) Insertfun a%(), YPrintFor i = 1 To 6Print a(i); " "; Next iEnd Sub运行初始界面：插入数据：运行结果：41011060蓝志鹏资源1102 实验8自测练习1：Private Sub Command1_Click()If Ch1.Value = 1 ThenText1.Text = "报名参加羽毛球比赛"End IfIf Ch2.Value = 1 ThenText1.Text = "报名参加乒乓球比赛"End IfIf Ch1.Value = 1 And Ch2.Value = 1 Then Text1.Text = "报名参加羽毛球，乒乓球比赛" End IfEnd Sub运行初始界面：运行结果：自测练习4：Private Sub Form_Load() Label1.Alignment = 2 Label1.FontSize = 24 Label1.FontName = "黑体" Label1.ForeColor = &HFF&End SubPrivate Sub Option1_Click() Label1.Caption = "我是学生" End SubPrivate Sub Option2_Click() Label1.Caption = "我是教师" End SubPrivate Sub Option3_Click() Label1.Caption = "我是工人" End SubPrivate Sub Option4_Click() Label1.Caption = "我是农民" End Sub运行初始界面：运行结果：。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
P178 五 1
Private Sub Form_DblClick()
'双击窗体时，通过InputBox输入n，求1/2+1/2^2....+1/2^n
Dim n As Integer
n = InputBox("输入n的值：")
For i = 1 To n
s = s + 1 / 2 ^ i
Next
Print "1/2+1/2^2+...+1/2^" & n & "=" & s End Sub
P185五
Dim a(9) As Integer
Private Sub Command1_Click()
'在文本框显示10个两位随机整数，逗号分隔
Text1.Text = ""
For i = 0 To 9
a(i) = Int(Rnd * 90 + 10)
Text1.Text = Text1.Text & a(i) & "," Next i
Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)
End Sub
Private Sub Command2_Click()
'消息框显示最小值
m = a(0)
For i = 1 To 9
If a(i) < m Then m = a(i)
Next
MsgBox "10个数的最小值为：" & m
End Sub
Private Sub Command3_Click()
'消息框显示最大值
m = a(0)
For i = 1 To 9
If a(i) > m Then m = a(i)
Next
MsgBox "10个数的最大值为：" & m
End Sub Private Sub Command4_Click()
'消息框显示平均值
For i = 0 To 9
m = m + a(i)
Next
MsgBox "10个数的平均值为：" & m / 10 End Sub
P169 2
P169 3
Private Sub Command1_Click()
Label1.Top = Label1.Top - Label1.Height / 2 Label1.Height = Label1.Height * 2
Label1.Left = Label1.Left - Label1.Width / 2 Label1.Width = Label1.Width * 2
Label1.FontSize = Label1.FontSize * 2
End Sub
P169 4
Private Sub VS1_Change()
Text1.Text = VS1.V alue
End Sub
Private Sub VS1_Scroll()
Text1.Text = VS1.V alue
End Sub
P169 5
Private Sub Command1_Click()
For i = List1.ListCount - 1 To 0 Step -1 List2.AddItem List1.List(i)
Next i
List1.Clear
End Sub
P177 2
Private Sub Text1_Change()
Label1.Caption = UCase(Text1.Text)
End Sub
P177 3
Private Sub Cmd1_Click()
Timer1.Enabled = True
End Sub
Private Sub Cmd2_Click()
End
End Sub
Private Sub Timer1_Timer()
a = Pic1.Picture
Pic1.Picture = Pic2.Picture
Pic2.Picture = a
End Sub
P177 4
Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
If a < b Then
Label1.Caption = a
Else
Label1.Caption = b
End If
End Sub
P177 5
Private Sub Form_Load()
Image1.Picture = LoadPicture(App.Path & "/p1.gif")
HS1.Min = 500
HS1.Max = 1000
End Sub
Private Sub HS1_Change()
Image1.Width = HS1.Value
End Sub P184 2
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
a = Label1.BackColor
Label1.BackColor = Label1.ForeColor
Label1.ForeColor = a
End Sub
P184 3
Private Sub Check1_Click()
Text1.FontBold = Check1.Value
End Sub
P184 4
Private Sub Command1_Click()
Dim n As Integer
n = InputBox("请输入一个整数：")
For i = 1 To n
s = s + i ^ 2
Next i
Text1.Text = "从1到" & n & "的平方和为" & s
End Sub。