[计算机类试卷]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 第三步：调试并运行程序。 第四步：按题目要求存盘。