Visual Basic程序设计作业4

作业2 一、选择题

1.按照变量的作用域可将变量划分为( B )。 2. 可获得字符的ASCII码的函数是( C )。

3、要退出Do….Loop循环,可使用的语句的( D )语句。 4. 把数值型转换为字符串型需要使用的函数是(B )。 5.关于语句行,下列说法正确的是( B )。 6.表达式6+10 Mod 4*2+1的值是( A ). 7.以下可以作为Visual Basic 变量名的是(B). 8.表达式Abs(-5)+Len(“ABCDE”)的值为(C).

9.在代码编辑器中,如果一条语句太长,无法在一行内写下(不包括注释),要折行书写,可以在行末使用续行字符(A),表示下一行是当前行的继续. 10.Sub过程与Function过程最根本的区别是(D).

11."X是小于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.通用对话框控件可显示的常用对话框有__打开_、_保存_、__颜色_、__字体_、__打印_。

0 G) c1 Z2 U8 `( {9 M* r/ x# @) N$ X2 @& z( L2 F; Y6 D8 l) {4 c3 g! X7 J7 |9 f' t J! `; h# 5 k# B6 l8 L8 Z# `9 D, ]; y6 e- I7 3 x$ }* u1 i7 G8 y7 S& |\, e) v; y0 F( }- F$ u: g* M' ?) |7 {0 J% j\- M1 Y7 V/ B. [% J0 i8 J, e! F6 ]3 J+ [+ m2 I F3.组合框具有__文本框_和__列表框_两种控件的基本功能。 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.将下列数学式子写成VisualBasic表达式。 ⑴ 答:2*cos(a)*sin(a)/(2*a) ⑵答:sqr(s*(s-a)*(s-b)*(s-c))

' k# C; [( u7 z5 P& {1 \\2 Q$ d\1 i. T' k8 _$ `8 [6 S8 J& h+ K- M8 r- [6 Y- {! _3 F\ ⑶sin45°:sin(45*2*3.1415/360)_

12.将下列数学式子各条件写成VisualBasic逻辑表达式。 ⑴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 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= 2 2*2= 4

3*1= 3 3*2= 6 3*3= 9

4、Private Sub Command1_Click( ) Dim a,b As Integer A=3.4 B=3.4

5 o6 T1 s8 ]- D' O: R( R: K: ]5 ~& e9 K% t+ H: c! i5 _; / O: w4 B0 O/ L; L% o; a. \\1 O) ; e* ?2 ]7 ~, H9 \\- a8 E6 n, R% z/ [ X+ X, a: ) A) {$ l. P4 i\ K( M3 W3 W) u+ T1 I8 a S5 H9 b/ n% ]. Z% W3 }9 R. L- ~* ~ _7 Z' C6 q, L- w$ h& l- `& R& u5 A4 P( I: K2 L: S) h* {4 l( t1 ]- Q+ e3 `2 j6 x7 r G/ n+ c- F2 Q6 A: P9 u$ A5 ^! m\1 [, k$ y5 T1 g p) {2 }7 u+ K8 R1 E- o7 V. w- n. L% E( `5 p) W$ W4 Y- _. ]5 {, }7 j$ L; F$ }1 b6 t8 g9 M- s$ ?1 F2 b( S& LText1.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

* *** ***** ******* *********

b4 q- R2 o) r4 d( A) ^) d9 S1 x& f/ K$ `! R8 i1 U Y6 Y4 Z c1 m! K+ M5 @8 s5 F& N' x3 R8 O2 }: V7 v- C1 _) i- b+ b7 Y3 H/ `) U$ o! x; G, w6 M5 l2 A( [: ]/ S3 Q( j; m- |& g v1 N3 X& r% ]% M; R r\8 T! U0 @5 e\* z$ E+ {; N3 h9 W5 P: O9 u2 w. y. o0 d, z6 _) y: t# d9 K' U$ x$ H' D3 r; K6 [( M% j* l( x7 t# N四、程序设计题

1、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、窗体的装入事件中加入如下代码: Dim a as integer A=100

Do while a <=200

If (a mod 3)<> 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

. ` t% l$ p9 P. I/ M7 X7 Q* q+ M6 @: c# X4 t! ^0 d0 a' S8 U# K d$ }' F. M+ w5 P2 Y4 W: K6 Y% N# g/ Q1 p% o$ m8 B) _) ^% F0 u1 ?, O, a$ J7& C# ?1 B9 ^+ S( l( Q. # I% ?3 J% I% B% y' Q- o2 T0 h6 `6 p! u4 h3 V* Q1 C/ Y% |# x) h; V9 W, l3 M$ c& ?: G; d/ c2 n) k, J! v' a) F5 E# e& `/ A# z8 r H% g9 z) w v' V6 k7 ` y, ?$ D* W) ~2 w9 @' f6 O

联系客服:779662525#qq.com(#替换为@) 苏ICP备20003344号-4