VB课后练习答案.doc
(完整版)VB习题册答案()最终版
第一章二、1。
文件/退出2.Alt+Q3.文件/打开工程/打开工程4.vbp/frm5。
Esc第二章二、1。
对象框、属性显示方式、属性列表和属性解释2。
Text1。
text=”Hellor!”3.标准控件/ActiveX控件/可插入对象4。
Top和Left，Width和Height5。
用鼠标单击属性窗口的任何部分；执行“视图”菜单中的“属性窗口”命令；按F4键；单击工具栏上的“属性窗口”按钮;按组合键Ctrl+PgDn或Ctrl+PgUp6.Ctrl/Shift第三章二、1．答案：、ABCD，VB Programming2．答案：建立界面，设置属性、编写代码3．答案：属性窗口,运行4．答案:对象,过程5．答案:工具、选项、选项、自动语法检查6．答案：Frm，Vbp7．答案:工程8．答案：窗体模块，标准模块和类模块第四章二、1．答案：CONTT。
DE+COS（28＊3.14/180）2．答案：—3/8 +8＊INT（24。
8）3．答案：(8+6）^（4/-2)+SIN（2＊3。
14）4．答案:((x+y)+z)*80—5＊(C+D）5.答案： A6.答案:17.答案：Good Morning 、 Good Morning8.答案: ABCD 、 HIJK 。
9.答案：CDEF、1110.答案：0、abcdefghijk11.答案：25、8、2001、7、6第五章二、1．答案：Label2.Caption,Text1.Text，Text2。
Text=y2．答案：MsgBox “输入的密码为”＆Text2.Text , vbOKOnly， "登录”3．答案：25+32=574．答案：Country ＆“ “ ＆City &” “ ＆ CStr（Year(Date)）5．答案 Year(Date） &“年“ & Month(Date） &“月" & Day（Date） _ &“日，星期“＆ WeekDay （Date，vbMonday)第六章二、1．答案：AutoSize2．答案：ScrollBar MultiLine True3．答案：Text1.SetFocus4．答案：0 05．答案:Picture1.Picture=LoadPicture(“pic2.gif”）6．答案：True7．答案：Picture8．答案：Interval9．答案：Enabled10．答案：下拉组合框，简单组合框，下拉列表框 Style 0 1 2 11．答案:下拉列表框12．答案：ItemA和ItemC13．答案：VB14．答案：VB程序设计 VB Programming第七章二、1． __21 38 54__2． sum=14 sum=14 sum=10。
vb课后习题答案
习题3—4 （P126）Private Sub Command1_Click()Image1.Width = Image1.Width * 1.2Image1.Height = Image1.Height * 1.2End SubPrivate Sub Command2_Click()Image1.Width = Image1.Width / 1.2Image1.Height = Image1.Height / 1.2End SubPrivate Sub Command3_Click()Image1.Width = Form1.WidthImage1.Height = Form1.HeightEnd SubPrivate Sub Form_Load()Image1.Left = 0Image1.Top = 0Image1.Picture = LoadPicture(App.Path & "\back.jpg") End Sub习题3—5 （P126）Dim mleft As LongPrivate Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer()mleft = Label1.Left + 100If mleft + Label1.Width > Picture1.Width Thenmleft = 0End IfLabel1.Left = mleftEnd Sub习题4—1 （P170）Private Sub Form_Load()Form1.ShowSum = 0For i = 1 To 4a = InputBox("请输入数值型数据")Sum = Sum + aave = Sum / 4NextPrint Sum; aveEnd Sub习题4—3 （P170）Private Sub Command1_Click()a = 5b = 2.5c = 7.8pi = 3.14159265y = pi * a * b / a + b * cPrint yEnd Sub习题4—4Private Sub Command1_Click()a = Val(Text1.Text)tian = a \ 86399xiaoshi = (a - tian * 86400) \ 1439fenzhong = (a - tian * 86400 - xiaoshi * 1440) \ 59miao = a - tian * 86400 - xiaoshi * 1440 - fenzhong * 60Text2.Text = tian & "天" & xiaoshi & "小时" & fenzhong & "分钟" & miao & "秒" End Sub习题4—5Private Sub Command1_Click()Const g As Single = 9.81t = InputBox("请输入t的值")v0 = InputBox("请输入v0的值")s = 1 / 2 * g * t * t + v0 * tPrint Format(s, "0.##")End Sub习题4—6Private Sub Command1_Click()Sum = 0For i = 2 To 100 Step 2Sum = Sum + iNextLabel1.FontSize = 20Label1.Caption = "2+4+6+……+100=" & SumEnd Sub习题4—7Private Sub Command1_Click()Doa = InputBox("请输入三角形的第一条边长")a1 = Val(a)If a1 = -1 ThenEndEnd Ifb = InputBox("请输入三角形的第二条边长")b1 = Val(b)If b1 = -1 ThenEndEnd Ifc = InputBox("请输入三角形的第三条边长")c1 = Val(c)If c1 = -1 ThenEndEnd IfIf (a1 + b1 > c1) And (a1 + c1 > b1) And (b1 + c1 > a1) Then s = a1 + b1 + c1Exit DoElseError1 = MsgBox("您输入的数据不能组成三角形")End IfLoopLabel4.Caption = "您输入的边长分别为：" & a1 & "," & b1 & "," & c1 & " " & "面积为：" & sEnd Sub习题4—8Private Sub Command1_Click()If Text1.Text <> "" Thena = Text1.TextSelect Case aCase Is <= 200s = 0Case Is <= 400s = (a - 200) * 0.03Case Is < 5000s = 200 * 0.03 + (a - 400) * 0.04Case Is >= 5000s = (400 - 200) * 0.03 + (5000 - 400) * 0.04 + (a - 5000) * 0.05 End SelectText2.Text = sElseerror1 = MsgBox("请输入您的收入！")End IfEnd SubPrivate Sub Form_Load()Text2.Locked = TrueEnd SubPrivate Sub Text1_Change()If Not IsNumeric(Text1.Text) Thenerror1 = MsgBox("请输入数字")End IfEnd Sub习题4—9Private Sub Text1_Change()a = Text1.TextSelect Case aCase 0Label2.Caption = "休息"Text1.SelStart = 0Text1.SelLength = 1Case 1, 3Label2.Caption = "讲计算机课"Text1.SelStart = 0Text1.SelLength = 1Case 2, 4Label2.Caption = "讲程序设计课"Text1.SelStart = 0Text1.SelLength = 1Case 5Label2.Caption = "进修英语"Text1.SelStart = 0Text1.SelLength = 1Case 6Label2.Caption = "政治学习"Text1.SelStart = 0Text1.SelLength = 1Case ElseError1 = MsgBox("您确认退出程序？", 52, "确认")If Error1 = 6 ThenEndElseText1.SelStart = 0Text1.SelLength = 1End IfEnd SelectEnd Sub习题4—10Private Sub Command1_Click()For i = 1 To 9Print Tab(30 - 3 * i);For j = 1 To iPrint j;Next jFor k = i - 1 To 1 Step -1Print k;Next kPrintNext iEnd Sub习题4—11Private Sub Command1_Click()For i = 1 To 30For j = i To 30For k = j To 30If i * i + j * j = k * k ThenPrint Tab(10); i, Tab(23); j, Tab(36); k End IfNext k, j, iEnd Sub习题4—12Private Sub Form_Click()Dim m As Integer, n As Integerm = CInt(Val(InputBox("请输入计算范围的初值"))) n = CInt(Val(InputBox("请输入计算范围的终值"))) For i = m To ns = 0For j = 1 To i - 1If i Mod j = 0 Thens = s + jEnd IfNext jIf s = i Then Print iNext iEnd Sub习题4—13Private Sub Form_Click()Dim a As String, c As StringDim b As Integera = InputBox("请输入学生姓名")b = InputBox("请输入学生成绩")Select Case bCase Is <= 39c = "Fail"Case Is <= 49c = "Poor"Case Is <= 59c = "Fair"Case Is <= 79c = "Good"Case Elsec = "Very Good"End SelectPrint "姓名：" & aPrint "成绩：" & bPrint "评语：" & cEnd Sub习题4—14Private Sub Command1_Click()Dim a As Integera = Val(Text1.Text)If a < 10 Or a > 99 Thenerror1 = MsgBox("您输入的不是两位正整数，请重新输入")ElseFor i = 10 To 99a1 = a \ 10 + (a Mod 10) * 10i1 = i \ 10 + (i Mod 10) * 10If (a + i = a1 + i1) And (a1 > 9) And (i1 > 9) ThenLabel2.Caption = Label2.Caption & Chr(13) & a & "+" & i & "=" & a1 & "+" & i1Form1.Height = Label2.Height + Label2.Top + 1000End IfNextEnd IfEnd Sub习题4—15Dim a, b, s As DoubleDim flag, com As IntegerPrivate Sub Command1_Click()If flag = 0 ThenText1.Text = Text1.Text & Command1.Captiona = Val(Text1.Text)ElseText1.Text = ""flag = 0Text1.Text = Text1.Text & Command1.Captiona = Val(Text1.Text)End IfEnd SubPrivate Sub Command2_Click()If flag = 0 ThenText1.Text = Text1.Text & Command2.Captiona = Val(Text1.Text)ElseText1.Text = ""flag = 0Text1.Text = Text1.Text & Command2.Captiona = Val(Text1.Text)End IfEnd SubPrivate Sub Command3_Click()If flag = 0 ThenText1.Text = Text1.Text & Command3.Captiona = Val(Text1.Text)ElseText1.Text = ""flag = 0Text1.Text = Text1.Text & Command3.Captiona = Val(Text1.Text)End IfEnd SubPrivate Sub Command4_Click()If flag = 0 ThenText1.Text = Text1.Text & Command4.Captiona = Val(Text1.Text)ElseText1.Text = ""flag = 0Text1.Text = Text1.Text & Command4.Captiona = Val(Text1.Text)End IfEnd SubPrivate Sub Command5_Click()If flag = 0 ThenText1.Text = Text1.Text & Command5.Captiona = Val(Text1.Text)ElseText1.Text = ""flag = 0Text1.Text = Text1.Text & Command5.Captiona = Val(Text1.Text)End IfEnd SubPrivate Sub Command6_Click()If flag = 0 ThenText1.Text = Text1.Text & Command6.Captiona = Val(Text1.Text)ElseText1.Text = ""flag = 0Text1.Text = Text1.Text & Command6.Captiona = Val(Text1.Text)End IfEnd SubPrivate Sub Command7_Click()If flag = 0 ThenText1.Text = Text1.Text & Command7.Captiona = Val(Text1.Text)ElseText1.Text = ""flag = 0Text1.Text = Text1.Text & Command7.Captiona = Val(Text1.Text)End IfEnd SubPrivate Sub Command8_Click()If flag = 0 ThenText1.Text = Text1.Text & Command8.Captiona = Val(Text1.Text)ElseText1.Text = ""flag = 0Text1.Text = Text1.Text & Command8.Captiona = Val(Text1.Text)End IfEnd SubPrivate Sub Command9_Click()If flag = 0 ThenText1.Text = Text1.Text & Command9.Captiona = Val(Text1.Text)ElseText1.Text = ""flag = 0Text1.Text = Text1.Text & Command9.Captiona = Val(Text1.Text)End IfEnd SubPrivate Sub Command10_Click()If flag = 0 ThenText1.Text = Text1.Text & Command10.Captiona = Val(Text1.Text)ElseText1.Text = ""flag = 0Text1.Text = Text1.Text & Command10.Captiona = Val(Text1.Text)End IfEnd SubPrivate Sub Command11_Click()If flag = 0 ThenText1.Text = Text1.Text & Command11.Captiona = Val(Text1.Text)ElseText1.Text = ""flag = 0Text1.Text = Text1.Text & Command11.Captiona = Val(Text1.Text)End IfEnd SubPrivate Sub Command12_Click()Select Case comCase 1a =b + aText1.Text = aflag = 1Case 2a =b - aText1.Text = aflag = 1Case 3a =b * aText1.Text = aflag = 1Case 4a =b / aText1.Text = aflag = 1End SelectEnd SubPrivate Sub Command13_Click()b = aflag = 1com = 1End SubPrivate Sub Command14_Click()b = aflag = 1com = 2End SubPrivate Sub Command15_Click()b = aflag = 1com = 3End SubPrivate Sub Command16_Click()b = aflag = 1com = 4End Sub习题5—1 （P196）Private Sub Form_Click()Dim a(1 To 20)For i = 1 To 20a(i) = InputBox("请输入第" & i & "个元素") Next iFor i = 1 To 20Print a(i); " ";Next iPrintFor i = 1 To 10t = a(i)a(i) = a(21 - i)a(21 - i) = tNext iPrint a(i),Next iEnd Sub习题5—2Private Sub Form_Click()Dim a(1 To 10, 1 To 10)For i = 1 To 10For j = 1 To 10If i = j Thena(i, j) = 1ElseIf i + j = 11 Thena(i, j) = 1Elsea(i, j) = 0End IfNext jNext iFor i = 1 To 10For j = 1 To 10Print a(i, j);Next jPrintNext iEnd Sub习题5—3Private Sub Form_Click()Dim a() As Integern = InputBox("请输入n")m = InputBox("请输入m")Print "数组为" & n & "行" & m & "列"ReDim a(n, m)For i = 1 To nFor j = 1 To ma(i, j) = InputBox("请输入第" & i & "行" & j & "列") Next jNext iFor i = 1 To nFor j = 1 To mPrint a(i, j);Next jPrintNext is = 0For j = 1 To ms = s + a(i, j)Next jNext iv = s / (n * m)Print "平均值为：" & vFor i = 1 To nFor j = 1 To mIf a(i, j) > v ThenPrint "元素：" & a(i, j) & "行号：" & i & "列号：" & j End IfNext jNext iEnd Sub习题5—4Private Sub Form_Click()Dim a(1 To 50, 1 To 4) As IntegerFor i = 1 To 50For j = 1 To 4a(i, j) = Int(Rnd * 90 + 10)Next jNext i'显示满足条件的行For i = 1 To 50For j = 1 To 4If a(i, j) > 90 ThenFor k = 1 To 4Print a(i, k) & " ";Next kPrintExit ForEnd IfNext jNext i'显示完整数组For i = 1 To 50For j = 1 To 4Print a(i, j) & " ";Next jPrintNext iEnd Sub习题5—5Private Sub Form_Click()Dim n As Integer, m As IntegerDim a() As Integern = InputBox("请输入行数n")m = InputBox("请输入列数m")ReDim a(1 To n, 1 To m)For i = 1 To nFor j = 1 To ma(i, j) = InputBox("请输入第" & i & "行" & j & "列的元素") Next jNext iFor i = 1 To nFor j = 1 To mPrint Format(a(i, j), "000") & " ";Next jPrintNext ian_num = 0For i = 1 To nhmax = a(i, 1)lhao = 1For j = 1 To mIf a(i, j) > hmax Thenhmax = a(i, j)lhao = jEnd IfNext jlmin = a(i, lhao)For k = 1 To nIf a(k, lhao) < lmin Thenlmin = a(k, lhao)End IfNext kIf lmin = hmax ThenPrint " 鞍点为：" & i & "行" & lhao & "列"an_num = an_num + 1End IfNext iIf an_num = 0 Then Print "无鞍点"End Sub习题5—6Private Sub Form_Click()Dim a(1 To 3, 1 To 3) As IntegerDim b(1 To 3, 1 To 3) As IntegerDim c(1 To 3, 1 To 3) As IntegerFor i = 1 To 3For j = 1 To 3a(i, j) = Int(Rnd * 90 + 10)b(i, j) = Int(Rnd * 90 + 10)Next jNext iPrint "数组A:"For i = 1 To 3For j = 1 To 3Print a(i, j) & " ";Next jPrintNext iPrint "数组B:"For i = 1 To 3For j = 1 To 3Print b(i, j) & " ";Next jPrintNext iFor i = 1 To 3For j = 1 To 3c(i, j) = a(i, j) + b(i, j)Next jNext iPrint "数组C:"For i = 1 To 3For j = 1 To 3Print c(i, j) & " ";Next jPrintNext iEnd Sub习题5—7Private Sub Form_Click()Dim a(1 To 10, 1 To 3)Dim s As Integer, av As IntegerFor i = 1 To 10a(i, 1) = InputBox("请输入第" & i & "个学生的姓名") a(i, 2) = InputBox("请输入第" & i & "个学生的学号") a(i, 3) = InputBox("请输入第" & i & "个学生的成绩") Next iPrint "原始数据为:"Print "姓名", "学号", "成绩"For i = 1 To 10For j = 1 To 3Print a(i, j),Next jPrintNext is = 0For i = 1 To 10s = s + a(i, 3)Next iav = s / 10Print "平均成绩为:" & avPrint "姓名", "学号", "成绩", "奖金等级"For i = 1 To 10If a(i, 3) > av * 1.1 ThenPrint a(i, 1), a(i, 2), a(i, 3), "一等奖"ElseIf a(i, 3) > av * 1.05 ThenPrint a(i, 1), a(i, 2), a(i, 3), "二等奖"End IfNext iEnd Sub习题5—8Private Sub Form_Click()Dim a(1 To 10, 1 To 4)For i = 1 To 10a(i, 1) = InputBox("请输入第" & i & "个学生的姓名")a(i, 2) = Val(InputBox("请输入第" & i & "个学生的语文成绩")) a(i, 3) = Val(InputBox("请输入第" & i & "个学生的数学成绩")) a(i, 4) = (a(i, 2) + a(i, 3)) / 2Next iPrint "姓名", "语文", "数学", "平均分"For i = 1 To 10For j = 1 To 4Print a(i, j),Next jPrintNext iFor i = 10 To 2 Step -1For j = 1 To i - 1If a(j, 4) < a(j + 1, 4) Thent = a(j, 1)a(j, 1) = a(j + 1, 1)a(j + 1, 1) = tt = a(j, 2)a(j, 2) = a(j + 1, 2)a(j + 1, 2) = tt = a(j, 3)a(j, 3) = a(j + 1, 3)a(j + 1, 3) = tt = a(j, 4)a(j, 4) = a(j + 1, 4)a(j + 1, 4) = tEnd IfNext jNext iPrint "姓名", "语文", "数学", "平均分" For i = 1 To 10For j = 1 To 4Print a(i, j),Next jPrintNext iEnd Sub习题5—9Private Sub Form_Click()Dim a, b, c(0 To 5) As Integera = Array(2, 8, 7, 6, 4, 28, 70, 25)b = Array(79, 27, 32, 41, 57, 66)Print "A数组的内容:"For Each x In aPrint x,Next xPrintPrint "B数组的内容:"For Each x In bPrint x,Next xPrintPrint "C数组的内容:"For i = 0 To 5c(i) = a(i) + b(i)Print c(i),Next iEnd SubPrivate Sub Form_Click()Dim a(1 To 4, 1 To 4) As IntegerFor i = 1 To 4For j = 1 To 4a(i, j) = InputBox("请输入第" & i & "行第" & j & "列的元素") Next jNext iPrint "原始数组:"For i = 1 To 4For j = 1 To 4Print a(i, j),Next jPrintNext iPrint "主对角线:"For i = 1 To 4Print a(i, i),Next iPrintPrint "另一条对角线:"For i = 1 To 4Print a(i, 5 - i),Next iPrintFor i = 1 To 4s = 0For j = 1 To 4s = s + a(i, j)Next jPrint "第" & i & "行的和为:" & sNext iFor i = 1 To 4s = 0For j = 1 To 4s = s + a(j, i)Next jPrint "第" & i & "列的和为:" & sNext iFor i = 1 To 4t = a(1, i)a(1, i) = a(3, i)a(3, i) = tNext it = a(i, 2)a(i, 2) = a(i, 4)a(i, 4) = tNext iPrint "结果数组:"For i = 1 To 4For j = 1 To 4Print a(i, j),Next jPrintNext iEnd Sub习题5—11Private Sub Form_Click()Dim a()Dim n As Integern = InputBox("请输入人数N")ReDim a(1 To n, 1 To 5)For i = 1 To na(i, 1) = InputBox("请输入第" & i & "个人的姓名")a(i, 2) = InputBox("请输入第" & i & "个人的性别")a(i, 3) = InputBox("请输入第" & i & "个人的年龄")a(i, 4) = InputBox("请输入第" & i & "个人的文化程度") a(i, 5) = InputBox("请输入第" & i & "个人的籍贯") Next iPrint "原始数据:"Print "姓名", "性别", "年龄", "文化程度", "籍贯"For i = 1 To nFor j = 1 To 5Print a(i, j),Next jPrintNext iPrint "查找的结果:"x = 6Do While x = 6sn = InputBox("请输入要查找的人的姓名")For i = 1 To nIf sn = a(i, 1) ThenFor j = 1 To 5Print a(i, j),Next jPrintExit ForEnd IfNext iIf i > n Then Print "没有找到该人"x = MsgBox("你是否还要继续查找??", vbInformation + vbYesNo, "提问") LoopEnd Sub习题5—12Private Sub Form_Click()Dim a(1 To 10, 1 To 2)For i = 1 To 10a(i, 1) = CStr(InputBox("请输入运动员号"))a(i, 2) = Val(InputBox("请输入成绩"))Next iPrint "原始的顺序"Print "运动员号", "成绩"For i = 1 To 10For j = 1 To 2Print a(i, j),Next jPrintNext iFor i = 10 To 2 Step -1For j = 1 To i - 1If a(j, 2) > a(j + 1, 2) Thent = a(j, 2)a(j, 2) = a(j + 1, 2)a(j + 1, 2) = tt = a(j, 1)a(j, 1) = a(j + 1, 1)a(j + 1, 1) = tEnd IfNext jNext iPrint "排列的顺序"Print "名次", "运动员号", "成绩"For i = 1 To 10Print i,For j = 1 To 2Print a(i, j),Next jPrintNext iEnd SubPrivate Sub Form_Click()Dim a(11, 11)For i = 1 To 11a(i, 1) = 1a(i, i) = 1Next iFor i = 3 To 11For j = 2 To 10a(i, j) = a(i - 1, j - 1) + a(i - 1, j)Next jNext iFor i = 1 To 11For j = 1 To iPrint Format(a(i, j)),Next jPrintNext iEnd Sub习题6—4 （P224）Private Sub Form_Click()Dim i As LongFor i = 1 To 1000If Automorphic(i) Then Print iNext iEnd SubPrivate Function Automorphic(n As Long) As Boolean Dim t As Long, l As Integerl = Len(CStr(n))t = n * nAutomorphic = Right(CStr(t), l) = CStr(n)End Function习题6—6Private Sub Form_Click()For i = 1 To 20Print i & "的立方为：" & m_pf(i)Next iEnd SubPrivate Function m_pf(x)m_pf = x * x * xEnd FunctionPrivate Sub Form_Click()Dim a As Integera = InputBox("请输入一个整数")If is_bin(a) ThenPrint "偶数"ElsePrint "奇数"End IfEnd SubPrivate Sub Form_Load()End SubPrivate Function is_bin(n As Integer) As Boolean If n Mod 2 = 0 Thenis_bin = TrueElseis_bin = FalseEnd IfEnd Function习题6—9Const pi = 3.1415926Private Sub Form_Click()Print "余下的面积为：" & C_S(10) - C_S(5) - C_S(3) End SubPrivate Function C_S(r As Single) As SingleC_S = pi * r * rEnd Function习题6—10Private Sub Form_Click()Print "第五人的年龄为：" & n_age(5)End SubPrivate Function n_age(n As Integer) As IntegerIf n = 1 Thenn_age = 10Elsen_age = n_age(n - 1) + 2End IfEnd Function。
VB部分课后习题答案
1. 选择题(1) 假定窗体的名称（Name属性）为Form1，则把窗体的标题设置为“VB Test”的语句为（B）。
A. Form1="VB Test"B. Caption="VB Test"C. Form1.Text="VB Test"D. ="VB Test"(2) 下列不能打开代码窗口的操作是（D）。
A．双击窗体上的某个控件B．双击窗体C．按F7键D．单击窗体或控件(3) 为了保存一个Visual Basic应用程序，应当（D）。
A．只保存窗体文件（.frm）B．分别保存工程文件和标准模块文件（.bas）C．只保存工程文件（.vbp）D．分别保存工程文件、窗体文件和标准模块文件(4) 为了装入一个Visual Basic应用程序，应当（C）。
A．只装入窗体文件（.frm）B．分别装入工程文件和标准模块文件（.bas）C．只装入工程文件（.vbp）．D分别装入工程文件、窗体文件和标准模块文件(5) 不为了使窗体的大小可以改变，必须把它的BorderStyle属性设置为（A）。
A．1 B．2 C．3 D．42. 填空题(1) 在用Visual Basic开发应用程序时，通常首先需要新建工程、其次还要经过、、、和5步。
(2) 控件和窗体的Name属性只能通过属性窗口设置，不能在运行期间设置。
(3) 代码窗口分为左右两栏，左边一栏称为对象，右边一栏称为事件。
(4) 为了在输入程序时能自动进行语法检查，必须执行菜单中的命令，打开对话框，然后选择“编辑器”选项卡中的选项。
(5) 在保存VB应用程序中，窗体文件和工程文件的扩展名分别为 .frm 和.vbp 。
(6) 为了把一个Visual Basic应用程序装入内存，只要装入工程文件即可。
(7) Visual Basic应用程序通常由3类模块组成，即、和。
(8) 在窗体上画两个文本框和一个命令按钮，然后在命令按钮的代码窗口中编写如下事件过程：Private Sub Command1_Click( )Text1.Text=“VB Programming”Text2.Text=Text1.TextText1.Text=“ABCD”End Sub程序运行后，单击命令按钮，两个文本框中显示的内容分别为ABCD 和VB Programming 。
【精品】VB课后习题答案.doc
第1章参考答案1.选择题(1) B (2) B2.综合题(1)属性有：蓝色、带有纹路；方法有：踢、按住；事件有：滚动、静止。
(2)VB应用程序开发的一般步骤有：①创建用户界面；②设置对象的属性；③编写代码；④程序运行与调试；⑤保存与编译。
第2章参考答案1.选择题(1) A (2) C (3) D (4) B (5) A (6) C2.操作题Private Sub Command1_C1ick ()Label1. Caption 二Textl.TextEnd SubPrivate Sub Command2_Click()Label1. Caption 二〃〃Textl.Text 二End SubPrivate Sub Form Load ()Label1. Caption 二Textl. PasswordChar 二"$〃End Sub第3章参考答案1.选择题(1)B、C 分析：(B) 3Acd以数字开头；(C)IF是VB的关键字(2) B 分析：逻辑常量的值只有两个True和False,特别注意” false”是字符串常量。
(3) C 分析：VB表达式不区分大小写。
(4) C 分析：Long是长整型，Byte是字节型，Interge是整型。
2.综合题(1) a = Int(Rnd * (100))分析：产生一个区间在［m, n］之间的随机整数，其表达式为Int(Rnd*(n-m+1)+m)(2)Int (X*100+0. 5)/100 分析：Int (X*100+0. 5)的作用是将X 扩大100 倍后，第三位小数小于0.5,则舍掉，大于0.5,则产生进位，取整后就是四舍五入的作用，再除以100,是还原为原值。
(3)Private Sub Command1_C1ick()a 二Int (99 * Rnd + 1)b 二Int (99 * Rnd + 1)Label1. Caption 二 a & "+〃 & b & "二?“End Sub(3)①False ②True ③ 8 Mod 3+3八3/4\5 (有改动)答案：3第4章参考答案1.填空(1)T F (2)F (3) HEIGHT>160 AND HEIGHT<165 END IF(4) SC0RE>60^ LblSc. caption=、ELSE> LblSc. caption-., ENDIF (5)EXIT(6)21 (7)16 (8) 0 、 1 、>100 、Total+Num、Num+22.程序设计题(略)第5章章参考答案1.选择CCDBDDBCCABACBB2.操作题(1)实现多中选一的功能，通过用图片框和框架来实现单选按钮的分组，方法是，选中图片框或框架后，再在里面绘制单选按钮，另一种方法是将绘制好单选按钮剪切粘贴到图片框或框架中。
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部分课后习题答案
1. 选择题(1) 假定窗体的名称（Name属性）为Form1，则把窗体的标题设置为“VB Test”的语句为（B）。
A. Form1="VB Test"B. Caption="VB Test"C. Form1.Text="VB Test"D. ="VB Test"(2) 下列不能打开代码窗口的操作是（D）。
A．双击窗体上的某个控件B．双击窗体C．按F7键D．单击窗体或控件(3) 为了保存一个Visual Basic应用程序，应当（D）。
A．只保存窗体文件（.frm）B．分别保存工程文件和标准模块文件（.bas）C．只保存工程文件（.vbp）D．分别保存工程文件、窗体文件和标准模块文件(4) 为了装入一个Visual Basic应用程序，应当（C）。
A．只装入窗体文件（.frm）B．分别装入工程文件和标准模块文件（.bas）C．只装入工程文件（.vbp）．D分别装入工程文件、窗体文件和标准模块文件(5) 不为了使窗体的大小可以改变，必须把它的BorderStyle属性设置为（A）。
A．1 B．2 C．3 D．42. 填空题(1) 在用Visual Basic开发应用程序时，通常首先需要新建工程、其次还要经过、、、和5步。
(2) 控件和窗体的Name属性只能通过属性窗口设置，不能在运行期间设置。
(3) 代码窗口分为左右两栏，左边一栏称为对象，右边一栏称为事件。
(4) 为了在输入程序时能自动进行语法检查，必须执行菜单中的命令，打开对话框，然后选择“编辑器”选项卡中的选项。
(5) 在保存VB应用程序中，窗体文件和工程文件的扩展名分别为 .frm 和.vbp 。
(6) 为了把一个Visual Basic应用程序装入内存，只要装入工程文件即可。
(7) Visual Basic应用程序通常由3类模块组成，即、和。
(8) 在窗体上画两个文本框和一个命令按钮，然后在命令按钮的代码窗口中编写如下事件过程：Private Sub Command1_Click( )Text1.Text=“VB Programming”Text2.Text=Text1.TextText1.Text=“ABCD”End Sub程序运行后，单击命令按钮，两个文本框中显示的内容分别为ABCD 和VB Programming 。
VB教材课后习题参考答案
二. 多项选择题三. 填空题1．事件驱动2．解释编译3．设计、运行和中断。
4．属性、事件和方法。
5．窗体单击（Form_Click）。
6．代码7． MyForm 。
习题2参考答案一．单选题二. 多项选择题三. 填空题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． MultiLine,ScrollBars, 2 (或Vertical) 。
2． Label1.caption= "a*b=" 。
3． height 和 width 。
4． 2 。
5． Text1.SetFocus 。
6．编程技术，程序设计。
7．Change内容改变，将文本框内容显示在标签中。
GotFocus(获得焦点)，选中文本框内容。
8．(1)Value ,(2) Value习题4参考答案三．填空题1、s = True And a >= 18 And a <= 20 And h > 165 Or s = False And a >= 16 And a <= 18 And h > 1602、600003、6，-2，24、Select Case xCase Is <= 0y = 4Case Is < 10y = 0Case Is < 15y = 1Case Is < 20y = 2Case Is <= 30y = 3Case Elsey = 4End Select5、(1)x>100 And x Mod 5=0 (2)0 (3)len(Text1.Text) (4)Text1.Text6 (1)D (2)A (3)B第5章习题5一．单选题1． A 2． C 3.⑴ C⑵ B 4． B 5． C 6． A7．D 8.D 9.A 10.C 11.A二.多项选择题1. ABCDE 2． BE 3. ABCDE三．分析程序1．⑴(4 ,13) ⑵(3,8) ⑶(3,27) ⑷(5,11) ⑸(3,10)2．12343. 64. 175. (1)len(s) (2)mid(s,k,1) (3)c & t (4)text2.text6. (1)0 (2)n+1 (3)2^n7.(1) mid(x,p+3) (2) 3 (3) p8． (1)Text1.Text (2)len(s)(3)x>="a" and x<="z" or x>="A" and x<="Z"(4) y & x9. (1)change (2)value习题6参考答案一．单项选择题1、D2、A3、C4、(1)B,(2)B5、C6、C7、A8、(1)C (2)B (3)A (4)B (5)D二．多项选择题1、CE2、DE3、ABC三．填空题1、数组D为 2 维数组，共有 16 个元素，第一维下标从 0 到 3 ，第二下标从 -1 到 2 。
vb课后练习答案习题解答
v b课后练习答案习题解答(1)(共3页)--本页仅作为文档封面，使用时请直接删除即可----内页可以根据需求调整合适字体及大小--第1章程序设计语言与程序设计1．1填空题1．程序设计语言是由（）、（）和（）构成的指令系统。
答案：字、词、语法规则2．程序设计语言从机器执行角度可以分成（）和（）两大类。
VB语言是一种（）程序设计语言。
答案：低级语言、高级语言、事件驱动3．程序是解决特定问题的指令序列，主要完成（）和（）两方面工作。
答案：4．使用可视化程序设计语言设计应用程序，主要完成（）和（）两部分工作。
答案：数据描写、数据处理5．源程序中的错误一般分为（）错误、（）错误和（）错误等三种。
答案：编译、运行、逻辑6．建立一个VB工程要做的工作包括（）。
答案：需求分析、界面设计、设计程序、上机调试程序和保存程序11．2 选择题1．把a和b的乘积写成ab的错误属于（）错误。
a) 编译 b) 运行 c) 逻辑 d) 编译和运行答案：a2．用户在什么时候都可以按（）键来查看与当前进行的工作相关的帮助。
a)Held b)F1 c)ESC d)F10答案：b3．窗体文件的扩展名为（）。
a).vbp b).bas c).exe d).frm答案：d4．指示一个窗体位置的值是窗体的（）。
a)对象 b)事件 c)属性 d)方法答案：c5．下面选项中不能运行VB程序的操作是（）。
a) 双击窗体 b) 单击“启动”按钮图标c) 从菜单栏运行菜单中选“全编译执行”菜单命令 d) 按F5键答案：a1．3 解答题1．低级语言和高级语言的各自特点是什么答：低级语言包括机器语言和汇编语言。
它们都包含一些指令。
机器语言指令是由０和１构成，它能直接被机器识别和执行。
汇编语言是由一些特定的2助记符代表指令，用汇编语言编写的程序只需经过简单的翻译就可以被机器执行。
低级语言的特点是程序执行的速度快，运行效率高，但难学、难记、难阅读，程序设计难度大，非专业人员难以涉足。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
VB课后练习答案P12第一章课后练习答案:
一、选择题
二、填空题
第二章（P39）
选择题答案：
填空题答案：
1.Cmdl, Click
2.Text 1.Text二"Hello"
P64第三章课后练习答案一、选择题
二、填空题
1.
(Y Mod 4=0 And Y Mod 10000) Or Y Mod 400=0 2.
a<>0 And b*2-4*a*c>=0 3.
X Mod 5=0 And X Mod 2=0 或 Tnt(x/5)=X/5 And Int(X/2)=X/2 4. 注意：返回的均是字符型。
第四章课后答案：P79
一、选择题
答案为：$$41.500
10
二、填空题
三、程序设计题（提示）
1、鸡的头数为x,兔的头数为y,则可列方程式:
\x-\- y = h （兀 * 2 + y * 4 =于
求得x, y 的值再在窗体上输出结果。
2、 利用Format 格式函数，再通过窗体的Print 将格式化后的信息输出到窗体上。
3、 厶员I 的周长=2加" $岡的面积=加2
5、通过Inputbox 函数或用文本框输入三边和圆的半径
a,b,c, r,利用公式：
. a + b + c
n 二 ---------
2 S 三角形面积=Jh （h - - b ）（h - c ）
P97第五章课后练习答案:
第9题| D
一、选择题
答案D 改为:30
二、填空题
第］题Y Mod 4二0 And Y Mod 100二0 Or Y Mod 400二0 第2题
笫3题
笫4题
Private Sub Command l_Click()
X=Val(Textl.Text)
Select Case X
Case Is>200. Isv-10()
Print “xv 100 Or x>200"
Case ls<=0
Y=l()()-X
Case Isv二100
Y=100+X
Case Is<=200
Y=400
End Select
Text2.Text=y
End Sub
三、程序设计题(提示)
1、判断条件：
假设一个整数为x
X Mod 3=0 Or x Mod 5=0 或x/3=x\3 Or x/5=x\5
2、选项按钮的知识点在P182,利用该控件的Wlue属性判断是否选中该项。
第六章课后题参考答案
、选择题
l.D 2.D 3.C 4.B 5.C
6.B
7.C &A 9.C 10.
D
ll.B 12.D
二、填空题
1 .Male*4+Female*3+Boy/2=36
2.M
T
M<=39
3.-C
1+1
I<=N
4.K
Flag=O
5.1nt(ll+rnd*77)
I mod 5=0
第七章课后题参考答案、选择题
l.C 2.C 3.B 4.B 5.A
6.B
7.B &D 9.D 10.
A
ll.B 12.D
二、填空题
1.100
10
10
A(1O*(I-1)+J)
2.Dim X()
X(1 To 20)
3.For i=l to 100
4
For i=l to 4
S(i)
4.Int(Rnd*994-l)
In Arr
Sum+x
x
5.Text!.Text & Label 1 (Index).Caption
6.3 0 2
1 4 20
7. 1 2 3 4
3 4 5 6
5 6 7 8
8. 1
2
1
4
4
9.20 2
5 30 35 40
10.0 0 0 0 0 12 14 16 18 20 H-i=j
i+j=6
12.D(Max)=D(I)
D(Min)=D(I)
D(Min)
Temp
第八章课后题参考答案
一、选择题
l. C 2.A 3.A 4.C 5.无被调用过程
6.无被调用函数过程
7.无被调用过程
8.B
9.B
二、填空题
1.20 10
10 20
2. 15
3.
10 110
4. 3 2
5.1 4 9 16 25
6.25 50 75 25 25 25
7.
10 10
5 8 58
8. tmplabel
tmpcombo 习题九课后参考答案
一、选择题
l.C 2. D 3.C 4.B 5.B
6.B
7.B
8.A 但要把(A)改成List 1.Selected(5)=True
9.B 10. A ll.D 12. A 13.C 14.A
二、填空题
1.(1) Selected(7)
Text
⑵List 1.Text
⑶Removeitem i-1
⑷X,i*2-1
2.List 1.ListCount-1 Listl.List(i)
List 1. Additem x X=,v,
3.60000
True
False
True
False
4.Change
.value
Scroll
.value
习题十课后参考答案
二、选择题
1. C
2. D
3.C
4.B
5.A
二、填空题
1.Load
Unload
2.Show
Hide
Cis
3.标准
4..vbp
.bas
.frm
•vbg
5.窗体
类模块
标准模块
6.“工程N属性”
工程
“工程N属性”
7.标准
Public
&进入闲置循环状态，返回当前装入VB中应用程序工作区的窗体号。
习题十一课后参考答案
三、选择题
l.C 2. D 3.B B 4.C 5.B
6.B
7.C
8.C
9.C 10.
A
ll.C 12.D
二、填空题
1.预定义对话框
自定义对话框通用对话框
2.打开对话框
Commondialog 1 .ShowOpen
3.Color
4.FontName
FontSize
Color
5.ShowOpen
ShowSave
ShowColor
ShowFont
6.下拉式
弹出式
相应的命令
菜单编辑器
7.Click
8.Caption
第十二章课后题参考答案一、选择题
1.正确答案为a97
2.A
3.A
4.B
5.A
6. D
7.C
8.D
9.D
二、填空题
1.ASCII
2.97
3.AAAAAAA
4.ABCDE
5.Print Chr(KeyCode+4)
6.1f bindrawnow二True Then
Blndrawnow=False
Button=l
7.dra\v=True
draw And Button=l
draw 二False
&0
2
9.Picture 1 .Picture=LoadPicture()
第十三章课后题参考答案
一、选择题
1.A
2.A
3.B
4.CE
5.D
6. A
7.正确答案为Get#文件句柄号，记录号，变量名&A 9.C 10.A
二、填空题
1 .open
Input
Output
Appe nd
Random
Random
Read
Write
Read Write
2.Print
Write
Input函数
Line Input
Input
Get Put
3.LOF
LOC
EOF
4.Text 1.Text
End
Write #3,Textl.Text
第十四章课后题参考答案
一、选择题
l.B 2.C 3.B 4.D 5.D
6.D
7.C &C 9.B
二、填空题
1.(300,-150)
2.右
上
3.原始的Twips。