1、VisualBasic程序设计作业题解形成性考核作业二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 CAs
2、c DChr 答案:B5关于语句行,下列说法正确的是( )。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表达式表示正确的是( )。 A0x80 B0=x
4、80 C0=x And x80 D0=x Or x80 答案:C 12在设计菜单时,如果要在菜单中加入一个菜单分隔条,则菜单分隔条的标题必须设置为( )。 A加号(+) B减号(-) C星号(*) D感叹号(!) 答案:B 13如果要在程序中显示一个弹出式菜单,那么要调用Visual Basic中提供的方法是( )。APrint BMove CRefresh DPopupMenu 答案:D 14下列可以用来存储图像供其它对象使用的控件是( )。AToolBar BStatursBar CImageList DTreeView 答案:C 15当单击工具栏上的按钮时,会触发的事件是( )。 ABu
5、ttonClick BChange CLoad DKeyPess 答案:A 16要利用公共对话框控件来显示打开文件对话框,需要调用控件的( )方法。 AShowPrint BShowOpen CLoad DShowColor 答案:B 17对于窗体级变量,下列说法中错误的是( )。 A所在窗体的各子程序都可以访问 B其它窗体的子程序不能访问 C所在窗体的各子程序都不能访问用Private定义的窗体级变量 D一定要在所在窗体的通用区内定义 答案:C 18从一个字符串中的第3个字符开始,获取5个字符,应使用( )。 ALen函数 BMid函数 CLeft数 DRight函数 答案:B 19用下面的
6、语句所定义的数组的元素个数是( )。 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) 保存(Save) 颜色(Co
7、lor) 字体(Font) 打印(Print) 3组合框具有 ( ) 和 ( ) 两种控件的基本功能。 答案:文本框 .列表框 4要使数组的默认下标从“1“开始,则应在窗体或标准模块代码的声明部分使用语句 ( ) 。 答案:4 Dim 数组名(1 To 上界) 5调用Sub过程时,使用 ( ) 语句,该语句用于把程序控制传送到一个Visual Basic的Sub过程。 答案:过程名 参数1,参数2, 6若已建立了Form1和Form2两个窗体,默认启动窗体为Form1。通过 ( ) 菜单 ( ) 命令的 ( ) 选项卡,可将启动窗体设置为Form2。在程序中若要显示Form1窗体,则执行 (
8、) 语句。 答案:“工程” “工程属性” “工程属性” Form1.Show 7列表框中项目的序号是从 ( ) 开始的。 。 答案:0 8Sub过程与Function过程最根本的区别是 ( ) 。 答案:不会用过程名返回一个值 9VB的代码存储在模块中,在VB中提供了三种类型的模块: ( ) 、( ) 和 ( ) 。 答案:窗体模块 标准模块 类模块 10使用Hide方法会隐藏被调用的窗体,但在调用Hide方法之后不会把窗体( ) ;被调用的窗体中的属性等已处于 ( ) 。 答案:移出内存 无效的状态 11将下列函数式子写成Visual Basic表达式。(1):()(2) :( ) 。 (3
9、)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=C or a-c0 and b0 or a0 and b0 13设A=2,B=3,C=4,D=5。表达式 Not A=C Or 4*C=B2 And BA+C的值为( )。 答案:False 14在Visual Basic语言中有三种形式的循
10、环结构。其中若函数的次数可以事先确定,可使用 ( ) 循环;若要求先判断循环的条件,可使用 ( ) 循环或 ( ) 循环。 答案:For Next Do WhileUntil 条件式Loop DoLoop WhileUntil 条件式 15以下语句的输出结果是 ( ) 。 a%=3.14159 Print a% 答案:3(因为变量a被声明为整型变量%表示整型变量) 三、阅读下列程序,写出程序的运行结果1 Private Sub Form_Click()Static Sum As IntegerFor I = 1 To 100Sum = Sum + I Next IPrint Sum End S
11、ub 答案:编程人员只需针对某个事件编写程序代码称为可视化编程。应用程序是在响应不同的事件时执行不同的代码片段称为事件驱动。 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; Print Spc(3); =; Spc(3); c + d End Sub 答案:窗体和控件是创建应用程序所使用的对象,方法是对象的动作,事件是对象的响应,属性可看作对象的性
12、质。 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.启动应用程序,装载和显示窗体。 2.窗体或窗体上的控件等待事件的发生。 3.当某个事件发生后,执行其对应的事件过程代码。 4.重复执行第2和第3步,直到遇到End语句或单击结束按钮停止程序的运行。 5、 Private Sub Form_Click()
14、 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.重复执行第2和第3步,直到遇到End语句或单击结束按钮停止程序的运行。 四、程序设计题1购物优惠程序。某商场为了加速促成商品流通,采用购物打折的优惠办法,每位顾客一次购物(1)在100元以上者,按九五折优惠;(2)在200元以上者,按九折优惠;(3)300元以上
15、者,按八折优惠;(4)500元以上者,按七折优惠。在窗体上添加两个文本框和一个命令按钮,要求在Text1中输入购物商品的总金额,单击命令按钮,在Text2输出优惠后的价格。程序运行结果如图4所示。 图4答案: Private Sub Command1_Click() x = Val(Text1.Text) Select Case x Case 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 =
16、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.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编写程序,打印如下的
17、乘积表: 图6答案:程序代码: Private Sub Form_Click() Print *, 3, 6, 9, 12 Print 15, 45, 90, 125, 180 Print 16, 48, 96, 144, 192 Print 17, 51, 102, 153, 204 Print 18, 54, 108, 152, 216 End Sub 4设计一个计算程序。该程序用户界面如图7所示。要求程序运行后,用户选中单选按钮,则程序作10和2的相应计算,并把计算结果在文本框中显示出来。如用户选中加法单选按钮,则程序作10和2的相加,计算结果12在文本框中显示出来。按结束,则退出。 图
18、7答案:程序代码: Private Sub Form_Load() Option1(0).Value = False Option1(1).Value = False Option1(2).Value = False Option1(3).Value = False 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.Te
19、xt = 10 - 2 End Select End Sub Private Sub Command1_Click() End End Sub 5编写输入一个06数字,显示汉字对照输出星期的Function过程。程序运行结果如图8所示。 图8答案:程序代码: 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
20、 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 Select Label1.Caption = Mystring End Function Private Sub Text1_Change() x = Val(Text1.Tex
21、t) Mystring (x) End Sub 6编写一个程序,当鼠标移到Picture1控件上时,鼠标指针改变形状;当在Picture1控件上单击鼠标右键时,通过消息框显示“You Pressed button”,并再次改变鼠标指针形状。 答案:程序代码: Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then MsgBox You Pressed right button, 0, 提示 End If End Sub Pri
22、vate Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Picture1.MousePointer = 5 End Sub 7列表框应用程序。要求从文本框再输入姓名,然后“按”添加“按钮,把姓名添加到列表框中;当选择列表框中某一项时,按“删除”按钮,从列表框中删除;当选择列表框中某一项时,按“修改“按钮,把列表框中选择的项送到文本框且“修改“按钮变为“修改确认”。在文本框的内容修改好后,按“修改确认”按钮,再把文本框中修改后的信息送到列表框且“修改确认”按钮变为“修改”。程序运行结果如图9所示。 图9
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1