窗体东师2020年春季-《VB-程序设计(高起专)》离线考核---不是原文件

离线文件  时间:2021-03-14  阅读:()

离线考核

《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

菠萝云:带宽广州移动大带宽云广州云:广州移动8折优惠,月付39元

菠萝云国人商家,今天分享一下菠萝云的广州移动机房的套餐,广州移动机房分为NAT套餐和VDS套餐,NAT就是只给端口,共享IP,VDS有自己的独立IP,可做站,商家给的带宽起步为200M,最高给到800M,目前有一个8折的优惠,另外VDS有一个下单立减100元的活动,有需要的朋友可以看看。菠萝云优惠套餐:广州移动NAT套餐,开放100个TCP+UDP固定端口,共享IP,8折优惠码:gzydnat-8...

ZJI:520元/月香港服务器-2*E5-2630L/32GB/480G SSD/30M带宽/2IP

ZJI发布了一款7月份特别促销独立服务器:香港邦联四型,提供65折优惠码,限量30台(每用户限购1台),优惠后每月520元起。ZJI是原来Wordpress圈知名主机商家:维翔主机,成立于2011年,2018年9月启用新域名ZJI,提供中国香港、台湾、日本、美国独立服务器(自营/数据中心直营)租用及VDS、虚拟主机空间、域名注册等业务。下面列出这款服务器的配置信息。香港邦联四型CPU:2*E5-2...

HostKvm 黑色星期五香港服务器终身六折 其余机房八折

HostKvm商家我们也不用多介绍,这个服务商来自国内某商家,旗下也有多个品牌的,每次看到推送信息都是几个服务商品牌一起推送的。当然商家还是比较稳定的,商家品牌比较多,这也是国内商家一贯的做法,这样广撒网。这次看到黑五优惠活动发布了,针对其主打的香港云服务器提供终身6折的优惠,其余机房服务器依然是8折,另还有充值50美元赠送5美元的优惠活动,有需要的可以看看。HostKvm是一个创建于2013年的...

离线文件为你推荐
京沪高铁上市首秀我能买京沪高铁股票吗嘉兴商标注册怎么查商标注册日期www.20ren.com有什么好看的电影吗?来几个…xyq.163.cbg.com『梦幻西游』那藏宝阁怎么登录?钟神发战旗TV ID:新年快乐丶未央不见是哪个主播百度关键词分析百度竞价关键词分析需要从哪些数据入手?www.522av.com在白虎网站bhwz.com看电影要安装什么播放器?789se.comhttp://gv789.com/index.php这个网站可信吗?是真的还是假的!www.zjs.com.cn请问宅急送客服电话号码是多少?m.kan84.net经常使用http://www.feikan.cc看电影的进来帮我下啊
国外vps vps代理 免费申请域名和空间 美国主机代购 空间打开慢 搜狗抢票助手 数字域名 合租空间 idc资讯 可外链网盘 tna官网 备案空间 网站加速软件 徐州电信 云服务是什么意思 双11促销 葫芦机 蓝队云 restart 防盗链 更多