东师范2020年春季 《VB 程序设计（高起专）》离线考核资料参考

admin

离线考核
: ]% o1 V# L; T《VB程序设计》

更多资料下载：谋学网（www.mouxue.com）100分
一、填空题（每空2分，共20分。）
2 E! m+ V( i1 G1 q1 T- ]. ^, o( B3 z1．VB 有 3 种工作模式,即_____________________ 模式、运行模式和中断模式。
2. 下列程序段的执行结果为_____________________ 。
/ j, e' T) ?8 z! ~Dim  x(3,5)
For  i=1  to  3
' a; A# I0 U- ^' v9 vFor  j=1  to  5
/ G8 }/ m" h+ k. Y8 `% D2 ~- e　　x(i,j)=i+j
Next  j
+ v" J& u' V8 i. B( B" A6 WNext  i
  B! e7 S! c7 Q7 i; I  X. ~# {/ E" UPrint  x(3,4)
3.以下循环的执行次数是_____________________ 。
K  =  0
: w" T6 P5 q- {1 M  M2 bDo    While    K<=10
　　K=K+1
Loop
4.程序中要求弹出"保存文件"的对话框，如果用通用对话框 dlgSave 来完成，其语句为_____________________ 。
5.在窗体上画一个列表框 List1 和一个文本框 Text1，然后编写如下两个事件过程：
Private  Sub  Form_Load  ()
$ p5 C, @+ {. c4 q6 T  G, RList1.AddItem    "办公室"
' `2 ]. i0 j% c" p, w) q9 e- UList1.AddItem    "政工部"
List1.AddItem    "财务科"
List1.AddItem    "学生处"
6 Q! S( X  F% H. _a  =  list1.listcount
List1.listindex=1
6 K( ~$ W) d- }9 EText1.Text=  List1.list(list1.listindex)
+ i; _8 o; z  B$ F3 c+ a+ v% IEnd  Sub
/ A3 ]: j" V# p# n　程序运行后，a=______________ ，  Text1.text=__________________。
5 ?( }9 h, e4 M! f1 Q; Z6.在过程定义中用_________________ 关键字，可以实现形参按值传递。
7.VB 工程文件的扩展名为____________ ,标准模块文件的扩展名为___________ ,窗体文件的扩展名为_____________ 。

二、资料来源：谋学网（www.mouxue.com）（更多资料下载：谋学网（www.mouxue.com）2分，共20分。)
1
2 z* ?6 j, `9 P0 v+ ~2
4 I7 a; ^# `. @) F" G3
7 X, K# Z# I2 Z+ A; v4
5
6
& F$ N4 f3 X2 i- a9 J1 q7
* S  K9 }3 [1 s( c3 p; t8
9
10

5 h, ?. Z- z2 N& A6 D0 v/ K! }- w

1 @5 ~, b3 n/ a) o1 n


( [* h2 ?0 y6 G
4 I- _8 s/ ~2 H" X

. \% n' f  V5 w" y4 O  ?- E! m
, v( S* ~' p8 Y. p
  N4 W# c& p/ A7 \* f(      )1. 若要禁止窗体被移动，则可设置窗体的 Move 属性为 False 来实现。
, ^/ ]! B) ]1 z# ~+ X! b$ {(      )2. 表示 x 是 5 的倍数或是 9 的倍数的逻辑表达式为:x  Mod  5=0  OR  x  Mod  9=0。
(      )3. 执行  Print  "A123"+123  语句，系统会给出出错提示。
% Q1 C/ q' ?! x3 O2 U: h(      )4. 在 Visual Basic 中，Integer 是合法的变量名。
(      )5. 已知 A$="87654321"，则表达式 Val(Left$(A$，4)+Mid$(A$,4,2))的值是：876554。
2 A$ \" K/ S& s0 t2 B3 Y/ Z(      )6. Public 可以用来定义变量，但必须出现在通用声明段，而不能出现在过程中。
6 B  ]- H# z; @(      )7. X=28，则表达式（X  Mod  10)*10+X/10  的结果为 82。
2 {3 {3 d) P/ M! W* V1 w; Z. B$ X- m(      )8. 在 VB 中具有 Print 方法的对象只有窗体对象。
(      )9. MsgBox 函数返回的值是数值型。
(      )10.Date( )+4 的功能是推算当前系统日期加上 4 天后的日期。
% u$ J1 _% E  t" q- [三、编程题(更多资料下载：谋学网（www.mouxue.com）30分，共60分。)
, ?$ M( @& z0 H* C1、在窗体上有一个名为“统计”的按钮（cmdStatic），单击按钮则产生10个小于100(不含100) 的随机正整数并在窗体上逐行打印，并统计其中5的倍数所占比例，然后在窗体上打印出来。写出包含正确过程名的代码。
1 E# S' E# T" q8 w- q2、设窗体上有标签Label1和计时器Timer1两个控件，编写相应的事件过程，要求运行程序时，用计时器实现每隔2秒标签中字体的大小放大到原来的1.5倍，如果字体大小超过100，则恢复初始大小，Label1中文字初始字体为宋体，大小为10，显示文字为“测试文字”。
6 a3 t% E' f, s! e0 s要求以上所有功能均通过代码实现（包括属性设置），试写出必要的过程代码。

jayiuu56

谋学网不错

chao0248

谋学网值得信赖

dunk8wy43

OK，资料不错