vb1-6课后习题答案

合集下载

[VIP专享]VB第6章课后练习答案

第6章过程与函数一、填空题1．数组名作为过程或函数实参，相应的形参传递方式为____按地址传递____。

2．一维长整型数组a作过程形参写作：a() As Long，二维长整型数组b作过程形参写作：____b() As Long ____。

3．过程形参为整型，对应实参为5.64，传递给形参的值为____6____。

4．调用过程时对形参的改变不会导致相应实参变量的改变，则该形参采用____按值传递____方式。

5．调用过程时对形参的改变就是对相应实参变量的改变，则该形参采用____按地址传递____方式。

6．声明Single类型全局变量x，写作____Public x As Single（或 Publicx!）____；声明Integer类型静态变量x，写作____Static x As Integer（或 Static x%）____。

7．在窗体Form1的过程中引用窗体Form2中的全局变量y，写作____Form2.y____。

8．阅读如下代码，单击窗体后，窗体上的显示结果为____s = 2 s = 5 s =9____。

Dim i As Integer, n As IntegerPrivate Sub Form_Click()Dim i As IntegerFor i = 1 To 3s = sum(i): Print "s ="; s;Next iEnd SubPrivate Function sum(n As Integer)Static j As Integerj = j + n + 1: sum = jEnd Function二、选择题1.VB程序设计语言中，函数过程与子过程必须分别用关键字（ C）声明。

(A)Private，Public (B)Public，Private(C)Function, Sub (D)Sub, Function2.要调用一个已经定义好的函数myfunction( )，用语句的方式调用函数，下列写法哪个是正确的（D）(A)Call myfunction (B)myFunction(C)myFunction ( ) (D)CallmyFunction( )3.定义过程时，如果在过程名前加关键字Private，则该过程为（ A）。

VB课后练习答案.doc

VB课后练习答案P12第一章课后练习答案:一、选择题二、填空题第二章（P39）选择题答案：填空题答案：1.Cmdl, Click2.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.50010二、填空题三、程序设计题（提示）1、鸡的头数为x,兔的头数为y,则可列方程式:\x-\- y = h （兀 * 2 + y * 4 =于求得x, y 的值再在窗体上输出结果。

2、利用Format 格式函数，再通过窗体的Print 将格式化后的信息输出到窗体上。

3、厶员I 的周长=2加" $岡的面积=加25、通过Inputbox 函数或用文本框输入三边和圆的半径a,b,c, r,利用公式：. a + b + cn 二 ---------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 XCase Is>200. Isv-10()Print “xv 100 Or x>200"Case ls<=0Y=l()()-XCase Isv二100Y=100+XCase Is<=200Y=400End SelectText2.Text=yEnd Sub三、程序设计题(提示)1、判断条件：假设一个整数为xX Mod 3=0 Or x Mod 5=0 或x/3=x\3 Or x/5=x\52、选项按钮的知识点在P182,利用该控件的Wlue属性判断是否选中该项。

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。

《VisualBasic6.0程序设计》习题答案

《VisualBasic6.0程序设计》习题答案《Viusla Basic 6.0程序设计》习题答案习题1答案一、简答题1. 答：Windows应用程序通常以窗口形式运行，窗口上包含文本框、按钮等控件。

在Visual Basic中，采用“所见即所得”方式设计Windows应用程序，可以把控件直接拖放到窗口上，而不用编写代码来实现用户界面。

2. 答：在任务1中，窗体、标签和按钮都是对象，在设计过程设置了这些对象的许多属性，例如Caption属性等；还在按钮的Click事件中编写程序代码，以便在单击按钮时执行相应的操作。

二、填空题1. 窗体模块；标准模块；类模块2. 对象；过程3. 运行；启动4. .frm；.vbp三、选择题1. A2. D3. D4. B一、简答题1. 答：Visual Basic有以下基本数据类型：Byte（字节型）、Integer （整型）、Long（长整型）、Single（单精度浮点型）、Double（双精度浮点型）、Currency（货币型）、String（变长）、String（定长）、Variant（可变型数字）、Variant（可变型字符）、Boolean（布尔型）、Date （日期型）、Object（对象型）。

2. 答：Visual Basic的表达式分为以下4类：算术表达式、字符串表达式、关系表达式、布尔表达式。

3. 答：Print语句用于输出数字和文本，通常是把结果输出到窗体上。

4. 答：分支语句有两个：If语句和Select语句，它们都是根据条件来执行特定的语句。

5. 答：循环语句有3种语句：For、While和Do，For用于执行指定次数，While为先测试型循环语句，Do为后测试型循环语句。

6. 答：定长数组包含固定数目的元素，通过数组名和下标来访问每个元素。

7. 答：动态数组和定长数组的不同之处在于：动态数组的元素数可以动态改变。

8. 答：过程的参数有两种传递方式：按值传递参数和按地址传递参数。

VB习题参考答案(第6章)

第6章图形控件和图形方法一、判断题1．√2．×3．√4．×5．√6．×7．×8．√9．√10．√二、选择题1．C 2．B 3．C 4．A 5．A 6．C 7．A 8．C 9．C 10．B 11．A 12．B 13．B 14．C 15．C三、填空题1．Circle (ScaleLeft + ScaleWidth / 2, ScaleTop + ScaleHeight / 2), 8002．LoadPicture 3．AutoSize、Stretch、False、False 4．选中、属性5．形状、矩形6．Picture1.Picture=LodePicture("C:\Windows\Cloud.bmp")7．图片框、其他控件8．缇、SclaeMode 9．颜色10．颜色、圆弧起点处转角、圆弧终点处转角、椭圆纵轴与横轴长度之比四、程序阅读题程序1. 转动一条红色直线，其轨迹形成一个圆程序2. 在窗体上随机的位置、用随机的颜色、半径绘制100个空心的圆。

程序3. 在图片框内绘制多个蓝色边框矩形，填充样式在“实心〞、“透明〞间交替变换。

程序4. 在图片框内绘制1个红色边框的蓝色实心椭圆。

五、程序填空题1．〔1〕List2.AddItem Str(i) 〔2〕Shape1.shape 〔3〕List2.ListIndex2．〔1〕1 〔2〕B 〔3〕-(50,60) 或-Step(80,0) 〔4〕P1.drawstyle3.〔1〕0 〔2〕ScaleWidth/2 〔3〕ScaleHeight / ScaleWidth注意：此题Form_load事件第1句代码有误，应为FillColor=vbGreen4.〔1〕Long 〔2〕P1.Point(a, b) 〔3〕P2.ScaleLeft + P2.ScaleWidth - a六、程序设计题程序1．界面如图6-32所示，过程设计如下：Private Sub Form_Load()Dim i As ByteList1.ClearFor i = 1 To 7List1.AddItem iNext iEnd SubPrivate Sub Form_MouseMove(Button As Integer, _Shift As Integer, X As Single, Y As Single)Label1.Caption = XLabel2.Caption = YEnd SubPrivate Sub List1_Click()Form1.ScaleMode = List1.TextEnd Sub程序2．界面设计略，过程设计如下：Dim x1 As Single, y1 As SinglePrivate Sub Form_Load()Form1.ScaleMode = 3Form1.ForeColor = RGB(255, 0, 0)Form1.FillColor = RGB(0, 0, 255)Form1.FillStyle = 0End SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)x1 = X: y1 = YEnd SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)Line (x1, y1)-(X, Y), , BEnd Sub程序3．界面设计略，过程设计如下：Private Sub Form_Click()Form1.ClsDim r As SingleForm1.ScaleMode = 3Form1.DrawWidth = 2Form1.FillStyle = 0Form1.FillColor = vbBlueIf Form1.ScaleHeight <= Form1.ScaleWidth Thenr = Form1.ScaleHeight / 3Elser = Form1.ScaleWidth / 3End IfForm1.Circle (Form1.ScaleLeft + Form1.ScaleWidth / 2, _Form1.ScaleTop + Form1.ScaleHeight / 2), r, vbYellowEnd SubPrivate Sub Form_Resize()Call Form_ClickEnd Sub程序4. 界面如图6-33和6-34所示，过程设计如下：Dim x As Single, y As Single, c As LongDim r As Byte, g As Byte, b As BytePicture1.ScaleMode = 3For x =Picture1.ScaleLeft To Picture1.ScaleLeft + Picture1.ScaleWidth For y = Picture1.ScaleTop To Picture1.ScaleTop + Picture1.ScaleHeightc = Picture1.Point(x, y)If c >= 0 Thenr = c Mod 256g = (c \ 256) Mod 256b = (c \ 256 \ 256) Mod 256Picture1.PSet (x, y), RGB(r / 2, g / 3, b / 4)End IfNext yNext xEnd Sub程序5. 界面如图6-35所示，过程设计如下：Dim x As IntegerPrivate Sub Form_Load()P1.Width = P1.HeightP1.ScaleMode = 3P1.Scale (-10, 10)-(10, -10)P1.DrawWidth = 2x = 90Timer1.Enabled = FalseEnd SubTimer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer()P1.PSet (8*Cos(x*3.141593 / 180), 8 * Sin(x * 3.141593 / 180)), vbRed x = x + 1If x > 450 Then Timer1.Enabled = FalseEnd Sub。

VB教程课后习题的答案及解析

=第二章标准控件和属性1．下列可以激活属性窗口的操作是（ D ）A）用鼠标双击窗体的任何部位 B）执行‘工程’菜单中的‘属性窗口’命令 C）按Ctrl+F4键 D）按F4键2．确定一个控件在窗体上的位置的属性是（ D ）A）Width或Height B）Width和Height C）Top或Left D）Top和Left3．确定一个窗体或控件的大小的属性是（ B ）A）Width或Height B）Width和Height C）Top或Left D）Top和Left4．在Visual Basic中，所有标准控件都具有的属性是( B )。

【2013年9月考试真题】A) Caption B) Name C) Text D) Value参考答案：B【解析】VB标准控件中不同控件具有不同属性，有的相同有的不同，但都具有Name属性。

故选B。

5．为了让计时器控件每隔10秒产生了一个Timer事件，应把Interval属性设置为（ B ）A) 1000 B) 10000 C) 10 D) 1006．下面关于单选按钮和复选框的叙述中正确的是（ D ）A) 单选按钮被选中则它的Value属性为True；复选框被选中则它的Value属性为2B) 单选按钮被选中则它的Value属性为True；复选框被选中则它的Value属性为TrueC) 单选按钮被选中则它的Value属性为1；复选框被选中则它的Value属性为1D) 单选按钮被选中则它的Value属性为True；复选框被选中则它的Value属性为17．将文本框的ScrollBar设置为2，文本框中却没有垂直滚动条，其原因为（ B ）A) 文本框的Locked属性值为True B) 文本框的MultiLine属性值为FalseC) 文本框的MultiLine属性值为True D) 文本框中没有内容第三章简单程序设计语句1.在面向对象的程序设计中，可被对象识别的动作称为( B )。

大学VB课后习题参考答案

⼤学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 ）。

VB1-3章_习题答案(课本习题)

VB习题答案（1-3章）习题一一、选择题1．C 2.C 3.A 4.C 5.C 6.C 7.B二、填空题1.学习版、专业版、企业版2.窗体界面3.Alt+F4三、简答题1．简述Visual Basic语言的特点。

Visual Basic是Windows操作平台下的可视化编程语言，它继承和发展了BASIC语言的基本功能，具有简单易学、功能强大等特点。

Visual Basic提供了可视化设计工具，以图形用户界面（GUI）为PC机用户提供了一个直观的工作环境。

支持面向对象的程序设计（OOP），采用事件驱动方式，提供对象的链接与嵌入（OLE）和访问数据库等功能。

2. Visual Basic 6.0的集成开发环境由哪些部分组成，各部分的主要功能是什么？1. 标题栏：用来显示打开的工程名称和系统的工作状态。

2. 菜单栏：菜单栏中包括“文件”、“编辑”、“视图”、“工程”、“格式”、“调试”、“运行”、“查询”、“图表”、“工具”、“外接程序”、“窗口”和“帮助”共有13个菜单项。

这是一组下拉式菜单，提供了设计、编辑、编译和调试应用程序所需要的绝大部分功能和命令。

3. 工具栏： Visual Basic 6.0提供了“编辑”、“标准”、“窗体编辑器”和“调试”4种工具栏。

工具栏上形象直观的排列着一些最常用的命令按钮，对应特定的常用操作命令。

4. 控件箱：控件箱提供了一组控件。

设计界面时，用户可以用鼠标双击控件箱中的控件，在窗体中画出该控件，或用鼠标单击控件箱中的控件，然后在窗体中拖动鼠标画出所需的控件。

5. 窗体设计器：窗体设计器是应用程序最终面向用户的窗口。

各种控件、图形、数据以及程序的运行结果都在窗体设计器窗体中显示出来。

6. 工程资源管理器：在工程资源管理器窗口中（图1-2），列出了应用程序的工程以及工程中的窗体和模块。

7. 属性窗口：属性窗口主要用来设置Visual Basic窗体及各控件的属性特征，属性窗口的主体部分分为左右两列，左边是控件的属性名列表，右边是控件的属性值列表。

vb教程参考答案

课本第3章习题参考答案（第100页）1. 输入梯形的上边长、下边长及高度，计算梯形的面积并输出。

要求使用InputBox 函数输入，使用Print方法输出。

2. 输入小时、分、秒，将它们换算为秒，然后输出。

要求使用文本框分别输入，使用标签输出。

3. 输入直角三角形的两个直角边，输出其斜边、周长和面积。

要求使用InputBox函数输入，使用Print方法输出。

4. 输入4课成绩，输出总成绩和平均成绩。

通过InputBox 函数输入数据，使用消息框MsgBox 进行输出。

6.编写程序，输入x,输出如下分段函数y 的值。

10. 编写程序，输入n ，计算1 + 2 + 3 + … + n 的和。

3x+2, x<00，x=02x-1, x>011. 编写程序计算11+ 22 +33 + 44 + …+ 1010的和。

12. 编写程序，输入10个同学的成绩（0～100），输出最高成绩和最低成绩。

13. 编写程序，输出100以内的素数。

14. 输入若干个学生的成绩，统计其中90分以上、70～89分、60～69分、小于60分的人数并输出。

当输入的成绩小于0时结束输入。

16. 用矩形法求指定区间内函数f (x)的积分 1)(dxx f ，其中发f (x) =1 + sin (x)。

17. 输入任意一个字符串，将其逆序后输出，例如，输入的字符串为“abcde”，则输出为“edcba”。

18. 输入任意一一个字符串，分别统计其中字母A、E和Z的个数，不区分大小写。

课本第4章习题参考答案（第136页）1. 编写程序，将2，4，6，…，18，20共10个数据赋予一个数组，然后将各数组元素按相反顺序输出。

2. 输入10个学生的成绩，计算总分与平均分。

3. 输入10个学生的成绩，输出最高分和最低分。

5. 编写程序，将长度为5的一维数组中的数组元素循环右移动一个位置，最后一个元素移到第一个元素位置上。

例如，若数组元素各个值为1，2，3，4，5，则移动后的值为5，1，2，3，4。

【VIP专享】《Visual Basic程序设计基础》课后习题参考答案

7．D
8．A
10．× 11．√ 12．√ 19．√ 20．√
9．B
6．属性、<对象名>.<属性名>=<表达式>
属性（属性值）
Caption("我的第一个 VB 程序")
Caption("请输入你的姓名") FontItalic(True) Caption("确定(&O)")
Caption("结束(&X)")
第 1 章 Visual Basic 6.0 程序设计概述
一、判断题 1．√ 2．√ 3．× 说明：同类控件（如两个标签）相互重叠，设计时可以设置“置前”、“置后”属性。
4．√ 5．× 6．√ 7．× 8．√ 9．√ 13．× 14．√ 15．× 16．√ 17．√ 18．√
二、选择题 1. C 2. B 12．D
Text1.Visible = False
6.培养学生观察、思考、对比及分析综合的能力。过程与方法1.通过观察蚯蚓教的学实难验点，线培形养动观物察和能环力节和动实物验的能主力要；特2征.通。过教对学观方察法到与的教现学象手分段析观与察讨法论、，实对验线法形、动分物组和讨环论节法动教特学征准的备概多括媒，体继课续件培、养活分蚯析蚓、、归硬纳纸、板综、合平的面思玻维璃能、力镊。子情、感烧态杯度、价水值教观1和.通过学理解的蛔1虫.过观适1、察于程3观阅六蛔寄.内列察读、虫生出蚯材让标容生常蚓3根料学本教活.见身了据：生，师的2、的体解问巩鸟总看活形作用线的蛔题固类结雌动态业手形虫自练与本雄学、三：摸动状对学习人节蛔生结4、、收一物和人后同类课虫活构请一蚯集摸并颜体回步关重的动、学、蚓鸟蚯归色的答学系点形教生生让在类蚓纳。危问习从并状学理列学平的线蚯害题四线人归、意特出四生面体形蚓以、形类纳大图点常、五观玻存表动的及鸟请动文本小引以见引、察璃现，物身预3类学物明节有言及的、导巩蚯上状是的体防之生和历课什根蚯环怎学固蚓和，干主是感所列环史学么据蚓节二样生练引牛鸟燥要否染以举节揭到不上适动、区回习导皮类还特分的分蚯动晓的同节于物让分答。学纸减是征节方布蚓物起一，课穴并学蚯课生上少湿。 ?法广的教，些体所居归在生蚓前回运的润4；泛益学鸟色生纳.靠物完的问答动原的蛔4，处目类习和活环近.在成前题蚯的因？虫了以。标就生体的节身其实端并蚓快及触寄解上知同物表内特动体结验和总利的慢我摸生蚯适识人学有容点物前构并后结用生一国蚯在蚓于与类的什，的端中思端线问活样的蚓人的飞技有基么引进主的的考?形题环吗十体生行能着本特出要几变以动，境？大节活的1密方征本“特节化下物.让并为珍近会习形理切法。课生征有以问的学引什稀腹小性态解的。2课物。什游题主.生出么鸟面起结和结蛔关观题体么戏：要明蚯？类处哪利适构虫系察：的特的特确蚓等，些用于特适。蛔章形殊形征，这资是疾板穴点于可虫我态结式。生种料光病书居是寄的们结构，五物典，滑？小生重生鸟内学构，学、的型以还5结活要生类部习与.其习巩结的爱是如鸟的原活生结了功颜消固构线鸟粗何类形因的存构腔能色化练特形护糙预适态之结的，肠相是系习点动鸟？防于、一构现你动适否统。都物为蛔飞结。和状认物应与的是。主虫行构课生却为和”其结与题病的、本理不蛔扁的他构环以？特生8特乐虫形观部特8境小三征理页点观的动位点相组、梳等这；，哪物教相，适为引理方些2鸟，育同师.应单导知面鸟掌类结了；？生的位学识的你握日构解2互.。办生特认线益特了通动手观征识形减点它过，抄察；吗动少是们理生报蛔5？物，与的解.参一虫了它和有寄主蛔与份结解们环些生要虫其。构蚯都节已生特对中爱。蚓会动经活征人培鸟与飞物灭相。类养护人吗的绝适这造兴鸟类？主或应节成趣的的为要濒的课情关什特临？就危感系么征灭来害教；？；绝学，育，习使。我比学们它生可们理以更解做高养些等成什的良么两好。类卫动生物习。惯根的据重学要生意回义答；的3.情通况过，了给解出蚯课蚓课与题人。类回的答关：系线，形进动行物生和命环科节学动价环值节观动的物教一育、。根教据学蛔重虫点病1.引蛔出虫蛔适虫于这寄种生典生型活的线结形构动和物生。理二特、点设；置2.问蚯题蚓让的学生生活思习考性预和习适。于穴居生活的形态、结构、生理等方面的特征；3.线形动物和环节动物的主要特征。

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

附录A 各章习题参考答案
第1章
一、选择题
1．B 2．A 3．C 4．D 5．C
6．A 7．C 8．D 9．C 10．B
二、填空题
1．中断 2．Windows
3．事件 4．vbp，frm，bas
5．窗体 6．F4，视图
7．浮动形式 8．设置属性
9．当前工程名称 10．查看对象，查看代码
第2章
一、选择题
1．C 2．D 3．A 4．A 5．C
6．C 7．B 8．B 9．B 10．D
二、填空题
1．正常 2．Load
3．Form1.Width/2 4．Not Text1.Visible
5．False 6．Activate
7．代码窗口 8．Change
9．Interval 10．Timer
第3章
一、选择题
1．D 2．B 3．A 4．D 5．B
6．D 7．A 8．B 9．A 10．C
二、填空题
1． x%<100 and x%>=0 2．12345.68
3．Shanghai 4．3.96551724137931，3，5
5．4567 4567 6．5*y+log(a)*log(b)
7．4 8．-1
9．VVV 10．6.6
第4章
一、选择题
1．A 2．C 3．C 4．D 5．B
6．A 7．B 8．A 9．C 10．B
二、填空题
1．* * 2．打印机
279
3．Yesterday 4．变体类型
5．Val 6．Basic
7．123456 8．108
9．30 10．偶数
第5章
一、选择题
1．C 2．D 3．C 4．C 5．A
二、填空题
1． Keyascii "END"
2．Button = 1
第6章
一、选择题
1．C 2．B 3．B 4．B 5．C
6．C 7．C 8．A 9．D 10．B
二、填空题
1．Change
2．Interval，500
3．Picture1.Picture = LoadPicture("c:\moon.jpg")
4．123321
5．Text1.Setfocus
6．0（或者Recangle）
7．Scroll
8．组合框（或者ComboBox）
9．Default，Cancel
10．BackStyle，Transparent