东师《VB程序设计》离线考核试题

离线考核VB程序设计 满分100分1、 填空题(每空2分，共20分)1.VB有3种工作模式,即_设计_ 模式、运行模式和中断模式。2.下列程序段的执行结果为 7 。Dim x(3, 5)For i=l to 3For j=1 to 5x(i, j)=i+jNext jNext iPrint x(3, 4) 3.以下循环的执行次数是11 。K=0Do While K<=10K=K+1Loop4.程序中要求弹出"保存文件”的对话框，如果用通用对话框dlgSave来完成，其语句为_dlgSave. Showsave.5.在窗体上画一个列表框Listl和一个文本框Text1，然后编写如下两个事件过程:Private Sub Form_ Load ()List1. AddItem “办公室”Listl. AddItem “政工部”Listl. AddI tem “财务科”List1. AddI tem “学生处”a = list1. listcountList1. list index=1Text1. Text= List1. list(list1. listindex)End Sub程序运行后，a=_4 Textl. text=政工部(或“政工部”)6.在过程定义中用 byVal 关键字，可以实现形参按值传递。7.VB 工程文件的扩展名为_ . VBP或VBP标准模块文件的扩展名为.BAS或BAS, 窗体文件的扩展名为 . FRM或FRN。二、判断题(每小题2分，共20分。)(F )1. 若要禁止窗体被移动，则可设置窗体的Move 属性为False 来实现。( T )2.表示x是5的倍数或是9的倍数的逻辑表达式为:x Mod 5=0 OR x Mod 9=0。( T )3. 执行Print "A123"+123 语句，系统会给出出错提示。( F )4.在Visual Basic 中，Integer 是合法的变量名。( T )5. 已知A$="87654321"， 则表达式Val (Left$(A$， 4) +Mid$ (A$, 4, 2)的值是: 876554.(T )6. Public 可以用来定义变量，但必须出现在通用声明段，而不能出现在过程中。.( F )7. X=28， 则表达式(X Mod 10)*10+X/10 的结果为82。( F )8.在VB中具有Print 方法的对象只有窗体对象。(T)9. MsgBox 函数返回的值是数值型。(T )10. Date( )+4的功能是推算当前系统日期加上4天后的日期。三、编程题(每小题30分，共60分。)1.在窗体上有一个名为“统计”的按钮(cndStatic)， 单击按钮则产生10个小于100(不含100) 的随机正整数并在窗体上逐行打印，并统计其中5的倍数所占比例，然后在窗体上打印出来。写出包含正确过程名的代码答：Private Sub cmdStatic_Click()RandomizeDim a(10)For j=1 To 10a(j) =Int(99 * Rnd) + 1)Ifa(j)Mod 5=0 Then k=k+1 Print a(j)Next jPrintPrint k / 10End Sub2、设窗体上有标签Labell和计时器Timerl两个控件，编写相应的事件过程，要求运行程序时，用计时器实现每隔2秒标签中字体的大小放大到原来的1.5倍，如果字体大小超过100，则恢复初始大小，Label1中文字初始字体为宋体，大小为10，显示文字为“测试文字”。要求以.上所有功能均通过代码实现( 包括属性设置)，试写出必要的过程代码。答:Private Sub Form_ load( )Labell. fontname=”宋体”Labell. fontsize=10labell. caption=”测试文字”Timerl. Interva1=2000Timer1. Enabled=TrueEnd SubPrivate Sub Timerl Timer( )If label1. fontsize<100 thenlabell. Fontsize=labell. fontsize*1. 5elselabell. fontsize=10endifEnd Sub