Visual Basic程序设计作业4

作业2 一、选择题1．按照变量的作用域可将变量划分为（B ）。

2. 可获得字符的ASCII码的函数是（C）。

3、要退出Do….Loop循环，可使用的语句的（D）语句。

4. 把数值型转换为字符串型需要使用的函数是（B）。

5.关于语句行，下列说法正确的是（B）。

６．表达式6+10 Mod 4*2+1的值是（A）．7.以下可以作为Ｖisual Basic 变量名的是（B）．8.表达式Ａbs(-5)+Len(“ABCDE”)的值为（C）．9.在代码编辑器中，如果一条语句太长，无法在一行内写下（不包括注释），要折行书写，可以在行末使用续行字符（A），表示下一行是当前行的继续．10.Sub过程与Function过程最根本的区别是（D）．11.＂Ｘ是小于80的非负数＂，用VB表达式表示正确的是（C）. 12.在设计菜单时,如果要在菜单中加入一个菜单分隔条,则菜单分隔条的标题必须设置为(B )13.如果要在程序中显示一个弹出式菜单,那么要调用Visual Basic中提供的方法是(D).14.下列可以用来存储图像供其他对象使用的控件是(C ).15.当单击工具拦上的按扭时,会触发的事件是(A ).16.要利用公用对话框控件来显示”打开文件”对话框,需要调用控件的(B )方法.17.对于窗体级变量,下列说法中错误的是(C ).18.从一个字符串中的第3个字符开始,获取5个字符,应使用(B)19.用下面的语句所定义的数组的元素的个数是(D ).20.有如下程序段:Strl=”Visual Basic”当该段程序被执行完时,变量strl的值为(B ).二、填空题1．菜单一般有_下拉式_和_弹出式__两种基本类型。

2．通用对话框控件可显示的常用对话框有__打开_、_保存_、__颜色_、__字体_、__打印_。

3．组合框具有__文本框_和__列表框_两种控件的基本功能。

4．要使数组的默认下标从“1开始，则应在窗体或标准模块代码的声明部分使用语句__Option Base 1_。

5．调用Sub过程时，使用__call__语句,语句用于把程序控制传送到一个Visual Basic的Sub 过程。

6．若已建立了Form1和Form2两个窗体，默认启动窗体为Form1。

通过_工程_菜单__属性_命令的_通用_选项卡，可将启动窗体设置为Form2。

在程序中若要显示Form1窗体，则执行_Form1.show_语句。

7．列表框中项目的序号是从_0_开始的。

8．Sub过程与Function过程最根本的区别是_Sub过程名无返回值，Function过程名有返回值。

9．VB的代码存储在模块中。

在VB中提供了三种类型的模块：_类模块_、_窗体模块__和_标准模块_。

10．使用Hide方法会隐藏被调用的窗体，但是在调用Hide方法之后不会把窗体__卸载_，被调用的窗体中的属性等已处于_内存中_。

11．将下列数学式子写成Visual Basic表达式。

⑴答：2*cos(a)*sin(a)/(2*a)⑵答：sqr(s*(s-a)*(s-b)*(s-c))⑶sin45°:sin(45*2*3.1415/360)_12.将下列数学式子各条件写成Visual Basic逻辑表达式。

⑴1≤x<12: 1<=x and x<12⑵A+B≥C或a-c≤c: (A+B)>=C OR (a-c)<=c⑶a和b都为正整数或同为负数: (a>=0 and b>=0) or (a<=0 and b<=0)13．设A=2，B=3，C=4，D=5。

表达式Not A<=C Or4*B^2 And B< >A+C的值为_False_。

14．在Visual Basic语言中有三种形式的循环结构。

其中，若循环的次数可以事先确定，可使用_For…next__循环；若要求先判断循环进行的条件，可使用_Do while…loop_循环或_ while…Wend_循环。

15．以下语句的输出结果是__3_。

a%=3.14159 Print a%三、阅读下列程序，写出程序运行结果。

1、Private Sub Form_Click( )Static Sum As IntegerFor I= 1 to 100Sum=Sum+INext IPrint SumEnd Sub程序运行结果为：1+2+…….+99+100=50502、private Sub Form_Click( )A=10: b=15:c=20:d=25Print A;Spc(5);b;Spc(7);cPrint A;Spc(8);b;Space$(5);cPrint c;Spc(3);”+”;Spc(3);c+dEnd Sub10(5个空格)15(7个空格)2010(8个空格)15(5个空格)2020(三个空格)+(三个空格)453、Private Sub Form_click( )For i% =1 to3Forj% = 1 to iPrint L Trim(Str(i%))+ “*”+L Trim(Str(j%))+ “=”;i% * j%;Next j%PrintNext i%End Sub1*1= 12*1= 2 2*2= 43*1= 3 3*2= 6 3*3= 94、Private Sub Command1_Click( )Dim a,b As IntegerA=3.4B=3.4Text1.Text=aText2.Text=bEnd SubText1显示3 、4Text2显示35、Private Sub Form_Click()For I =1 to 5Print Tab( 11 – I )For J =1 To I * 2 – 1Print “*”;NextNext iEnd Sub*************************四、程序设计题1、If Val(text1)>=500 then text2=V al(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 if2、窗体的装入事件中加入如下代码：Dim a as integerA=100Do while a <=200If (a mod 3)<> 0 thenList1.additen str(a)End ifA=a+1loop3、编写程序，打印如下的乘积表：Dim I ,j as integerPrint”*”:space(5):For i=3 to 12 step 3Print str(i);space(5);Next iPrintFor I = 15 to18Print str(i);space(3);For j=3 to 12 step3Print str(i*j);space(4);Next jPrintNext j4、乘法单选按钮的单击事件中添加如下代码：Text1=10*2除法单选按钮中添加如下代码：Text1=10/2加法单选按钮中添加如下代码：Text1=10+2减法单选按钮中添加如下代码：text1=10-2结束按钮中代码: end 或unload me5.文本框的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 3Label1.caption=”星期三”+chr(13)+”(wednesday)”Case 4Label1.caption=”星期四”+chr(13)+”(thursday)”Case 5Label1.caption=”星期五”+chr(13)+”(firday)”Case 6 Label1.caption=”星期六”+chr(13)+”(saturday)”End select 6.Picture1_mouseupIf button=2 thenI=1Msgbox” you pressed right button”End ifEnd sub7、添加按钮代码：list1.additem text1.textText1.text=””删除: if list1.text<>”” thenList1.removeitem =list1.listindexEnd if修改:If command3.caption=“修改” thenText1.text=list1.textCommand3.caption=”修改确认”ElseIf command3.caption=”修改确认” thenList1.list=list1.listindex>=text1.textCommand3.caption=”修改”End ifEnd if作业3一、选择题1、Visible Basic根据计算机访问文件的方式将文件分成三类，其中不包括（B）2、随机文件进行文件读取的单位是（B）3、为了使目录路径列表框Dir1的内容符合驱动器列表框Drive1的选择，应当（B）。

4、为了使drive1驱动器列表框、dir1目录路径列表框和file1文件列表框能同步协调工作，需要在（B）5、下面关于顺序文件的描述正确的是（A）6、KILL语句在VB语言中的功能是（C）。

7、可用来改变坐标度量单位的是（D）8、以下的属性和方法中，可重定义坐标系的是（C）9、当用Line方法画直线后，当前坐标在（C）10、Line (200, 200)-Step( 500, 500)将在窗体（C）画一直线。

11、设置对象的边框类型的属性是（B）。

12、为了清除图片框Picture1中的图形，应采取的正确方法是（B）13、绘制多种形状的图形，需要设置Shape控件的（A）属性。

14、绘制多种形状的直线，需要设置Line控件的（B）属性。

15、如果准备读文件，打开顺序文件“text.dat”的正确语句是（C） 16、如果准备向随机文件中写入数据，正确的语句是（C）17、下列“CommandDialog1”控件程序代码，CommandDialog1.Action=1，代表（B）18、FileFilter.Pattern=”*.bat” 程序代码执行后，会显示（A）。