“最新“东北师范大学20春《VB程序设计》离线考核
-
资源ID:144410131
资源大小:15.83KB
全文页数:6页
- 资源格式: DOCX
下载积分:14.9金贝
快捷下载
账号登录下载
微信登录下载
微信扫一扫登录
1、金锄头文库是“C2C”交易模式,即卖家上传的文档直接由买家下载,本站只是中间服务平台,本站所有文档下载所得的收益全部归上传人(卖家)所有,作为网络服务商,若您的权利被侵害请及时联系右侧客服;
2、如你看到网页展示的文档有jinchutou.com水印,是因预览和防盗链等技术需要对部份页面进行转换压缩成图而已,我们并不对上传的文档进行任何编辑或修改,文档下载后都不会有jinchutou.com水印标识,下载后原文更清晰;
3、所有的PPT和DOC文档都被视为“模板”,允许上传人保留章节、目录结构的情况下删减部份的内容;下载前须认真查看,确认无误后再购买;
4、文档大部份都是可以预览的,金锄头文库作为内容存储提供商,无法对各卖家所售文档的真实性、完整性、准确性以及专业性等问题提供审核和保证,请慎重购买;
5、文档的总页数、文档格式和文档大小以系统显示为准(内容中显示的页数不一定正确),网站客服只以系统显示的页数、文件格式、文档大小作为仲裁依据;
6、如果您还有什么不清楚的或需要我们协助,可以点击右侧栏的客服。
|
下载须知 | 常见问题汇总
|
“最新“东北师范大学20春《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答题用自己文档