离线考核
《VB程序设计》
答领答案关注V信 weimingjiaxc
满分100分
一、填空题每空2分共20分。
1 VB有3种工作模式,即__________________模式、运行模式和中断模式。
2.下列程序段的执行结果为__________________。
Dim x(3,5)
For i=1 to 3
For j=1 to 5x(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.若要禁止窗体被移动则可设置窗体的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显示文字为“测试文字”。
要求以上所有功能均通过代码实现包括属性设置试写出必要的过程代码。
答领答案关注V信 weimingjiaxc
ZJI是成立于2011年原Wordpress圈知名主机商—维翔主机,2018年9月更名为ZJI,主要提供香港、日本、美国独立服务器(自营/数据中心直营)租用及VDS、虚拟主机空间、域名注册业务。本月商家针对香港阿里云线路独立服务器提供月付立减270-400元优惠码,优惠后香港独立服务器(阿里云专线)E3或者E5 CPU,SSD硬盘,最低每月仅480元起。阿里一型CPU:Intel E5-2630L...
修罗云怎么样?修罗云是一家国内老牌商家,修罗云商家以销售NAT机器起家,国内的中转机相当不错,给的带宽都非常高,此前推荐的也都是国内NAT VPS机器。今天,云服务器网(www.yuntue.com)小编主要介绍一下修罗云的香港云服务器,适合建站,香港沙田cn2云服务器,2核2G,5M带宽仅70元/月起,同时香港香港大带宽NAT VPS低至50元/月起,性价比不错,可以尝试一下!点击进入:修罗云官...
妮妮云的知名度应该也不用多介绍了,妮妮云旗下的云产品提供商,相比起他家其他的产品,云产品还是非常良心的,经常出了一些优惠活动,前段时间的八折活动推出了很多优质产品,近期商家秒杀活动又上线了,秒杀产品比较全面,除了ECS和轻量云,还有一些免费空间、增值代购、云数据库等,如果你是刚入行安稳做站的朋友,可以先入手一个119/元季付的ECS来起步,非常稳定。官网地址:www.niniyun.com活动专区...