Visual Basic程序设计作业题解 形成性考核 作业二

1、Visual Basic程序设计作业题解 形成性考核 作业二一、选择题 1按照变量的作用域可将变量划分为（ ）。 A公有、私有、系统 B全局变量、模块级变量、过程级变量 C动态、常态、静态 DPublic、Private、Protected 答案：B 2可获得字符的ASCII码的函数是（ ）。 AVal BFix CAsc DChr 答案：D 3要退出DoLoop循环，可使用的语句是（ ）。AExit BExit For CEnd Do DExit Do 答案：D 4把数值型转换为字符串型需要使用的函数是（ ）。 AVal BStr CAsc DChr 答案：B5关于语句行，下列说法正确的是（

2、 ）。A一行只能写一条语句 B一条语句可以分多行书写 C每行的首字符必须大写 D长度不超过255个字符 答案：b6表达式6 + 10 Mod 4 * 2 + 1的值是（ ）。 A9 B11 C1 D3 答案： A 7假定已在窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先应制造的操作是（ ）。 ASIN BCOI CCOS（X） DX（-1） 答案：B 8表达式Abs(-5)+Len(“ABCDE”)的值是（ ）。A5ABCDE B-5ABCDE C10 D0 答案：C 9在代码编辑器中，如果一条语句太长，无法在一行内写下（不包括注释），要折行书写，可以在行末使用

3、续行字符（ ），表示下一行是当前行的继续。A一个空格加一个下划线字符(_) B一个下划线字符(_) C直接回车 D一个空格加一个连字符(-) 答案：A 10Sub过程与Function过程最根本的区别是（ ）。 ASub过程可以使用Call语句或直接使用过程调用，而Function过程不可以 BFunction过程可以有参数，Sub过程不可以 C两个过程参数的传递方式不同 DSub过程的过程名不能返回值，而Function过程能够通过过程名返回值 答案：D 11“x是小于80的非负数”，用VB表达式表示正确的是（ ）。 A0x<80 B0<=x<80 C0<=x And

4、 x<80 D0<=x Or x<80 答案：C 12在设计菜单时，如果要在菜单中加入一个菜单分隔条，则菜单分隔条的标题必须设置为（ ）。 A加号（+） B减号（-） C星号（*） D感叹号（！） 答案：B 13如果要在程序中显示一个弹出式菜单，那么要调用Visual Basic中提供的方法是（ ）。APrint BMove CRefresh DPopupMenu 答案：D 14下列可以用来存储图像供其它对象使用的控件是（ ）。AToolBar BStatursBar CImageList DTreeView 答案：C 15当单击工具栏上的按钮时，会触发的事件是（ ）。 AB

5、uttonClick BChange CLoad DKeyPess 答案：A 16要利用公共对话框控件来显示"打开文件"对话框，需要调用控件的（ ）方法。 AShowPrint BShowOpen CLoad DShowColor 答案：B 17对于窗体级变量，下列说法中错误的是（ ）。 A所在窗体的各子程序都可以访问 B其它窗体的子程序不能访问 C所在窗体的各子程序都不能访问用Private定义的窗体级变量 D一定要在所在窗体的通用区内定义 答案：C 18从一个字符串中的第3个字符开始，获取5个字符，应使用（ ）。 ALen函数 BMid函数 CLeft数 DRight函

6、数 答案：B 19用下面的语句所定义的数组的元素个数是（ ）。 Dim A（-3 To 5）As Integer A6 B7 C8 D9 答案：D 20有如下程序段： Dim str1 As String * 5 Str1=”Visual Basic” 当该程序段执行时，变量str1的之值是（ ） A”Visual” B”Visua” C”V” D”Visual Basic” 答案：B 二、填空题1菜单一般有( ) 和 ( ) 两种基本类型。 答案：下拉式菜单 弹出式菜单 2通用对话框控件可显示的常用对话框有 ( ) 、 ( ) 、 ( ) 、( ) 、 ( ) 。 答案：打开（Open） 保

7、存（Save） 颜色（Color） 字体（Font） 打印（Print） 3组合框具有 ( ) 和 ( ) 两种控件的基本功能。 答案：文本框 .列表框 4要使数组的默认下标从“1“开始，则应在窗体或标准模块代码的声明部分使用语句 ( ) 。 答案：4 Dim 数组名（1 To 上界） 5调用Sub过程时，使用 ( ) 语句，该语句用于把程序控制传送到一个Visual Basic的Sub过程。 答案：过程名 参数1,参数2, 6若已建立了Form1和Form2两个窗体，默认启动窗体为Form1。通过 （ ） 菜单 （ ） 命令的 （ ） 选项卡，可将启动窗体设置为Form2。在程序中若要显示F

8、orm1窗体，则执行 （ ） 语句。 答案：“工程” “工程属性” “工程属性” Form1.Show 7列表框中项目的序号是从 ( ) 开始的。 。 答案：0 8Sub过程与Function过程最根本的区别是 ( ) 。 答案：不会用过程名返回一个值 9VB的代码存储在模块中，在VB中提供了三种类型的模块： ( ) 、( ) 和 ( ) 。 答案：窗体模块 标准模块 类模块 10使用Hide方法会隐藏被调用的窗体，但在调用Hide方法之后不会把窗体( ) ；被调用的窗体中的属性等已处于 ( ) 。 答案：移出内存 无效的状态 11将下列函数式子写成Visual Basic表达式。(1):()

9、(2） ：( ) 。 （3）sin45o：( ) 。 答案：（1）2*cos()*sin()/(2*) （2）sqr(s*(s-a)*(s-b)*(s-c) （3）sin(45/180) 12将下列各条件写成Visual Basic逻辑表达式。 （1） 1x12：（ ） （2） A+BC 或 a-cc：（ ） （3） a和b都为正数或同为负数：（ ） 答案：1）1<=x and x<12 （2）A+B>=C or a-c<=c （3）a>0 and b>0 or a<0 and b<0 13设A=2，B=3，C=4，D=5。表达式 Not A&l

10、t;=C Or 4*C=B2 And B<>A+C的值为（ ）。 答案：False 14在Visual Basic语言中有三种形式的循环结构。其中若函数的次数可以事先确定，可使用 （ ） 循环；若要求先判断循环的条件，可使用 （ ） 循环或 （ ） 循环。 答案：For Next Do WhileUntil 条件式Loop DoLoop WhileUntil 条件式 15以下语句的输出结果是 （ ） 。 a%=3.14159 Print a% 答案：3（因为变量a被声明为整型变量%表示整型变量） 三、阅读下列程序，写出程序的运行结果1 Private Sub Form_Click(

11、)Static Sum As IntegerFor I = 1 To 100Sum = Sum + I Next IPrint Sum End Sub 答案：编程人员只需针对某个事件编写程序代码称为可视化编程。应用程序是在响应不同的事件时执行不同的代码片段称为事件驱动。 2Private Sub Form_Click() A = 10: b = 15: c = 20: d = 25Print A; Spc(5); b; Spc(7); c Print A; Spc(8); b; Space$(5); cPrint c; Spc(3); "+" Spc(3); d; Prin

12、t Spc(3); "=" Spc(3); c + d End Sub 答案：窗体和控件是创建应用程序所使用的对象，方法是对象的动作，事件是对象的响应，属性可看作对象的性质。 3 Private Sub Form_Click() For i% = 1 To 3 For j% = 1 To i Print LTrim(Str(i%) + "*" + LTrim(Str(j%) + "=" i% * j%; Next j% Print Next i% End Sub 答案：传统编程方式是结构化程序设计，它从系统的功能入手，按照工程的标准和

13、严格的规范将系统分解为若干功能模块，系统是实现功能模块的函数和过程的集合。事件驱动编程则是从所处理的数据入手，以数据为中心而不是以服务（功能）为中心来描述系统。它把编程问题视为一个数据集合，数据相对于功能而言，具有更强的稳定性。事件驱动编程与传统编程方式相比，最大的区别在于：前者首先关系关心的是所要处理的数据，而后者首先关心的是功能。 4Private Sub Command1_Click() Dim a, b As Integer a = 3.4 b = 3.4 Text1.Text = a Text2.Text = b End Sub 答案：答：事件驱动的工作过程为： 1.启动应用程序，装

14、载和显示窗体。 2.窗体或窗体上的控件等待事件的发生。 3.当某个事件发生后，执行其对应的事件过程代码。 4.重复执行第2和第3步，直到遇到End语句或单击结束按钮停止程序的运行。 5、 Private Sub Form_Click() For i = 1 To 5 Print Tab(11 - i); For J = 1 To i * 2 - 1 Print "*" Next Next i End Sub 答案：答：事件驱动的工作过程为： 1.启动应用程序，装载和显示窗体。 2.窗体或窗体上的控件等待事件的发生。 3.当某个事件发生后，执行其对应的事件过程代码。 4.重复

15、执行第2和第3步，直到遇到End语句或单击结束按钮停止程序的运行。 四、程序设计题1购物优惠程序。某商场为了加速促成商品流通，采用购物打折的优惠办法，每位顾客一次购物（1）在100元以上者，按九五折优惠；（2）在200元以上者，按九折优惠；（3）300元以上者，按八折优惠；（4）500元以上者，按七折优惠。在窗体上添加两个文本框和一个命令按钮，要求在Text1中输入购物商品的总金额，单击命令按钮，在Text2输出优惠后的价格。程序运行结果如图4所示。 图4答案： Private Sub Command1_Click() x = Val(Text1.Text) Select Case x Cas

16、e Is >= 500 Text2.Text = x * 0.7 Case Is >= 300 Text2.Text = x * 0.8 Case Is >= 200 Text2.Text = x * 0.9 Case Is >= 100 Text2.Text = x * 0.95 End Select End Sub = x * 0.95 End Select End Sub 2输出100200之间不能被3整除的数，要求用Do语句的一种形式实现，程序运行结果如图5所示。 图5答案：程序代码： Private Sub Form_Load() x = 101 Text1.

17、Text = "100" Do While x <= 200 If x Mod 3 <> 0 Then Text1.Text = Text1.Text + Chr(13) + Chr(10) + Trim(Str(x) End If x = x + 1 Loop End Sub 3编写程序，打印如下的乘积表： 图6答案：程序代码： Private Sub Form_Click() Print "*", "3", "6", "9", "12" Print &q

18、uot;15", "45", "90", "125", "180" Print "16", "48", "96", "144", "192" Print "17", "51", "102", "153", "204" Print "18", "54", "10

19、8", "152", "216" End Sub 4设计一个计算程序。该程序用户界面如图7所示。要求程序运行后，用户选中单选按钮，则程序作10和2的相应计算，并把计算结果在文本框中显示出来。如用户选中加法单选按钮，则程序作10和2的相加，计算结果12在文本框中显示出来。按结束，则退出。 图7答案：程序代码： Private Sub Form_Load() Option1(0).Value = False Option1(1).Value = False Option1(2).Value = False Option1(3).Value = Fa

20、lse End Sub Private Sub Option1_Click(Index As Integer) Select Case Index Case 0 Text1.Text = 10 * 2 Case 1 Text1.Text = 10 / 2 Case 2 Text1.Text = 10 + 2 Case 3 Text1.Text = 10 - 2 End Select End Sub Private Sub Command1_Click() End End Sub 5编写输入一个06数字，显示汉字对照输出星期的Function过程。程序运行结果如图8所示。 图8答案：程序代码：

21、Dim x As Integer Private Function Mystring(x As Integer) As String Select Case x Case 1 Mystring = "星期一" + Chr(13) + "Monday" Case 2 Mystring = "星期二" + Chr(13) + "Tuesday" Case 3 Mystring = "星期三" + Chr(13) + "Wednesday" Case 4 Mystring = "星期四" + Chr(13) + "Thursday" Case 5 Mystring = "星期五" + Chr(13) + "Friday" Case 6 Mystring = "星期六" + Chr(13) + "Saturday" Case 7 Mystring = "星期日" + Chr(13) + "Sunday" End Sel