窗体东师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

2021年国内/国外便宜VPS主机/云服务器商家推荐整理

2021年各大云服务商竞争尤为激烈,因为云服务商家的竞争我们可以选择更加便宜的VPS或云服务器,这样成本更低,选择空间更大。但是,如果我们是建站用途或者是稳定项目的,不要太过于追求便宜VPS或便宜云服务器,更需要追求稳定和服务。不同的商家有不同的特点,而且任何商家和线路不可能一直稳定,我们需要做的就是定期观察和数据定期备份。下面,请跟云服务器网(yuntue.com)小编来看一下2021年国内/国...

欧路云:美国200G高防云-10元/月,香港云-15元/月,加拿大480G高防云-23元/月

欧路云 主要运行弹性云服务器,可自由定制配置,可选加拿大的480G超高防系列,也可以选择美国(200G高防)系列,也有速度直逼内地的香港CN2系列。所有配置都可以在下单的时候自行根据项目 需求来定制自由升级降级 (降级按天数配置费用 退款回预存款)。由专业人员提供一系列的技术支持!官方网站:https://www.oulucloud.com/云服务器(主机测评专属优惠)全场8折 优惠码:zhuji...

易探云2核2G5M仅330元/年起,国内挂机宝云服务器,独立ip

易探云怎么样?易探云是国内一家云计算服务商家,致力香港服务器、国内外服务器租用及托管等互联网业务,目前主要地区为运作香港BGP、香港CN2、广东、北京、深圳等地区。目前,易探云推出深圳或北京地区的适合挂机和建站的云服务器,国内挂机宝云服务器(可选深圳或北京地区),独立ip;2核2G5M挂机云服务器仅330元/年起!点击进入:易探云官方网站地址易探云国内挂机宝云服务器推荐:1、国内入门型挂机云服务器...

离线文件为你推荐
vc组合天然维生素c和合成维生素c有区别吗嘉兴商标注册如何注册商标怎样商标注册www.7788dy.comwww.tom365.com这个免费的电影网站有毒吗?5xoy.comhttp www.05eee.comwww.sesehu.comwww.121gao.com 是谁的网站啊4400av.com在www.dadady.com 达达电影看片子很快的啊www.6vhao.com有哪些电影网站广告法请问违反了广告法,罚款的标准是什么www4399com4399网站是什么hao.rising.cn电脑每次开机的时候,都会弹出“http://hao.rising.cn/?b=34” 但是这个时
子域名查询 网通服务器租用 动态ip的vps 拜登买域名批特朗普 联通c套餐 oneasiahost windows主机 万网优惠券 网站在线扫描 百度云空间 免费主页空间 中国电信宽带测速 mteam xshell5注册码 新网dns windowsserver2008 什么是dns webmin cpu使用率过高怎么办 服务器是什么意思 更多