计算机二级vb机考题库大纲视图新.doc

  1. 1、本文档共52页,可阅读全部内容。
  2. 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
计算机二级vb机考题库大纲视图新

1◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ 【基本操作】 (1)【操作步骤】 步骤1:打开Visual Basic,按照题目的要求新建窗体并添加一个水平滚动条控件。 步骤2:在属性窗口中,按题照目的要求设置水平滚动条的相关属性 步骤3:按照题目的要求,在窗体上添加两个标签控件。 步骤4:按照题目的要求设置两个标签的相关属性。 程序中用到的控件及属性见表3.1。 表3.1 控件 滚动条 标签1 标签2 属性 Name Min Max Large- Change Name Caption Name Caption 设置值 H1 1 100 10 L1 1 L2 100 步骤5:按下键盘上的F5键运行程序。 步骤6:按题目要求保存工程和窗体文件。 (2)【操作步骤】 步骤1:新建窗体,按表3.2建立菜单项并设置其属性。 表3.2 标题 操作 复制 清除 名称 M1 Copy Clear 内缩符号 0 1 1 图3.7 步骤2:同步骤3,输入第3项的标题和名称,单击确定即可。 步骤3:添加文本框控件,按照表3.3设置文本框的属性。 表3.3 控 件 文本框1 文本框2 属 性 Name Name 设置值 Text1 Text2 步骤4:编写程序代码。 参考答案 Private Sub Clear_Click() Text2.Text = End Sub Private Sub Copy_Click() Text2.Text = Text1.Text End Sub 步骤7:调试并运行程序,关闭程序后按题目要求存盘。 【简单应用】 (1)【操作步骤】 步骤1:打开本题工程文件,按照题目要求建立控件数组。 步骤2:按照题目要求设置控件的属性,见表3.4。 参考答案 第一个?处填入:Index 第二个?处填入:a (2)【操作步骤】 步骤1:打开本题工程文件,按照题目要求建立框架控件并设置其属性。  步骤2:按照步骤1建立其他控件并设置相关属性,程序中用到的控件及属性见表3.5和表3.6。 表3.6 控件 单选按钮1 单选按钮2 单选按钮3 单选按钮4 属性 Name Caption Name Caption Name Caption Name Caption 设置值 Op1 男 Op2 女 Op3 学生 Op4 老师 步骤4:分析并编写程序代码。 程序提供代码 Private Sub Form Unload(Cancel As Integer) Open out4.txt For Output As #1 Print #1, Op1.Value, Op2.Value, Op3.Value, Op4.Value, Text1.Text Close #1 End Sub 程序结束 参考答案 Private Sub C1_Click() Text1.Text = 我是 If Op1.Value Then Text1.Text = Text1.Text Op1.Caption Else Text1.Text = Text1.Text Op2.Caption End If If Op3.Value Then Text1.Text = Text1.Text Op3.Caption Else Text1.Text = Text1.Text Op4.Caption End If End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 【综合应用】 【操作步骤】 步骤1:打开本题工程文件。 步骤2:编写程序代码。 参考答案 Private Sub Command1_Click() Dim a() As Long Dim i As Integer Dim n As Integer For i = 0 To Op1.Count - 1 If Op1(i).Value = True Then n = Val(Op1(i).Caption) Exit For End If Next ReDim a(n) a(1) = 1 a(2) = 1 For i = 3 To n a(i) = a(i - 1) + a(i - 2) Next Text1.Text = a(n) End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 2◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ 【基本操作

文档评论(0)

精华文库 + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

版权声明书
用户编号:7111022151000002

1亿VIP精品文档

相关文档