ImageVerifierCode 换一换
格式:DOC , 页数:7 ,大小:172KB ,
资源ID:493818      下载积分:2000 积分
快捷下载
登录下载
邮箱/手机:
温馨提示:
如需开发票,请勿充值!快捷下载时,用户名和密码都是您填写的邮箱或者手机号,方便查询和重复下载(系统自动生成)。
如填写123,账号就是123,密码也是123。
特别说明:
请自助下载,系统不会自动发送文件的哦; 如果您已付费,想二次下载,请登录后访问:我的下载记录
支付方式: 支付宝扫码支付 微信扫码支付   
注意:如需开发票,请勿充值!
验证码:   换一换

加入VIP,免费下载
 

温馨提示:由于个人手机设置不同,如果发现不能下载,请复制以下地址【http://www.mydoc123.com/d-493818.html】到电脑端继续下载(重复下载不扣费)。

已注册用户请登录:
账号:
密码:
验证码:   换一换
  忘记密码?
三方登录: 微信登录  

下载须知

1: 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。
2: 试题试卷类文档,如果标题没有明确说明有答案则都视为没有答案,请知晓。
3: 文件的所有权益归上传用户所有。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 本站仅提供交流平台,并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

版权提示 | 免责声明

本文([计算机类试卷]VB机试模拟试卷33及答案与解析.doc)为本站会员(tireattitude366)主动上传,麦多课文库仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对上载内容本身不做任何修改或编辑。 若此文所含内容侵犯了您的版权或隐私,请立即通知麦多课文库(发送邮件至master@mydoc123.com或直接QQ联系客服),我们立即给予删除!

[计算机类试卷]VB机试模拟试卷33及答案与解析.doc

1、VB 机试模拟试卷 33 及答案与解析 一、基本操作题( 30分) 1 1. 在窗体上画两个文本框,名称分别为 T1、 T2,初始情况下均为空白,编写适当的事件过程。程序运行后,如果在 T1中输入字符,则所输入的字符立即在 T2中显示出来,并把小写字母转换为相应的大写字母,如图 11所示。要求:程序中不得使用任何变量。注意:存盘时,工程文件名为 sjt1.vbp,窗体文件名为sjt1.frm。 2在窗体上画二个文本框,名称为 Text1和 Text2,内容为空;再画二个标签,名称分别为 L1和 L2,标题分别为 “输入 A, B, C: ”和 “AB+C ”;再画一个命令按钮,名称为 C1,标

2、题为 “运算 ”。编写适当的程序。程序运行时,在文本框 Text1中输入用逗号隔开的 3个整数 A、 B、 C,单击 “运算 ”按钮,则计算出AB+C的值,显示在文本框 Text2中。程序运行结果如图 12所示。注意:存盘时必须存放在考生文件夹下,工程文件名为 sjt2.vbp,窗体文件名为 sjt2.frm。二、简单应用题( 40分) 2 1. 在考生文件夹中有文件 sjt3.vbp及其窗体文件 sjt3.frm,该程序是不完整的,请在有 ?号的地方填入正确的内容,然后删除 ?及所有注释符 (即 号 ),但不能修改其他部分。存盘时不得改变文件夹和文件名。 本题描述如下: 窗体上有一个名称Te

3、xt1的文本框,两个复选框,名称分别为 Ch1和 Ch2,标题分别为 “足球 ”和 “乒乓球 ”;一个名称为 C1,标题为 “确定 ”命令按钮。要求程序运行后,如果只选中 Ch1,单击 “确定 ”命令按钮,则在文本框中显示 “我喜欢足球 ”:如果只选中 Ch2,单击 “确定 ”命令按钮,则在文本框中显示 “我喜欢乒乓球 ”;如果同时选中 Ch1和Ch2,然后单击 “确定 ”命令按钮,则在文本框中显示 “我喜欢足球和乒乓球 ”;如果Ch1和 Ch2都不选,然后单击 “确定 ”命令按钮,则在文本框中什么都不显示。程序运行界面如图 21所示。 2在考生文件夹下有工程文件 sjt4.vbp及窗体文件s

4、jt4.frm,该程序是不完整的,请在有 ?号的地方填入正确的内容,然后删除 ?及所有注释符 (即 号 ),但不能修改其他部分。存盘时不得改变文件名和文件夹。 本题描述如下: 窗口中有一个名称为 Picture1的图片框,一个名称为 HScroll1的滚动条, 3个命令按钮,名称分别为 Command1, Command2和 Command3,标题分别为 “运行 ”、 “暂停 ”和 “结束 ”,一个计时器控件,名称为 Timer1。程序运行后,单击“运行 ”按钮后,使小球围绕大球转动,并可以使用滚动条调节转动的速度;单击“暂停 ”按钮后,暂停小球的转动;按 “结束 ”按钮结束程序。三、综合应用

5、题( 30分) 3 在考生文件夹中有工程文件 sjt5.vbp及其窗体文件 sjt5.frm,该程序是不完整的,请在有 ?号的地方填入正确内容,然后删除 ?及所有注释符 (即 号 )但不能修改其他部分。存盘时不得改变文件名和文件夹。 本题描述如下: 在名称为 Form1的窗体上有一个文本框,名称为 Text1, MultiLine属性为 True, Scroll Bars属性为 2;两个命令按钮名称分别为 Cmd1和 Cmd2,标题分别为 “读入数据 ”和 “计算保存 ”,如图31所示。要求程序运行后,如果单击 “读入数据 ”按钮,则读入 “in.txt”文件中的 100个整数,放入一个数组中

6、 (数组下界为 1),同时在文本框中显示出来;如果单击 “计算保存 ”按钮,则计算其中前 50个数之和,并把求和结果在文本框 Text1中显示出来,同时把结果存入考生文件夹中的文件 “out.txt”中。 (在考生的文件夹下有标准模块 mode.bas,其中的 putdata过程可 以把结果存入指定的文件 )。 注意:文件必须存放在考生文件夹下,窗体文件名为 sjt5.frm,工程文件名为 sjt5.vbp,计算结果存入 out.txt文件,否则没有成绩。 VB 机试模拟试卷 33 答案与解析 一、基本操作题( 30分) 1 【正确答案】 启动 Visual Basic,在窗体上画两个文本框。

7、 按 F4键激活属性窗口,在属性窗口中设置文本框的属性,见表 1。 编写命令按钮的 Click事件过程: Private Sub T1_change() T2. Text UCase(T1. Text) End Sub2 对象主要属性设置如表 2所示。 分析:按试题要求在窗体上画两个文本框、两个标签和一个单选按钮,并分别将它们的属性按表 2的内容进行设置。 Split()函数返回一个下标从零开始的一维数组,它包含指定数目的子字符串。 Val()函数返回包含于字符串内的数字,字符串中是一个适当类型的数值。 CStr()函数将一数值转换为字符串。 编程代码: Private Sub C1_Clic

8、k() Dim a a Split(Text1.Text,“,“) Text2.Text CStr(Val(a(0) * Val(a(1)+Val(a(2) End Sub 二、简单应用题( 40分) 2 【正确答案】 复选框用来表示状态,在程序运行期间可以改变其状态。复选框标题由 Caption属性来设置,复选框的 value属性用来表示复选框的状态,其取值有: 0:表示复选框未被选中; 1:表示复选框被选中; 2:表示复选框被禁止使用 (灰色 )。 解题步骤; 第一步:编写程序代码。 程序提供韵代码: Option Explicit Private Sub C1_Click() ? =“

9、If Ch1.Value and Not Ch2.Value Then Text1.Text=“我喜欢足球 “ If Ch1. Value=? And Ch2. Value Then Text1.Text=“我喜欢乒乓球 “ If Chi. Value And Ch2. Value Then Text1. Text=“我喜欢足球和乒乓球 “ End Sub参考代码: Option Explicit Private Sub C1_Click() Text1. Text=“ If Ch1. Value And Not Ch2. Value Then Text1. Text=“我喜欢足球 “ If

10、Ch1. Value=0 And Ch2. Value Then Text1. Text=“我喜欢乒乓球 “ If Ch1. Value And Ch2. Value Then Text1. Text=“我喜欢足球和乒乓球 “ End Sub 第二步:调试并运行程序。 第三步:按题目要求存盘。 2 在窗体上建立好控件后,先设置控件属性,再编写事件过程。 计时器控件作用是以一定的时间间隔激发计时器事件 (Timer)执 行相应程序代码。当时计时器控件的 Enabled属性为 True时,计时器计时开始,当为 False时计时器计时暂停,所以要使小球运动暂停可将 Enabled属性值设置为 Fal

11、se,要使小球运行,则设置该属性值为 True。 解题步骤: 第一步:建立界面并设置控件属性。程序中用到的控什及其属性见表 3。 表 3控 件 属 性 设 置 值按钮 NameCaption Command1运行按钮 NameCaption Command2暂停按钮 NameCaption Command3结束滚动条 Name HScroll1图片框 Name Picture1 第二步:编写程序代码。 程序提供的代码: Option Explicit Dim c As Single, r As Single r 小球到大球的球心的距离, c为小球的角度 . Dim x As Single, y

12、 As Single x, y 为小球移 动时的圆心 Dim st As Single Private Sub Command1_Click() Timer1. Enabled=True End Sub Private sub Command2_Click() ? End Sub Private Sub Command3_ClickO End End sub Private Sub Form_Load() r=20 c=0 st=0.063 HScroll1.Min=1 设置最小值 HSeroll1.Max=100 设置最大值 End Sub Private Sub HSeroll1_Chan

13、ge() Timer1.?=200HScroll1.Value 根据滚动条的数值设置时间间隔,速度越快,时间月小 End Sub Private Sub Picture1_Paint() Pieture1.FillColor=QBColor (12) Picture1.ForeColor=QBColor (12) Picture1. Circle(0,0), 2 x=Cos(c) *r y=Sin(c) *r Picture1.FillColor=QBColor (14) Picture1.ForeColor=QBColor (14) Picture1.? (x,y), 0.5 c=c+st

14、If c =2*3.14159 Then c=c Mod (2*3.14159) End If End Sub Private Sub Timer1_Timer() ? 重画图片框 End Sub参考代码: Option Explicit Dim c As Single, r As Single r 小球到大球的球心的距离, c为小球的角度 . Dim x As Single, y As single x,y 为小球移动时的圆心 Dim st As Single Private Sub Command1_Click() Timer1. Enabled=True End Sub Private

15、Sub Command2_Click() Timer1.Enabled=False End Sub Private Sub Command3_Click() End End Sub Private Sub Form_Load() r=20 c=0 st=0.063 HScroll1.Min=1 设置最小值 HSeroll1.Max=100 设置最大值 End Sub Private Sub HScroll1_Change() Timer1. Interva1=200HSeroll1.Value 根据滚动条的数值设置时间间隔,速度越快,间隔越小 End Sub Private Sub Pietu

16、re1_Paint() Picture1.FillColor=QBColor (12) Pieture1.ForeColur=QBColor (12) Picture1.Circle (0,0) , 2 x=Cos(c) * r y=Sin(c) * r Picture1.FillColor=QBColor (14) Pieture1.ForeColor=QBColor (14) Pieture1.Circle(x, y), 0.5 c=c+st If c =2*3.14159 Then c=c Mod (2*3.14159) End If End Sub Private Sub Timer1

17、_Timer() Picture1.Refresh 重画图片框 End Sub 第三步:调试并运行程序。 第四步:按题目要求存盘。 三、综合应用题( 30分) 3 【正确答案】 在窗体上建立好控件后,先设置控件属性,再编写事件过程。 文本框显示的内容由 Text属性设置, Muhiline属性决定文本框是否可多行显示;按钮的标题由 Caption属性设置,单击命令按钮触发 Click事件。题中涉及到文件的操作,读入顺序文件以顺序的方式打开,用 input #语句读取数据。另外需要注意的是对文件操作完后,一定要关闭文件。 解题步骤;第一步:建立界面并设置控件属性。程序中用到的控 件及其属性值见表

18、 4。表 4控 件 属 性 设 置 值文本框 NameScrollbarsMultiline Text12True命令按钮 NameCaption Cmd1读入数据命令按钮 NameCaption Cmd2计算保存第二步:编写程序代码。程序提供的代码: mode.bas代码 Option Explicit Sub putdata(t_FileName As String, t_Str As Variant) Dim sFile As String sFile=“ & t_FileName Open App. Path & sFile For Output As #1 Print #1, t_S

19、tr Close #1 End Sub窗体代码: Option Explicit Dim ? (1 To 100) As Integer Private Sub cmd1_ClickO Dim j As Integer Open App.Path & “in.txt“ For Input As #1 For j=1 To 100 Input #1, i(j) Text1. Text=Text1. Text & i(j) & Space(5) Next Close #1 End Sub Private sub Crud2 Click() Dim ? As Integer Dim temp As

20、Long For j=1 To 50 temp=temp+i(j) Next Text1.?=temp putdata “out.txt“,temp End Sub 参考代码: Option Explicit Dim i (1 To 100) As Integer Private Sub Cmd1_Click() Dim j As Integer Open App. Path & “in.txt“ For Input As #1 For j=1 To 100 Input #1, i(j) Text1.Text=Text1.Text & i(j) & Space(5) Next Close #1 End Sub Private Sub cmd2_Click() Dim j As Integer Dim temp As Long For j 1 To 50 temp=temp+i(j) Next Text1.Text temp putdata “out.txt“,temp End Sub 第三步:调试并运行程序。 第四步:按题目要求存盘。

copyright@ 2008-2019 麦多课文库(www.mydoc123.com)网站版权所有
备案/许可证编号:苏ICP备17064731号-1