下载文档原格式
《程序设计语言VB》课程习题集一、单选题1. Visual Basic是一种面向（）的程序设计语言。
A. 用户B. 事件C. 程序D. 对象2.在Visual Basic6.0中规定工程文件的扩展名是（）。
A. vbpB. forC. frmD. bas3. Visual Basic6.0中规定窗体文件的扩展名是（）。
A. forB. frmC. vbpD. bas4.如何使一个标签或按钮控件在运行时不可用（）。
A. 把它的Visible属性设置成FalseB. 把它的Visible属性设置成TrueC. 把它的Enabled属性设置成FalseD. 把它的Enabled属性设置成True5.控件的字体可在属性窗口的（）属性中调整？A. FontB. ColorC. TextD. Caption6.若要将某命令按钮设置为默认命令按钮。
则应设置为True的属性是（）。
A. ValueB. CancelC. DefaultD. Enabled7.在VB中，记录对象数据的是（）。
A. 方法B. 事件C. 属性8.在文本框上显示文本的属性是（）。
A. ValueB. TextC. PrintD. Enabled9. InputBox函数返回值的类型为（）。
A. 字符串B. 数值C. 变体D. 数值或字符串（视输入的数据而定）10.设有语句：a = InputBox("请输入数值:","输入示例", "100") 程序执行后,若从键盘上输入数值20并按回车键,则变量a的值是（）。
A. 字符串"20"B. 字符串"120"C. 默认值100D. 数值12011.下列控件中可用于接受用户输入文本，又可用于显示文本的是（）。
A. Label控件B. TextBox控件C. Timer控件D. CommandButton控件12.语句PRINT "25*4"的输出结果是（）。
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程序设计的相关知识，成为优秀的程序设计师。
第一章 Visual Basic概述一、选择题1.在 Visual Basic的工程中,工程文件的扩展名是( ) 。
A. .frmB. .vbgC. .vbpD. .bas2. Visual Basic程序中分隔一行中各语句的字符是( ) 。
A.’B.:C.\D.-空格-3.下列不属于对象的基本特征是( ) 。
A.属性B.方法C.事件D.函数4.以下叙述中错误的是( ) 。
A.在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件B.以.BAS为扩展名的文件是标准模块文件C.窗体文件包含窗体及控件的属性D.一个工程中可以含有多个标准模块文件5.启动 Visual Basic后,系统为用户新建的工程起一个名为( ) 的临时名称。
A.工程1B.窗体1C.工程D.窗体6.用标准工具栏中的工具按钮不能执行的操作是( ) 。
A.添加工程B.打印源程序C.运行程序D.打开工程7.要添加一个标准模块,可使用( ) 菜单中的“添加模块”命令。
A.文件B.视图C.工程D.工具8.工具栏中的“启动”按钮的作用是( ) 。
A.运行一个应用程序B.运行一个窗体C.工程管理窗口D.打开被选中对象的代码窗口9.下列关于 Visual Basic6.0工具栏的说法不正确的是( ) 。
A.工具栏的位置可以任意改变B.工具栏一定在菜单栏的下方C.工具栏可以显示或隐藏D. Visual Basic有多个工具栏10.在设计模式双击窗体将显示的窗口是( ) 。
A.工程窗口B.工具箱C.代码窗口D.属性窗口11.以下关于保存工程的说法正确的是( ) 。
A.保存工程时只保存窗体文件即可B.保存工程时只保存工程文件即可C.先保存窗体文件,再保存工程文件D.先保存工程文件,再保存窗体文件12.在面向对象的程序设计中,最基本的元素是( ) 。
A.窗体文件B.工程文件C.属性D.对象13. Visual Basic的编程机制是( ) 。
第7章过程7．1 编写程序,利用Sub过程计算下式的值:s=a!+b!+c!a,b,c的值由键盘输入【参考答案】程序代码设计Private Sub Form_Click()Dim s As Integer, n As IntegerFor i = 1 To 3n = InputBox("n=")Call fact(n, f)s = s + fNext iPrint "s="; sEnd SubPrivate Sub fact(n, f)f = 1For i = 1 To nf = f * i图7-1程序运行结果Next iEnd Sub运行结果：如a、b、c的值分别输入为4、5、6则程序运行结果如图7-1所示：7．2 编写程序,打印100～200之间的所有素数。
要求:(1) 每行输出5个素数。
(2) 利用Function过程判断每个数是否为素数,是返回1,否则返回0。
【参考答案】程序代码设计Private Sub Form_Click()Print 2;k = 1For i = 3 To 100f = prime(i)If f = 1 Thenk = k + 1If k Mod 5 = 0 Then Print i Else Print i;End IfNext iEnd SubPrivate Function prime(n)prime = 1For i = 2 To n - 1 If n Mod i = 0 Then prime = 0: Exit ForNext iEnd Function程序运行结果如图7-2所示：7．3 编写程序,利用Function 过程计算下式的值: (1+2+3+…+m)+(1+2+3+…+n) y = ─────────────── (1+2+3+…+p)【参考答案】程序代码设计Private Sub Form_Click()m = Val(InputBox("输入m:"))n = Val(InputBox("输入n:"))p = Val(InputBox("输入p:"))y = (sum(m) + sum(n)) / sum(p)Print "sum="; yEnd SubPrivate Function sum(n)s = 0For i = 1 To ns = s + iNext isum = sEnd Function运行结果：如输入m 值为：20，n 值为：15，p 值为：10则程序运行结果如图7-3所示：7．4 编写Function 过程计算n!,调用该函数过程计算下式的值:S=1+1/(1+4!)+1/(1+4!+7!)+…+1/(1+4!+…+19!)【参考答案】程序代码设计Private Sub Form_Click()s = 0t = 0For i = 1 To 19 Step 3图7-2程序运行结果图7-3程序运行结果t = t + fact(i)s = s + 1 / tNext iPrint "s="; sEnd SubPrivate Function fact(n)f = 1For i = 1 To nf = f * iNext ifact = fEnd Function程序运行结果如图7-4所示。
第2章 Visual Basic语言基础知识2．1 Visual Basic定义了几种数据类型，变量有哪几种数据类型，常量有哪几种数据类型。
【答】Visual Basic基本数据类型：1. 字符串型（String）：字符串分为变长字符串和定长字符串两种。
2. 数值型：数值型数据分为整型数和浮点数两类。
3. 货币型（Currency）4. 变体型（Variant）5. 字节型（Byte）6. 布尔型（Boolean）7. 日期型（Date）8. 对象型（Object）Visual Basic中包含两种常量，即文字常量和符号常量。
变量的基本数据类型：Byte（字节型），Boolean（布尔型），Integer（整型），Long （长整型），Single（单精度型），Double（双精度型），Currency（货币型），Date（日期型），Object（对象型），String（变长字符串），String（定长字符串），Variant（变体型、数字），Variant（变体型、字符）2．2 符号常量和变量有什么不同点?【答】符号常量一经定义，就不能在程序中的其他位置改变其值。
变量的值在程序中可以改变。
2．3 指出下列正确的变量名：g(1-k) 6adhs *sss kL2.1 Printx+1 ahi π .ex3 j5h【答案】正确的变量名：ahi，j5h2．4 指出下列正确的数字形式-1.25 ±0.123 89E D2585 10^(2.7) 3^5【答案】2．5 下列表达式若有错误，请改正（1） ts+cos(300) (2) (x+y)^(25÷s)（3） [(X1+X2)*(X1-3)-6]*7 (4) (X÷-2)+sin(1.2+π)【答案】(1) ts+cos(30*3.141593/180)(2) (x+y)^(25/s)(3) ((X1+X2)*(X1-3)-6)*7(4) (X/(-2))+sin(1.2+3.141593)2．6 写出下列数学式的Visual Basic表达式（1） sin(a)[cos(b)+1.5]（2） (x1+4)5(e2-a)（3） 36[(x1+π)(x1÷3.3)-b]（4） x-2π)【答案】Visual Basic表达式：(1) sin(a)*(cos(b)+1.5)(2) (x1+4)^5*(Exp(2)-a)(3) 36*((X1+3.141593)*(x1/3.3)-b)(4) x^（-2）+5.8*sin(3.5*3.141593)第3章顺序结构程序设计3．1 下列语句是否有错？若有，请改正。
vb程序设计教程习题答案VB程序设计教程习题答案VB程序设计是一门广泛应用于软件开发领域的编程语言，它具有易学易用的特点，被广大程序员所喜爱。
在学习VB程序设计的过程中，习题是一个非常重要的环节，通过解答习题可以帮助我们巩固所学的知识，提高编程能力。
下面我将给出一些VB程序设计教程习题的答案，希望对初学者有所帮助。
1. 编写一个VB程序，实现计算两个数的和并输出结果的功能。
答案：```Public Class Form1Private Sub Button1_Click(sender As Object, e As EventArgs) HandlesButton1.ClickDim num1 As IntegerDim num2 As IntegerDim sum As Integernum1 = Integer.Parse(TextBox1.Text)num2 = Integer.Parse(TextBox2.Text)sum = num1 + num2MessageBox.Show("两个数的和为：" & sum)End SubEnd Class```2. 编写一个VB程序，实现判断一个数是奇数还是偶数的功能。
答案：```Public Class Form1Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.ClickDim num As Integernum = Integer.Parse(TextBox1.Text)If num Mod 2 = 0 ThenMessageBox.Show("这个数是偶数")ElseMessageBox.Show("这个数是奇数")End IfEnd SubEnd Class```3. 编写一个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程序设计教程课后答案VB程序设计是一门广泛应用于Windows平台的编程语言，它结合了基本的编程概念和用户界面设计，使得开发者可以轻松创建功能强大的应用程序。
本文将为您提供VB程序设计教程课后答案，帮助您更好地理解和掌握VB程序设计的知识。
第一章：入门篇1. 什么是VB程序设计？VB程序设计是一种使用Visual Basic语言编写应用程序的过程。
它可以用于开发Windows桌面应用程序、数据库应用程序、Web应用程序等。
2. VB程序设计的基本组成部分有哪些？VB程序设计的基本组成部分包括窗体（Form）、控件（Controls）、事件（Events）和代码模块（Code Module）。
3. 如何创建一个VB程序？要创建一个VB程序，首先打开Visual Studio开发环境，然后选择新建项目，选择Visual Basic，再选择Windows桌面应用程序模板，最后输入项目名称并点击确定即可。
4. 如何添加窗体和控件？在VB程序中，可以通过拖放方式添加窗体和控件。
在工具箱中选择所需的控件，然后将其拖放到窗体上即可。
5. 如何给控件添加事件？控件的事件是在特定的操作或触发条件下执行的代码。
要给控件添加事件，可以在属性窗口中选择事件选项卡，然后双击所需的事件即可。
第二章：基本语法篇1. VB程序中如何定义变量？在VB程序中，可以使用Dim语句来定义变量。
例如，Dim num As Integer表示定义一个整型变量num。
2. 如何进行条件判断？在VB程序中，可以使用If...Then...Else语句进行条件判断。
例如，If num > 0 Then表示如果num大于0，则执行某些操作。
3. 如何进行循环操作？在VB程序中，可以使用Do...Loop语句、For...Next语句或While...Wend语句进行循环操作。
例如，Do While num > 0表示当num大于0时，执行某些操作。
第1-2章 Visual B asic导论与算法一、单项选择题二、简答题1、有一个红色、充满氢气的气球，如果人不小心松开手抓的引线，它就会飞走；如果用针刺它，它会爆破。
请问，对于气球对象，哪些是属性，哪些是事件，哪些是方法？答：属性：红色、充满氢气事件：松开；刺方法：飞走；爆破。
2、请简述算法具有哪些特征？答：确定性、可行性、有穷性、输入性和输出性。
3、设x和y是同一类型的变量，试设计一个算法，把x与y中的数据相互交换。
第3章常见控件与界面设计一、单项选择题二、填空题三、简答题1、VB的常用控件中，哪些控件具有Caption 属性，而没有Text属性？哪些控件具有Text属性，却没有Caption 属性？答: 有Caption 属性，而没有Text属性:Form,Label,Command,Option,Checkbox,Frame,Data有Text属性，却没有Caption 属性:Textbox,Listbox,ComboBox第4章数据、表达式与简单程序设计一、单项选择题二、填空题第5章选择分支与循环一、填空题二、编程题（说明：界面自行设计，并上机调试，作业册上只需写出相应的主要程序代码和正确的运行结果。
）1、编写程序代码，随机生成100个两位整数，并统计出其中小于等于40，大于40小于等于70以及大于70的数据个数。
方法1：Private Sub Command1_Click()Dim sum, a%, b%, c%Dim i%a = 0:b = 0:c = 0For i = 1 To 100sum = Int((99 - 10 + 1) * Rnd) + 10Select Case sumCase Is <= 40a = a + 1Case 40 To 70b = b + 1Case Elsec = c + 1End SelectNext iText1 = a: Text2 = b: Text3 = cEnd Sub方法2：Option ExplicitPrivate Sub Command1_Click()Dim a As Integer, I As IntegerDim c1 As Integer, c2 As Integer, c3 As IntegerRandomizeFor I = 1 To 100a = Int(90 * Rnd) + 10If a <= 40 Thenc1 = c1 + 1ElseIf a <= 70 Thenc2 = c2 + 1Elsec3 = c3 + 1End IfNext IPrint "其中，小于等于40的数有"; c1; "个；"Print " 大于40、小于等于70的数有"; c2; "个；"Print " 大于70的数有"; c3; "个。
程序设计基础 P16 习题一 一，判断题 1，错 2，对 3，错 4，错 5，6，7，对 二，单选题 1，B 2，B 3，D 4，A 5，D 6，B 7，B 8,C 9,D 三, 程序设计题 5, Private Sub Command1_Click() Form1.FontName = "宋体" Form1.Print "中文字体宋体" End Sub
Private Sub Command2_Click() Form1.FontName = "楷体_GB2312" Form1.Print "中文字体楷体" End Sub
Private Sub Command3_Click() Form1.FontName = "仿宋_GB2312" Form1.Print "中文字体仿宋" End Sub
P42 习题二 一，判断题 1,2，3， 7，10， 对 4，5，6，8，9，11，12，13，14 错 二，单选题 1，A 2，C 3，C 4，B 5，B 6，A 7，B 8，C 9，B 10，C 11，C 12，D 13，B 14，A 15，D 16，B 17，B 18，C 19，B 20，B 21，B 22，D 23，A 24，C 25，B 26，A 27，D 28，B 三，简答题 1. (1) 2 * Cos(alfa) * Sin(alfa/ ( 2 * a ) (2) Sqr( s*(s–a)*(s–b )*(s - c)) (3) ( A^2 + B*C*(X +Y)) / (A+B) (4) ( 2* 3.14159*r +Exp(-5))* Log(x) (5) 1/( x + 1/(y+1) ) (6) k / ( 1 + a * Exp(-b*x) ) (7) 5 + 6*x / ( 3 * (x^2-1) - 2*x ) (8) Sqr( y^3 + 3 * (a^2+b^2) / (x^2+y^2) ) 2. (1) (a+b) Mod c (2) Sqr(Abs(x)) (3) Int(x) + 1 (4) Int(Rnd *101)+200 3. Private Sub Form_Click() Dim a As Integer, b As Integer Dim c As Integer, y As Long a = InputBox("请输入a的值") b = InputBox("请输入b的值") c = InputBox("请输入c的值") y = a ^ 2 + 2 * b ^ 2 + 2 * c ^ 2 Print " y = "; y End Sub
4。 （1） F （2） T (3) F (4) T 5 . （1） 1<=x And x<12 （2）T+3<>V-2 And (T+V)>100 （3） (a+b) >= c or (a-c) <= c （4） a>0 And Int(a)=a And b>0 And Int(b)=b or a<0 And b<0 （5） x<=y Or x>=z （6） a=0 And b<>0 or a<>0 And b=0 四, 编程题 1. Private Sub Form_Click() Dim a As Integer, b As Integer Dim c As Integer, y As Single a = InputBox("请输入正整数a的值") b = InputBox("请输入正整数b的值") c = InputBox("请输入正整数c的值") y = (a + b + c) / 3 Print " 平均值 y = "; y End Sub 2. Private Sub Form_Click() Dim r As Integer, s As Single Const Pi = 3.14159 r = InputBox("输入圆半径", "输入", 10) s = Pi * r * r MsgBox "圆面积 Area =" & Str(s) End Sub
P78 习题三 一， 1，A 2，B 3，B 4，A 5，C
二， 1， 37，55，64，28，19 2， y=KIGECA 3， 1 121 12321 1234321 123454321 12345654321 4， cHINA！ 三， 1， t As Double s=1 Abs(t)>=1e-5 s=s+t 2, s+c -1 s 3, m=n m To n Sum=Sum+j Sum=i 四， 1， Private Sub Form_Click() Dim x As Single, f As Single x = InputBox("输入x: ") If x < -5 Then f = 3 * x * x + 2 * x - 1 ElseIf x <= 5 Then f = x * Sin(x) + 2 ^ x Else f = Sqr(x - 5) + Log(x) / Log(10) End If Label1.Caption = f End Sub
2. Private Sub Form_Click() Dim i As Integer, flag As Integer Dim t As Double, y As Double y = 0 flag = 1 t = 0.5 i = 1 While Abs(t) >= 0.00001 t = 1 / i / (i + 1) y = y + flag * t flag = -flag i = i + 1 Wend Print "y="; y End Sub
Y=0.386289385475669 3. Private Sub Form_Click() Dim n As Integer, i As Integer, flag As Integer, s As Single, t As Integer n = InputBox("请输入n的值：") sum = 0 t = 1 flag = -1 For i = 1 To n flag = -flag t = t * i s = s + flag * i / t Next i Print "s="; s End Sub
4. Private Sub Command1_Click() For i = 1 To 9 For j = 1 To i Print i; "*"; j; "="; i * j; Next j Print Next i End Sub 5. Private Sub Form_Click() For i = 1 To 5 Print Tab(6 - i); For j = 1 To 2 * i - 1 Print "*"; Next j Print Next i For i = 4 To 1 Step -1 Print Tab(6 - i); For j = 1 To 2 * i - 1 Print "*"; Next j Print Next i End Sub
P104 练习四
一、单选题 1，D 2,C 3, C 4,C 5, D
二、程序阅读题 1， 12 10 9 2， 0 1 1 2 3 2 3、 div = 3
三、程序填空题 1、 Len(str1) Mid(str1, i, 1) p = j i <> p
2、 l = Len(St$) a(i) = Mid(St$, i, 1) p = s - 96 x(p) = x(p) + 1 3、 a(1 To 4, 1 To 5) s = 0 a(i, 5) = s / 4
四、程序设计题 1. Private Sub Form_Click() Dim a(50) As Integer For i = 1 To 50 a(i) = Int(Rnd * 71) + 30 Print a(i); If i Mod 5 = 0 Then Print Next i Min = a(1): Max = a(1): s = 0 For i = 2 To 50 If Min > a(i) Then Min = a(i) If Max < a(i) Then Max = a(i) s = s + a(i) Next i Print "max="; Max, "min="; Min, "average="; s / 50 End Sub 2. Private Sub Form_Click() Dim max As Integer, min As Integer Dim a() As Integer n = Val(InputBox("")) ReDim a(n) As Integer For i = 1 To n a(i) = Int(Rnd * 100) Print a(i); Next i For i = 1 To n If a(i) Mod 2 = 0 Then min = a(i) Else max = a(i) If min <> 0 And max <> 0 Then Exit For Next i For i = 1 To n If a(i) Mod 2 = 0 And min > a(i) Then min = a(i) ElseIf a(i) Mod 2 = 1 And max < a(i) Then max = a(i) End If Next i Print "max="; max, "min="; min End Sub 3. 冒泡法： Private Sub Form_Click() Dim a(10) As Integer For i = 1 To 10 a(i) = Int(Rnd * 90) + 10 Print a(i); Next i Print For i = 1 To 9 For j = 1 To 10 - i If a(j) < a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t
