- 1、本文档共63页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
[IT认证]VB二级考试题库
80
第1题【操作步骤】步骤1:新建一个标准EXE工程,按表1在窗体中画出控件并设置其相关属性。
表1
步骤2:在代码编辑窗口,编写命令按钮的Click事件过程。
参考代码:Private Sub cmdDisplay_Click()
Print txtName.Text ,现年 _
txtAge.Text 岁
End Sub
第2小题【操作步骤】步骤1:新建一个标准EXE工程,按表2在窗体中画出控件并设置其相关属性。
表2
参考代码:Private Sub txtIn0put_Change()
picOutput.Print txtInput.Text
End Sub
第1小题
【操作步骤】步骤1:打开考生文件中的本题工程文件vbsj3.vbp,按表3在窗体中用复制和粘贴命令画出包含4个元素的单选数组和1个命令按钮并设置属性。
表3
步骤2:打开代码编辑窗口,去掉程序中的注释符,将问号?改为正确的内容。
参考代码:Private Sub CmdNext_Click()
For k = 0 To 3
If OptItem(k).Value Then
n = k
End If
Next k
OptItem (n).Value = False
n = n + 1
If n = 4 Then
n = 0
End If
OptItem (n).Value = True
End Sub
步骤3:按要求将文件保存至考生文件夹中。
第2小题【操作步骤】
步骤1:打开考生文件中的本题工程文件vbsj4.vbp,在代码编辑窗口,去掉程序中的注释符,将问号?改为正确的内容。
参考代码:
a = Mid$(txtInput.Text, k, 1)
ch = ch + LCase(a)
txtResult = ch
【操作步骤】步骤1:打开考生文件中的本题工程文件vbsj5.vbp,按表4在窗体中画出控件并设置其相关属性。
表4
步骤2:在代码编辑窗口中,编写cmdDisplay_Click事件过程。
参考代码:Private Sub cmdDisplay_Click()
Dim pers As PalType
Open in5.txt For Random As #1 Len = Len(pers)
Get #1, 3, pers
txtName.Text = pers.Name
txtTel.Text = pers.Tel
txtPost.Text = pers.Post
Close #1
End Sub
步骤3:按要求将文件保存至考生文件夹中。
步骤4:按F5键运行程序,先单击显示第三个记录按钮,再单击保存按钮。81
第1小题
【操作步骤】
步骤1:新建一个标准EXE工程,选择【工程】→【部件】命令,打开部件对话框,从其列表中选中MicroSoft Common Dialog Control6.0项目,单击确定按钮。
步骤2:在窗体Form1中加入一个命令按钮和一个通???对话框,其相关属性设置如表1所示。
表1
步骤3:在代码编辑窗口中,编写打开文件按钮的单击事件过程:
参考代码:
Private Sub cmdOpen_Click()
cdlOpen.ShowOpen
End Sub
步骤4:按要求将文件保存至考生文件夹中。
第2小题
【操作步骤】
步骤1:新建一个标准EXE工程,在窗体Form1中画一个图片框和一个水平滚动条,在属性设置窗口中设置其相关属性,属性及其值如表2所示。
表2
步骤2:打开代码编辑窗口,分别编写命令按钮的Click事件过程和垂直滚动条的Change事件过程。参考代码:
Private Sub cmdSet_Click()
Vsb1.Min = 100
Vsb1.Max = 2400
Vsb1.LargeChange = 200
Vsb1.SmallChange = 20
End Sub
Private Sub Vsb1_Change()
Pic1.Height = Vsb1.Value
End Sub
步骤3:按要求将文件保存至考生文件夹中。
2
第1小题参考代码:
Private Sub cmdCal_Click()
Select Case cboFun.Text
Case Sin
txtResult.Text = Int(Sin(Val _
(txtInput.
您可能关注的文档
最近下载
- 中职班要求背诵的篇目(段落).pdf VIP
- 用于子女入学的务工证明.docx VIP
- (9)--§1.7 土的及压实性土力学.ppt VIP
- 露天煤矿开采.docx VIP
- 2024《中韩文化贸易竞争力对比对比实证分析》20000字.docx VIP
- 关于中央企业加快建设世界一流财务管理体系的指导意见解读PPT.pptx VIP
- 创建优质医养结合示范中心资料:医养结合服务流程与要求,医养结合服务知情同意书,医养结合服务协议书.doc VIP
- 台达VFD-L系列变频器中文操作手册.pdf VIP
- 一流财务管理体系建设.pptx VIP
- 统编版(2024)七年级上册道德与法治3.2《学习成就梦想》教学设计.docx VIP
文档评论(0)