您所在位置: 网站首页 / 大学计算机基础VB模拟题.doc / 文档详情
大学计算机基础VB模拟题.doc 立即下载
2025-02-19
约3千字
约7页
0
19KB
举报 版权申诉
预览加载中,请您耐心等待几秒...

大学计算机基础VB模拟题.doc

大学计算机基础VB模拟题.doc

预览

免费试读已结束,剩余 2 页请下载文档后查看

10 金币

下载文档

如果您无法下载资料,请参考说明:

1、部分资料下载需要金币,请确保您的账户上有足够的金币

2、已购买过的文档,再次下载不重复扣费

3、资料包下载后请先用软件解压,在使用对应软件打开

第页共NUMPAGES7页
大学计算机基础VB模拟题

本卷共有4道大题:
一、单项选择题(25道小题,共25分)
1、VB中工程软件的扩展名为(C)(1分)
A、dsB、frmC、vbpD、bas
2、把字符串\\右边的空格去掉应使用(B)函数(1分)
A、trimB、rtrimC、rightD、mid
3、文本框text1的text属性的数据类型是(B)(1分)
A、整数型B、字符串C、单精度D、双精度
4、下列(B)属性决定窗体标题栏显示内容(1分)
A、NameB、CaptionC、TextD、BackStyle
5、命令按钮mand1不具有下列哪个事件(C)(1分)
A、ClickB、KeyPressC、GotFocusD、DblClick
6、为了使文本框同时具有水平和垂直滚动条,应先将MultiLine属性设置为True,然后再把ScrollBars属性设置为()(1分)
A、0B、1C、2D、3
7、DimD(3,1To10,1To15)语句中,数组的元素个数为()(1分)
A、3*10*16B、3*11*16C、4*10*15D、4*11*15
8、如果整型变量c、d、x的值分别为8、6、0,则下列语句ForI=ctod:x=x+i:NextI执行结束时,I的值为(A)(1分)
A、8B、7C、6D、5
9、假定有以下循环结构DoUntil条件循环体Loop则正确的描述是(C)(1分)
A、如果\条件\是一个为0的常数,则一次循环体也不执行B、如果\条件\是一个为0的常数,则至少执行一次循环体
C、如果\条件\是一个不为0的常数,则至少执行一次循环体D、不论\条件\是否为\真\,至少要执行一次循环体
10、\是小于100的非负数\,用VB表达式表示正确的是(D)(1分)
A、0,其中的表达式表列不正确的为(D)(1分)
A、Case100*aB、Case1000To2000C、CaseIs4:x=x*y:y=y+1:Loop执行后x的结果为(B)(1分)
A、1B、4C、8D、20
19、以下声明和命名标识符错误的是(B)(1分)
A、必须以字母开头B、变量名的最后一个字符可以是类型声明字符C、长度不能超过8个字符D、不能与关键字同名
20、下列说明错误的是(C)(1分)
A、ConstMyVar#=123B、Dimmynameasstring
C、dimaasinteger,dimbassingleD、dimMyString=\
21、VB中允许出现的数据形式为(D)(1分)
A、1.89E1.1B、.368C、D32D、2.5E
22、设a=2,b=3,c=4,d=5,下列表达式a>bANDcc的值是(B)(1分)
A、TrueB、FalseC、-1D、1
23、语句6*6\\6/6的输出结果是(C)(1分)
A、6B、12C、36D、216
24、给窗体form1加载背景图片,应使用(D)函数(1分)
A、pictureB、ucaseC、loadpictureD、image
25、字符串\河南农业大学现教部\的长度是(A)(1分)
A、18B、10C、9D、16
二、填空题(12道小题,共35分)
1、设定系统当前日期是20xx年5月12日,Month(date)=(5)。2、设A$=\函数返回值是(-----)。
3、在窗体的声明部分,语句Privatex%语句,是将变量定义为(1)级变量。
4、逻辑型数据只有()两个值。
5、顺序文件读操作用(case)语句。
6、一个工程可以包括多种类型的文件,其中扩展名为.frx的文件表示()文件。
7、mand1.Visible=False,是将命令按钮1设为(隐藏)。
8、当鼠标在控件上暂停时,显示提示信息,要用()属性。
9、Texte1.SetFocus语句功能是把焦点移到()上。
10、DimXAsCurrency是将变量X定义为(货币)型。
11、某次大奖赛,有6个评委打分,如下代码对一名参赛者,输入6个评委的打分分数,去掉一个
最高分和一个最低分后,求出平均分,即为该参赛者的得分。代码中aver变量存放平均分,max1变量存放最高分,min1变量存放最低分。请在空线处补充使之完整。PrivateSubmand7_Click()Dimmark!,aver!,i%,max1!,min1!aver=0
Fori=1To6
mark=InputBox(\输入第\位评委的打分\Ifi=1Then
max1=mark:min1=markElse
Ifmarkmax1Then
()
EndIfEndIf
aver=aver+markNext
aver=
()
PrintaverEndSub
(9分)
12、这是一个用户名校验程序。用户名为“user”,密码
查看更多
单篇购买
VIP会员(1亿+VIP文档免费下)

扫码即表示接受《下载须知》

大学计算机基础VB模拟题

文档大小:19KB

限时特价:扫码查看

• 请登录后再进行扫码购买
• 使用微信/支付宝扫码注册及付费下载,详阅 用户协议 隐私政策
• 如已在其他页面进行付款,请刷新当前页面重试
• 付费购买成功后,此文档可永久免费下载
全场最划算
12个月
199.0
¥360.0
限时特惠
3个月
69.9
¥90.0
新人专享
1个月
19.9
¥30.0
24个月
398.0
¥720.0
6个月会员
139.9
¥180.0

6亿VIP文档任选,共次下载特权。

已优惠

微信/支付宝扫码完成支付,可开具发票

VIP尽享专属权益

VIP文档免费下载

赠送VIP文档免费下载次数

阅读免打扰

去除文档详情页间广告

专属身份标识

尊贵的VIP专属身份标识

高级客服

一对一高级客服服务

多端互通

电脑端/手机端权益通用