VISUALBASIC程序设计形成性考核册作业答案二.pdf

VisualVisual BsdicBsdic 程序设计形成性考核册作业答案二程序设计形成性考核册作业答案二 一、选择题 1按照变量的作用域可将变量划分为（ B） 。 A、公有、私有、系统B、全局变量、模块级变量、过程变 量 C、动态、常数、静态D、Public、Private、Protected 2. 可获得字符的 ASCII 码的函数是（C） 。 、Val、Fix、Asc、Chr 3、要退出 Do.Loop 循环，可使用的语句的（D）语句。 A、ExitB、ExitForC、End DoD、Exit Do 4. 把数值型转换为字符串型需要使用的函数是（B） 。 A、ValB、StrC、AscD、Chr 5.关于语句行，下列说法正确的是（B） 。 一行只能写一条语句一条语句可以分多行书写 每行的首字符必须大写长度不能超过 255 个字符 表达式 6+10 Mod 4*2+1 的值是（A） 11CD.3 7.以下可以作为isual Basic 变量名的是（B） SINB.CO1C.COS(X)D.X(-1) 8.表达式bs(-5)+Len(“ABCDE”)的值为（C） 5ABCDE.5ABCDEC.10D.0 9.在代码编辑器中，如果一条语句太长，无法在一行内写下（不包括 注释） ，要折行书写，可以在行末使用续行字符（A） ，表示下一行是 当前行的继续 一个空格加一个下划字符（）一个下划字符（） 直接回车一个空格加一个字 符（） 10.Sub 过程与 Function 过程最根本的区别是（D） Sub 过程可以使用all 语句或直接使用过程名调用，而 Function 过程不可以 Function 过程可以有参数，Sub 过程不可以 两种过程参数的传递方式不同 Sub 过程的过程名不能返回值，而 Function 过程能够通过过程 名返回值 11.是小于 80 的非负数，用 VB 表达式表示正确的是（C）. A0X=C OR (a-c)=0 and b=0) or (aA+C 的值为_False_。 14在 Visual Basic 语言中有三种形式的循环结构。其中，若循环 的次数可以事先确定，可使用_Fornext_循环；若要求先判断循环 进行的条件，可使用_Do whileloop_循环或_ whileWend_循环。 15以下语句的输出结果是_3_。 a%=3.14159 Print a% 三、阅读下列程序，写出程序运行结果。 1、Private Sub Form_Click( ) Static Sum As Integer For I= 1 to 100 Sum=Sum+I Next I Print Sum End Sub 程序运行结果为：1+2+.+99+100=5050 2、private Sub Form_Click( ) A=10: b=15:c=20:d=25 Print A;Spc(5);b;Spc(7);c Print A;Spc(8);b;Space$(5);c Print c;Spc(3);”+”;Spc(3);c+d End Sub 10(5 个空格)15(7 个空格)20 10(8 个空格)15(5 个空格)20 20(三个空格)+(三个空格)45 3、Private Sub Form_click( ) For i% =1 to3 Forj% = 1 to i Print L Trim(Str(i%)+ “*”+L Trim(Str(j%)+ “=”;i% * j%; Next j% Print Next i% End Sub 1*1= 1 2*1= 22*2= 4 3*1= 33*2= 63*3= 9 4、Private Sub Command1_Click( ) Dim a,b As Integer A=3.4 B=3.4 Text1.Text=a Text2.Text=b End Sub Text1 显示 3 、4 Text2 显示 3 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、购物优惠程序。某商场为了加速促成商品流通，采用购物打折的 优惠办法，每位顾客一次购物（1）在 100 元以上者，按九五折优惠； （2）在 200 元以上者，按九折优惠； （3）300 元以上者，按八折优 惠； （4）500 元以上者按七折优惠。在窗体上添加两个文本框和一个 命令按钮，要求在 Text1 中输入购物商品总金额，单击命令按钮，在 Text2 中输入优惠后的价格。程序运行结果如图解所示。 If Val(text1)=500 then text2=Val(text1)*0.7 Else if Val(text1)=300 then text2=Val(text1)*0.85 Else if Val(text1)=200 then text2=val(text1)*0.9 Else if val(text1)=100 then text2=val(text1)*0.95 End if 2、输出 100200 之间不能被 3 整除的的数，要求用 Do 语句的一种形 式来实现，程序运行结果如图 5 所示。 窗体的装入事件中加入如下代码： Dim a as integer A=100 Do while a 0 then List1.additen str(a) End if A=a+1 loop 3、编写程序，打印如下的乘积表： Dim I ,j as integer Print”*”:space(5): For i=3 to 12 step 3 Print str(i);space(5); Next i Print For I = 15 to18 Print str(i);space(3); For j=3 to 12 step3 Print str(i*j);space(4); Next j Print Next j 4、设计一个计算程序。该程序用户界面如图 7 所示。要求程序运行 后，用户选中单击选按钮，则程序作 10 和 2 的相应计算，并把计算 结果在文本框中显示出来。如用户选中加法单选按钮，则程序作 10 和 2 的相加，计算结果 12 在文本框中显示出来。按结束，则退出。 乘法单选按钮的单击事件中添加如下代码： Text1=10*2 除法单选按钮中添加如下代码： Text1=10/2 加法单选按钮中添加如下代码： Text1=10+2 减法单选按钮中添加如下代码：text1=10-2 结束按钮中代码: end 或 unload me 5、 编写输入一个 06 数字， 显示汉字对照输出星期的 Function 过程。 程序运行结果如图 8 所示。 文本框的 change 事件中代码如下: Select case val(text1) Case 0 Label1.caption=”星期天”+chr(13)+”(Sunday)” Case 1 Label1.caption=”星期一”+chr(13)+”(monday)” Case2 Label1.caption=”星期二”+chr(13)+”(Tuesday)” Case 3 Label1.caption=”星期三”+chr(13)+”(wednesday)” Case 4 Label1.caption=”星期四”+chr(13)+”(thursday)” Case 5 Label1.caption=”星期五”+chr(13)+”(firday)” Case 6 Label1.caption=”星期六”+chr(13)+”(saturday)” End select 6、 编写一个程序， 当鼠标移到 Picturel 控件时， 鼠标指针改变形状； 当在Picturel 控件上单击鼠标右键时， 通过消息框显示 “You pressed right button” ，并再次改变鼠标指针的形状。 Picture1_mouseup If button=2 then I=1 Msgbox” you pressed right button” End if End sub 7、列表框应用程序。要求从文本框中输入姓名，然后按“添加”按 钮，把姓名添加到列表框中；当选择列表框中某一项时，按“删除” 按钮，从列表框中删除；当列表框中某一项时，按“修改”按钮，把 列表框中选取的项送往文本框且“修改