可做奥鹏院校所有作业，毕业论文，咨询请添加QQ：3230981406      微信：aopopenfd777

 离线考核

《VB程序设计》 

满分100分

一、填空题（每空2分，共20分。）

1．VB 有 3 种工作模式,即_____________________ 模式、运行模式和中断模式。

2. 下列程序段的执行结果为_____________________ 。 

Dim  x(3,5) 

For  i=1  to  3 

For  j=1  to  5 

x(i,j)=i+j 

Next  j 

Next  i 

Print  x(3,4)

3.以下循环的执行次数是_____________________ 。 

K  =  0 

Do    While    K<=10

K=K+1

Loop

4.程序中要求弹出"保存文件"的对话框，如果用通用对话框 dlgSave 来完成，其语句为_____________________ 。

5.在窗体上画一个列表框 List1 和一个文本框 Text1，然后编写如下两个事件过程： 

Private  Sub  Form_Load  () 

List1.AddItem    "办公室" 

List1.AddItem    "政工部" 

List1.AddItem    "财务科" 

List1.AddItem    "学生处" 

a  =  list1.listcount 

List1.listindex=1 

Text1.Text=  List1.list(list1.listindex) 

End  Sub 

程序运行后，a=______________ ，  Text1.text=__________________。

6.在过程定义中用_________________ 关键字，可以实现形参按值传递。

7.VB 工程文件的扩展名为____________ ,标准模块文件的扩展名为___________ ,窗体文件的扩展名为_____________ 。 

二、判断题（每小题2分，共20分。) 

1 2 3 4 5 6 7 8 9 10

(      )1. 若要禁止窗体被移动，则可设置窗体的 Move 属性为 False 来实现。 

(      )2. 表示 x 是 5 的倍数或是 9 的倍数的逻辑表达式为:x  Mod  5=0  OR  x  Mod  9=0。

(      )3. 执行  Print  "A123"+123  语句，系统会给出出错提示。

(      )4. 在 Visual Basic 中，Integer 是合法的变量名。 

(      )5. 已知 A$="87654321"，则表达式 Val(Left$(A$，4)+Mid$(A$,4,2))的值是：876554。

(      )6. Public 可以用来定义变量，但必须出现在通用声明段，而不能出现在过程中。

(      )7. X=28，则表达式（X  Mod  10)*10+X/10  的结果为 82。 

(      )8. 在 VB 中具有 Print 方法的对象只有窗体对象。 

(      )9. MsgBox 函数返回的值是数值型。

(      )10.Date( )+4 的功能是推算当前系统日期加上 4 天后的日期。

三、编程题(每小题30分，共60分。)

1、在窗体上有一个名为“统计”的按钮（cmdStatic），单击按钮则产生10个小于100(不含100) 的随机正整数并在窗体上逐行打印，并统计其中5的倍数所占比例，然后在窗体上打印出来。写出包含正确过程名的代码。

2、设窗体上有标签Label1和计时器Timer1两个控件，编写相应的事件过程，要求运行程序时，用计时器实现每隔2秒标签中字体的大小放大到原来的1.5倍，如果字体大小超过100，则恢复初始大小，Label1中文字初始字体为宋体，大小为10，显示文字为“测试文字”。

要求以上所有功能均通过代码实现（包括属性设置），试写出必要的过程代码。