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

1、Visual Basic程序设计作业题解形成性考核作业二一、选择题1 按照变量的作用域可将变量划分为（）。A 公有、私有、 系统 B 全局变量、模块级变量、过程级变量C 动态、 常态、 静态D Public 、Private 、 Protected答案： B2可获得字符的ASCII 码的函数是（）。A Val B Fix C Asc D Chr答案： D3.要退出DoLoop循环，可使用的语句是（）。A Exit B Exit For C End Do D Exit Do答案： D4把数值型转换为字符串型需要使用的函数是（A Val B Str C Asc D Chr答案： B5关于语句行，下

2、列说法正确的是（）。A 一行只能写一条语句 B. 一条语句可以分多行书写 C.每行的首字符必须大写 D.长度不超过255 个字符答案：b6表达式6 + 10 Mod 4 * 2 + 1 的值是（）。A 9 B 11 C 1 D 3答案： A7假定已在窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先应制造的操作是（）。A SIN B COI C COS（ X） D X（ -1 ）答案： B8.表达式 Abs(-5)+Len( "ABCDE)的值是()A 5ABCDE B -5ABCDE C 10 D 0答案： C9在代码编辑器中，如果一条语句太长，无法在一

3、行内写下（不包括注释），要折行书写，可以在行末使用续行字符（），表示下一行是当前行的继续。A 一个空格加一个下划线字符（_） B . 一个下划线字符（_） C .直接回车D. 一个空格加一个连字符（-）答案： A10. Sub过程与Function 过程最根本的区别是（）。A Sub过程可以使用 Call语句或直接使用过程调用， 而Function过程不可以B . Function 过程可以有参数，Sub过程不可以C.两个过程参数的传递方式不同 D. Sub过程的过程名不 能返回值，而Function 过程能够通过过程名返回值答案： D11. “x是小于80的非负数”，用VB表达式表示正确的是

4、（）。A 0<x<80 B. 0<=x<80 C. 0<=x And x<80 D . 0<=x Or x<80答案： C12. 在设计菜单时，如果要在菜单中加入一个菜单分隔条，则菜单分隔条的标题必须设置为（）。A.加号（+） B.减号（-）C.星号（*） D.感叹号（！）答案： B13如果要在程序中显示一个弹出式菜单，那么要调用Visual Basic 中提供的方法是（）。A Print B Move C Refresh D PopupMenu答案： D14 下列可以用来存储图像供其它对象使用的控件是（）。A ToolBar B Staturs

5、Bar C ImageList D TreeView答案： C15 当单击工具栏上的按钮时，会触发的事件是（）。A ButtonClick B Change C Load D KeyPess答案： A16 要利用公共对话框控件来显示" 打开文件" 对话框，需要调用控件的（）方法。A ShowPrint B ShowOpen C Load D ShowColor答案： B17 对于窗体级变量，下列说法中错误的是（）。A 所在窗体的各子程序都可以访问B 其它窗体的子程序不能访问C 所在窗体的各子程序都不能访问用Private定义的窗体级变量D. 一定要在所在窗体的通用区内定义答

6、案：C18 从一个字符串中的第3 个字符开始，获取5 个字符，应使用（）。A Len 函数 B Mid 函数C Left 数 D Right 函数答案：B19用下面的语句所定义的数组的元素个数是（）。 Dim A （ -3 To 5 ） As IntegerA 6 B 7 C 8 D 9答案：20有如下程序段：Dim str1 As String * 5 Str1= ” Visual Basic ” 当该程序段执行时，变量 str1 的之值是()A”Visual ” B” Visua” C”V” D”Visual Basic ”答案：B二、填空题1 菜单一般有( ) 和 ( ) 两种基本类型。

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

8、，默认启动窗体为 Form!通过（）菜单（）命令的 （ ） 选项卡， 可将启动窗体设置为Form2。 在程序中若要显示Form1 窗体， 则执行 （）语句。答案：“工程” “工程属性” “工程属性”Form1.Show7列表框中项目的序号是从（ ） 开始的。答案： 08 . Sub过程与Function 过程最根本的区别是 （）。答案：不会用过程名返回一个值9 . VB的代码存储在模块中，在 VB中提供了三种类型的模块：（）、（）和（）答案：窗体模块标准模块类模块10 .使用Hide方法会隐藏被调用的窗体，但在调用Hide方法之后不会把窗体()；被调用的窗体中的属性等已处于 ()。答案：移出内

9、存无效的状态2cos Qsin m11 .将下列函数式子写成 Visual Basic表达式。(1) 2a ：()(2 )J s(s - a)(s - b(s - c) /、/厂/、V ' '八 ：()。(3) sin45o : () 0答案：(1) 2*cos( a)*sin( a )/(2* a)(2) sqr(s*(s-a)*(s-b)*(s-c)(3) sin(45/180)12 .将下列各条件写成 Visual Basic逻辑表达式。(1) 1<x< 12: ( )(2) A+B>C或a- c<c： ( )(3) a和b都为正数或同为负数：()

10、答案：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<013 .设 A=2, B=3, C=4, D=S 表达式 Not A<=C Or 4*C=BA2 And B<>A+C 的值为()。答案：False14 .在Visual Basic 语言中有三种形式的循环结构。其中若函数的次数可以事先确定，可使用 （） 循环；若要求先判断循环的条件，可使用（） 循环或 （） 循环。答案：For Next Do While | Until条件式 Loop D

11、oLoop While | U ntil 条件式15以下语句的输出结果是（）。 a%=3.14159 Print a%答案：3（因为变量a 被声明为整型变量%表示整型变量）三、阅读下列程序，写出程序的运行结果1 Private Sub Form_Click（）Static Sum As IntegerFor I = 1 To 100Sum = Sum + INext IPrint Sum End Sub答案：编程人员只需针对某个事件编写程序代码称为可视化编程。应用程序是在响应不同的事件时执行不同的代码片段称为事件驱动。2 Private Sub Form_Click()A = 10: b =

12、15: c = 20: d = 25Print A; Spc(5); b; Spc(7); cPrint A; Spc(8); b; Space$(5); cPrint c; Spc(3); "+" Spc(3); d;Print Spc(3); "=" Spc(3); c + d End Sub答案：窗体和控件是创建应用程序所使用的对象，方法是对象的动作，事件是对象的响应，属性可看作对象的性质。3 Private Sub Form_Click()For i% = 1 To 3For j% = 1 To iPrint LTrim(Str(i%) + &q

13、uot;*" + LTrim(Str(j%) + "=" i% * j%;Next j%Print Next i%End Sub答案：传统编程方式是结构化程序设计，它从系统的功能入手，按照工程的标准和严格的规范将系统分解为若干功能模块，系统是实现功能模块的函数和过程的集合。事件驱动编程则是从所处理的数据入手，以数据为中心而不是以服务(功能)为中心来描述系统。它把编程问题视为一个数据集合，数据相对于功能而言，具有更强的稳定性。事件驱动编程与传统编程方式相比，最大的区别在于：前者首先关系关心的是所要处理的数据，而后者首先关心的是功能。4 Private Sub Com

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

15、 Sub答案：答：事件驱动的工作过程为：1. 启动应用程序，装载和显示窗体。2. 窗体或窗体上的控件等待事件的发生。3. 当某个事件发生后，执行其对应的事件过程代码。4. 重复执行第2和第3步，直到遇到End语句或单击结束按钮停止程序的运行。四、程序设计题1 购物优惠程序。某商场为了加速促成商品流通，采用购物打折的优惠办法，每位顾客一次购物（ 1）在 100 元以上者，按九五折优惠；（2）在 200 元以上者，按九折优惠；（3） 300元以上者，按八折优惠；（4） 500元以上者，按七折优惠。在窗体上添加两个文本框和一个命令按钮，要求在 Textl中输入购物商品的总金额，单击命令按钮，在 Te

16、xt2输出优惠后的价格。程序运行结果如图 4所示。图答案：Private Sub Command1_Click() x = Val(Textl.Text) Select Case x Case Is >= 500Text2.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 SelectEnd Sub2 .输出1

17、00200之间不能被3整除的数，要求用 Do语句的一种形式实现，程序运行结果如 图5所示。图答案：程序代码： Private Sub Form_Load() x = 101 Textl.Text = "100" Do While x <= 200 If x Mod 3 <> 0 Then Textl.Text = Textl.Text + Chr(13) + Chr(10) + Trim(Str(x)End If x = x + 1 Loop End Sub3 .编写程序，打印如下的乘积表:I - Fornil二1回汉常351545聃您1301648961

18、441921751峻1S318E410815221a6图答案：程序代码： Private Sub Form_Click() Print "*", "3", "6", "9", "12" Print "15", "45", "90", "125", "180" Print "16", "48", "96", "144",

19、 "192" Print "17", "51", "102", "153", "204" Print "18", "54", "108", "152", "216" End Sub4 .设计一个计算程序。该程序用户界面如图7所示。要求程序运行后，用户选中单选按钮，则程序作10和2的相应计算，并把计算结果在文本框中显示出来。如用户选中加法单选按钮，则程序作10和2的相加，计算结果

20、12在文本框中显示出来。按结束，则退出。FormlJclFrameL在建C除法加法浦法霎字10和致字2运 算结果结束答案：程序代码： Private Sub Form_Load() Option1(0).Value = False Option1(1).Value=False Option1(2).Value = False Option1(3).Value = False End Sub Private SubOption1_Click(Index As Integer) Select Case Index Case 0 Textl.Text = 10 * 2 Case1 Text1.Tex

21、t =10 / 2 Case 2 Text1.Text = 10 + 2 Case 3 Text1.Text = 10 - 2 End SelectEnd Sub Private Sub Command1_Click() End End Sub5 .编写输入一个06数字，显示汉字对照输出星期的Function过程。程序运行结果如图 8所示。图答案：程序代码：Dim x As Integer Private Function Mystring(x As Integer) As StringSelect Case x Case 1 Mystring = " 星期一 " + Ch

22、r(13) + "Monday" Case 2 Mystring = "星期二 " + Chr(13) + "Tuesday" Case 3 Mystring = "星期三 " + Chr(13) + "Wednesday" Case4 Mystring = " 星期四 " + Chr(13) + "Thursday" Case 5 Mystring = "星期五 " + Chr(13)+ "Friday" Case 6 Mystring = " 星期六 " + Chr(13) + "Saturday" Case 7 Mystring = "星期日 " + Chr(13) + "Sunday" End Select L