当前位置：文档之家 › 计算机visual basic程序设计课后答案

计算机visual basic程序设计课后答案

  • 格式：doc
  • 大小：45.50 KB
  • 文档页数：4

同步练习1 二、选择题01——05 CADAB 06——10 ACDAB 11——15 CBDBB同步练习2 二、选择题01——05 ABDCA 06——10 CACBC 11——15 DADAD 16——20 BDBBB 三、填空题1．可视2．LEFT、TOP、WIDTH、HEIGHT 3．按字母顺序4．查看代码5．工具、编辑器6．FORM 窗体、FONT 7．MULTILINE 8．在运行时设计是无效的9．工程、工程属性、通用、FORM1.SHOW 10．TABINDEX、0同步练习3 二、选择题01——05 BCADB 06——10 ADBBC 11——15 DBCBA 16——20 BAABB 三、填空题1．整型、长整型、单精度型、双精度型2．SIN(30*3.14/180)+SQR(X+EXP(3))/ABS(X-Y)-LOG(3*X) 3．164、今天是：3-19 4．FALSE 5．-4、3、-3、3、-4、4 6．CDEF 7．(X MOD 10)*10+X\10 8．(35\20)*20=20 ( 35 \ 20 )* 20 = 20 9．X MOD 3=0 OR X MOD 5=0 10．27.6、8.2、8、1、100、397、TRUE、FALSE同步练习4 一、选择题01——05 DBCAD 06——10 CBBAB11——15 D25BAC 16——20 CBACB 21——25 DAABC 二、填空题1．正确性、有穷性、可行性、有0 个或多个输入、有 1 个或多个输出2．1 2 3 3．X>=7 4．X<AMIN 5．1024 6．11 7．12 8．6、I、”*”; 9．0、100、I+1 10．2*I、6、”*”; 三、编程题1．编程求n！从键盘输入。

，n Private Sub Form_Click() Dim n%, s%, i% n = Val(InputBox("请输入n 的值：")) s=1 For i = 1 To n s=s*i Next i Print n; "!="; s End Sub 2．编程求100 以内的全部质数。

Private Sub Form_Click() Dim i%, k%, n%, y$ For n = 1 To 100 k = Int(Sqr(n)) For i = 2 To k If n Mod i = 0 Then Exit For Next i If i > k Then y = y & Str(n) End If Next n MsgBox y, , “显示质数" End Sub 3．编写程序，计算1+2+…+100 的值。

Private Sub Form_Click() Dim i%, s% s=0 For i = 1 To 100s=s+i Next i Print "1+2+3+…+100="; s End Sub 4．百元买百鸡。

假定小鸡每只5 角，公鸡每只2 元，母鸡每只 3 元，编程求解购鸡方案。

(采用穷举法) 假设母鸡、公鸡、小鸡各为x、y、z，列出方程为：x+y+z=100 3x+2y+0.5z = 100 Private Sub Form_Click() Dim x%, y%, z% Print "母鸡", "公鸡", "小鸡" For x = 0 To 33 For y = 0 To 50 z = 100 - x - y If 3 * x + 2 * y + 0.5 * z = 100 Then Print x, y, z End If Next y Next x End Sub 5．给定三角形的3 条边的边长，计算三角形的面积。

编写程序，首选判断的 3 条边能否构成三角形，如可以构成，则计算并输出该三角形的面积，否则要求重新输入。

当输入-1 时结束程序。

Private Sub Form_Click() Dim a%, b%, c%, s!, p! Do Until a = -1 Or b = -1 Or c = -1 a = Val(InputBox("a=")) b = Val(InputBox("b=")) c = Val(InputBox("c=")) If a + b > c And a + c > b And b + c > a Then p = (a + b + c) / 2 s = Sqr(p * (p - a) * (p - b) * (p - c)) Print "s="; s End If Loop End Sub 6．编程打印如下图所示的数字金字塔。

Private Sub Form_Click() Dim i%, j% For i = 1 To 8 Print Tab(9 - i); For j = 1 To 2 * i - 1 Print Trim(Str(i));Next j Print Next i End Sub 7．勾股定理中3 个数的关系是：a*a+b*b=c*c。

编写程序，输出30 以内满足上述关系的整数组合，例如3、4、5 就是一个整数组合。

Private Sub Form_Click() Dim i%, j%, k% For i = 1 To 30 For j = 1 To 30 For k = 1 To 30 If i ^ 2 + j ^ 2 = k ^ 2 Then Print i, j, k End If Next k Next j Next i End Sub 8．如果一个三位数3 个数字的立方和等于该数本身，称为水仙花数。

例如153 就是一个水仙花数：13+53+33=153。

编写程序，显示所有三位的水仙花数。

Private Sub Form_Click() Dim x%, a%, b%, c% For x = 100 To 999 a = x \ 100 b = (x Mod 100) \ 10 c = x Mod 10 If a ^ 3 + b ^ 3 + c ^ 3 = x Then Print x End If Nextx End Sub 9．税务部门征收所得税，规定如下：（1）收入200 元以内，免征；（2）收入在200~400 元内，超过200 元的部分纳税3%；（3）收入超过400 元的部分，纳税4%；（4）当收入达5000 元或超过时，将4%改为5%。

编程实现上述操作。

Private Sub Form_Click() Dim x%, y! x = Val(InputBox("请输入收入额：")) Select Case x Case Is < 200 y=0 Case 200 To 400y = (x - 200) * 0.03 Case 400 To 4999 y = (x - 400) * 0.04 Case Is >= 5000 y = (x - 400) * 0.05 End Select Print "y="; y End Sub 10．编写一程序根据上网时间计算上网费用，计算方法如下：50 元（<10 小时）网费= 每小时 6 元（10~60 小时）每小时 4 元（>=60 小时）同时为了鼓励多上网，每月收费最多不超过200 元。

Private Sub Form_Click() Dim t!, s! t = V al(InputBox("请输入上网小时数")) Select Case t Case Is < 10 s = 50 Case 10 To 59 s=6*t If s > 200 Then s = 200 Case Is >= 60 s=4*t If s > 200 Then s = 200 End Select Print "上网费用为"; s; "元。

" End Sub 11．编写一个程序，当输入月份时，输出季节的名称。

例如，当输入月份为12、1 和 2 时，输出“冬季”；当输入月份为3、4、5 时，输出“春季”；当输入月份为6、7、8 时，输出“夏季”；当输入月份为9、10、11 时，输出“秋季”；当输入其他数字时，输出“输入错误，请重新输入！”。

Private Sub Form_Click() Dim m% m = Val(InputBox("请输入月份：")) Select Case m Case 12, 1, 2 Print "冬季" Case 3, 4, 5 Print "春季" Case 6, 7, 8 Print "夏季" Case 9, 10, 11 Print "秋季"Case Else Print "输入错误，请重新输入！" End Select End Sub 12．分别利用If 语句、Select Case 语句，设计计算下列分段函数的程序。

2x-1 （x<0）f(x)= 4x （x=0）7x-5 （x>0）Private Sub Form_Click() Dim x!, f! x = Val(InputBox("请输入x 的值：")) Select Case x Case Is < 0 f=2*x-1 Case 0 f=4*x Case Is > 0 f=7*x-5 End Select Print f End Sub 同步练习5 一、选择题01——05 DCACD 06——10 DBCDC 11——15 BADAD 二、填空题1．NAME、INDEX 2．PRESERVE 3．V ARIANT 4．N(2)=2 N(3)=3 5．1 2 3 1 4 1 6．1 2 3 2 4 6 7．MAX、MAX=ARR1(I) 三、编程题1．从键盘上输入10 整数，并放入一个一维数组中，然后将其前 5 个元素与后 5 个元素对换，即第 1 个元素与第10 个元素互换，第 2 个元素与第9 个元素互换，……，第5 个元素与第6 个元素互换。

输出数组为原来各元素的值和对换后各元素的值。

合集下载

visual basic程序设计课后编程答案

visual basic程序设计课后编程答案

Dim n As Integern=Text1.TextIF(n Mod 4 =0 And n mod 100< >0 or n mod 400 = 0)Then Text2.text =”闰年”ElseText2.text=”非闰年”End IF求和求积Dim i As integerOpen App.path&”\jsdata.txt”For input As #1For i =1 to 15Input #1,arr(i)Next iIf op1.value=ture thenT1.text=Aaa()End ifIf op2.value=ture thenT1.text=Bbb()End ifClose #1写入文件****Dim i As Integer, j As Integer, n As IntegerOpen app.path &”\zfwj.txt”for output As #1n=val(text1.text)for I =1 to nfor j=1 to iprint #1,”*”;next jprint #1next I close#1计算结果dim n As Integer, I As Integer, s1 As integer,s2 As long n=val(text1.textfor I =1 to ns1=s1+is2=s2+s1next itext2.text=s2求值dim n1 as integer, n2 as integer, n3 as integer,t as integer n1= val(text1.text)n2=val(text2.text)n3=val(text3.text)if n1<n2 then t=n1:n1=n2:n2=tif n2<n3 then t=n2:2=n3:3=tif n1<n2 then t =n1:1=n2:2=ttext4.text=n1text5.text=n3建立文件显示文件Dim num as string,name as srting, I as integerOpen App.path&”\xhxm.txt”for output As #1For I = 1 to 3num=inputbox(“请输入学号：“)name = inputbox(“请输入姓名：“)write #1,num,namenext iclose #1End sub Private sub command2_click()Dim s as string, I as integerOpen app.path &\xhxm.txt” for input as # 1Do While Not EoF(1)Line input # 1,sText1.text= text1.text& s & vbCrLfLoopClose #1第三卷求和输入N值Dim n As integer, I as integer, sum as integerN= val(text1.text)For I = 1 to nIf I mod 3 =0 then sum = sum+ iNext iText2.text=sum输入正整数NDim m As integer, n as integerPrivate sub commad1_click(0Dim c as doubleN=text1.textM=text2.textIf n<=m thenC=fact(m)/(fact(n)* fact(m-n))Text3.text=cElseMsgbox”输入的n必须小于等于m！请重新输入“Text1.text=””Text2.text=””Text1.setfocusEnd ifEnd sub读入数据统计英文字母Dim s as stringOpen app.path&”\yy.txt”for input as #1Do while not EOF(1)Line input #1,sText1.text=text1.text &s &vbCrLfLoopClose #1End subPrivate sub command2_click()Dim n as integer, I as integer, s As integer, c as stringN= Len(text1.text)For I = 1 to nC= mid(text1.text,I,1)If c >=”a”and c <=”z” or c 》=“a” and c <=”z” then s =s+1 Next iLabel1.caption= “共“& s &”个英文字母”End sub第四卷转换十进制Dim n as integer,b as stringN=text1.textB=zh(n)Text2.text=b读取文件加密Dim s1 as stringPrivate sub command1_click()Open app.path &”\jmwb.txt”for input as #1Input #1,s1Text1.text=s1End subPrivate sub command2_click()Dim n As integer, I as integer dim s2 as string, j As stringN=Len(s1)For I =1 to nJ=mid(s1,I,1)J=chr(asc(j)+5)S2=s2&jNext iText2.text=s2生成数组降序排列Option base 1Dim n AS integer,x(15) as integerPrivate Sub command1_Click(0Dim s1 as stringFor N= 1 to 15X(N)=int(91 * Rnd +10)S1=s1 &STR(x(N))Next NText1.text =s1End subPrivate sub command2_click()Dim s2 as stringDim I as integer, j AS integer t as integerFor I =1 to 15For j 1 to 15For j=I +1 to 15If x (i)<x(j) thenT=x(i)X(i)=x(j)X(j)=tEnd ifNext jS2=s2& Str(x(i))Next IText2.text =s2End sub第五卷判断字符还是字母Dim s as stringCall Getchar(s)Text1.text=sIf Asc(s)>= Asc(“A”) and asc (s)<=asc(“z”) or asc (s)>=Asc(“a”) And asc (s)<=asc(“z”) then Label1.caption=”是字母字符“ElseIf asc(s)>=asc(”0”) and asc(s)<= asc(“s)<=asc(“9”) thenLabel1.caption=”是数字字符“ElseLabel1.caption=”是其他字符”End ifEnd sub生成三个随机数Dim n1 as integer, n2 as integern1=val(text1.text)n2=val(text2.text)label1.caption=int((n2-n1+1)*Rnd +n1)label2.caption=int((n2-n1+1)*Rnd+n1)label3.caption=int((n2-n1+1)*Rnd+n1)end sub转换大写小写Dim a as stringPrivate sub command1_click()Text1.text=UCase(a)End subPrivate sub command1_click()Text1.text=LCase(a)End subPrivate sub command3_click()Text1.text=aEnd subPrivate sub text1_keypress(keyascii as integer)If not((keyascii>=65 and keyascii<=90)or (keyascii>= 97 And keyascii<=122)) then BeepKeyascii =0End Ifa=Text1.textend sub。

visual basic 程序设计课后习题参考答案

visual basic 程序设计课后习题参考答案

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
VisualBasic程序设计教程第版课后部分编程题参考答案(一)

VisualBasic程序设计教程第版课后部分编程题参考答案(一)

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 程序设计的一些基本概念和技术，希望读者能够结合自己的实际情况进行学习和练习，不断提高自己的编程水平。

《Visual Basic程序设计教程》习题参考答案

《Visual Basic程序设计教程》习题参考答案

第1章习题一、选择题1. B2. A3. B4. A二、填空题1. 事件驱动或消息驱动2. 工程资源管理器、窗体三、问答题1. 11个菜单项。

文件菜单包括新建工程、打开工程、添加工程、移除工程、保存工程、工程另存为、保存窗体文件、窗体文件另存为、打印、打印设置、生成可执行文件等命令项；编辑菜单（命令项略，以下同）、视图菜单、工程菜单、格式菜单、调试菜单、运行菜单、查询菜单、图表菜单、工具菜单、外接程序菜单、窗口菜单、帮助菜单。

2. 可以自行定义。

标准工具栏中有添加工程、添加窗体、菜单编辑器、打开工程、保存工程、剪切、复制、粘贴、查找、撤销、恢复、启动、中断、结束、工程资源管理器、属性窗口、窗体布局窗口、对象浏览器、工具箱、数据视图窗口等按钮。

四、编程题（略）第2章习题一、选择题1. A二、练习题1. S1. 把x赋值给同类型变量t；S2. 把y赋值给x；S3. 把t赋值给y。

2. S1. 输入a、b、c；S2. 如果a<b，则交换a与b的数据；S3. 如果a<c，则交换a与c的数据；S4. 如果b<c，则交换b与c的数据；S5. 输出a、b、c。

3. S1. 输入整数N；S2. 给整数K赋值2；S3. 如果K大于N-1，则转S6；S4.如果N除以K 的余数为0，则转S7；S5. K加1再赋值给K，转S3.；S6. 如果K大于N-1，则N为素数；否则N不是素数。

4. S1. 输入整数N；S2. 将N赋值给K；S3. 给整数nx赋值0；S4. 计算nx乘以10加K除以10的余数，再赋值给nx；S5. 计算K除以10的整数商，赋值给K；S6. 如果K>0，则转S4；否则，转S7；S7. 如果N=nx，则N为回文数，否则N不是回文数。

5.6.第3章习题一、选择题1. D2. C3. A4. B5. D6. A7. B8. D9. B 10. D 11. A . 12. C 13. C 14. C二、填空题1. 标题、引用2. ②④⑤3. 64. GotFocus、Resize5. AddItem、Clear6. Label，CommandButton，OptionButton，CheckBox，Frame、TextBox，ListBox，ComboBox7. PictureBox，Frame8. OptionButton，CheckBox，HScrollBar，VScrollBar、OptionButton、CheckBox，HScrollBar，VScrollBar三、问答题1. 答：对象的只读属性的属性值（如名称属性）只能在设计界面时在属性窗口进行设置；非运行属性的属性值则既可在设计界面时在属性窗口进行设置，也可通过程序代码进行设置与修改。