|
离线考核
" j4 w' o, @7 H$ |+ M8 z# X《VB程序设计》
5 S. f8 a! v, G7 D; l3 Z$ O5 l# u" o, D4 q5 B# Q
更多资料下载:谋学网(www.mouxue.com)100分
' U$ s% u6 L) p9 }5 z. |3 ^0 l3 _一、填空题(每空2分,共20分。)8 H7 ^3 L3 ^! V# C1 D
1.VB 有 3 种工作模式,即_____________________ 模式、运行模式和中断模式。
( M3 _ n+ V3 X _2. 下列程序段的执行结果为_____________________ 。
0 G2 t/ I" f2 JDim x(3,5)
! p+ a( d, n( |* {4 AFor i=1 to 3
) t& x$ y& h2 B& h7 MFor j=1 to 5
0 p5 M2 G5 s5 _1 G. O0 Hx(i,j)=i+j 6 ]8 I" _+ K" [) m) N0 r
Next j 5 j) Q$ X: N5 M8 A7 s
Next i 3 ~2 O. k; T3 T/ G! Q$ L
Print x(3,4)9 i& D f# M; `8 |
3.以下循环的执行次数是_____________________ 。 " Z! k2 H+ q, Z: J4 N
K = 0 ( T' L) o+ F* [( Q( n
Do While K<=10
7 ^$ \2 o( i7 _, h: ZK=K+1
" ?. ]( _) R& v) x3 h( ILoop
9 R8 G& S! r* d! w+ ^4.程序中要求弹出"保存文件"的对话框,如果用通用对话框 dlgSave 来完成,其语句为_____________________ 。
4 [$ x: L# F7 U5 }! Z5.在窗体上画一个列表框 List1 和一个文本框 Text1,然后编写如下两个事件过程:
$ B3 R/ \( E* L: f, n/ SPrivate Sub Form_Load () 3 G- e: K& E2 a+ w
List1.AddItem "办公室"
4 h8 k8 N& u0 K: ]List1.AddItem "政工部"
u8 |1 ?$ p# k& K4 V$ rList1.AddItem "财务科"
1 w3 h, k8 n* F; M( v* \8 ~, bList1.AddItem "学生处"
4 w' S0 p% e1 d2 d8 N7 j' Aa = list1.listcount
@; u+ p6 p% w' qList1.listindex=1
* g" p: q' b, JText1.Text= List1.list(list1.listindex) - Q8 g+ a0 X5 {1 x$ T) R
End Sub 7 ?9 M( j. b+ u- [/ R" z- }
程序运行后,a=______________ , Text1.text=__________________。% E D# d( Y( f7 `# f: A
6.在过程定义中用_________________ 关键字,可以实现形参按值传递。- W7 N) {- U4 n9 C0 Z! u b% l# b/ p; O
7.VB 工程文件的扩展名为____________ ,标准模块文件的扩展名为___________ ,窗体文件的扩展名为_____________ 。 , [/ D' @# S* W
; E2 O b3 Y5 l0 c: n+ u
二、资料来源:谋学网(www.mouxue.com)(更多资料下载:谋学网(www.mouxue.com)2分,共20分。) " q9 u+ J* s, t& B( n
1 2 3 4 5 6 7 8 9 10
: s- q3 @6 M: ?1 o5 I$ [ p+ Y4 I8 f0 q# p
7 [6 Z. A1 }2 U b
( )1. 若要禁止窗体被移动,则可设置窗体的 Move 属性为 False 来实现。
; _9 g5 [( q. {' U8 c* H( )2. 表示 x 是 5 的倍数或是 9 的倍数的逻辑表达式为:x Mod 5=0 OR x Mod 9=0。; k4 B a$ m5 c
( )3. 执行 Print "A123"+123 语句,系统会给出出错提示。: E6 m0 n" u; X
( )4. 在 Visual Basic 中,Integer 是合法的变量名。
- k2 M4 N9 Y. [8 g, \2 [& D( )5. 已知 A$="87654321",则表达式 Val(Left$(A$,4)+Mid$(A$,4,2))的值是:876554。
9 P: O( y- P8 I( )6. Public 可以用来定义变量,但必须出现在通用声明段,而不能出现在过程中。& c, Q1 Q6 v6 A, ~2 |( a+ Q* \4 N7 C
( )7. X=28,则表达式(X Mod 10)*10+X/10 的结果为 82。
$ F, |8 `( M, `5 K! r! b2 d6 z( )8. 在 VB 中具有 Print 方法的对象只有窗体对象。 : R+ I1 V) d+ J+ w# R- G2 K
( )9. MsgBox 函数返回的值是数值型。
, i) f8 e& L$ v. r( v' o( )10.Date( )+4 的功能是推算当前系统日期加上 4 天后的日期。
$ }. ?% N$ H$ c- R! A1 B# C三、编程题(更多资料下载:谋学网(www.mouxue.com)30分,共60分。)
# D' `" P( U) m+ M5 w8 D" B1、在窗体上有一个名为“统计”的按钮(cmdStatic),单击按钮则产生10个小于100(不含100) 的随机正整数并在窗体上逐行打印,并统计其中5的倍数所占比例,然后在窗体上打印出来。写出包含正确过程名的代码。
5 b* l9 Q8 T, _2 [ x1 d2、设窗体上有标签Label1和计时器Timer1两个控件,编写相应的事件过程,要求运行程序时,用计时器实现每隔2秒标签中字体的大小放大到原来的1.5倍,如果字体大小超过100,则恢复初始大小,Label1中文字初始字体为宋体,大小为10,显示文字为“测试文字”。
+ O5 \. I/ p# W要求以上所有功能均通过代码实现(包括属性设置),试写出必要的过程代码。
( |+ p$ G: H4 l0 `# ~4 z. _5 ]$ C6 k1 u6 _" F j; l# ]/ X A/ z2 o
|
|