vb第三部分 练习题参考答案

第三部分 练习题参考答案及教科书习题参考答案

一、本书练习题参考答案 练习题一，参考答案

一、答：合法的直接常量有： 1E1、”1234.5”、 -1123!、345.54#

单精度数据有：1E1、-1123! 双精度数据有： 345.54# 日期型数据有：#2007/2/1#

二、答：变量有： cj、n

常量有： #11/12/2004#、12.345

其中”120”是字符串型，True是布尔型，#11/12/2004#是日期型，12.345是浮点型。

三、答：合法的变量名有：x-123、变量名、Cosx。

四、答：（1）（-b+Sqr(b^2-4*a*c)）/(2*a)

（2）1/(1/r1+1/r2+1/r3)

（3）Sin(45/180*3.14159)+(Exp(10)+Log(10))/(Sqr(x+y+1))

五、答：

(1) exercise (2) erci (3) Exerci (4) 23.55 (5) -543.89 (6) 10 六、答：

(1) 2006-7-18 (2) 579789 七、答：

(1) 3.556 (2) 8

练习题二，参考答案

一、选择题 1 D。

2 C。解析：此题考查变量交换这一知识点，首先要将其中的一个变量赋值给中间变量，A是错误的，B、D是交换时没有首先将变量赋值给中间变量，正确答案是C。

3 D。解析：关于数值型变量的交换方法除了可以使用2题的规则外，还可以使用先将两数求和赋值给第一个变量,然后用第一个变量减去第二个变量赋值给第二个变量, 然后用第一个变量减去第二个变量赋值给第一个变量所以只有答案D是正确的。

4 B。解析：InputBox()函数能接收用户输入的数据，并能返回用户输入的信息，不能用于输出信息。InputBox()函数中的Prompt参数是在对话框中显示提示信息，这种提示信息是由用户确定的，不能把它当作输出信息的功能, 正确答案是B。

5 B。解析：在默认的情况下，InputBox()函数的返回值是一个字符串，而不是变体类型。如果没有事先声明返回值的类型，或声明为变体类型，则当把函数的返回值赋给这个变量时，VB将是把它作为字符串来处理。因此当需要用InputBox()函数输入数据，并且需要输入的数值参加运算时，必须在进行运算前用Val函数(或其他函数) 把它转换为相应类型的数值，否则有可能会得到不正确的结果。如果正确地声明了返回值为变体类型，则可不必进行类型转换。正确答案是B。 6 C。解析：InputBox()函数的格式为：

返回值=InputBox(Prompt,[Title],[Default],[XPos],[YPos],[HelpFile], [Context]) As String

其中prompt是一个字符串，用于提示用户输入，是在对话框中显示的信息，不可省略，故选项A和选项D不正确；选项B没有类型转换符，所以不正确Val(字符串)函数的功能是把自变量中的第一个字符串转换为数值，其中的数值是一个双精度的实数，所以，正确答案是C。 7 B。解析：在默认的情况下，InputBox()函数的返回值是一个字符串类型，而不是变体类型。如果没有事先声明返回值变量的类型，或声明为变体类型，则当把函数的返回值赋给这个变量时，VB将是把它作为字符串来处理。因此当需要用InputBox()函数输入数据，并且需要输入的数值参加运算时，必须在进行运算前用Val函数(或其他函数) 把它转换为相应类型的数值，否则有可能会得到不正确的结果。如果正确地声明了返回值的变体类型，则可不必进行类型转换；由于本题没有事先声明变量，所以a和b所获得的为字符“2”和“6”，所以输出“62”。正确答案是B。

8 A。解析：此题与上题看起来很类似，但是要注意此题在给变量D

9 B。分析： 使用紧凑格式输出，各表达式的分割符应是分号；使用标准式输出，各表达式的分割符应是逗号。 10 D。解析：略。

11 A。解析：MsgBox()函数的返回值是一个整数，这个整数与所选择的命令按钮有关。MsgBox()函数所显示的对话框中有7种命令按钮，返回值与这7种命令按钮相对应的，见下表。

MsgBox()函数的返回值

返回值 1 2 3 4 5 6 7 操 作 选“确定”按钮 选“取消”按钮 选“终止”按钮 选“重试”按钮 选“忽略”按钮 选“是”按钮 选“否”按钮 符号常量 vbOk vbCancel vbAbort vbRetry vbIgore vbYes vbNo 表4.1 MsgBox的返回值表

所以，正确答案是A。

12 D。解析：此题考察Msgbox()函数的基本知识。其函数的格式为：

返回值=MsgBox(Prompt,[Type],[Title],[HelpFile],[Context])As VbMsgBoxResult 函数的第二个参数是数值表达式，不仅仅确定按钮的数目，还指定按钮的类型及图标的样式，所以，正确答案是D。 13 A。解析：略。

14 A。解析：Print \计算机技术\语句的作用是将字符串“计算机技术”直接输出到当前窗体上，所以选项A正确；Picture1.Print \计算机技术\语句实现的功能是将字符串“计算机技术”在图片框上显示出来，所以选项B不正确； Printer.Print \计算机技术\语句实现的功能是将字符串“计算机技术”输出到打印机上，所以选项C不正确；Debug.Print \计算机技术\语句实现的功能是将字符串“计算机技术”在立即窗口中显示出来，所以选项D不正确。所以，正确答案是A。

15 D。解析：此题考查IIf()函数的格式、功能。Result=IIf（条件，True部分，False部分）。由于a=6，所以，结果为True部分，所以，正确答案是D。

16 B。解析：题中是条件语句If a < b Then Print b Else Print a，即a < b时输出b，否则输出a，即输出两者的最大者。显然应该是32，正确答案是B。

17 A。解析：程序开始时分别执行x，y赋值5，-6。If语句Not x>0相当于x<=0，现在x的值为5，比0大，所以条件值为False，执行Else语句y＝x+3，此时y为8，执行Print方法，即输出x-y和y-x的值，x-y＝-3，y-x＝3，正确答案是A。

18 C。解析：题中语句都属于条件语句中“If 条件 Then 语句”的类型，从选项中，可以看出条件语句是A与B的比较语句，其值就是此条件语句的值，也就是说，只有当其值为真时，执行Then语句。选项A和D中的“≠”符号并非比较运算符，在VB中不等于是用<>来表示的，与数学上的表示方法不一样，所以不正确；选项B中的Printf并非VB中的输出方法，所以不正确，正确答案是C。

19 D。解析：此题为行If语句，如果a > 60 ，则I = 1；如果a > 70 ，则I = 2；如果a > 80 ，则I = 3；如果 a > 90，则I = 4。根据已知可得，由于a=95符合每一个If语句的条件，在程序的执行过程中，对所有的语句都执行一次，正确答案是D。

20 D。解析：此题为行If结构的条件语句，如果a > 60 ，则I = 1；如果a > 70 ，则I = 2；如果a > 80 ，则I = 3；如果 a < 90，则I = 4；本题的条件是a＝75，对所有的语句都执行一次，故结果应该为选项D。所以输出结果应该是I = 4，正确答案是D。

21 B。解析：Print方法具有计算和输出双重功能，对于表达式，它先计算后输出，此题中经过第一步的条件语句后，Y的数值为-1，则Y－X的值为-3，小于0，所以Y - X > 0为逻辑假，所以输出结果应该为False，正确答案是B。

22 C。解析：对话框的主要特点是：不必有最大化按钮和最小化按钮，对话框中通常设置有退出按钮，用于退出对话框。VB有两类对话框：一类是对话框关闭之前，不能执行其他操作，称之为“模式”对话框；另一类是对话框关闭之前，能够继续执行其他操作，称之为“无模式”对话框，所以，正确答案C。

23 B。解析：在x = Int(Rnd()+ 4) 语句中，Rnd是用来产生随机数的，其值在0～1之间，而在(Rnd()+ 4) 前面有Int进行强制转换，所以x的结果总为4，Select Case 语句体中的Case 4 :Print \语句。所以，正确答案是B。

24 C。解析：考查对多分支控制结构的掌握。具体过程分析：b＝30，所以b＼10=3，在1～9之间，执行语句c = a * 100 + b，c＝14*100+30=1430。所以，正确答案是C。 25 C。解析：Case语句中的表达式列表可以是下面的4种形式之一：表达式、一组用逗号分隔的枚举值、表达式1 To 表达式2、Is关系运算符表达式，故选项C错误。 二、填空题 1 25+32= 57 。

解析：此题考查Print方法的使用，在打印时，\原样打印，25+32结果为57，所以，答案为：25+32= 57 。

2 Form1.FontSize = Form1.FontSize + 2 Form1.FontSize = Form1.FontSize + 2

解析：此题考查窗体字体属性的设置。决定字体大小的是FontSize属性，所以要改变字体的大小需要改变FontSize的值。cmdMax按钮的作用是单击cmdMax时，窗体上显示“字体由小变大”，字号每次增加2，所以第一个空应填入的是Form1.FontSize = Form1.FontSize + 2；cmdMin按钮的作用是单击cmdMin时，窗体上显示“字体由大变小”，字号每次减小2，所以第二个空填入的是Form1.FontSize = Form1.FontSize + 2。 3 Welcome to Beijing!；Print Sample或者Me.Print Sample。

解析：该题中主要是考查了赋值语句与显示语句。赋值语句是根据图示给出的信息，填写上字符串，然后，用Print命令，使字符串显示在窗体上。赋值语句为Sample = \to Beijing!\；输出语句为：Print Sample或者Me.Print Sample。 4 x Mod 4 = 1 And x Mod 5 = 2；Text1.SetFocus

解析：本题中先通过Val(）函数得到一个整数，进行条件判断，如果满足条件x Mod 4 = 1 And x Mod 5 = 2则输出x，否则，将清空文本框，焦点落在文本框中, Text1.SetFocus。 5 numX Mod 2 = 0 And numX Mod 5 = 0 And numX Mod 7 = 0

numX, numX ^ 2

解析：根据已知，条件是“能否同时被2，5和7整除”，所以第一空应填入：numX Mod 2 = 0 And numX Mod 5 = 0 And numX Mod 7 = 0；如果满足条件就显示出来并显示其平方值，所以第二空应填入的是：numX, numX ^ 2。

6 num Mod 6 = 2 And num Mod 5 = 3；Text1.SetFocus

解析：程序调用了Val()函数从文本框中的得到数据。本题中先通过Val()函数得到一个整数，进行条件判断，如果满足条件num Mod 6 = 2 And num Mod 5 = 3则输出num；否则，将清空文本框，焦点落在文本框中，应使用语句Text1.SetFocus。 7 x > 0 And y > 0；x < 0 And y > 0；Else

解析：本题用了多分支IF语句，根据题目给出的程序可知第一空、第二空是填条件语句的，根据Then后面的内容可以确定：第一空应填入x > 0 And y > 0；第二空应填入x < 0 And y > 0；函数除了满足上述条件的都是“其他”，所以第三空应为Else。

8 Form1.BackColor = vbRed或者BackColor = vbRed或者Me.BackColor = vbRed。 Mark = 1；Mark = 0

解析：首先过程中定义了一个模块级整型变量Mark，每次都保留上次运行后的值。由程序

可以看出：本题约定Mark等于0表示背景色为红色；Mark等于1表示背景色为绿色；Mark等于2表示背景色为蓝色，每次单击运行后要将Mark变为下次运行时的值，以便符合题目要求。所以第一空应为Form1.BackColor = vbRed，第二空为Mark = 1；当背景色变为蓝色后再单击背景色要变为红色，所以应将Mark变为0，所以第三空为Mark = 0。 9 Select Case x；Case Else

解析：阅读程序后，发现程序中有Case和End Select子句，没有多分支选择结构的起始语句，很明显，第一个空应该填写多分支结构的起始语句Select Case x。在Select Case 结构中，只有两个Case子句，分别表示x取值的两种情况，但题目中将x的值分为3种情况，所以第二个空应该填写Case Else语句。 10 1；2；3

解析：考核多分支控制结构语句，函数调用了Val(Text1.Text) 函数将从文本框中得到的字符串转化为数据，将转换来的数据作为情况语句的测试条件。因为当输入1时，则打印“您的成绩为优秀！”；所以当测试表达式的值与之相同时，就执行该Case分支的语句，同样当输入2，3等其他数字时执行其他的Case分支。 11 Form1. Hide或者Unload Form1；Show

解析：可以用Hide方法，也可以用Unload语句使Form1窗体消失；用Show方法显示窗体。 12 n；1

解析：此题中Text1中的数字代表投币的总次数，用n来表示，因此For循环中i的值应从1到n，第一个空为n；因为1代表正面，0代表反面，而r是随机取的1或者0，第二个空是判断r的取值，因为n1代表正面的值，所以If语句中r应等于1，第二个空为1。

三 程序设计题

1 【源程序代码如下】

Private Sub Cmd1_Click()

Dim X1 As Integer, Y1 As Integer, X2 As Integer, Y2 As Integer, S As Single

X1 = Text1.Text Y1 = Text2.Text X2 = Text3.Text Y2 = Text4.Text

S = ((X2 - X1) ^ 2 + (Y2 - Y1) ^ 2) ^ (1 / 2) Label5.Caption = \这两点之间的距离为:\End Sub

运行界面如图4.4所示。

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说教育文库vb第三部分 练习题参考答案在线全文阅读。