南京工业大学VB实验指导知识点与课前练习答案

第二部分综合练习理论练习一一单选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函数，其功能足将一字符巾用分界符分割为一字符串数组。

自测1程序代码Private Sub Command1_Click() = + 3End 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() = + 30= + 20= 1End Sub初始窗口：单击缩小两倍之后的窗口：单击向右下角移动之后的窗口：自测题4程序代码Private Sub Command1_Click() = "VB学习"Print "简单的VB程序设计" End SubPrivate Sub Command2_Click() ClsPrivate Sub Command3_Click() EndEnd SubPrivate Sub Command3_Click() EndEnd Sub初始化窗口：单击显示之后的窗口：单击清除之后的窗口：单击退出之后的窗口：程序代码Private Sub Command1_Click() = ""= ""End SubPrivate Sub Command2_Click() = Val + ValEnd SubPrivate Sub Command3_Click() EndEnd Sub初始化窗口：单击运算之后窗口：单击清除之后的窗口：单击退出之后的窗口：自测练习1Private Sub Command1_Click() Dim a$a == Left(a, 2)End SubPrivate Sub Command2_Click() a == Right(a, 2)End SubPrivate Sub Command3_Click() = &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 + i= 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 + / 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 "和="; ePrint "平均值="; fEnd 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 Then Print "等腰三角形"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 = 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：自测练习1Option Base 1Private Sub Form_Click()Dim i%, a(1 To 20) As Integer a(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()= 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 4a(i, j) = Int(Rnd * 10) + 1a(i, j);Next j"对角线的元素如下" For i = 1 To 4a(i, i);Next iFor i = 1 To 4a(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 4a(i, j);Next iEnd Sub运行初始界面：运运行结果界面：自测练习1Sub itostr(a As Integer)Dim b%, c$a = ValWhile a >= 1c = Chr(a Mod 10 + 48) & ca = a \ 10Wend= c End SubPrivate Sub Command1_Click()Dim a As Integera = ValCall itostr(a)End Sub运行初始界面：运行结果界面：验证其他数字：自测练习2：Public Function area(n) As Double Dim c#, d#, e#, s#n = Valc = (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)= 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运行初始界面：插入数据：运行结果：蓝志鹏资源1102 实验8自测练习1：Private Sub Command1_Click() If = 1 Then= "报名参加羽毛球比赛"End IfIf = 1 Then= "报名参加乒乓球比赛"End IfIf = 1 And = 1 Then= "报名参加羽毛球，乒乓球比赛" End IfEnd Sub运行初始界面：运行结果：自测练习4：Private Sub Form_Load()= 2= 24= "黑体"= &HFF&End SubPrivate Sub Option1_Click()= "我是学生"End SubPrivate Sub Option2_Click() = "我是教师"End SubPrivate Sub Option3_Click() = "我是工人"End SubPrivate Sub Option4_Click() = "我是农民"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) = TheniEnd IfExit ForNext iEnd IfEnd SubPrivate Sub Command3_Click()End Sub运行初始界面:自测练习7：Private Sub Command1_Click() = 1= TrueEnd SubPrivate Sub Form_Load()= 20= 20= 20= 20End SubPrivate Sub Timer1_Timer()= + 10lbltem =If 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()r = MsgBox("存盘", , "程序设计题") End Sub运行初始界面：运行结果：自测练习4：Private Sub Command1_Click() = 1End Sub运行初始界面：运行结果：自测练习1：Private Sub Command1_Click() Dim a As String, n%, i%, j% Open "E:\" For Input As #1 Input #1, an = Len(a)j = 0For 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)Line Input #1, x$LoopClose #1Open "e:\" For Append As #1Print #1, x$Close #1End Sub运行初始界面：自测练习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, nClose #1Dim a%()Open "E:\" For Output As #1 For i = 1 To Len(n)ReDim Preserve a(1 To 26)j = Asc(Mid(n, i, 1)) - 64a(j) = a(j) + 1Next iClose #1For j = LBound(a) To UBound(a) Print a(j);Next jEnd Sub。

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.98 List1.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 > 80 End 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-20: DBBDB DDBCA DDDCD DB A DB21-40: DCDAA B_ACA BCADA B_BCD41-60: BCBDC CADBA CBDDD ABAAA61-80:BBCAB BDAAA CBBDD CBDAD81-89:CBDBB BADC填空题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<="">5、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)3、Private Sub Command1_Click()Dim l As Single, w As Single, h As Single Dim 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<c< p="">b=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-7i+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．C 2. C 3.A 4. D 5.A 6. B 7. B 8. D 9. B 二、填空题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</c<>。

实验教材实验-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。

第二部分综合练习理论练习一一单选1-5 CDCCB 6-10 ABDCD 11-15 CCBBD 16-20 DBCBA 二多选1 ABCE2 CE3 BCE4 ADE5 ABCD6 ABCDE7 ACD8 ABCDE9 ABC 10 ABCDE三判断1-5×√×√√6-10 √×√√√四填空、1 x=int(Rnd*101) End If avg=s/82 i=1 to 10 Right(str(i),1) 或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)Clscreatedata a()sort a()For i = 1 To 10Print a(i);Next iEnd SubSub createdata(a())For i = 1 To 10a(i) = Int(Rnd * 101)Next iEnd SubSub sort(a())For i = 1 To 9For j = 1 To 10 - iIf a(j) > a(j + 1) 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 #1 Len = Len(student) End SubPrivate Sub cmdadd_Click()student.no = Text1.Textstudent.Bscj = V al(Text2.Text)student.Sjcj = V al(Text3.Text)lastrecord = LOF(1) / Len(student) + 1Put #1, lastrecord, studentText1.Text = ""Text2.Text = ""Text3.Text = ""End SubPrivate Sub cmdquit_Click()Close #1EndEnd Sub理论练习二一单选1-5 CABCD 6-10 ABCCD 11-15 BBBAB 16-20 DBAAC 二多选1 CD2 AD3 CE4 BC5 AD6 BCDE7 CDE8 ABCDE9 ABD 10 ACDE三判断1-5××××√6-10 √√√××四填空1 n-1 或者Sqr(n) 0 True2 x y3 1 to 10 2*i-14 Button=2 start=True -(x,y)五阅读程序1-5 DBDAB六程序设计1Private Sub Form_click()japan = 47528china = 22257n = 0Do While china <= japanchina = china * 1.098japan = japan * 1.028n = n + 1LoopPrint n & "年之后，中国GDP将超过日本"End Sub2' VB6中的Split函数，其功能是将一字符串用分界符分割为一字符串数组。

⼤学VB课后习题参考答案习题1⼀.单项选择题（要求在四个备选答案中选出⼀个正确答案）1．Visual Basic是⼀种（ D ）的可视化程序设计语⾔。

A．⾯向机器 B．⾯向过程 C．⾯向问题 D．⾯向对象2.在VB中，下⾯被称为对象的是（ C ）A. 窗体B.控件C. 窗体和控件D. 窗体、控件、属性3．以下说法正确的是（ A ）A.对象的可见性可设为1或0B.标题的属性值可设为任何⽂本C.如果属性的值不设置，默认为空D.属性窗⼝中属性只能按字母顺序排列4．为了在属性窗⼝中设置窗体的属性，预先要执⾏的操作是（ A ）。

A．单击窗体上没有控件对象的地⽅ B．单击任⼀个控件对象C．双击任⼀个控件对象 D．双击窗体上没有控件对象的地⽅5．要设置窗体上各控件的属性，可在（ C ）中进⾏。

A．窗体布局窗⼝ B．⼯程资源管理器窗⼝C．属性窗⼝ D．窗体窗⼝6．在代码窗⼝中，当从对象框中选定了某⼀对象后，在（ A ）中会列出适⽤该对象的事件。

A．过程框 B．属性窗⼝ C．⼯具箱 D．⼯具栏7．创建⼀个简单的应⽤程序，该程序只有⼀个窗体，则该⼯程⾄少有（ B ）个⽂件需要保存。

A．1 B．2 C．3 D．48．程序运⾏中⽤⿏标双击当前窗体时，会触发窗体的（ C ）事件。

A．Load B．Unload C．DblClick D．KeyPress9．在Visual Basic 6.0集成开发环境中，可以（ D ）。

A．编辑、调试、运⾏程序，但不能⽣成可执⾏程序B．编辑、运⾏程序，⽣成可执⾏程序，但不能调试程序C．编辑、调试程序，⽣成可执⾏程序，但不能运⾏程序D．编辑、调试、运⾏程序，并能⽣成可执⾏程序10．以下叙述正确的是（ C ）。

A．⽤属性窗⼝只能设置窗体的属性B．⽤属性窗⼝只能设置⼯具箱中标准控件的属性C．⽤属性窗⼝可以设置窗体和控件的属性D．⽤属性窗⼝可以设置任何对象的属性11.在VB程序运⾏期间，若改变窗体⼤⼩，则⾃动触发的窗体事件是（ B ）A. ClickB. ResizeC. LoadD. Unload12.以下为窗体⽂件扩展名的是（ C ）A. .basB. .clsC. .frmD. .ers13.能确定控件尺⼨的是（ A ）A.Width和HeightB.Top和LeftC. Width或HeightD.Top或Left⼆. 多项选择题（要求在五个备选答案中选出多个正确答案）1．下列论述中，正确的是（ ACDE ）。

浦土木测绘机械0910二VB练习卷1、单项选择题(本题共计63分)1、在同一个工程中，在窗体Form1通用段声明Public a As Boolean，则在窗体Form2的事件过程中_____访问该变量。

(c)A、Print aB、Print Form.aC、Print Form1.aD、不可以2、用"冒泡"法将数组a中的10个整数按升序排列。

所谓"冒泡"法就是从第一个数依次比较相邻数，若不符合排序要求则互换值，直到最后一个数；然后再开始第二轮的比较，至所有数全部比较结束。

排序过程中大数后退，小数前行，犹如水泡往上冒。

请完善以下程序段________。

For i= 1 to 9For j= 1 to 10-iIf _______ Then……'互换语句End IfNext jNext i ( .d,)A、a(i)>a(j)B、a(i)<a(j)C、a(i)<a(i+1)D、a(j)>a(j+1)3、若整型实参x、y的值分别为48、28，则主程序执行print f(x,y)后输出值是____.c,____。

<br />Private Function f(ByVal m% 整形, ByVal n%) As Integer<br />Do<br />r = m Mod n<br />m = n<br />n = r<br />Loop While r &lt;&gt; 0<br />f = m<br />End Function ( max公约数)A、1B、2C、4D、都不是4、下列变量名合法的是________。

(a)A、intXB、x-yC、constD、test@qw5、在设计列表框时，若实现输入多行文字的目的，应使用_____d____键实现文本的换行。

VB实验参考答案VB实验参考答案VB（Visual Basic）是一种常用的编程语言，广泛应用于软件开发领域。

在学习VB的过程中，进行实验是非常重要的一部分。

本文将为大家提供一些VB实验的参考答案，帮助大家更好地理解和掌握VB编程。

实验一：简单的计算器程序要求：编写一个简单的计算器程序，能够实现基本的加减乘除运算。

参考答案：```vbPrivate Sub btnCalculate_Click()Dim num1 As DoubleDim num2 As DoubleDim result As Doublenum1 = CDbl(txtNum1.Text)num2 = CDbl(txtNum2.Text)If rbAdd.Checked Thenresult = num1 + num2ElseIf rbSubtract.Checked Thenresult = num1 - num2ElseIf rbMultiply.Checked Thenresult = num1 * num2ElseIf rbDivide.Checked ThenIf num2 <> 0 Thenresult = num1 / num2ElseMsgBox("Error: Division by zero!")End IfEnd IftxtResult.Text = resultEnd Sub```实验二：学生成绩管理系统要求：编写一个学生成绩管理系统，能够实现学生信息的录入、查询和统计功能。

参考答案：```vbPrivate Sub btnAdd_Click()Dim name As StringDim score As Integername = txtName.Textscore = CInt(txtScore.Text)lstStudents.Items.Add(name & " - " & score)End SubPrivate Sub btnSearch_Click()Dim searchName As StringDim index As IntegersearchName = txtSearch.Textindex = lstStudents.FindString(searchName)If index <> -1 ThenlstStudents.SelectedIndex = indexElseMsgBox("Student not found!")End IfEnd SubPrivate Sub btnStatistics_Click()Dim totalScore As IntegerDim averageScore As DoubleDim count As IntegerFor Each item As String In lstStudents.ItemsDim score As Integer = CInt(item.Split("-")(1).Trim()) totalScore += scorecount += 1NextaverageScore = totalScore / counttxtTotalScore.Text = totalScoretxtAverageScore.Text = averageScore```实验三：简单的图书管理系统要求：编写一个简单的图书管理系统，能够实现图书信息的录入、查询和删除功能。

题号：7474以下四个说法中不正确的是_____。

A、可以通过双击工具箱中的控件，将控件加入窗体上B、在窗体上选中控件，按【Del】键可删除该控件C、VB中所有基本控件都可以改变大小D、控件工具箱中可以添加新的控件答案：C题号：7490以下有关对象属性的说法中正确的是_____。

A、对象的某些属性即可在属性窗口设置，也可以通过属性代码设置或改变。

B、不同对象不可能有同名属性C、对象所有的属性都罗列在属性窗口列表D、不同对象的同名属性取值一定相同答案：A题号：7484以下关于事件的说法，正确的是_____。

A、用户可以根据需要建立新的事件B、事件是由系统预先定义好的，能够被对象识别的动作C、不同类型的对象所能识别的事件一定不相同D、事件的名称是可以改变的，由用户预先定义答案：B题号：8028要判断在文本框是否按了Enter键，应在文本框的_____事件中判断。

A、KeyPressB、ClickC、ChangeD、KeyDown答案：A题号：8005以下所列的7个控件中，具有Caption属性的有_____个。

PictureBox(图片框)、Frame(框架)、OptionButton(单选按钮)、ListBox(列表框)、TextBox(文本框)、Form(窗体)、DriveListBox(驱动器列表框)。

A、3B、5C、4D、2答案：A题号：8029下列控件中，没有Caption属性的是_____。

A、单选按钮B、框架C、列表框D、复选框C题号：8025要使Form1窗体的标题栏显示"欢迎使用VB"，以下_____语句是正确的。

A、Form1.Caption=/欢迎使用VB/B、Form1.Caption=欢迎使用VBC、Form1.Caption="欢迎使用VB"D、Form1.Caption='欢迎使用VB'答案：C题号：8015设置标签边框的属性是_____。

VB学习与实验指导测试题参考答案第一章一、选择题1 A2 B3 D4 D5 B6 B7 C8 A9 C 10 A 11 A 12 C 13 C 14 D 15 C16 A 17 B 18 D二、填空题1 事件2 对象按钮3 工程4 视图属性窗口5 窗体编辑器第二章一、选择题1 A2 C3 C4 D5 C6 D7 A二、填空题1 类2 事件 34 5 6 Name（名称）第三章一、选择题1 A2 A3 CD4 C5 A6 C7 C8 A9 D 10 D 11 C 12 C 13 A 14 D 15 D 16 A 17 C 18 B 19 B 20 D 21 B 22 D 23 A 24 B 25 C26 C 27 B 28 D 29 B二、填空题1 (a*sin(30*3.14/180)+c*log(b))/((abs(d)+1)*(e+f))+12 mod3 x*y>0 and x=fix(x) and y=fix(y)4 y mod 4=0 and y mod 100<>0 or y mod 400=05 int(rnd*90)+106 0 “”7 空格8 6,845.309 (1) 8 (2) 1(3) abcd (4) 出错（类型不匹配）(5) false (6) 29/06/2008 (7) I like VB (8) 4(9) 4 4 (10) 3 4(11) 10 -10 (12) -1(13) aa (14) 3(15) 0 (16) 1(17) C (18) 5(19) 4 (20) 34.54 (21) 中国(22) 上海(23) VISUAL BASIC (24) visual basic10 (1) x<-100 or x>100 (2) a=int(a) and b=int(b) anda*b>0(3) x<=y or x>=z (4) a>0 and fix(a)<>a (5) a = 0 Xor b = 0 (6) len(s)<10(7) UCase(s) = s(8) Left(s, 1) = "a" And Right(s, 1) = "a"(9) instr(s,"a")<>0(10) Trim(s) = s(11) Date() = #8/8/2008#(12) Weekday(date) = 2第四章一、简单填空1 Randomize2 N=int(rnd*90)+103 M=(int(rnd*91)+10)/104 Exit for5 Exit do二、读程序写结果1 150 122 22 23 -13 5 3 04 20 40 60三、程序填空1Mid(s,I,1)c>=”A” and c<=”Z”c>=”a” and c<=”z”c>=”0” and c<=”9”212n\2n mod i=0sum+in=sum31000Cstr(n)Cstr(m)Right(s2,len(s1))=s141002002n-1exit forcount+1cound mod 5=0print5Sum=1A*x*x/((2*n-1)*(2*n))Sum+aAbs(a)<=1e-7第五章一、选择题1 B2 C3 C4 A5 C6 A7 D8 B9 C 10 A11 B 12 D 13 A二、读程序写结果1 120 362 10 31 73 26 14 26三、程序填空1 A(I,j); Picture1.print A(I,1)1J“第” & I & “行最大数是” & maxdata & “,第” maxj & “列”2 Text1.text & a(i) KPreserve b(k)B(k)=a(i)3 Sqr(n-m)=int(sqr(n-m)) Redim preserve b(k)NA(m) & b(m)4 Int(rnd*51)+501B(i)+1第六章一、判断题1 √2 √3 ×4 ×5 √6 √7 √8 √9 √10 √11 ×12 √13 √14 ×15 √16 √17 √18 √19 √20 √二、选择题1 A2 C3 A4 A5 A6 D7 B8A四、读程序写结果1 x=2 y=2 m=22 94 5 9 273 50 264 5 64 55 7 14 11 22 15 306 29 29 37 1225第七章一、选择题1 B2 B3 D4 C5 B6 D7 A8 D9 B 10 B 11 C 12 A 13 B 14 C 15 D 16 C 17 A 18 A 19 B 20 C21 B 22 C 23 B 24 B 25 B二、简单填空1 LargeChange2 Timer.Enabled = False3 AddItem4 格式5 Picture6 Enabled7 Load8 SetFocus9 MultiLine10 ms三、程序填空1 InputboxTimer1_timer Text2.textLabel3.caption=””2 Form_load List1_dblclick List1.listindex List2_dblclick List2.listindex3 (3)TextList1.textRemoveitem 10-2*i-1第八章一、选择题1 D2 B3 C45 C二、简单填空1 popupmenu23 visible4 连接符-5第九章一、选择题1 C2 C3 B4 B5 B6 B7 C8 B二、简单填空1 Eof2 记录字节3 大小4 复制5 Drive三、程序填空1 For inputDo until eof(1) Line input #1,data2 Input as #1#1,strClose #1综合测试题一一、选择题1 A2 C3 D4 B5 D6 A7 A8 C9 A 10 C二、填空1 Int(x)=x and int(y)=y and x*y<02 YAW oureelcome3 5 15 1514 11 19 135 412 196 n nn onn7 until abs(t)< =eps (-1)^nt*x*x/n8 K=1c(k)=pP=””List1.additem c(i)9 (Byval a as integer) as boolean i>int(a/2)judge(p)10 FalseText1.text=text1.text & “(“ & m & “,” & n & ”)” & vbcrlf M=kN mod i=0综合测试题二一、选择题1 A2 B3 C4 A5 C6 C7 C8 B9 C 10 A二、填空1 (Int(51*rnd)+100)/1002 23456 67 8103 W WW 84 2 33 74 4 125 GCD(21,3)=3 GCD(45,24)=36 47 23 117 Instr(s,”,”) Mid(s,n+1) A(3)=val(s)8 m+val(mid(cstr(n),i,1))mand total(p2) mod 6=0 “(“ & p1 & “,” & p2 & “)”9 (a,t1,t2)m=a(i,1)a(I,j)>m then m=a(I,j) s=small(1):m=large(1)10 Call eu(n+2,f2)Whle i<nN mod j=0 and i mod j=0P=p+1下篇实验教程实验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 判断回文数Len(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程序设计学习与实验指导书答案（包含实验答案）VB学习与实验指导测试题参考答案第一章一、选择题16111614ABAA271217事件视图属性窗口BCCB25381318DACD对象按钮窗体编辑器49143DCD51015工程BAC二、填空题第二章一、选择题1614AD类27CA253C事件436D5Name（名称）C二、填空题第三章一、选择题16111621261234567ACCABC2712172227ACCCDB3813182328CDAABAD49141924 29CDDBBB510152025ADDDC二、填空题(a某in(30某3.14/180)+c某log(b))/((ab(d)+1)某(e+f))+1mod某某y>0and某=fi某(某)andy=fi某(y)ymod4=0andymod100<>0orymod400=0int(rnd某90)+100“”空格8(1)(3)(5)(7)(9)9(11)(13)(15)(17)(19)(21)(23)(1)(3)(5)(7)10(8)(9 )(10)(11)(12)8abcdfaleIlikeVB4410-10aa0C4中国VISUALBASIC某100某<=yor某>=za=0某orb=0UCae()=6,845.30(2)(4)(6)(8)(10)(12)(14)(16)(18)(20)(22)(24) (2)(4)(6)1出错（类型不匹配）29/06/2022434-131534.54上海viualbaica=int(a)andb=int(b)anda某b>0a>0andfi某(a)<>alen()<10Left(,1)=\intr(,\Trim()=Date()=#8/8/2022#Weekday(d ate)=2第四章一、简单填空123451234RandomizeN=int(rnd某90)+10M=(int(rnd 某91)+10)/10E某itforE某itdo150122223-1530204060二、读程序写结果三、程序填空12345Len()Mid(,I,1)c>=”A”andc<=”Z”c>=”a”andc<=”z”c>=”0”andc<=”9”12n\\2nmodi=0um+in=um1000Ctr(n)Ctr(m)Right(2,len(1) )=11002002n-1e某itforcount+1coundmod5=0printSum=1A某某某某/((2某n-1)某(2某n))Sum+aAb(a)<=1e-7第五章一、选择题1611123BAB12036103172614262712CDD3813CBA49AC510CA二、读程序写结果三、程序填空A(I,j);Picture1.print1A(I,1)1234A(I,j)J“第”&I&“行最大数是”&ma某d ata&“,第”ma某j&“列”Te某t1.te某t&a(i)KPreerveb(k)B(k)=a(i)Sqr(n-m)=int(qr(n-m))Redimpreerveb(k)NA(m)&b(m)Int(rnd某51)+501B(i)+1第六章一、判断题16111616√√某√AD27121727√√√√CB38131838某√√√AA4914194某√某√A51015205√√√√A二、选择题四、读程序写结果某=2y=21m=29245927503265464571451122153029629312725第七章一、选择题1D2B3C45C二、简单填空。

单项选择题号：7491执行VB工程时第一次出现的窗体称启动窗体，关于该窗体的叙述不正确的是_____。

A、若不对启动窗体进行设置，工程中的第一个窗体默认为启动窗体B、启动窗体和其他窗体一样可以隐藏和关闭C、启动窗体一般作为用户工作的界面，不可更改D、启动窗体可进行设置，设置方法是执行“工程”菜单中的“属性”答案：C题号：7473在VB集成环境创建VB应用程序时，除了工具箱窗口、窗体中的窗口、属性窗口外，必不可少的窗口是____________。

A、立即窗口B、代码窗口C、窗体布局窗口D、监视窗口答案：B题号：7479VisualBasic集成的主窗口中包括_____。

A、标题栏B、工具栏C、菜单栏D、以上三者均有答案：D题号：8027当文本框的ScrollBars属性设置了非零值，却没有效果，原因可能是_____。

A、文本框的MultiLine属性为FalseB、文本框中没有内容C、文本框的MultiLine属性为TrueD、文本框的Locked属性为True答案：A题号：8003使用_____方法，可以将列表框List1中的所有项删除掉。

A、AddItemB、RemoveItemC、List1.Txt=""D、Clear答案：题号：8021某过程有语句Frm1.Caption="Hello",在界面设计时，该窗体的标题属性取缺省值，则执行该语句前后，标题、属性值分别为_____。

A、Form,HelloB、Form1,HelloC、Frm1,HelloD、Form1,Frm1答案：B题号：8008复选框的Value属性为1时，表示_____。

A、复选框未被选中B、复选框内有灰色的勾C、复选框被选中D、复选框操作有误答案：C题号：8047如果单击一个当前没有被选中的复选框，其他已被选中的复选框会处于_____状态。

A、不显示B、选中C、禁止D、不选中答案：B题号：8546MsgBox函数返回值的类型为____________。

第五章实验5-1知识点1．数组与普通变量得区别在于数组是一组具有相同类型的有序变量的集合；而变量之间相互独立，没有内在的联系，并与其所在的位置无关。

2．VB中可以通过Dim,private,public,stat ic这几个语句定义数组，他们之间得区别在于所定义的数组作用域不同。

Static 语句用于过程中，定义静态数组；private语句用于模块的通用声明处，定义模块级数组；public语句用于标准模块的声明处，定义全局数组；Dim语句既可以用于过程中，定义局部数组，也可以用于模块的通用声明处，定义模块级数组。

3．语句option base 1Dim b(3) asinteger定义了3个数组元素，分别是b(1)，b(2)和b(3)，这两个b(3)的区别在于前者是定义数组使用的数组说明符，后者是数组元素b(3).4. VB中的二维数组在存放的时候是按列_存储的。

5.常见的数组函数及语句有哪些？他们的功能各是什么？Lbound函数，用于返回数组某维的维下界的值；Ubound函数，用于返回数组某维的维下界的值；Erase语句，功能有二，一是重新初始化固定大小数组的元素，二是释放动态数组的存储空间Option base n 语句，用于说明数组的维下界从n开始计数For-each-next语句，用于数组或对象集合中的每个元素重复执行一组语句。

6.For-each-next语句与For-next语句的区别在于前者专门用于数组或对象集合中的每个元素，而后者多用于普通变量。

课前练习1.①13 ②6 ③15 ④105⑤9 ⑥442．option base语句和redim语句。

3.334. 12 5实验5-2知识点1.数组元素2.数组元素的本质是变量，但是与之不同的是数组元素是有序的，通过改变下标就可以访问不同的数组元素。

3.数组元素赋值的方法有：①用赋值语句给数组元素赋值②通过循环逐一给数组元素赋值③用inputbox函数给数组元素赋值④用array函数给数组赋值课前练习1. D2.LSP HXF BGJ3. 1 5 9实验5-3知识点1．动态数组就是在程序运行时可以根据需要多次重新定义大小的数组。

第1章 习题参考答案一、思考题 略二、选择题1. C2. B第2章 习题参考答案一、判断题二、填空题1． 窗体font2． 不能在代码中设置 3． selstart 4． Locked5． TabIndex 、 0 6． vbModal 或 17． Activate 、 Deactivate 8．PictureBox 和 Frame -三、选择题第3章 习题参考答案一、思考题1、double2、 xyC@abc ， 15eyd ， Is ， #END X8[P]3、变量有 (1) (4) (6) (8)，常量有 (2)字符串型 (3)逻辑型 (5)字符串型 (7)字符串型 (9)日期型 (10)实型 4、 fe d cb a++5、 (1) 26 (2) 3.75 (3) 36、写出下列Visual Basic 表达式的值：(1) False (2) True (3) True (4) False (5) True(6) True (7) False (8) False7、将下列命题用Visual Basic布尔表达式表示：(1) z>x and z>y (2) abs(a)<=abs(b+2) or a > b+2(3) p mod q=0 (4) x<-5 or x>-2 and x<2 or x>5(5) x<z and y>z or x>z and y<z (6) a<b and a mod 2=08、写出下列函数的值：(1) -4 (2) 换行符(3) –3 (4) -1 (5) hello(6) ello (7) 16 (8) “-459.65” (9) 5二、填空题1．整型、长整型、双精度型、双精度型2．(X mod 10)*10+X\103．sin(1/4*3.14)+sqr(x+2*exp(y))/abs(x-y)4．(a+b)/(c*d-sqr(1-a^2))5．x mod 5=0 or x mod 9=06．False7．-3 、 2 、-2 、 28．CDEF9．x>0 and y>0 or x<0 and y<0 或x*y>010．s>=”A” and s<=”Z” or s>=”a” and s<=”z”三、选择题四、编程题1、Private Sub Form_Click()Dim x%, Ten%, hundred%x = Val(Text1.Text)Ten = (x \ 10) Mod 10hundred = x \ 100Print "百位数是: " & hundredPrint "十位数是: " & TenEnd Sub2Private Sub Form_Click()Dim char As String * 1Form1.CurrentX = Rnd * Form1.ScaleWidthForm1.CurrentY = Rnd * Form1.ScaleHeightchar = Chr(Int(Rnd * 16) + 65)Print charEnd Sub第4章习题参考答案一、判断题二、选择题三、程序阅读写出下列各段程序执行后的输出结果。

⼤学vb教材参考答案第1章⼀.单项选择题1-5:DBCAC 6-10:ABCDC 11-15:BCCAB ⼆. 多项选择题1、ACDE2、BCE3、CD4、CE5、AE6、ACE7、ABCD三. 填空题1．事件驱动2．解释编译3．设计、运⾏和中断。

4．属性、事件和⽅法。

5．窗体单击（Form_Click）。

6．（第1个空取消），代码7． MyForm 。

要求复习：教材的例题：P7 例1-1实验教程的练习：P5 第1、2 题习题2参考答案（本章答案请同学们⾃⼰到机器上去验证）⼀．单选题1.①D，②D2.①A，②C3.A4.B5.B8.D9.B 10.B 11.A 12.A 13.B 14.A 15.B 16.B 17.B 18.A 19.B 20.A 21.B 22.B 23.D 24.A 25.B 26.B 27.A 28.B 29.C 30.A ⼆. 多项选择题1.A，B2.A，D3.4.C，D，E5.A，B，D，E6.A，B，C7.A,D,E8.B,C9.A，D，E 10. 11.A，D，E 12.A，B 13.A，B，D，E 14.B，D 15.C，D 16.A，C 17.A，D三. 填空题1、⑴sin(50*3.14/180)⑵(2+x*y)/(2-y^2)⑶a^2-(3*a*b/(3+a))⑷(x^3)^(1/8)+sqr(y^2+4*a^2/(x+y^3))2、int(rnd*(51)+50)3、⑴138 ⑵3 ⑶214 ⑷inchina ⑸70 (6)45 ⑺0第3章⼀．单项选择题1-5: C B D D B 6-10：C B D D A 11-15：A C C B C16-20：A B A A C 21-25：D B B C A 26：B 27：B 28：取消29：A 30：A 31：C⼆．多项选择题1． AC 2． ACE 3． ABCF 4． ABCDE 5. BD三．填空题1． $000, 124 。