Visual Basic程序设计作业4.docx
- 文档编号:6889934
- 上传时间:2023-01-12
- 格式:DOCX
- 页数:15
- 大小:34.31KB
Visual Basic程序设计作业4.docx
《Visual Basic程序设计作业4.docx》由会员分享,可在线阅读,更多相关《Visual Basic程序设计作业4.docx(15页珍藏版)》请在冰豆网上搜索。
VisualBasic程序设计作业4
作业2一、选择题
%T&z+~4E4Q&}(`(}1.按照变量的作用域可将变量划分为(B )。
*r4E3W)n T:
k$x8]0E2`9R!
N2g*h:
P2.可获得字符的ASCII码的函数是( C )。
0G)c1Z2U8`({
3、要退出Do….Loop循环,可使用的语句的( D )语句。
(X/N!
L:
W(j3a%D-R4.把数值型转换为字符串型需要使用的函数是(B )。
9M*r/x#@)N$X2@&z(L
6M-s"u9j,`(j!
R.B5.关于语句行,下列说法正确的是( B )。
8t-e%~8k"B'J;X/W/w"M,]'e;D(]!
[5]6.表达式6+10Mod4*2+1的值是( A ).
1U3D7z"|6E9e5y8`$c7.以下可以作为VisualBasic变量名的是(B).
9X(l7@-f e6U'C8.表达式Abs(-5)+Len(“ABCDE”)的值为(C).2F;Y6D8l){4c3g!
X7J7z
8{(g:
^)a%O-]:
l9.在代码编辑器中,如果一条语句太长,无法在一行内写下(不包括注释),要折行书写,可以在行末使用续行字符(A),表示下一行是当前行的继续.
7F(s-i3^0h*n%c"r1K"t8O9k%W'F9v)L9T;g#E5p10.Sub过程与Function过程最根本的区别是(D).
9R'h8K/y/c11."X是小于80的非负数",用VB表达式表示正确的是(C)..|9f't J!
`;h#z 12.在设计菜单时,如果要在菜单中加入一个菜单分隔条,则菜单分隔条的标题必须设置为(B)5k#B6l8L8Z#`9D,];y6e-I7
"G(t!
_$J9J(y;U13.如果要在程序中显示一个弹出式菜单,那么要调用VisualBasic中提供的方法是(D).
7\-W,u/}.t*v,e9I!
e&i"h4z;A9y-D(X*q5K0X14.下列可以用来存储图像供其他对象使用的控件是(C).
9o+r:
Q.a$d&`3m8|2?
8u9t15.当单击工具拦上的按扭时,会触发的事件是(A).3x$}*u1i7G8y7S&|
+y&i)K6R#b16.要利用公用对话框控件来显示”打开文件”对话框,需要调用控件的(B)方法."_'~:
d;J5H3V
j+C/J&}!
l$n6~17.对于窗体级变量,下列说法中错误的是(C).
'_9P8M(~&g7D5D6^ s5` z'p:
X N18.从一个字符串中的第3个字符开始,获取5个字符,应使用(B),e)v;y0F(}-F$u:
g
19.用下面的语句所定义的数组的元素的个数是(D).
/p%y;H(r!
i%Y:
!
m&s"p1z!
\20.有如下程序段:
6A5b0v3t0?
-O*]#R:
[*^'L+i#e*n+W'm2vStrl=”VisualBasic”*M'?
)|7{0J%j"_当该段程序被执行完时,变量strl的值为(B).
2Q2X/I(R C,L.Z5g%u)W2d8V二、填空题-M1Y7V/B.[%J0i8J,e!
F
1.菜单一般有_下拉式_和_弹出式__两种基本类型。
j6[5N8y7L2.通用对话框控件可显示的常用对话框有__打开_、_保存_、__颜色_、__字体_、__打印_。
6]3J+[+m2I F
3.组合框具有__文本框_和__列表框_两种控件的基本功能。
'k#C;[(u7z5P&{1\2Q$d"}
4.要使数组的默认下标从“1开始,则应在窗体或标准模块代码的声明部分使用语句__OptionBase1_。
/|)?
$d5q#h `!
J5.调用Sub过程时,使用__call__语句,语句用于把程序控制传送到一个VisualBasic的Sub过程。
;W0s*T*O,\6.若已建立了Form1和Form2两个窗体,默认启动窗体为Form1。
通过_工程_菜单__属性_命令的_通用_选项卡,可将启动窗体设置为Form2。
在程序中若要显示Form1窗体,则执行_Form1.show_语句。
1i.T'k8_$`8[6S
7.列表框中项目的序号是从_0_开始的。
/A+y*n8L$[0}5l8.Sub过程与Function过程最根本的区别是_Sub过程名无返回值,Function过程名有返回值。
8J&h+K-M8r
9.VB的代码存储在模块中。
在VB中提供了三种类型的模块:
_类模块_、_窗体模块__和_标准模块_。
4J8?
$c4U&P:
U#Z&k7K10.使用Hide方法会隐藏被调用的窗体,但是在调用Hide方法之后不会把窗体__卸载_,被调用的窗体中的属性等已处于_内存中_。
.i6m)a!
V"b)Q$p11.将下列数学式子写成VisualBasic表达式。
!
x0Q%N8F/z;X2e8M8r ⑴ 答:
2*cos(a)*sin(a)/(2*a)
3H7^7V!
z9h;Z ⑵答:
sqr(s*(s-a)*(s-b)*(s-c))-[6Y-{!
_3F"A,T
⑶sin45°:
sin(45*2*3.1415/360)_5o6T1s8]-D'O:
R(R:
K
12.将下列数学式子各条件写成VisualBasic逻辑表达式。
2f/U1T4S-q9s:
K;U)w ⑴1≤x<12:
1<=xandx<12:
]5~&e9K%t+H:
c!
i5_;t
⑵A+B≥C或a-c≤c:
(A+B)>=COR(a-c)<=c/O:
w4B0O/L;L%o;a
⑶a和b都为正整数或同为负数:
(a>=0andb>=0)or(a<=0andb<=0)
6K,X8U8b:
[13.设A=2,B=3,C=4,D=5。
表达式NotA<=COr4*B^2AndB<>A+C的值为_False_。
.\1O)k;14.在VisualBasic语言中有三种形式的循环结构。
其中,若循环的次数可以事先确定,可使用_For…next__循环;若要求先判断循环进行的条件,可使用_Dowhile…loop_循环或_while…Wend_循环。
$y)n.K b!
l.g/I/X9D;Z15.以下语句的输出结果是__3_。
/x3I9n,j3U-g;y.Pa%=3.141597G4N t/P;Y2P+j+X/^Printa%;e*?
2]7~,H9\-a
三、阅读下列程序,写出程序运行结果。
)J,r0a1S&t1、PrivateSubForm_Click()
2|0}/e-Y:
s0m+e$J/?
o/m&|$d StaticSumAsInteger8E6n,R%z/[ X+X,a:
k)A){
ForI=1to100$l.P4i"d5Z2K(M3W
Sum=Sum+I3W)u+T1I8a S5H
NextI9b/n%].Z%W3}9R.L
PrintSum
&Q,B4x.m0D7k,x7~EndSub-~*~ _7Z'C6q
程序运行结果为:
1+2+…….+99+100=5050,L-w$h&l-`&R&u5A
2、privateSubForm_Click()4P(I:
K2L:
S)h*{
A=10:
b=15:
c=20:
d=254l(t1]-Q+e3`2j6x7r G
PrintA;Spc(5);b;Spc(7);c
&Y%s&B1U3P/h2O"l.x PrintA;Spc(8);b;Space$(5);c/n+c-F2Q6A:
P9u$A
Printc;Spc(3);”+”;Spc(3);c+d
.b5q"t+U3E8a EndSub
;Q8|/[7?
6j1V#h7z*x10(5个空格)15(7个空格)20
(]7Y-f-e$]$V;i-c"x/t8h"|10(8个空格)15(5个空格)20
2n*R;C&E)^2c%K'F"F20(三个空格)+(三个空格)45
0v&f*C%n%@2Y!
t3、PrivateSubForm_click()
5r9T-T(o.k"z0o&M0L;e Fori%=1to35^!
m"m6o#H
Forj%=1toi
0K9z E$r(_*Z/` PrintLTrim(Str(i%))+“*”+LTrim(Str(j%))+“=”;i%*j%;
f"I%V"M)y3Q-T Nextj%
0Y;U/x3U2r8{)\&j1y6q Print
*g;Q8L.A4uNexti%
9_*y)i4J9C ~&D9YEndSub!
y1[,k$y5T1g p){2}
1*1=1
2m:
G4X0I*b1f!
K'n4q2*1=2 2*2=4
9T*I!
h+u1L3*1=3 3*2=6 3*3=97u+K8R1E-o7V.w
;z#D9M9o)Q;z*u4、PrivateSubCommand1_Click()
7S:
u8W5o-Q*K,P#^4X0F Dima,bAsInteger-n.L%E(`5p)W$W4Y-_
A=3.4.]5{,}7j$L;F
B=3.4$}1b6t8g9M-s$?
1F2b(S&L
Text1.Text=a b4q-R2o)r4d(A
Text2.Text=b)^)d9S1x&f/K$`!
R8i
EndSub
"Q3@0k%m {2G4H/],BText1显示3、41U Y6Y4Z c1m!
K+M5@8s
Text2显示35F&N'x3R8O2}
5、PrivateSubForm_Click():
V7v-C1_)i-b
ForI=1to5+b7Y3H/`)U$o!
x;G
PrintTab(11–I),w6M5l2A([:
]/S3Q(j
ForJ=1ToI*2–1
!
e#N+[-U!
W6A$V Print“*”;;m-|&g v1N3X&r
Next%]%M;R r"\+q2l"o
Nexti8T!
U0@5e"^9W#e
EndSub*z$E+{;N3h
*9W5P:
O9u2w.y.o
***
!
C"^.v1|7u2w *****
([6x-v6n!
G*Q3f6[9i *******
*j,U(K.W9n'W *********0d,z6_)y:
t#d9K'U$x$H'D
3r;K6[(M%j*l(x7t#N
四、程序设计题.` t%l$p9P.I/M
1、+i'm*x/W$IfVal(text1)>=500thentext2=Val(text1)*0.7
f:
l1w,g1f9[;J;f)YElseifVal(text1)>=300thentext2=Val(text1)*0.857X7Q*q+M6@
ElseifVal(text1)>=200thentext2=val(text1)*0.9:
c#X4t!
^0d0a'S8U#K
Elseifval(text1)>=100thentext2=val(text1)*0.95
5@$x;J.t%f3A:
\7A&l9z5mEndif d$}'F.M+w5P2Y4W
&d6| Z;o/z"f+I9y2、.C.x4X3O;E窗体的装入事件中加入如下代码:
9d#[*\$J0`;_4N4S/dDimaasinteger:
K6Y%N#g/Q
A=100
1w6c,V&g*O7cDowhilea<=200
$~2G(C4]4I6bIf(amod3)<>0then1p%o$m8B)_)^%F
List1.additenstr(a)0u;k1?
O,a$J7?
Endif
)E4~4h+\7FA=a+1
.^'D7U7X*w"x Z:
T*[,yloop&C#?
1B9^+S(l(Q.t
3、编写程序,打印如下的乘积表:
#I%?
3J%I%B%y'Q-o2T0h6k
&I$^:
g3v8i+y(d'B-oDimI,jasinteger"`6p!
u4h3V*Q1C/Y%|#x)h;V
Print”*”:
space(5):
9W,l3M$c&?
:
G;d
Fori=3to12step3/c2n)k,J!
v'a)F
Printstr(i);space(5);5E#e&`/A#z8r H
Nexti
1Q(T7S)Z:
^*m%q*~Print
8z k2W$W6h#_ForI=15to18%g9z)w v'V6k7` y
Printstr(i);space(3);
:
~3n1j*G$W;`9E9A,cForj=3to12step3,?
$D*W)~2w9@'f6O
Printstr(i*j);space(4);
.c%L0y7[:
e2u+K*kNextj+}8P"G7u:
p:
s.[5^
Print;^"l"g9g"s*^8K8s
Nextj4R8|([4b2?
"A2k(}
4、乘法单选按钮的单击事件中添加如下代码:
O8z;M$Z#x.P6\0dText1=10*28n1\,V'T;Q%i
除法单选按钮中添加如下代码:
1^4L-@:
b)e7C6KText1=10/2
3m:
_,F9r!
T)k7c/L6B2b-J加法单选按钮中添加如下代码:
&a6q0D.o-n3v%l6}8[#Y:
d
Text1=10+2
%N7F7D9\"C&x+d1r减法单选按钮中添加如下代码:
text1=10-2
$Y)Z+O'g0?
)?
0^结束按钮中代码:
end或unloadme7i0\+l)Z"O-{2h+X
5.%E7|.l3q,Y#v6X!
l'|'I4|3G.S*{*E"X1e,Z文本框的change事件中代码如下:
"}1f1`0u+u9b4g!
l(aSelectcaseval(text1)&X,B*g;W T1h
Case05V'U!
X%`'i+g8z:
xLabel1.caption=”星期天”+chr(13)+”(Sunday)”5}2S5d3h8y4L$~
Case15N9r _-A'h u0~+SLabel1.caption=”星期一”+chr(13)+”(monday)”
:
F0@7\6u7?
Case21w&n4h5?
4`&\8a$?
8q qLabel1.caption=”星期二”+chr(13)+”(Tuesday)”9I9x-\"r%{9U#D)m
Case3)v7}/@0n'd3L9jLabel1.caption=”星期三”+chr(13)+”(wednesday)”
"D0P/~+Y#y*MCase48`,@(F&|#j1fLabel1.caption=”星期四”+chr(13)+”(thursday)”!
N-R.y-w9|%S5~:
k8}0r7i)u
Case55v&Y7@&I,k"pLabel1.caption=”星期五”+chr(13)+”(firday)”'`6{7B0M:
~6p"[)s
Case6$q,E4p9f&_:
J&_Label1.caption=”星期六”+chr(13)+”(saturday)”!
y;f&t-d-Y'n)D4FEndselect
2M7L)J'O7g2}6.-n5V-p7S)J!
q)jPicture1_mouseup.V6?
}:
n3a&I+|-O
Ifbutton=2then4\7X;q9E"B,{%K/U
I=1
1I-p#C'A.m5x1x*iMsgbox”youpressedrightbutton”!
f O6F8R4e&K:
o
Endif-v%e,{#],|%k+n7F(V0v"q)q"K
Endsub
)]/U*q i6q7、']7C8添加按钮代码:
list1.additemtext1.text*E&Z"r1W3K,n2F5I'E#x
Text1.text=””9q9H2}-c#E ~-| p.V(?
删除:
iflist1.text<>””then)J0y5u2X:
Z,z+r&K.F)a
List1.removeitem=list1.listindex
;[.T9B'Z6f+z8Y"DEndif
!
L(f1a2}%];_(o5N1k:
X修改:
!
c:
_(A5K;d"c"KIfcommand3.caption=“修改”then
2I-b)c8r'M,T9a/g&q(BText1.text=list1.text
7q2u#j#d9X#r;W,w)F BCommand3.caption=”修改确认”#K,J0j3O Y-w;r
Else
8Q7@-k%S(z A&HIf command3.caption=”修改确认”then
%I.W x&C7[)\List1.list=list1.listindex>=text1.text+i:
v5Y'l4m+T5i"[
Command3.caption=”修改”
0I/k r;N8G9~Endif#l2Z,]2\'M#L6Z8o*h
Endif
作业3
'J-o7o.T%w%b6D9?
一、选择题
9J8}&x#_#I:
t8o1、VisibleBasic根据计算机访问文件的方式将文件分成三类,其中不包括(B) r4o&}/k(?
&n2、随机文件进行文件读取的单位是(B)(R1R(b,h:
E;o7o:
r3、为了使目录路径列表框Dir1的内容符合驱动器列表框Drive1的选择,应当(B)。
/O3h(F8D n+x.d*_4、为了使drive1驱动器列表框、dir1目录路径列表框和file1文件列表框能同步协调工作,需要在(B)9A1i%w;o `"_3e:
H(e5、下面关于顺序文件的描述正确的是(A)9q ?
.A$u*t&p'p2t$}.)U0].I/K,@/e#@%W6、KILL语句在VB语言中的功能是(C)。
+?
!
}%T*A)u&C7b'~#@&D$e%q%_%^:
q7、可用来改变坐标度量单位的是(D)'F0^/G1[#F6Y
@"{6O$t9R.f:
A1V#V8、以下的属性和方法中,可重定义坐标系的是(C),w.u:
T'X(d9N(v&S-i#b!
^*Z2g6{*F3\)L(Q5p/Y9、当用Line方法画直线后,当前坐标在(C)&k&J5R.u9c'K2L7B3H$S:
o,d5U7A7[5k10、Line(200,200)-Step(500,500)将在窗体(C)画一直线。
4X(E7G:
h1Y*S*V5G:
p2J#X11、设置对象的边框类型的属性是(B)。
)F!
[,|812、为了清除图片框Picture1中的图形,应采取的正确方法是(B)/U6W.~)U \;N$O&g9I4h5w;E&D*f13、绘制多种形状的图形,需要设置Shape控件的(A)属性。
$k!
]!
b'T4w0`9(@/@;B;I5e(["^1t14、绘制多种形状的直线,需要设置Line控件的(B)属性。
$B1v2X'm r%k9P*f15、如果准备读文件,打开顺序文件“text.dat”的正确语句是(C)%B2{4U6~:
M4\4
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- Visual Basic程序设计作业4 Basic 程序设计 作业