- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
计算机二级模拟试题(visualbasic语言)七
计算机二级模拟试题(visual basic 语言)七
试题一、基础知识填空题(共30分,每空2分)
说明变量类型有二种方法,其中一种是在变量名后加隐含类型说明符,如变量sum$类型为 。
VB的窗体和控件是具有自己的 、 方法的对象。
VB的坐标系统是可以自定义的,使用对象的刻度属性和 方法,就可设置对象的坐标系统。
表达Int(9.5)=Fix(9,5) and Int(-7.2)=Fix(-8.2)的值是 。
启动窗体时,为了初始化该窗体中的各控件,可选用窗体的 事件。
在VB中,控件的命名是由用户决定的,为了说明控件类型,在命名一个文本框控件时常在其名字前加 英文缩写。
窗体对象具有CLS方法,另外 对象也有具有该方法。
菜单设计中每一个菜单项是一个控件,这些控件都只有一个 事件。
由下列循环语句控制的循环次数是 。
For k=25 to 0 step-2
Next k
已知a=3,b=4,c=5,下面表达式的值是 。(值用True 或False表示)
ab And Not ca or cb and ca+b
按要求写出VISUAL Basic算术表达式或逻辑表达式:
用随机函数产生一个界于20至80的整数
下列代数式
(3)|a-b|c
下述语句执行后,Y的值是 。
Y=10-sgn(35 mod 17-6)+val(m.10 m.)
试题二、程序填空题(共10分,每空2分):
以下程序是利用通用对话框功能对窗体中的图片框添加图片。要求将c:\windows设置为初始目录,打开文件的默认文件扩展名为.bmp ,界面和程序如下:
private sub command1_click()
commondialog1.initdir= (1)
commondialog1.filter=”所有文件(*.*)|*.*|bmp文件(*.bmp)|*.bmp|gif文件(*.gif)|*.gif ”
commondialog1.filterindex=2
(2) ‘打开通用对话框
Picture1.picture= (3) (Commondialog1.filename)
End sub
以下程序是验证100至200之间的所有偶数都能分解为两个素数之和。
Private sub form_click()
Dim n as integer,m as integer
Dim I as integer,j as integer
For n=100 to 200 step 2
For m=2 to (n/2)
For I=2 to int(sqr(m))
If m mod I=0 then exit for
Next I
If (4) then
For j=2 to (5)
If(n-m) mod j=0 then exit for
Next j
If jint (sqr(n-m)) then print n,m,n-m
End if
Next m
Next n
End sub
试题三、程序阅读(20分,每题5分)
仔细阅读下列各小题程序,在试卷的相应位置上写出下列程序运行后单击窗体,在窗体上的输出结果。(注意打印格式)
程序1
private sub form_click()
dim x() as string ‘定义为可变数组
a$=”How ary you!”
n=len(a$)
redim x(1 to n) ‘重新定义数组
for I=n to 1 step-1
x(i)=mid(a$,I,1)
next I
print a$
for I=1 to n
print x(i);” “;
next I
print
end sub
答案:(1)
2、程序2
private sub form_click()
dim x as double,y as double
x=width/4
y=he
您可能关注的文档
最近下载
- Dynacoll product brochure.pdf VIP
- 香格里拉至丽江高速公路隧道专项施工方案.doc VIP
- 国家高速公路网G4216成都至丽江高速公路爆破专项施工方案.doc VIP
- 国家高速公路网G4216成都至丽江高速公路高填方路堤专项施工方案.doc VIP
- 经鼻高流量湿化氧疗与无创正压通气应用于慢性阻塞性肺疾病急性加重期合并Ⅱ型呼吸衰竭患者的效果差异分析.pdf VIP
- 人机界面标志标识的基本和安全规则 设备端子、导体终端和导体的标识.pdf VIP
- (最新)预防艾梅乙母婴传播理论考试试题(含答案).docx VIP
- 苯加氢制环己烷.PDF VIP
- 云南省香格里拉至丽江高速公路高边坡防护施工专项方案.doc VIP
- 短视频:策划、制作与运营PPT课件(全套完整版).pptx
文档评论(0)