|
东 北 大 学 继 续 教 育 学 院+ P6 F$ q; g- B4 O5 I2 d
可视化程序设计I 试 卷(作业考核 线下) A 卷(共 7 页)
- `/ a' m- A/ E* d6 S e- v总分 题号 一 二 三 四 五 六 七 八 九 十
" l( D! P6 D& Q- A* U9 O 得分 ; Y1 q5 a/ ]3 q) n$ M& D
注:请您单面打印,使用黑色或蓝色笔,手写完成作业。杜绝打印,抄袭作业。
: A) t% n/ p. c1 ?一.选择题(30分,每题2分)' ]! @; h( `' x; d2 W
1)以下能在窗体Form1的标题栏中显示“东北大学"的语句是
1 ]+ `( g F! r; B) K2 UA) Form1.Name="东北大学"
4 H. T) \2 n& j6 m0 ]" RB) Form1.Title="东北大学"
- `2 ?7 H5 N2 i3 t- ^' o: ~C) Form1.Caption="东北大学"6 B& `$ ?" L+ [, z J
D) Form1.Text="东北大学": H* O: ~6 ^; w# Q% A: b
2)在窗体上画一个名称为Command1的命令按钮,在事件过程中执行:, N* T3 |9 ^4 N: I. e
Move 500,500
( H# i2 l8 i& J$ d, ] 程序运行后,单击命令按钮,执行的操作为 U* @& A% l$ P: t
A) 命令按钮移动到距窗体左边界、上边界各500的位置! N/ x6 o# n- \
B) 窗体移动到距屏幕左边界、上边界各500的位置
$ D5 `9 b# z: B2 K, ^) `' p& A: z f8 LC) 命令按钮向左、上方向各移动500
4 q' J2 i- @+ k% [. j; ?D) 窗体向左、上方向各移动5008 e- i+ d! ]+ U% L1 E
3)在窗体上有一个名称为Text2的文本框。影响Text2的Tab顺序的属性是
: g% B: v7 Q7 oA) TabStop B)Enabled C) Visible D)TabIndex
O/ K6 w% r" J' @4)设a=”Visual Basic”,下面使b="Basic"的语句是, X& J3 `# e" x. }9 g* `
A) b=Left(a,8,12) B) b=Mid(a,8,5)
' a( Z& Z; r$ u+ HC) b=Rigth(a,5,5) D) b=Left(a,8,5)& H R8 `! ], {( t
5)以下关于MsgBox的叙述中,错误的是1 V7 s$ S! J0 n$ |8 y4 u0 ~5 t- `2 @
A) MsgBox函数返回一个整数
; `. W, ]+ i$ m$ E7 \ ~( lB) 通过MsgBox函数可以设置信息框中图标和按钮的类型
2 q* I4 e7 F0 _ R$ I) f6 T$ AC) MsgBox语句没有返回值% J- e# a3 e; S
D) MsgBox函数的第二个参数是一个整数,该参数只能确定对话框中显示的按钮数' A+ R% u8 Q2 Y% Z# G
6)在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
5 y% y8 J* T; O' q* e6 rPrivate Sub Command1_Click()
; d$ N! D5 Q8 N8 h* p3 A5 ]' w& GDim x As Integer/ _: T$ F2 u4 N# E! N
Cls p3 i6 [0 k6 P* C( m) f# w
x=2
, u6 J% T Q/ e- D& p" Qy=0
1 q. T9 w( h+ j2 g2 w! CFor i=1 To 2
6 D) B6 i( R6 T1 m: ?y=y+x
0 g2 W7 S# ?7 vx=x+24 u! M V. N% J" O6 n
Next 8 i& T8 z5 a$ z m9 P" G
Print y,x
+ l& N2 @# g3 `' WEnd Sub0 R$ ]6 ^4 x0 W
程序运行后,连续三次单击Command1按钮后,窗体上显示的是5 z- ?! X" z# [9 F
A) 4 2 B) 6 6 C) 12 30 D) 4 6/ v' b; \3 k6 ~# j
7)以下合法的Visual Basic标识符是& e: _; [! [* I8 i7 C! t+ I; z
A) wwend B) const C) 9abc D) a#x
! Q9 w) a0 k% M& i0 {8) 当一个复选框被选中时,它的Value属性的值是% G/ o# X* X, e5 S3 t" p, X
A) 3 B) 2 C) 1 D) 0
3 b. X8 I5 f d- s4 u# [$ _0 L9)执行如下两条语句,窗体上显示的是
* N2 P4 L8 l5 \; h5 F. Y" B( S( d1 wa=9.8596; F1 @3 I# Q0 g9 a
Print Format(a,"$00,00.00")
& l5 c# i. h9 ^& {# }A) 0,009.86 B) $9.86 C) $0,009.86 D) 9.86
& L4 g! b8 M# a( c: N10)在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:3 J; v+ n% ~# V$ X$ D
Private Sub Command1_Click()
9 j0 @; ^+ ~+ x$ Qx=InputBox("Input")
3 @- J/ x1 o. I" R8 L8 i" q0 JSelect Case x
! C6 P" ?; b0 o- F, GCase 1,37 l2 X" ]. u4 }9 K
Print "分支 1"! s9 ]( {+ ^: Z' K0 m0 B
Case Is >4! B+ ?6 Y. o4 G+ Y/ _( W
Print "分支 2"
/ H1 s2 b. A; `Case Else3 ^+ `; `4 t3 r
Print "Else 分支 "
: w! L! J. n- t4 B6 G# u, ZEnd Select
! N( u; K( s p) Q: u7 I i* KEnd Sub# ?4 Q; `8 D9 E! m: w: ^9 W& S
程序运行后,如果在输入对话框中输入2,则窗体上显示的是$ {! u6 @# l! T" z
A) 分支1 B) 分支2 C) Else分支 D) 程序出错, ^1 B! t& L2 O9 @, N0 ] m& ~
11)在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:2 W: J- ?7 f' `# n3 p
Private Sub Command1_Click()
+ Y" v& ]/ g) w. Y7 X8 A! \+ Pa$="VisualBasic"
* n! b, {" B( n7 k9 h$ N- APrint right(3,a$)
% r' _+ T7 c6 n( G: o6 CEnd Sub
5 Q2 O f1 ~% Y* t( `0 a程序运行后,单击命令按钮,在窗体上显示的内容是
8 I& B* ^! z# [# W# S9 _- }A) Vis B) sic C) ccc D) $$$
3 R' ]' T* t! C6 s12)设窗体上有一个文本框,名称为text1,程序运行后,要求该文本框只能显示信息,不能接受输入的信息,以下能实现该操作的语句是
% C. @# d3 y6 B) ^' t1 F' NA) Text1.Enabled=Flase B) Text1.MaxLength=0. N& s; m; s6 k/ O$ S0 S7 Z
C) Text1.Visible=Flase D) Text1.Width=0. R8 m( A! T% I1 I
13)设有如下程序段:
' c# K1 l* ]( W6 P. Z$ Ux=0
$ D" G3 b% e7 N1 Z5 oFor i=1 To 10 Step 3
! _( R8 |5 Y" C2 lx=x+i( M; [2 a# x2 K6 i5 |1 _
Next
$ O o. l: }) M5 N5 }2 Q运行以上程序后,x的值是
' K, m; u2 X% A1 D" {( @A) 20 B) 21 C) 22 D) 23* K0 ^9 Q2 B- c" c+ h
14)以下叙述中错误的是
. X2 J' L- h% \( t' k3 eA) 在KeyPress事件过程中不能识别键盘的按下与释放
3 [1 D: k! [" w. ^3 b" e- @B) 在KeyPress事件过程中不能识别回车键! Q$ P% H V h" {$ d) r
C) 在KeyDown和KeyUp事件过程中,将输入的"A"和"a"视作相同的字母
9 v* A ]+ k$ X7 a( SD) 在KeyDown和KeyUp事件过程中,从大键盘上输入的"1"和从右侧小键盘上输入的"1"被视作不同的字符
- W; s2 o5 v/ Y* _15)窗体上画一个名称为CommandDialog1的通用对话框,一个名称为Command1的命令按钮。然后编写如下事件过程:
/ j. }# P" D! g! m) Y' _Private Sub Command1_Click()
) s+ F- x9 X' Z+ `, UCommonDialog1.FileName =""3 X& P o4 U9 J* r5 b1 o7 Z* K& F
CommonDialog1.Filter="All file|*.*|(*.Doc)|*.Docx|(*.Txt)|*.Txt"
4 p/ s" b* A9 _# Q0 ]* YCommonDialog1.FilterIndex=2' \9 r. b# r# W o* @ D! r
CommonDialog1.DialogTitle="VBTest"- w' G% W4 @! _* i& i$ @ c! K
CommonDialog1.Action=1. h: P3 S7 ?% _& p; F
End Sub
. n0 `6 c" J' f: [& S: L3 Y对于这个程序,以下叙述中错误的是+ S8 S B2 I% C$ C4 A/ f
A) 该对话框被设置为“打开”对话框
; Q7 C; f6 u( f" r" b6 f. |' uB) 在该对话框中指定的默认文件名为空
( d3 p* I6 A" s/ C& QC) 该对话框的标题为VBTest
( Q5 \' G* m4 `3 a3 aD) 在该对话框中指定的默认文件类型为文本文件(*.Txt)
; g2 K+ F4 k5 Q# }8 ~2 H二、填空题(30分,每空2分)/ Q2 [$ \, s/ O
1) 结构化程序设计中把程序结构规定为( 1 )、( 2 )、( 3 )三种基本结构。8 a' k' T j3 y6 ^# a2 S; [0 z
2)在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后,Command1为禁用(灰色) 。当向文框中输入任何字符时,命令按钮Command1变为可用。请在 (4) 处填入适当的内容,将程序补充完整。
, F4 _: M( w+ X+ h' h9 wPrivate Sub Form_Load()
2 o$ s$ _) L- p n& F6 V, t# v# eCommand1.Enabled=False9 a' @- J4 A7 i% \
End Sub$ [% O- R r, i7 G+ ~: S; |7 q/ g1 a4 G
Private Sub Text1_( 4 )()2 T' \8 l' i: i5 i
Command1.Enabled=True ?0 Y; e2 J# ]
End Sub* ^4 D5 n8 F4 ^( t
3)在如下工具栏按钮事件处理函数中,空白处应当添加的语句为
2 o. L z X8 o: \! RPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
& U9 \4 s5 }) d* u( n! L0 r$ dSelect Case ( 5 )( j8 k7 a% k5 D) Q' D _$ E& p4 a
4) 在窗体上有一个文本框控件,名称为TxtTime:一个计时器控件,名称为Timerl,要求每一秒钟在文本框中显示一次当前的时间。程序为:% i! T) ]4 D8 s, Z. {
Private Sub Timer1_( 6 )0 z1 r! k9 D: l- f7 ]
TxtTime.text=Time
( H( y, G- E( m; e( eEnd Sub
& l9 _( t5 [, V% T请在(6)处补全程序
0 P$ X2 ?2 b4 r }7 ?5)设有如下程序段:- B( m- F+ T- M2 c8 ?' g3 W' b
a$="BeijingShanghai"
) N1 d8 N% O3 v) ]. ]1 o& ab$=Mid(a$,InStr(a$,"g")+1)8 F+ U4 I* o4 f/ `
执行上面的程序段后,变量b$的值为( 7 ) 。- Q1 Z: g7 u6 w# H1 j
6)以下程序的功能是:从键盘上输入若干个学生的考试分数,当输入负数时结束输入,然后输出其中的最高分数和最低分数。请在( 6) 和 (7) 处填入适当的内容,将程序补充完整。
4 A* K: |8 O6 ~# c; g+ n1 `Private Sub Form_Click()6 B2 g$ m4 O. a0 m! v4 C
Dim x As Single,amax As Single,amin As Single y2 ^5 P3 B1 Z6 d- ?2 E
x=InputBox(“Enter a score”), X: z o* c, _* {, e, Z
amax=x) S3 l+ H0 B: s& S
amin=x
0 j3 N. w' j2 c0 u& tDo While ( 8 )
- e: G0 R# k, C& [* ~If x>amax Then0 U" c$ m5 W! L; C! F' h
Amax=x
7 @3 d' g' L8 c, r- K8 {; fEnd If
& B/ B1 W/ L, EIf ( 9 )Then- |; {" d5 m5 R. H! A
Amin=x
2 a7 X% \! m6 x' R6 S" U% \2 |End If1 C9 t( {+ [1 w# |
x=InputBox(“Enter a score”)& Q# F- y; [+ E
Loop% R$ j) h( n* R* u+ n) x- {: S
Print”Max=”;amax,”Min=”;amin$ P3 N) ?6 o/ a/ z
End Sub
8 {) i6 X, q( R9 ]3 y# Q# D# E7)在窗体上画一个名称为“Command1”,标题为“计算”的命令按钮,再画7个标签,其中5个标签组成名称为Label1的控件数组;名称为Label2的标签用于显示计算结果,其Caption属性的初始值为空;标签Label3的标题为“计算结果”。运行程序时会自动生成5个随机数,分别显示在标签控件数组的各个标签中,如图所示。单击“计算”按钮,则将标签数组各元素的值累加,然后计算结果显示在Label2。请填空。8 F& N) X- _ l, [9 u% V- e
' p0 z# i7 k1 b" {8 o) t) w0 M
Private Sub Command1_Click()
$ t7 o7 I- @. _) m. w @Sum = 0: J$ A; j7 b: M8 }
For i = 0 To 4
* X/ m6 R0 F) e9 cSum = Sum + ( 10 ) 5 p7 Q" p" s9 L7 ^% X' L, d3 z
Next! O) S$ K i3 Y0 n, E
( 11 ) = Sum
! ]: k2 g- c9 }' H6 TEnd Sub. i" y8 J& e# P: R, ]
$ N) N8 z% E3 N: P) W# P( M
8)如下程序计算1~100之间的能被3整除或被5整除的数的和,请不全如下程序/ ?5 z* ~! j: y( a4 D) I1 M; K* i
Private Function sum() As Integer
. a8 `! d; j9 L9 b" a5 ts = ( 12 )
5 k: N( S* y3 y" {; n) w G For i = 1 To 100( t7 w+ R! |" T0 q# g
If ( 13 ) Then3 p: p* W& f8 Z* }' g# \5 c L
s = ( 14 )7 |" Y* M& k# \* G. l" n
End If
' R& K" T+ w% a3 G E; ]8 U5 L ! T5 W4 @1 W1 E( a' l0 _
Next
4 I- ]- `! G, d) J0 }6 a. a6 Ssum = ( 15 )
9 Z/ Z+ K( a( X1 @9 lEnd Function' e2 Z' J s) T( E$ m. {* t$ a; W
+ {2 ^% _1 c2 \2 c: U$ o* A5 @$ K
三、编程题(40分,资料可以附加页); D# }0 l1 s4 i. `1 a
1)(10分)编制程序实现从键盘读入一数字,求其平方根。如果此数为负数,请提示“负数没有平方根”,否则输出其平方根。
- F: T" G9 m% W" _4 P
; Q# Y# W0 r( T1 h( U2)(10分)输入10个同学的数学成绩,计算所有及格以上同学的平均分。' o2 A( C0 x% R4 E7 D
. W) u/ [8 x0 `% S, A3)(20分)设计一个form名称为form1,添加“打开文件”按钮cmdOpen,, “保存文件”按钮为cmdSave,文本框为txtSource。通过点击“打开文件”按钮读取文件”c:\abc.dat”的内容,并将内容显示到txtSource中;然后通过点击“保存文件”按钮将此文本框的内容保存到“c:\abc.c”中。要求使用open命令打开文件,在form1_load中初始化cmdOpen和cmdSave的标题属性。
, t$ a5 m2 c1 R+ k* n, Q! H0 y9 g2 d" j# x5 y
4 n8 M1 A6 {0 @! E: M1 H# n* o- q; ^8 p; \8 m2 R. k
4 r, H+ e7 P6 b$ l/ E
( g- R- A3 F# n: B+ [
; v, M" S* ^0 ]
% A. z2 p" x% \# O; J& ~, x
5 b6 \0 [) t, C) \4 s, f
* @' d! X' Q. ?) I
) D% Q* p `2 n7 N# }& D
8 e; n( u% _5 |
* C7 \+ C& l! { o1 n2 Y# ?6 |; ~+ D( N" z# q9 J
$ Q2 y+ I7 i2 ^. e: a) ?0 \/ J6 R8 t t/ U. M9 B5 l4 _
, O- q$ M- N. t. B
; b: \: y5 m' @) I# o( i2 b- c7 v1 j" L
4 I" ^$ X9 J/ ?& O8 B& G
; {1 o. w+ [8 ?% Z- T4 q7 a1 O* [: k9 B
+ S0 N3 K, W! ^8 k" _% l+ g
4 q; Y( M9 @2 X! [6 _; U& I2 E% w- u8 K4 p5 ~) d7 g0 S6 `
) M& K" U% a$ G8 L3 n; a7 f0 _
6 `" |) |9 B" l7 D9 `$ [
' Y! b3 Y3 }0 G3 @" ~
2 ]6 v0 s5 o7 Q* U( z* t
; i' C5 ^' s. l" B* C: H$ i, S* F0 ~. {+ U8 y
0 N* w0 g8 Q: {: r
" b" @6 a' c! Z1 v6 w$ \6 J
# @0 u E4 x4 Y1 Y2 I. O* W. R# p$ n3 V# c
9 K, i5 K' V" `( e0 t. z
( e8 v, d! Z( K) M0 J* x
7 p+ a( e: ~$ e$ Y8 B
0 O# y+ l5 g. z, g! \' V4 H
9 O; M( n( I" i; [7 K3 H
3 W, Z f- ^" B7 S4 }, x: o# f$ g& \7 N) H9 w8 w2 S
|
|