预览加载中,请您耐心等待几秒...
1/10
2/10
3/10
4/10
5/10
6/10
7/10
8/10
9/10
10/10

亲,该文档总共25页,到这已经超出免费预览范围,如果喜欢就直接下载吧~

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

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

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

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

计算机二级vb试题及答案2016年计算机二级vb试题及答案为帮助同学们更好复习九月的计算机等级考试,yjbys小编为大家分享最新计算机vb考试试题及答案如下,快来瞧瞧吧!1.基本操作(2小题,每小题15分,共计30分)(1)在名称为Form1的窗体上画一个标签,其名称为Label1,标题为“等级考试”,BorderStyle属性为1,可以根据标题自动调整大小;然后再画一个命令按钮,其名称和标题均为Command1,编写适当的事件过程。程序运行后,其界面如图1所示,此时如果单击命令按钮,则标签消失,同时用标签的标题作为命令按钮的标题,如图2所示。注意:存盘时必须存放在考生文件夹下,工程文件名为sjt11.vbp,窗体文件名为sjt11.frm。PrivateSubCommand1_Click()Command1.Caption=Label1Label1.Visible=FalseEndSub(2)在名称为Form1的窗体上画两个文本框,名称分别为Text1、Text2,再画两个命令按钮,名称分别为Command1、Command2,标题分别为“复制”、“删除”。程序运行时,在Text1中输入一串字符,并用鼠标托拽的方法选择几个字符,然后单击“复制”按钮,则被选中的字符被复制到Text2中(如图所示)。若单击“删除”按钮,则被选择的字符从Text1中被删除。请编写两个命令按钮的Click过程完成上述功能。注意:要求程序中不得使用变量,事件过程中只能写一条语句。存盘时必须存放在考生文件夹下,工程文件名为sjt12.vbp,窗体文件名为sjt12.frm。PrivateSubCommand1_Click()'Text2=Text1.SelText'或Me.Text2.Text=Form1.Text1.SelTextEndSubPrivateSubCommand2_Click()Form1.Text1.SelText=""EndSub2.简单应用(2小题,每题20分,计40分)(1)在考生目录下有一个工程文件sjt21.vbp,包含了所有控件和部分程序,如图所示。要求:1)利用属性窗口设置适当的属性,使Text1、Text2中数据右对齐;2)请编写适当的程序完成以下功能:在Text1中输入40(度数),选择组合框中的一个项目,单击“计算”按钮,则根据所选择的项目,计算出相应的正弦、余弦值(保留3位小数,第4位截去,π取3.14159),并显示在Text2中。注意:考生不得修改窗体文件中已经存在的程序,在结束程序运行之前,必须进行一种计算;在Text1中输入的必须是40;必须用窗体右上角的关闭按钮结束程序,否则无成绩。最后,按原文件名存盘。PrivateSubCommand1_Click()ConstPI=3.14159SelectCaseCombo1.TextCase"sin":a=Sin(CInt(Text1.Text)*PI/180)Case"cos":a=Cos(CInt(Text1.Text)*PI/180)Case"tg":a=Tan(CInt(Text1.Text)*PI/180)Case"ctg":a=1/Tan(CInt(Text1.Text)*PI/180)'Case"tg":a=Sin(CInt(Text1.Text)*PI/180)/Cos(CInt(Text1.Text)*PI/180)'Case"ctg":a=Cos(CInt(Text1.Text)*PI/180)/Sin(CInt(Text1.Text)*PI/180)EndSelectText2=Int(a*1000)/1000EndSubPrivateSubForm_Unload(CancelAsInteger)CallmysubEndSubSubmysub()Open"out3.txt"ForOutputAs#1Print#1,Form1.Combo1.Text,Form1.Text1.Text,Form1.Text2.TextClose#1EndSub(2)在考生文件夹下有一个工程文件sjt22.vbp,窗体上已经画出所有控件。程序的作用是构成一个简单的时钟。刚运行时,不计时,选择一个单选按钮后,再单击“计时”按钮,则开始计时,并根据所选的单选按钮决定是每秒显示一次秒数,还是每10秒显示一次