VB书本实验5答案
【参考文档】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-5 CDCCB 640ABDCD 11-15 CCBBD 16-20 DBCBA二多选1 ABCE 2CE 3 BCE 4 ADE 5 ABCD6ABCDE 7ACD8ABCDE 9 ABC 10ABCDE三判断1-5 X V X V V6-10 V X V V V四填空1 x=int(Rnd*101)End If avg=s/82 i=l to 10Right(str(i),l)或Right(str(i mod 10))3 m*n/GCD(m,n)GCD(b, a mod b)4 Exit For i & “是素数”Next i五阅读程序1-4 DDCB六程序设计1Option Base 1Private Sub Form_click()Dim a( 10)Ciscreatedata a()sort a()Fori= ITo 10Print a(i);Next iEnd SubSub createdata(a())Fori = ITo 10a(i) = Int(Rnd * 101)Next iEnd SubSub sort(a())For i = 1 To 9Forj = 1 To 10-iIf a(j) > a(j + l)Thent = a(j): a(j) = a(j + 1): a(j + 1) = tEnd IfNext jNext iEnd Sub2Private Type ksno As String * 8Bscj As IntegerSjcj As IntegerEnd TypeDim student As ksPrivate Sub Form_Load()Open "c:\ksxx.dat" For Random As#l Len = Len(student)End SubPrivate Sub cmdadd_Click()student.no = Text 1.Textstudent.Bscj = Val(Text2.Text)student.Sjcj = Vai (Tex t3.Text)lastrecord = LOF( 1) / Len(student) + 1Put # 1, lastrecord, studentTextl.Text =Text2.Text = ””Text3.Text ="End SubPrivate Sub cmdquit_Click()Close #1EndEnd Sub1-5 CABCD理论练习二6-10 ABCCD 11-15 BBBAB1 CD2 AD3CE4BC6BCDE7CDE8ABCDE9 ABD三判断二多选1-5 X X X X V 6-10 V V V X X 16-20 DBAAC5 AD10ACDE1n-l 或者Sqr (n)02X y3 1 to 102*i-14Button=2start=True 五阅读程序1-5DBDAB六程序设计1Private Sub Form_click()四填空japan = 47528china = 22257n = 0 True — (x, y)Do While china <= japanchina = china * 1.098japan = japan * 1.028 n= n + 1LoopPrint n & ”年之后，中国GDP将超过日本”End Sub•VB6中的Split函数，其功能足将一字符巾用分界符分割为一字符串数组。
大学计算机VB实验答案
计算机VB实验内容实验二1. 《实践指导》P10，实验1，设计一个加法器程序（请参考本次实验中实例2）。
（程序实际运行效果可参考程序“Prg3.exe” ）保存要求：(1)在lab02文件夹中新建子文件夹“prg3”，用于保存本题的程序；(2)将本题的工程文件命名为“project3.vbp”，窗体文件命名为“form3.frm”。
注：该题的第5项要求中关于“同时第一个文本框获得焦点”部分不要求实现过程Private Sub Command1_Click()Dim a As Single, b As Single, c As Singlea = Val(Text1.Text)b = Val(Text2.Text)c = a + bLabel2 = cEnd SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Label2 = ""End Sub2. 编写一个标签变化程序（请参考本次实验中实例题1来完成，如下图1所示）（程序实际运行效果可参考程序“Prg4.exe” ）保存要求：(1)在lab02文件夹中新建子文件夹“prg4”，用于保存本题的程序；(2)将本题的工程文件命名为“project4.vbp”，窗体文件命名为“form4.frm”。
设计要求：(1)单击窗体（Form1），则窗体打印输出文字“你点击了窗体”（如下图2所示）(2)单击按钮Command1，则在Label1中显示“你点击了按钮Command1，请进入”，字体大小15磅，字体为宋体（如下图3所示）(3)单击按钮Command2，Label1显示“你点击了按钮Command2，请离开”，字体大小25磅，字体为黑体（如下图4所示）（图1）（图2）（图3）（图4）过程Private Sub Command1_Click()Label1.FontSize = 15Label1.FontName = "宋体"Label1 = "你点击了按钮Command1，请进入"End SubPrivate Sub Command2_Click()Label1.FontSize = 25Label1.FontName = "黑体"Label1 = "你点击了按钮Command2，请离开"End SubPrivate Sub Form_Click()Form1.Print "你点击了窗体"End Sub实验三二、设计题1．《实践指导》P20，实验3。
VB实验报告参考答案本部
实验报告参考答案（本部）实验一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教材课后习题答案
<大学程序设计基础-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实验五答案
沈阳师范大学面向对象程序设计实验报告实验题目实验五数组和自定义类型学号姓名刘丽年级10级指导教师王飞提交时间10.24一、实验目的（1）掌握数组的声明、数组元素的引用。
（2）掌握固定长度数组和动态数组的使用差别。
（3）掌握数组常用的操作和常用算法。
（4）掌握列表框和组合框的使用。
（5）掌握自定义类型及数组的使用。
二、实验内容及要求（1）完成课堂讲授的两个示例例5.1和例5.4。
（2）完成实验E第1实验内容（教材p272）。
（3）完成课堂讲授的实例5.10和5.13（教材p113和教材p118）。
（4）完成实验E第7实验内容（教材p273）。
三、实验分析与设计例5.1 计算一个班100个学生的平均成绩，然后统计高于平均分的人数。
步骤1 启动VisualBasic6.0，创建一个“标准EXE”类型的应用程序，步骤2 设计界面：不需添加控件如图所示：步骤3 设置控件属性。
步骤4 事件及编程，如下所示：窗体事件Private Sub Form_Click()Dim mark(1 To 100) As IntegerDim aver!, n%, i%aver = 0For i = 1 To 100mark(i) = InputBox("输入第" & i & "位学生的成绩")aver = aver + mark(i)Next iaver = aver / 100n = 0For i = 1 To 100If mark(i) > aver Then n = n + 1Next iPrint "平均分：", aver, "高于平均分的人数：", nEnd Sub步骤5 单击“运行”按钮运行程序，若程序运行有错，则进入代码窗口中调试。
步骤6 保存文件，生成可执行文件。
例5.4 求一维数组中各元素之和、最小数组元素，并将最小数组元素与数组中第一个元素交换。
VB实验教材的实验、习题答案
第一章VB开发环境与VB概述习题答案习题一、选择题第二章常用控件与界面设计习题答案习题一、选择题第三章实验与习题实验实验3_1…算术运算Private Sub Command1_Click()Const a As Single = 3, b As Single = 2, c As Single = -1, d As Single = 6Dim x As Single, y As Single, z As Single, m As Singlex = 2: y = 1: z = 1: m = 1List1.ClearList1.AddItem a / (b + c / b)List1.AddItem (x + Sqr(x ^ 2 + 1)) ^ (1 / 3)List1.AddItem ((2 * y) / (a * x + b * y) * (a * x - b * y))List1.AddItem 1 + 1 / (1 + 1 / m)List1.AddItem 1 / 2 * (d / 3) ^ (2 * x)List1.AddItem Log(y + Cos(x) ^ 2)List1.AddItem Abs((Exp(x) + Sin(x) ^ 3) / (x + y))List1.AddItem Log((Exp(x * y) + Abs(1 / Tan(z) + Cos(x) ^ 3)) / (x + y - z))List1.AddItem Sin(45 * 3.1415 / 180) + (Exp(10) + Log(10)) / Sqr(x + y + 1) List1.AddItem Log(a) / Log(b)End Sub…关系运算Private Sub Command2_Click()List1.ClearList1.AddItem Mid("Visual Basic", 1, 12) = Right("Language Visual Basic", 12) List1.AddItem "ABCRG" >= "abcde"List1.AddItem Int(134.69) >= CInt(134.9)List1.AddItem 78.9 / 32.77 <= 97.5 / 43.87 And -45.4 > -4.98List1.AddItem Str(32.345) = CStr(32.345)End Sub…逻辑运算Private Sub Command3_Click()Dim x As Integer, y As IntegerDim C1 As Integer, C2 As Integer, C3 As IntegerC1 = 70: C2 = 80: C3 = 90x = 9: y = -2List1.ClearList1.AddItem x + y < 10 And x - y > 0List1.AddItem (x% >= 0 And y% >= 0) Or (x% < 0 And y% < 0)List1.AddItem x = 0 Xor y = 0List1.AddItem C1 + C2 + C3 >= 255 Or C1 > 90 And C2 > 90 And C3 > 80End Sub实验3_2略实验3_3略实验3_4…零售结算Private Sub Command1_Click()Dim dj As Single, sl As Single, je As Single, n As IntegerLabel1.Caption = "金额："dj = InputBox("请输入商品的单价：", "单价框")sl = InputBox("请输入商品的数量：", "数量框", 1)je = dj * sln = MsgBox("共计金额=" & je, vbOKCancel + vbInformation, "结果") If n = vbOK Then Label1.Caption = "金额：" & Str(je) & "元"End Sub…产生随机数Private Sub Command2_Click()Dim m As Integer, n As IntegerDim x1 As Integer, x2 As Integer, x3 As Integerm = V al(Text1.Text): n = Text2.TextRandomizex1 = Int(Rnd * (n - m + 1) + m)x2 = Int(Rnd * (n - m + 1) + m)x3 = Int(Rnd * (n - m + 1) + m)Label4.Caption = "结果为：" & Str(x1) & Str(x2) & Str(x3)End Sub…求逆序数Private Sub Command3_Click()Dim a As Integer, h As Integer, t As Integer, n As IntegerRandomizea = Int(Rnd * (999 - 100 + 1) + 100)h = Mid(CStr(a), 1, 1)t = Mid(CStr(a), 2, 1)n = Right(CStr(a), 1)Label5.Caption = a & "-->" & Format(n * 100 + t * 10 + h, "000")End Sub实验3_5略习题选择题填空题1、2 -32768~327672、整型长整型单精度双精度3、0 False “”4、Chr(Int(Rnd*(Asc(“L”)-Asc(“C”))+Asc(“C”)))x>0 And y>0 Or x<0 And y<0c>=”a” And c<=”z” Or c>=”A” And c<=”Z”x>=10 And x<20x<z Xor y<z5、False2TrueFalseTrueTrueTrueTrue6、18820010068.568765547、a=1 b=1a=2 b=1a=3 b=1a=4 b=18、Y Mod 4=0 And Y Mod 100<>0 Or Y Mod 400 =09、He Said, “Good morning”.10、EDEF11、(A>0 And A<>Int(A)) And (B<0 And B<>Int(B))12、a+b+c+d(a+b+c+d)/4sumaver13、(f-2*h)/2(4*h-f)/2简答题1、略2、Private Sub Form_Click()Const g = 9.8Dim V0 As Single, t As SingleDim S As SingleV0 = InputBox("请输入V0的值：")t = InputBox("请输入时间t的值：")S = (1 / 2) * g * t ^ 2 + V0 * tMsgBox ("位移量为：" & S)End Sub3、Private Sub Command1_Click()Dim l As Single, w As Single, h As SingleDim s As Singlel = Text1.Textw = Text2.Texth = Text3.Texts = (l * w + l * h + w * h) * 2Label1.Caption = sEnd Sub第四章选择分支与循环实验答案实验4-1方法一：x<=5 ; y方法二：Is<=2 ;Case Else实验4-2Shape1.BackColor=vbRed;Inter=15;Inter=Inter-1;Inter;实验4-3b<cb=aa=k实验4-4方法二：s*n ; t/s<10^-5实验4-5方法一:m>=10^-4 ; (-1)^(n+1)*m实验4-6x2=x3 ; <10^-6实验4-7实验4-8i+2*j+5*k=10 ; n实验4-9题目一：a) 5b)i=16 p=12 n=5c)i=9 p=8 n=1题目二：120 10实验4-10N=1 ；S=N& "*3 " & "+1 "实验4-11Len(st); Ch=Lcase(ch) ; Case Else ; Mid(Char,I,1)&St实验4-12i\100 ; (i Mod 100)\10习题一、选择题二、填空题1．Is=0 ; 1 To 10 ; Is >102. 93. 3 ; 4 154. this is a book ;This Is A Book5. 3 ; 3 ; 3 56. 32 07. 48. 15 19. 1 ; 401 ;10410. 1 2 3 ;1 3; 111. (3)12. 2 0 2413. 10 1414. BAABC CBAABC15. X Mod P=0 ; X=X+1 ;Find=False16. abs(t)<10^(-7) ; s+t17. Mid(n,1,1)=Mid(n,2,1) And Mid(n,3,1)=Mid(n,4,1)S=S+118. Mid(n,i,1)>Mid(n,i+1,1)19. "输入n";N/I=0 ;Print I第五章数组实验5_1Int(90 * Rnd) + 10a(i) = a(21 - i)a(21 - i) = t5_2k = x Mod 10i = i + 15_3s5_4max < a(i, j)row = Icol = j5_51ReDim Preserve prime(m)prime(j)5_6d Mod 25_7Exit Fora(j + 1) = a(j)5_8N – IA(j) = A(j + 1)5_9A(i, 1)JMin = MaxNot Flag5_10ch >= "0" And ch <= "9"P = P & chReDim Preserve C(k)5_11Private Sub Form_Click()Dim x As Integer, i As Integer, k As Integer, j As Integer Dim a() As Integerx = InputBox("输入正整数x=")i = 2Print x; "的质因子为:";Do While x >= iIf x Mod i = 0 Thenk = k + 1ReDim Preserve a(k)a(k) = ix = x \ iElsei = i + 1End IfLoopFor j = 1 To UBound(a)Print a(j);Next jEnd Sub习题一选择题二填空题1.V ariant2.ReDim A(N)A(1)If M < A(I) Then M = A(I)3.Int(26 * Rnd) + 65Chr(t)i + 1 To 10A(i) > A(j)4.InStr(s, ",")Right(s, Len(s) - n)s5. 4 5 66 5 43 2 16.T – 1I + 17.k = 6 - i – jmax = m8.j = aj = j - 39.i + 1i = i + 110. 237三编程题1．Option ExplicitOption Base 1Private Sub Command1_Click()Dim a(10) As IntegerDim i As Integer, max As IntegerFor i = 1 To 10a(i) = Int(90 * Rnd) + 10Print a(i);Next iPrinti = 1max = 0Do While i <= 10If a(i) Mod 3 = 0 ThenIf a(i) > max Thenmax = a(i)End IfEnd Ifi = i + 1LoopIf max = 0 ThenPrint "无要找的数"ElsePrint max & "是最大的能被3整除的数"End IfEnd Sub2．Option ExplicitOption Base 1Private Sub Command1_Click()Dim A() As IntegerDim I As Integer, m As IntegerDim K As IntegerReDim A(10)For I = 1 To 10A(I) = IPrint A(I);Next IPrintm = InputBox("ÊäÈëm")K = 9 + mReDim Preserve A(K)For I = 11 To KA(I) = A(I - 10)Next IFor I = 1 To 10A(I) = A(I + m - 1)Next IFor I = 1 To 10Print A(I);Next IPrintEnd Sub3．Option ExplicitPrivate Sub Command1_Click()Dim I As Integer, J As Integer, K As IntegerDim a() As Integer, n As Integer, p As IntegerDim s As String, Flag As Booleanp = 1For K = 10 To 100I = 1Do While I <= 10 And Not FlagJ = 1Do While J <= 10 And Not Flagn = I ^ 2 + J ^ 2If n = K ThenFlag = TrueReDim Preserve a(p)a(p) = Kp = p + 1s = I & Str(J) & Str(K)List1.AddItem sEnd IfJ = J + 1LoopI = I + 1LoopFlag = FalseNext KEnd Sub4．Option ExplicitPrivate Sub Command1_Click()Dim A(10) As IntegerDim B(10) As Integer, S As StringDim I As Integer, J As Integer, X As IntegerA(1) = Int(90 * Rnd) + 10S = A(1)For I = 2 To 10DoX = Int(90 * Rnd) + 10For J = 1 To I - 1If X = A(J) Then Exit ForNext JIf J = I ThenA(I) = XS = S & " " & A(I)Exit DoEnd IfLoopNext IText1.Text = SB(1) = Int(90 * Rnd) + 10S = B(1)For I = 2 To 10DoX = Int(90 * Rnd) + 10For J = 1 To I - 1If X = B(J) Then Exit ForNext JIf J = I ThenB(I) = XS = S & " " & B(I)Exit DoEnd IfLoopNext IText2.Text = SS = ""For I = 1 To 10For J = 1 To 10If A(I) = B(J) ThenS = S & " " & A(I)End IfNext JNext IText3.Text = SEnd SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text1.SetFocusEnd Sub5．Option ExplicitPrivate Sub Command1_Click()Dim I As Integer, J As IntegerDim a() As Integer, K As Integer, Sum As Integer K = V al(Text1.Text)I = 1DoJ = K Mod 10ReDim Preserve a(I)a(I) = JSum = Sum + JK = K \ 10I = I + 1Loop Until K = 0Text2.Text = SumEnd Sub6．Option ExplicitPrivate Sub Command1_Click()Dim a(100, 2) As Integer, K As IntegerDim I As Integer, J As IntegerDim M As Integer, N As IntegerK = 1For I = 1 To 99For J = 1 To 99If I > J ThenM = I - JN = I + JIf Sqr(M) = Int(Sqr(M)) And Sqr(N) = Int(Sqr(N)) ThenList1.AddItem I & " " & Ja(K, 1) = Ia(K, 2) = JK = K + 1End IfEnd IfNext JNext IEnd Sub第六章参考答案实验实验6-11、Exit Do2、Y(X)3、X >= -1实验6-2【题目二】42 、26、8实验6-31、s1, key2、s As String3、ch >= "a" And ch <= "z"4、Mid(s, i, 1) = Chr(Asc(ch) + k - 26)思考：解密函数Private Sub dec(s As String, k As Integer) '解密过程Dim i As Integer, ch As String * 1For i = 1 To Len(s)ch = Mid(s, i, 1)If "A" <= ch And ch <= "Z" ThenIf Asc(ch) - k < Asc("A") ThenMid(s, i, 1) = Chr(Asc(ch) - k + 26) '小于A的ASCII值则加上26 ElseMid(s, i, 1) = Chr(Asc(ch) - k)End IfElseIf ch >= "a" And ch <= "z" Then '多分支格式，ch介于小写a与z之间If Asc(ch) - k < Asc("a") ThenMid(s, i, 1) = Chr(Asc(ch) - k + 26) '小于a的ASCII值则加上26ElseMid(s, i, 1) = Chr(Asc(ch) - k)End IfEnd IfNext iEnd Sub实验6-41、b() As Integer, st As String2、L <= R3、ReDim Preserve b(R)4、L = L + 1辗转相除法求最大公约数函数Private Function Gcd(ByV al p As Integer, ByV al q As Integer) As IntegerDim r As Integerr = p Mod qDo While r <> 0p = qq = rr = p Mod qLoopGcd = qEnd Function实验6-5【题目一】age = age(n - 1) - 3【题目二】1、(Left + Right) / 22、Left = Mid + 1实验6-61、3 -12、7 43、3 -14、7 0实验6-7【题目一】1、Sqr(2 + t)2、Abs(a - 1) < eps【题目二】1、Dim X As Integer2、"S(" & I & ")=" & S(I)3、(j * i + 1)习题参考答案一选择题二、填空1（1）形式、（2）实在2（1）按地址传递、（2）ByV al3（1）窗体模块、（2）标准模块、（3）类模块4（1） 65（1）4 20 1016（1） 6 26 、（2）-2 987（1）10 6 、（2） 5 -58（1） 6 5 、（2）8 79（1）11 、（2）710（1）Fun(i) 、（2）Fun=p11（1） 4 、（2）20.712（1）29 、（2）28.713（1）k = j 、（2）b() As Integer14（1）gec 、（2）ge 、（3） 315（1）p1 = True And p2 = True 或p1 And p2 、（2）p1 = p2 – 2 、（3）Isp = True 、（4）m Mod i = 016（1）Convert(st) 、（2）Len(s) 、（3）"A" To "F" 、（4）k = k + p * h17（1）isualVi 、（2）sualV isu18（1）s + a 、（2）n + 1 、（3）x As Single, n As Integer 、（4）p * (x + i) / ((2 * i - 1) * i * x) 三、改错题1、Option Base 1Private Sub Command1_Click()Dim A() As Integer, I As Integer, J As Integer, Logic As BooleanDim K As IntegerReDim A(1)A(1) = 50————————'K=1For I = 51 To 149K = 1 '位置错Logic = FalseCall Sub1(A, I, Logic)If Logic ThenK = K + 1ReDim A(K) 'ReDim Preserve A(K)A(K) = IEnd IfNext IFor I = 1 To UBound(A)Text1 = Text1 & Str$(A(I))If I Mod 5 = 0 Then Text1 = Text1 & vbCrLfNext IEnd SubPrivate Sub Sub1(A() As Integer, N As Integer, F As Boolean)Dim I As Integer, J As Integer, Ub As IntegerUb = UBound(A)For I = 1 To UbFor J = 2 To A(I)If A(I) Mod J = 0 And N Mod J = 0 ThenExit For 'Exit SubEnd IfNext JF = TrueNext IEnd Sub2、Option ExplicitOption Base 1Private Sub Command1_Click()Dim I As Integer, Flg As Boolean, S1 As Integer, S2 As IntegerDim J As Integer, K As Integer, P() As IntegerReDim P(1)P(1) = 2For I = 3 To 150 Step 2For J = 2 To Sqr(I)If I Mod J = 0 Then Exit ForNext JIf J > Sqr(I) ThenReDim Preserve P(UBound(P) + 1)P(UBound(P) + 1) = I 'P(UBound(P)) = IEnd IfNext IFor I = 80 To 125If fun(I, P, S1, S2) Then 'If fun(I, P, S1, S2)Text1 = Text1 & Str$(I) & "=" & Str(S1) & "*" & Str$(S2) & vbCrLf End IfNext IEnd SubPrivate Function fun(N As Integer, P() As Integer, S1 As Integer, S2 As Integer) As Boolean Dim I As Integer, J As IntegerFor I = 1 To UBound(P)For J = 1 To UBound(P) - 1If N = P(I) * P(J) ThenS1 = P(I)S2 = P(J)'fun = TrueExit Functionfun = True '位置错End IfNext JNext IEnd Function3、Option ExplicitPrivate Sub Get_Chess(Chess() As Integer, idx As Integer, Over As Integer) 'ByV al idx As IntegerDim Ub As Integer, Counter As Integer, K As IntegerUb = UBound(Chess)Chess(idx) = 0Counter = 1K = 0 '位置错Do Until Counter = Ub - 1Do Until K = 2idx = idx + 1If idx > Ub Then idx = 1K = K + Chess(idx)LoopChess(idx) = 0Counter = Counter + 1LoopFor Over = 1 To UbIf Chess(Over) <> 0 Then Exit ForNext OverEnd SubPrivate Sub Command1_Click()Dim Chess(32) As Integer, I As Integer, J As IntegerDim K As Integer, idx As IntegerFor I = 1 To 32For J = 1 To 32Chess(J) = 1Next JCall Get_Chess(Chess, I, K)If K = 23 ThenText1 = "从第" & Str$(I) & "号棋子开始取"Exit ForEnd IfNext IEnd Sub5、Option ExplicitPrivate Sub Form_Click()Dim S As String, Flg As BooleanDoS = InputBox("输入一个自然数")If S = "" Or Not IsNumeric(S) ThenMsgBox "请重新输入", 48 + vbOKOnlyElseExit DoEnd IfLoopjudge(S, Flg) ' Call judge(S, Flg) 或judge S, Flg If Flg ThenPrint S; "是回文数"ElsePrint S; "不是回文数"End IfEnd SubPrivate Sub judge(Ch As String, F As Boolean)Dim L As Integer, I As IntegerL = Len(Ch)F = True ' F = FalseFor I = 1 To LIf Mid$(Ch, I, 1) <> Mid$(Ch, L + 1 - I, 1) Then Exit Sub Next IF = False ' F = TrueEnd Sub四、编程题1、编程验证任一大于2的偶数可以表示成两个素数之和。
VB实验报告答案-推荐下载
VB5~6章实验题
vb实验5~6及答案考试用5-1 随机产生30～100（包括30、100）的10个正整数，存放于数组中，显示该数组的值，并求出最大值、最小值和平均值，如图5-1所示。
要求：窗体显示字体默认、大小为小三，通过单击窗体触发程序运行。
图5-1Private Sub Form_Click()Dim a(9) As Integer, max%, min%, ave!Randomizemax = 30: min = 100: ave = 0For i = 0 To 9a(i) = Int(Rnd * 71 + 30)Print a(i);ave = ave + a(i)If a(i) > max Then max = a(i)If a(i) < min Then min = a(i)Next iave = ave / 10PrintPrint "Max="; max, "Min="; min, "Ave="; Format(ave, "0.0")End Sub5-2 已知6个学生的成绩，通过Array函数对数组赋初值，利用String函数，以每5分用一个“◆”符号显示，随后显示学生的成绩。
要求：窗体中所有控件字体默认、大小为小四，计算结果在程序启动时立即在窗体中显示。
效果如图5-2所示。
图5-2Private Sub Form_Load()Dim Mark As Variant, i%Form1.ShowMark = Array(56, 78, 98, 88, 76, 78)For i = LBound(Mark) To UBound(Mark)Print String(Mark(i) \ 5, "◆"); Mark(i)PrintNext iEnd Sub5-3 随机产生20个学生的成绩（整数），统计各分数段人数。
VB电脑课实验-答案汇总
学院专业(班级)姓名学号任课教师目录实验一 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实验报告(含答案)
标签
Label3
Caption
浮点数
标签
Label4
Caption
整除数
标签
Label5
Caption
余数除
标签
Command1
Caption
执行除法运算
命令按钮
四．实验思考：
1.温度转换中的Command1命令的单击事件的程序代码是什么？
Private Sub Command1_Click()
5.了解文本框、标签框、命令按钮的构造及其属性、事件和方法。
二．实验内容：
1．设计一个简单的应用程序，要求在窗体上画一个文本框、一个标签和两个命令按钮编一程序，并把命令按钮分别设置为”显示”和”清除”。程序运行后，单击”显示”按钮，在文本框中输出一行信息；单击”清除”按钮，则清除文本框中的内容，运行界面如图1.1所示。
For i = 1 To 10
If max < a(i) Then max = a(i)
If min > a(i) Then min = a(i)
avg = avg + a(i)
Next i
avg = avg / 10
图5-1窗体界面
三．实验结果：对象属性设置
对象
属性
属性值
说明
Label1
Caption
10个100到200之间的整数
标签
Label2
Caption
最大值
标签
Label3
Caption
最小值
标签
Label4
Caption
平均值
标签
Command1
Caption
计算
命令按钮
VB程序设计学习与实验指导书答案(包含实验答案)
VB学习与实验指导测试题参考答案第一章第二章第三章第四章第五章第六章第七章第八章第九章综合测试题一综合测试题二下篇实验教程实验2 Visual Basic 变量、函数与表达式的使用实验2-1 算术运算符的使用13178332262-2-22007-10-153 2.857143 2.85714285714286实验2-2 字符运算符的使用20071020071020172007-10-10102007-10-20出错，类型不匹配实验2-3 关系运算符的使用FalseFalseFalseFalseFalseFalseFalseTrueFalseTrue实验2-4 逻辑运算符的使用TrueTrueFalseTrueFalseFalseTrueTrueFalse5-59实验2-5 常用函数的使用3.14 3.147.389056098930651 -1 .999999998205103 4-1 1 0.70554755825 251250 0A a65 9748 688 -98 -89 -9aaa 4.5 aaa4.516 5Visua 6.0sua Basic Basic 6.0abcde EFGBasic Basic BasicVisual Basic 6.0 Basic8 8aaa dd2011-3-152011-3-15 14:35:5215320113001.731.731.7317.32E-010173%实验3 算法基础及程序控制结构实验3-1 三个数的交换A=CC=BB=TBC实验3-2 求周长和面积Const PI=3.14159262*PI*RPI*R*RPicture1.ClsFormat(L, ".00")Format(M, ".00")实验3-3 求分段函数的值x=Val(Text1.Text)y=1+Sin(x)y=Log(x)Text1.Text = ""Text2.Text = ""实验3-4 求一元二次方程的根Val(Text2.Text)Val(Text3.Text)b ^ 2 - 4 * a * c"x1=" & (-b + Sqr(delt)) / (2 * a)"x2=" & (-b - Sqr(delt)) / (2 * a)Text2.Text = ""Text3.Text = ""End实验3-5 判断素数N Mod k = 0k=NN Mod i=0k=2实验3-6 求最大公约数和最小公倍数M<NL=ML=NM Mod k = 0 And N Mod k = 0Text3.Text = kExit ForM>NL=ML=Nk Mod M = 0 And k Mod N = 0Text4.Text = kExit For实验3-7 判断升序数、降序数CStr(N)Len(S) – 1Mid(S, k, 1) >= Mid(S, k + 1, 1)k = Len(S)N = Val(Text1.Text)S = CStr(N)For k = 1 To Len(S) - 1If Mid(S, k, 1) <= Mid(S, k + 1, 1) Then Exit For Next kk = Len(S)实验3-8 判断回文数1Len(s)\2-1Mid(S, k, 1) <> Mid(S, Len(S) - k + 1, 1)k = Len(S) \ 2Mid(S, k, 1) + S1S = S1实验3-9 求级数的值Val(Text1.Text)1x ^ ns * nt / s <= 10 ^ -6Text2.Text = y实验3-10 查找数字串并求和Text1.Text = ""Text2.Text = ""List1.ClearText1.TextFalseWhile Mid(s, i, 1) >= "0" And Mid(s, i, 1) <= "9" Flag = Truek = k * 10 + Mid(s, i, 1)i = i + 1Flag = Truesum + kText2.Text = sum实验3-11 随机产生20个奇数Int((99 - 10 + 1) * Rnd) + 10a Mod 2 = 1n Mod 5 = 0Picture1.Cls实验3-12 加密解密Chr(Asc("a") + (Asc(c) - Asc("a") + 3) Mod 26)c = Chr(Asc("A") + (Asc(c) - Asc("A") + 3) Mod 26) c & s2Text2.TextLen(s2)Mid(s2, i, 1)c = Chr(Asc("a") + (Asc(c) - Asc("a") + 23) Mod 26) c = Chr(Asc("A") + (Asc(c) - Asc("A") + 23) Mod 26) c & s1s1Text1.Text = ""Text2.Text = ""实验3-13 统计单词个数Text1.TextMid(s, i, 1) <> " " And i <= Len(s)i = i + 1Mid(s, start, i - start)nText1.Text = ""List1.Clear实验4 数组的使用实验4-1 一维数组的产生及输出i = 1 To 20Int((9 - 0 + 1) * Rnd + 0)i = 1 To 20Print a(i);Printi = 1 To 20Picture1.Print a(i);If i Mod 5 = 0 Then Picture1.Printi = 1 To 20Text1.Text & Space(2) & a(i)If i Mod 5 = 0 Then Text1.Text = Text1.Text & vbCrLf v In aIf i Mod 5 = 0 Then Picture2.Print实验4-2 选手得分Int((50 - 10 + 1) * Rnd + 10) / 10i = 1 To 6sum = sum + score(i)max = score(1)min = score(1)score(i) > max Then max = score(i)score(i) < min Then min = score(i)(sum - max - min) / 4实验4-3 产生10个互不相同的整数Int((999 - 10 + 1) * Rnd + 10)t Mod 10 = 5Then Exit Forn= n + 1a(i) = tFor i = 1 To 10Print a(i);If i Mod 5 = 0 Then PrintNext i实验4-4 统计数字出现的次数IsNumeric(S) = FalseExit SubLen(S)c >= "0" And c <= "9"A(c) = A(c) + 1A(k) <> 0m = m + 1实验4-5 排序1 To 10Int((99 - 10 + 1) * Rnd + 10)Text1.Text & A(n) & " "1 To 9i + 1 To 10A(i) > A(j)T = A(j)A(j) = A(i)A(i) = T1 To 910 - iA(j) > A(j + 1)T = A(j + 1)A(j + 1) = A(j)A(j) = T1 To 10Text3.Text = Text3.Text & A(i) & " "10T = A(i)ji - 1k + 11 To 10Text4.Text = Text4.Text & A(i) & " "实验4-6 二维数组的产生及输出1 To 41 To 5Int((9 - 0 + 1) * Rnd + 0)1 To 41 To 5Print A(i, j);Print1 To 41 To 5Picture1.Print A(i, j);Picture1.Print1 To 41 To 5Text1.Text = Text1.Text & A(i, j) & " "Text1.Text = Text1.Text & vbCrLf实验4-6 查找最大和最小元素及其位置1 To 31 To 4A(i, j) = Int((99 - 10 + 1) * Rnd + 10)Picture1.Print A(i, j);Picture1.PrintA(1, 1)， 1， 1A(1, 1)， 1， 1A(i, j)ijA(i, j) < minA(i, j)ij"最大元素" & "A(" & maxi & "," & maxj & ")=" & max "最小元素" & "A(" & mini & "," & minj & ")=" & min实验4-7 矩阵转置Dim A() As Integer"请输入N的值"ReDim A(N, N) As IntegerFor i = 1 To NFor j = 1 To NA(i, j) = Int((99 - 10 + 1) * Rnd + 10)Text1.Text = Text1.Text & A(i, j) & " "Next jText1.Text = Text1.Text & vbCrLfNext it = A(i, j)A(i, j) = A(j, i)A(j, i) = tFor i = 1 To NFor j = 1 To NText2.Text = Text2.Text & A(i, j) & " "Next jText2.Text = Text2.Text & vbCrLfNext i实验5 过程实验5-1 孪生素数和降序素数Dim i As IntegerFor i = 2 To N - 1If N Mod i = 0 Then Exit FunctionNext iPrime = TrueDim a As IntegerDim b As Integera = N \ 10b = N Mod 10If a > b ThenDecNumber = TrueElseDecNumber = FalseEnd If10 To 100Prime(i) = True And Prime(i + 2) = TrueList2.AddItem i & "和" & i + 2DecNumber(i) = True And Prime(i) = TrueList3.AddItem i实验5-2 求多项式和k = 1a = f(x, k)S + ak = k + 1Single As SingleDim i As Integer, a As Singlea = (x + 1) / xFor i = 2 To ka = a * (x + i) / ((2 * i - 1) * x)Next ia实验5-3 进制转换Asc(C) - Asc("A") + 10Left(S, k - 1)Mid(S, k + 1)Change(Mid(S2, i, 1)) * N ^ (0 - i)T1 + T2Tran(8, S)Tran(16, S)Not (C >= "0" And C <= "7" Or C >= "A" And C <= "F" Or C = ".")实验5-4 Armstrong数i As Long, a As Long, b As LongCombo1.Text实验5-5Option Base 1Dim a(5) As IntegerDim b(5) As Integerb(i) = i * i + 1Text2.Text = Text2.Text & b(i) & " "1 To 51 To 5Gcd(a(i), b(j)) = 1Gcd = KExit For实验5-6Create(a)Output(a)Sort(a)Output(a)GetMaxMin(a, MaxData, MinData)MaxDataMinDataAverage(a)Int((99 - 10 + 1) * Rnd + 10)1 To UBound(a)a(i);a(i) > a(j)t = a(j)a(j) = a(i)a(i) = t2 To UBound(a)a(i) > MM = a(i)a(i) < NN = a(i)s = s + a(i)Average = s / UBound(a)实验6 界面设计实验6-1 用户登陆MsgBox "请登录！"PassWordInput=TxtPassW.TextUserIdInput=UserId And PassWordInput=PassWordCmdReset_Click实验6-2 学籍登记OptXb(0).Value = TrueList1.AddItem Space(4) & xh & Space(6) & xm & Space(6) & xb & Space(12) & xy & Space(16) & zy & Space(4)List1.RemoveItem List1.ListIndex实验6-3 字体格式设置Select Case OpFontCheck2.Value = 1OpColor = IndexOpFont = Index实验6-4 兴趣调查List1.AddItem ItemEndSelect Case IndexItem = Text1.Text实验6-5 调色板。
VB实验指导书-测试题答案
营销1042第1章测试题答案一、AABD第2章测试题答案一、BCDACACC二、1．Gotfocus2．Lostfocus3．Setfocus4．Style，15．S(165)6．Vbp7. 18. ScrollBars三、1．答：Private Sub Form_Click()Form1.BackColor = vbBlue End SubPrivate Sub Form_DblClick() Form1.BackColor = vbRed End Sub2．答：（1）若在设计状态完成：（2）若在运行状态完成：编写窗体的Load事件过程如下：Private Sub Form_Load()Form1.BackColor = vbWhiteLabel1.Caption = "欢迎使用VB6.0！"Label1.ForeColor = vbYellowLabel1.BackColor = vbBlueLabel1.FontName = "黑体"Label1.FontItalic = TrueLabel1.FontSize = 20End Sub第3章测试题答案一、BBDBCADA二、1．True ”cde”2．”bcd”-123．True ”abc123xy”4．A*exp(-2*t)*sin(50*t+ 3) 5．4/3*3.1416*r^3 6．Long & 7．Double # 8．关系逻辑第4章测试题答案一、BBBAB ADBDA ADBAC二、1．判断奇偶数InputBox("输入一个整数")If a Mod 2 = 1 ThenElseMsgBox a & "是偶数"2．计算Y值Val(Text1.Text)x > 100 Thenx > 0 ThenElse3．购物优惠xVB实验指导书测试题答案Is > 5000 Is > 3000 Is > 2000 Is > 1000 Case Else 4．1+2+。
VB课本习题答案第五章课后习题答案
第5章数组与记录5．1 填空题1．若要定义一个包含10个字符串元素，且下界为1的一维数组s，则数组说明语句为（ Dim s(1 To 10) As String ）。
2．若要定义一个元素为整型数据的二维数组a，且第一维的下标从0到5，第二维下标从-3到6，则数组说明语句为（ Dim a(0 To 5,-3 To 6) As Integer ）。
3．如果数组元素的下标值为实数，则VB系统会按（四舍五入原则）进行处理。
4．数组元素个数可以改变的数组称为（可调数组）；数组元素可以存放不同类型数据的数组称为（可变类型数组）。
5．数组刷新语句用于（清除指定数组内容）。
若被刷新的数组是数值数组，则把所有元素置（０）；若被刷新的数组为字符串数组，则把所有元素置（空字符串）。
6．设有表格控件grd1，若设置grd1的第2行第5列的单元格为当前活动单元格，使用的语句为（grd1. Row =2 ）和（grd1.Col=5 ）。
7．要使表格控件grd1的当前活动单元格显示字符串“姓名”，使用的语句是（grd1.Text=“姓名”）。
8．建立一个具有10行10列的表格控件grd2，需使用的语句为（grd2. Row =10 ）和（grd2.Col=10 ）。
9．在程序的运行中，对表格控件grd1的某些列的数据按降序并且区分大小写排序，使用的语句是（grd1.Sort=8 ）。
10．控件数组是由一组类型和（名字）相同的控件组成，共享（同一个事件过程）。
11．控件数组中的每一个控件都有惟一的下标，下标值由（ Index ）属性指定。
12．建立控件数组有两种方法：（在设计阶段通过相同Name属性值来建立）和（在程序代码中使用Load方法）。
5．2 选择题1．下列一维数组说明语句错误的是（ d ）。
a) Dim b(100) AS Double b) Dim b(-5 To 0) AS Bytec) Dim b(-10 To –20) AS Integer d) Dim b(5 To 5) AS String2．若有数组说明语句为：Dim a(-3 To 8)，则数组a包含元素的个数是（ d ）。
VB实验书答案
第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实验任务5答案
实验任务5课程名称：程序设计基础VB实验名称——实验五Visual Basic程序设计基础(1)一、实验目的：1．掌握变量的定义和赋值2．掌握各种类型的数据的使用3．掌握各种运算表达式的值和使用二、实验内容（包括实验要求(题目)、实验步骤、程序清单、运行情况）：实验1(1) 请分别在窗体的单击事件过程中声明定义如下变量,记录错误类型,并分析出错原因,将出错的变量名进行修改, 使其不再出错。
P59Visual Basic代码中要声明和命名一些元素（变量、常量、数据类型、过程等），命名时必须遵循以下规则：●必须以字母或汉字开头，由字母、汉字、数字或下划线组成。
●字符必须并排书写，不能出现上下标形式。
●长度小于等于255个字符。
●不可以是系统关键字。
●不可以包含空格、西文标点符号和类型说明符%、&、!、#、@、$。
●在作用域范围内必须唯一。
Private Sub Form_Click()Dim 5Fg As Integer’错在数字开头，修正为FgDim L*og As Long’错在内部包含*，修正为LogDim s-ig As Single’错在内部包含-，修正为sigDim dob_ As Double‘正确Dim _Name As string ’错在_开头，修正为Name_Dim bln@Frag As Boolean’错在内部包含@，修正为blnFragDim do As Date ’错在是系统关键字，修正为dEnd Sub,并分析出错原因)运行时，单击窗体会出现“溢出错误”的提示；分析出错原因：32768超出了Integer变量Fg的表示范围①32768(或-32768、-32769)——对Fg整型变量赋值32768或-32769，运行时，单击窗体会出现“溢出错误”的提示；分析出错原因：32768和-32769超出了Integer变量Fg的表示范围②32768(或-32768、-32769) ——对Log长整型变量赋值，运行时，单击窗体会正常显示接收的值；分析原因：32768(或-32768、-32769)都没有超出Long长整型变量Log的表示范围③1234567.12345678(或123456789.123、1.2345678)——对sig单精度变量赋值1234567.12345678，运行时，单击窗体会显示1234567；分析原因：在Visual Basic中规定单精度浮点数精度即有效位数为7位，单精度型和双精度型常量的小数形式若超出有效位数，进行小数部分的截取；对sig单精度变量赋值123456789.123，运行时，单击窗体会显示1.234568E+08；分析原因：在Visual Basic中规定单精度浮点数精度即有效位数为7位，若整数部分超出有效位数，自动转为指数形式表示；对sig单精度变量赋值1.2345678，运行时，单击窗体会显示1.234568；分析原因：在Visual Basic中规定单精度浮点数精度即有效位数为7位，单精度型和双精度型常量的小数形式若超出有效位数，进行小数部分的截取④1234567.12345678(或123456789.123、1.2345678)——对dob_双精度变量赋值，运行时，单击窗体会正常显示接收的值；分析原因：在Visual Basic中规定双精度浮点数精度为15～16位。
【参考文档】vb实验指导书答案-范文word版 (10页)
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)。
实验5 常用控件
一、实验目的和要求
了解常用控件数组的编程方法
二、实验内容（题目来自教材第五章 第六大题 7）．
程序7.(p150)
提示：
1） 号码按钮用命令按钮数组（0-9）；
2） 拨号、取消等按钮因为功能相差较大就不需要用数组控件；
3） 定义一个窗体级变量存放用户拨的号码，以便在定时器中使用。
过程设计：
Dim nums As String '存放用户拨的号码
Private Sub Form_Load()
Dim i As Integer
For i = 0 To 9
Command1(i).Caption = i
Command1(i).Enabled = False
Next i
Command2.Caption = "删除"
Command3.Caption = "拨号"
Command4.Caption = "取消"
Command5.Caption = "重拨"
Command6.Caption = "退出"
Label1.Caption = ""
Form1.Caption = "拨号程序"
Timer1.Interval = 1000
Timer1.Enabled = False
End Sub
Private Sub Command1_Click(Index As Integer) '拨号码
Label1.Caption = Label1.Caption & Command1(Index).Caption
End Sub
Private Sub Command2_Click() '删除(号码中最右边的一位)
If Label1.Caption <> "" Then
Label1.Caption = Left(Label1.Caption, Len(Label1.Caption) - 1)
End If
End Sub
Private Sub Command3_Click() '拨号
For i = 0 To 9
Command1(i).Enabled = True
Next i
End Sub
Private Sub Command4_Click() '取消
Label1.Caption = ""
End Sub
Private Sub Command5_Click() '重拨
nums = Label1.Caption '保存号码
Label1.Caption = "" '清除原号码
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer() '重拨定时器
Static i As Integer
If Label1.Caption = nums Then
Timer1.Enabled = False
i = 0
Else
Label1.Caption = Label1.Caption & Mid(nums, i + 1, 1)
i = i + 1
End If
End Sub
Private Sub Command6_Click() '退出
End
End Sub
补充题
请参考考Design05.exe文件的运行结果，新建一个Design05.Vbp工程，完成“调色板”程序的设计（其中窗体文件请命名为Design05.frm）。
1）在窗体上放置一个“三原色配比与预览”的框架，框架内有三个水平滚动条构成的控件数组，滚动条的取值范围为0--255；还有一个长方形形状控件。
2）拖动滚动条的滚动框来选择红、绿、兰三原色的配色取值，配色通过形状控件的填充效果动态显示。
3）单击“应用”按钮，将调配好的颜色作为标签文字“坚持就是胜利！”的文字颜色。
4）标签文字“坚持就是胜利！”字体为“楷体_GB2312”，大小“二号”，设置相关属性使得标签在窗体中水平居中并且标签的大小随显示内容自动调整。
提示：建立HScroll1数组控件。
Private Sub Command1_Click()
Label4.ForeColor = Shape1.FillColor
End Sub
Private Sub Form_Load()
Label4.Left = (Form1.ScaleWidth - Label4.Width) \ 2
End Sub
Private Sub HScroll1_Change(Index As Integer)
Shape1.FillColor = RGB(HScroll1(0).Value, HScroll1(1).Value, HScroll1(2).Value)
End Sub
Private Sub HScroll1_Scroll(Index As Integer)
Shape1.FillColor = RGB(HScroll1(0).Value, HScroll1(1).Value, HScroll1(2).Value)
End Sub
实验提交说明：
1）在D）盘建立个人文件夹，名称为学号后三位与姓名，如001张三；
2）在个人文件夹中按实验题建子文件夹，如1；
3）建立的VB工程保存在各题的子文件夹中；
4）对个人文件夹压缩为rar或zip格式；
5）发邮件到xxl@主题：VB 001张三实验5。