200字范文,内容丰富有趣,生活中的好帮手!
200字范文 > 计算机二级vb上机操作题库 全国计算机等级考试 二级VB 上机题库精简版 考试必备 ...

计算机二级vb上机操作题库 全国计算机等级考试 二级VB 上机题库精简版 考试必备 ...

时间:2024-02-01 17:11:15

相关推荐

计算机二级vb上机操作题库 全国计算机等级考试 二级VB 上机题库精简版 考试必备 ...

全国计算机等级考试 二级VB 上机题库精简版 考试必备,

(80页)

本资源提供全文预览,点击全文预览即可全文预览,如果喜欢文档就下载吧,查找使用更方便哦!

23.9 积分

上机题答案解析第一套上机答案解析一、基本操作题【操作步骤】步骤1:新建一个"标准EXE"工程,如表1在窗体中用"复制"和"粘贴"画出控件数组并设置属性。表1步骤2:按要求将文件保存至考生文件夹中。。第2小题【操作步骤】步骤1:新建一个"标准EXE"工程,在窗体Form1中画一个名为Sha1的形状控件。步骤2:选择【工具】→【菜单编辑器】命令,打开菜单设计器,如表2中的设置建立菜单项。表2步骤3:打开代码编辑窗口,编写菜单命令的单击事件过程。参考代码:Private Sub Shape1_Click() Me.Sha1.Shape = 1End SubPrivate Sub Shape2_Click() Form1.Sha1 = 3End Sub步骤4:按要求将文件保存至考生文件夹中。二、简单应用题第1小题【操作步骤】步骤1:打开考生文件夹下的本题工程文件sjt3.vbp。步骤2:在窗体Form1中加入两个单选按钮和两个复选框,分别设置它们的相关属性,属性及其值如表3所示。表3步骤3:打开代码编辑窗口输入如下代码:参考代码:Private Sub C1_Click() Dim a As String a = "我是" If Op1.Value Then Text1.Text = a & Op1.Caption Else Text1.Text = a & Op2.Caption End If a = "我的爱好是" If Ch1.Value = 1 Then Text2.Text = a & Ch1.Caption a = Text2.Text End If If Ch2.Value = 1 Then Text2.Text = a & Ch2.Caption End IfEnd Sub步骤4:按键运行程序,先选中选中一个单选按钮和至少一个复选框,并单击"确定"按钮,然后单击窗体右上角的关闭按钮结束程序。步骤5:按要求将文件保存至考生文件夹中。第2小题【【操作步骤】步骤1:打开考生文件中的本题工程文件sjt4.vbp,通过属性窗口向列表框添加四个项目,分别是:"第一项"、"第二项"、"第三项"、"第四项"。步骤2:在代码编辑窗口,去掉程序中的注释符"'",将问号"?"改为正确的内容。参考代码:i = 0Timer1.Interval = 1000Label1.Caption = List1.List(i)步骤3:按要求将文件保存至考生文件夹中。三、综合操作题【操作步骤】步骤1:新建一个"标准EXE"工程,如表4在窗体中画出控件并设置其相关属性。表4步骤2:打开代码编辑窗口,编写相应事件过程。参考代码:Option Base 1Dim sum(6) As IntegerPrivate Sub Command1_Click() Open App.Path & "\in5.txt" For Input As #1 Text1.Text = Input(LOF(1), #1) Close #1End SubPrivate Sub Command2_Click() For i = 1 To 6 sum(i) = 0 Next i If Len(Text1.Text) = 0 Then MsgBox "请先使用"读数"功能!" Else For i = 1 To Len(Text1.Text) c = LCase(Mid(Text1.Text, i, 1)) Select Case c Case "i" sum(1) = sum(1) + 1 Case "j" sum(2) = sum(2) + 1 Case "k" sum(3) = sum(3) + 1 Case "l" sum(4) = sum(4) + 1 Case "m" sum(5) = sum(5) + 1 Case "n" sum(6) = sum(6) + 1 End Select Next i End IfEnd SubPrivate Sub Command3_Click() Open App.Path & "\out5.txt" For Output As #1 For i = 1 To 6 Print #1, sum(i) Next i Close #1End Sub步骤3:按要求将文件保存至考生文件夹中。第二套上机答案解析167一、基本操作题第1小题【操作步骤】步骤1:新建一个"标准EXE"工程,如表1在窗体上绘制控件并设置属性。表1 控件属性设置步骤2:按要求将文件保存至考生文件夹中。第2小题【【操作步骤】步骤1:新建一个"标准EXE"工程,如表2在窗体中画出控件并设置其相关属性。表2步骤2:在代码编辑窗口编写两个命令按钮的单击事件过程。参考代码:Private Sub Command1_Click() Shape1.FillStyle = 3End SubPrivate Sub Command2_Click() Form1.Shape1.FillStyle = 2End Sub步骤3:按要求将文件保存至考生文件夹中。二、简单应用题第1小题【操作步骤】步骤1:打开考生文件中的本题工程文件sjt3.vbp,在代码编辑窗口,去掉程序中的注释符"'",将问号"?"改为正确的内容。参考代码:n% = Asc("a") - Asc("A")B$ = String(1, Asc(B$) + 32)Text1.Text = A步骤2:按要求将文件保存至考生文件夹中。【主要考点】字符串函数。第2小题【操作步骤】步骤1:打开考生文件中的本题工程文件sjt4.vbp,在代码编辑窗口,去掉程序中的注释符"'",将问号"?"改为正确的内容。参考代码:If num < a(i) Then Exit Fo 关键词: 全国计算机等级考试二级VB上机题库精简版考试必备

天天文库所有资源均是用户自行上传分享,仅供网友学习交流,未经上传用户书面授权,请勿作他用。

关于本文

本文标题:全国计算机等级考试 二级VB 上机题库精简版 考试必备,

链接地址: /p-42263227.html

本内容不代表本网观点和政治立场,如有侵犯你的权益请联系我们处理。
网友评论
网友评论仅供其表达个人看法,并不表明网站立场。