vb程序设计教程第四版课后答案.doc

随机数产生Private Sub Form_Click()For i = 101 To 200 Step 2For j = 2 To i - 1If i Mod j = 0 Then Exit ForNext jIf j >= i Then List1.AddItem i Next iEnd Sub四实验21Private Sub Command1_Click()For i = 100 To 200For j = 10 To 14If i = j ^ 2 Thenn = n + 1m = iEnd IfNext jNext iText1 = mText2 = nEnd Sub4 实验16Private Sub Form_Click()s = 1While s <= 100000i = i + 1s = s * (2 * i)WendPrint "s="; sEnd Sub4 实验17Private Sub Form_Click()Do While Sum <= 5000i = i + 1Sum = Sum + i ^ iLoopPrint "sum="; Sum - i ^ iEnd Sub 4 实验23Private Sub Form_Click()Dim a As Intege r, b As Integera = Int(100 * Rnd + 1)b = Int(100 * Rnd + 1)Text1 = aText2 = br = a Mod bWhile r <> 0a = bb = rr = a Mod bWendText3 = bc = (Val(Text1) * Val(Text2)) / bText4 = cEnd Sub6 实验8Private Sub Form_Click()RandomizeDim a(8, 8) As IntegerFor i = 1 To 8For j = 1 To 8a(i, j) = Int((999 - 100 + 1) * Rnd + 100)Print a(i, j);If Max < a(i, j) ThenMax = a(i, j)n = im = jEnd IfNext jPrintNext iPrint "最大值的元素是："; Max Print "行号："; nPrint "列号："; mEnd Sub4 实验24Private Sub Form_Click()For i = 1 To 9For j = 1 To 9Print Trim(i); "*"; Trim(j); "="; Format(i * j, "!@@@");Next jPrintNext iEnd Sub4实验27Private Sub Command1_Click()Dim a As IntegerRandomizea = Int(101 * Rnd + 0)Text1.Text = aEnd SubPrivate Sub Command2_Click()For i = 2 To a - 1If a Mod i = 0 Then Exit ForNext iIf i >= a - 1 ThenText2.Text = "是素数"ElseText2.Text = "不是素数"End If5.6Private Sub Option1_Click()Shape1.Shape = 3End SubPrivate Sub Option2_Click()Shape1.Shape = 1End SubPrivate Sub Option3_Click()Shape1.Shape = 4End SubPrivate Sub Option4_Click()Shape1.Shape = 2 End Sub5.9Private Sub Command1_Click()For i = o To List1.ListCount - 1If List1.List(i) = Text1.Text Then Exit ForNext iIf i >= List1.ListCount ThenList1.AddItem Text1.TextEnd IfText1.SetFocusText1.SelStart = 0Text1.SelLength = Len(Text1) End SubPrivate Sub Command2_Click()If List1.ListIndex = -1 ThenMsgBox "请选择要删除的项" ElseList1.RemoveItem List1.ListIndex End IfEnd SubPrivate Sub Command3_Click()List1.ClearEnd Sub5.10Private Sub Combo1_Click()Select Case Combo1.ListIndexCase 0Text1.ForeColor = vbWhiteCase 1Text1.ForeColor = vbBlackCase 2Text1.ForeColor = vbRedCase 3Text1.ForeColor = vbGreenCase 4Text1.ForeColor = vbBlueCase 5Text1.ForeColor = vbYellow End SelectEnd SubPrivate Sub Combo2_Click()Select Case Combo2.ListIndexCase 0Text1.BackColor = vbWhiteCase 1Text1.BackColor = vbBlackCase 2Text1.BackColor = vbRedCase 3Text1.BackColor = vbGreenCase 4Text1.BackColor = vbBlueCase 5Text1.BackColor = vbYellow End SelectEnd SubPrivate Sub Combo3_Click()Select Case Combo3.ListIndexCase 0Text1.Alignment = 0Case 1Text1.Alignment = 2Case 2Text1.Alignment = 1End SelectEd Sub5.13Private Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled = flaseEnd SubPrivate Sub Timer1_Timer()Label2.Caption = TimeEnd SubPrivate Sub Timer2_Timer()If Text1 = Hour(Time) ThenIf Text2 = Minute(Time) ThenBeepEnd IfEnd IfEnd Sub5.14Private Sub Timer1_Timer()Static i As IntegerSelect Case i Mod 2Case 0Text1.BackColor = vbRedCase 1Text1.BackColor = vbGreen End Selecti = i + 1End Sub5.15Private Sub Command1_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Command2_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer()If Label1.Left < Form1.Width Then Label1.Move Label1.Left + 50 ElseLabel1.Left = -Label1.Width End IfEnd Sub5.17Private Sub Form_Click()Static i As IntegerIf Text1 = "111111" ThenLabel2.Caption = "恭喜！你已成功进入本系统"ElseLabel2.Caption = "口令错误！请重新输入"If i = 3 ThenMsgBox "对不起，你不能使用本系统"End IfEnd IfEnd Sub5 实验3Private Sub Combo1_Click()Select Case Combo1.ListIndexCase 0MsgBox "我的兴趣爱好是阅读"Case 1MsgBox "我的兴趣爱好是听音乐"Case 2MsgBox "我的兴趣爱好是美术"Case 3MsgBox "我的兴趣爱好是踢足球"Case 4MsgBox "我的兴趣爱好是旅游"End SelectEnd Sub5 实验11Private Sub List1_DblClick()Dim a As IntegerFor i = 0 To List1.ListIndexa = List1.List(i)Sum = Sum + aNext iList1.AddItem SumEnd Sub矩阵Dim a(), b(), c() As IntegerDim m, n As IntegerPrivate Sub Command1_Click()Rem 距阵的产生与相加Randomizem = Val(InputBox("num"))n = Val(InputBox("num"))ReDim a(n, m), b(n, m)For i = 1 To nFor j = 1 To ma(i, j) = Int(10 * Rnd)b(i, j) = Int(10 * Rnd)Picture1.Print a(i, j);Picture2.Print b(i, j);Next jPicture1.PrintPicture2.PrintNext iEnd SubPrivate Sub Command2_Click()ReDim c(n, m)For i = 1 To nFor j = 1 To mc(i, j) = a(i, j) + b(i, j)Picture3.Print c(i, j);Next jPicture3.PrintNext iEnd Sub练习1Private Sub Form_Click()Dim score(1 To 10) As SingleMin = 101For i = 1 To 10score(i) = Val(InputBox("请输入分数"))If score(i) > 100 ThenMsgBox "输入有误，请重新输入"End IfList1.AddItem score(i)Sum = Sum + score(i)Next iFor Each x In scoreIf Max < x Then Max = xIf Min > x Then Min = xNext xFor j = 1 To 9For k = j + 1 To 10If score(j) < score(k) Thent = score(j)score(j) = score(k)score(k) = tEnd IfNext kNext jFor Each y In scoreList2.AddItem yNext yText1 = Sum / 10Text2 = MaxText3 = MinEnd Sub练习2Private Sub Command1_Click()Dim a(1 To 10) As Integer, b(1 To 10) As IntegerFor i = 1 To 10a(i) = Int(91 * Rnd + 10)Next iFor i = 1 To 10List1.AddItem a(i)Next iFor i = 10 To 1 Step -1List2.AddItem a(i)Next iEnd Sub排序Dim a(1 To 10) As IntegerPrivate Sub Command1_Click() RandomizeFor i = 1 To 10a(i) = Int((99 - 10 + 1) * Rnd + 10)Text1 = Text1 & a(i) & " "Next iEnd SubPrivate Sub Command2_Click()Rem 比较法排序For i = 1 To 9For j = i + 1 To 10If a(i) < a(j) Thent = a(i)a(i) = a(j)a(j) = tEnd IfNext j Next iFor i = 1 To 10Text2 = Text2 & a(i) & " " Next iEnd SubPrivate Sub Command3_Click() Rem 冒泡法排序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 iFor i = 1 To 10Text3 = Text3 & a(i) & " " Next iEnd SubPrivate Sub Command4_Click() For i = 1 To 9k = iFor j = i + 1 To 10If a(k) < a(j) Then k = j Next jIf a(k) <> a(i) Thent = a(k)a(k) = a(i)a(i) = tEnd IfNext iFor i = 1 To 10Text4 = Text4 & a(i) & " " Next iEnd SubPrivate Sub Form_Load()Text1 = ""Text2 = ""Text3 = ""升序排序Dim a() As IntegerDim n As IntegerPrivate Sub Command1_Click() Randomizen = Val(InputBox("number")) ReDim a(n)For i = 1 To na(i) = Int(90 * Rnd + 10)List1.AddItem a(i)Next iEnd SubPrivate Sub Command2_Click()(比较法）For i = 1 To n - 1For j = i + 1 To nIf a(i) > a(j) Thent = a(i)a(i) = a(j)a(j) = tEnd IfNext jNext iFor i = 1 To nList2.AddItem a(i)Next iEnd SubPrivate Sub Command2_Click()（冒泡法）For i = 1 To n - 1For j = 1 To n - iIf a(j) > a(j + 1) Thent = a(j)a(j) = a(j + 1)a(j + 1) = tEnd IfNext jNext iFor i = 1 To nList2.AddItem a(i)Next iEnd Sub习题6.3Private Sub Command1_Click() RandomizeFor i = 1 To 4For j = 1 To 4a(i, j) = Int((999 - 100 + 1) * Rnd + 100)Picture1.Print a(i, j);If i = j Or i + j = 5 Then s = s + a(i, j)Next jPicture1.PrintNext iText1 = sEnd SubPrivate Sub Command2_Click()RemFor j = 1 To 4t = a(1, j)a(1, j) = a(3, j)a(3, j) = tNext jFor i = 1 To 4For j = 1 To 4Picture2.Print a(i, j);Next jPicture2.PrintNext iEnd SubPrivate Sub Command3_Click()For i = 1 To 4Picture2.Print Tab(5 * i);For j = i To 4Picture2.Print a(i, j);Next jPicture2.PrintNext iEnd SubPrivate Sub Command4_Click()For i = 1 To 4For j = 1 To iPicture2.Print a(i, j);Next jPicture2.PrintNext iEnd Sub习题7.1Function sum(n) As IntegerFor i = 1 To ns = s + iNext isum = sEnd FunctionPrivate Sub Command1_Click()i = Text1j = Text2k = Text3y = (sum(i) + sum(j)) / sum(k)Text4 = Format(y, "0.00000")End Sub杨辉三角Private Sub Form_Click()(等腰）Dim a() As Integern = Val(InputBox("num"))ReDim a(n, n)For i = 1 To nFor j = 1 To ia(i, j) = a(i - 1, j) + a(i - 1, j - 1)a(i, 1) = 1Next jNext iFor i = 1 To nPrint Tab(3 * n - 3 * i);For j = 1 To iPrint Format(a(i, j), "!@@@@@@");Next jPrintNext iEnd Sub Private Sub Form_Click()(直角）Dim a() As Integern = Val(InputBox("num"))ReDim a(n, n)For i = 1 To nFor j = 1 To ia(i, j) = a(i - 1, j) + a(i - 1, j - 1)a(i, 1) = 1Next jNext iFor i = 1 To nFor j = 1 To iPrint Format(a(i, j), "!@@@@@@");Next jPrintNext iEnd Sub。

6
［Exit Function］ End Function
(4). Function 过程的调用方法： ①直接调用 像使用 VB 内部函数一样，只需写出函数名
和相应的参数即可 ②用 Call 语句调用 与调用 Sub 过程一样来调用 Function
过程，当用这种方法调用 Function 过程时，将会放弃返回值 3、简述 VB 过程中参数传递的两种方式。
第五章 数 组
4
一、选择题
1 2 3 4 5 6 7 8 9 10 DADEBBCCC A
二、填空题
1 2、12、1、3、-1、2 0123 2222
2 2101 4444
3 name、index 4 preserve、erase 5 ubound、lbound
第六章 过 程
一、选择题
1 2 3 4 5 6 7 8 9 10 DCDCBABAB D 11 12 13 14 15 16 17 18 19 20 ACCDABCDB C
二、填空题
1 bas 2 形式、实际 3 a()、Ubound(b)、n=n-1 4 30、70 5 fedcba、static
三、简答题
6 static 7 static 8 12、7 9 visual basic 程序设计 10 -100
1、简述事件过程和通用过程的含义和联系。
5
VB 应用程序是由过程组成的，过程是完成某种特殊功能的一 组独立的程序代码。VB 中的过程有两大类：事件过程和通用过程
Visual basic 程序设计习题参考答案
第一章 Visual basic 程序设计
一、选择题
1 2 3 4 5 6 7 8 9 10
DC
CDCBAC B

vb程序设计教程习题答案VB程序设计教程习题答案在学习VB程序设计的过程中，经常会遇到各种习题，这些习题旨在帮助我们巩固所学的知识，提高编程能力。

然而，有时候我们可能会遇到一些难以理解的问题，或者是不知道如何去解决的问题。

因此，本文将为大家提供一些VB程序设计教程习题的答案，希望能够帮助大家更好地理解和掌握VB程序设计。

1. 编写一个程序，实现两个数的加法运算。

答案：```vbDim num1 As IntegerDim num2 As IntegerDim sum As Integernum1 = InputBox("请输入第一个数")num2 = InputBox("请输入第二个数")sum = num1 + num2MsgBox("两个数的和为：" & sum)```2. 编写一个程序，实现输出1到100之间的所有偶数。

答案：```vbFor i = 1 To 100If i Mod 2 = 0 ThenMsgBox(i)End IfNext```3. 编写一个程序，实现输入一个数字，判断该数字是奇数还是偶数。

答案：```vbDim num As Integernum = InputBox("请输入一个数字")If num Mod 2 = 0 ThenMsgBox(num & "是偶数")ElseMsgBox(num & "是奇数")End If```通过以上习题的答案，我们可以看到VB程序设计的一些基本语法和逻辑运算，这些知识对于我们日后的编程学习和实践都是非常重要的。

希望大家能够通过不断地练习和思考，掌握VB程序设计的相关知识，成为优秀的程序设计师。

VisualBasic程序设计教程第版课后部分编程题参考答案(一)Visual Basic 程序设计教程是程序员必备的一本教材。

而其第四版中也包含了大量课后编程题，能够帮助读者深入理解 Visual Basic 程序设计的核心内容。

本文就来为大家介绍一下这部分编程题的参考答案。

一、数据类型和运算符1. 将两个整数相加Dim num1, num2, result As Integernum1 = 10num2 = 20result = num1 + num2MsgBox ("The result of adding " & num1 & " and " & num2 & " is " & result & ".")2. 将两个小数相减Dim num1, num2, result As Doublenum1 = 2.5num2 = 1.2result = num1 - num2MsgBox ("The result of subtracting " & num2 & " from " & num1 & " is " & result & ".")3. 将两个字符拼接在一起Dim str1, str2, result As Stringstr1 = "Hello"str2 = "World"result = Str1 + Str2MsgBox ("The result of concatenating " & str1 & " and " & str2 & " is " & result & ".")二、程序结构和函数1. 将两个整数相加并返回结果Public Function Add(ByVal num1 As Integer, ByVal num2 As Integer) As IntegerDim result As Integerresult = num1 + num2Return resultEnd Function2. 获取当前日期和时间Dim currentDateTime As StringcurrentDateTime = Now()MsgBox ("The current date and time is " & currentDateTime & ".")3. 显示一个消息框并返回用户的选择Dim userInput As IntegeruserInput = MsgBox("This is a prompt. Would you like tocontinue?", vbYesNoCancel, "Message Box Test")MsgBox ("Your choice was " & userInput & ".")三、数组和结构1. 将一个整数数组按照升序排列Dim numArray() As IntegernumArray = {5, 10, 2, 8, 1}Array.Sort(numArray)MsgBox ("The sorted array is " & Join(numArray, ", ") & ".")2. 创建一个结构体表示一个人，包含姓名、年龄和性别字段Public Structure PersonPublic Name As StringPublic Age As IntegerPublic Gender As StringEnd Structure3. 创建一个数组表示一个班级的学生，使用 Person 结构体表示每个学生的信息Dim students(2) As Personstudents(0).Name = "Tom"students(0).Age = 16students(0).Gender = "Male"students(1).Name = "Jane"students(1).Age = 15students(1).Gender = "Female"students(2).Name = "Bob"students(2).Age = 17students(2).Gender = "Male"四、文件和数据库1. 读取一个文本文件中的内容并显示Dim filePath As String ="C:\Users\UserName\Documents\MyFile.txt"Dim fileText As StringfileText = File.ReadAllText(filePath)MsgBox ("The contents of the file are " & fileText & ".")2. 将一个字符串写入到一个新建的文本文件中Dim filePath As String ="C:\Users\UserName\Documents\NewFile.txt"Dim fileContent As StringfileContent = "This is the content of the new file."File.WriteAllText(filePath, fileContent)MsgBox ("The file was created and the following content was written to it: " & fileContent & ".")3. 从一个 SQL 数据库中查询某个表格的内容Dim connectionString As String = "DataSource=myServerName;Initial Catalog=myDataBase;UserId=myUsername;Password=myPassword;"Dim query As String = "SELECT * FROM myTable"Dim dataTable As New DataTable()Using connection As New SqlConnection(connectionString)connection.Open()Using command As New SqlCommand(query, connection)Using adapter As New SqlDataAdapter(command)adapter.Fill(dataTable)End UsingEnd UsingEnd UsingMsgBox ("The following records were retrieved from the database: " & vbNewLine & DataTableToString(dataTable))这些编程题的参考答案可以帮助读者理解 Visual Basic 程序设计的一些基本概念和技术，希望读者能够结合自己的实际情况进行学习和练习，不断提高自己的编程水平。