计算机二级VB真考题库操作题三

《计算机二级VB真考题库操作题三》由会员分享，可在线阅读，更多相关《计算机二级VB真考题库操作题三（94页珍藏版）》请在装配图网上搜索。

1、2013计算机二级VB真考题库 操作题（三）第68套题解析题目一：基本操作题（1）【考点分析】本题考点有：菜单编辑器的使用（名称，标题，内缩符号）和文本框的Name属性。【解题思路】用菜单编辑器来设置菜单的名称，标题，内缩符号。另外，清除文本框中的内容将文本框的Text属性值设为空即可。【操作步骤】步骤1：建立界面，添加一个名称为Text1的文本框，然后用菜单编辑器建立如下表3.212所示的菜单。表3.212标题名称内缩符号步骤2：编写程序代码。参考答案Private Sub Dis_Click() Text1.Text = 等级考试End SubPrivate Sub Clea_Click(

2、) Text1.Text = End Sub操作Op0显示Dis1清除Clea1步骤3：调试并运行程序，关闭程序后按题目要求存盘。（2）【考点分析】本题考点有：文本框的Name、Text属性，列表框的的Name、List、ListIndex属性，AddItem方法和DblClick事件。【解题思路】在列表框的DblClick事件中，通过AddItem方法将文本框中的字符串添加到列表框中。【操作步骤】步骤1：建立界面，添加控件并设置控件的属性。程序中用到的控件及属性见表3.213。步骤2：编写程序代码。参考答案Private Sub L1_DblClick() L1.AddItem Text1.

3、Text End Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。题目二：简单应用题（1）【考点分析】本题考点有：标签的Name、Text、Height、Width、Caption属性，框架的Name、Caption属性，命令按钮的Name、Caption属性，单选按钮的Name、Caption、Value属性，Sub( )函数过程以及If判断语句。【解题思路】在窗体上添加相应的控件并通过属性窗口设置其属性。通过If语句判断单选按钮的Value属性是否为True，即某个单选按钮是否被选中来显示标签的内容。一般地，我们认为Value属性是单选按钮的默认属性。【操作步骤】步骤1：打开本题工

4、程文件，添加控件并设置控件的属性。程序中用到的控件及属性见表3.214和3.215。 表3.214控件框架1框架2标签属性Name CaptionName CaptionName Height Width设置值F1交通工具 F2到达目标Lab13753000 表3.215控件单选按钮1单选按钮2单选按钮3单选按钮4属性Name CaptionName CaptionNameCaptionName Caption设置值Op1飞机Op2火车Op3广州Op4昆明步骤2：分析并编写程序代码。程序提供代码Private Sub Fun()需要考生编写的内容End SubPrivate Sub Form_

5、Unload(Cancel As Integer) Open App.Path & out3.txt For Output As #1 Print #1, Op1.Value, Op2.Value, Op3.Value, Op4.Value, Lab1.Caption Close #1 End SubPrivate Sub Op1_Click() Fun End SubPrivate Sub Op2_Click() Fun End SubPrivate Sub Op3_Click() Fun End SubPrivate Sub Op4_Click() Fun End Sub程序结束参考答案

6、If Op1 And Op3 Then Lab1.Caption = 坐飞机去广州 ElseIf Op1 And Op4 Then Lab1.Caption = 坐飞机去昆明 ElseIf Op2 And Op3 Then Lab1.Caption = 坐火车去广州 ElseIf Op2 And Op4 Then Lab1.Caption = 坐火车去昆明 End If 步骤3：调试并运行程序，关闭程序后按题目要求存盘。（2）【考点分析】本题考点有：文本框的Name、Text属性，命令按钮的Name、Caption属性，单选按钮的Name、Caption、Value属性，&连接符以及If判断语

7、句。【解题思路】在窗体上添加相应的控件并通过属性窗口设置其属性。选择交换单选按钮并单击命令按钮时，通过一个标签Caption属性作为中间变量将文本框1和文本框2的内容交换，并将标签的Caption属性设为交换成功；选择连接单选按钮并单击命令按钮时，用&连接符将文本框1和文本框2中的内容顺序连接起来。【操作步骤】步骤1：打开本题工程文件，添加控件并设置控件的属性。程序中用到的控件及属性见表3.216和表3.217。步骤2：分析并编写程序代码。程序提供代码Private Sub C1_Click()需要考生编写的内容End SubPrivate Sub Form_Unload(Cancel As

8、Integer) Open out4.txt For Output As #1 Print #1, Op1.Value, Op2.Value, Text1.Text, Text2.Text, Lab1.Caption Close #1 End Sub程序结束参考答案 If Op1 Then Lab1.Caption = Text1.Text Text1.Text = Text2.Text Text2.Text = Lab1.Caption Lab1.Caption = 交换成功 ElseIf Op2 Then Lab1.Caption = Text1.Text & Text2.Text End

9、 If 步骤3：调试并运行程序，关闭程序后按题目要求存盘。题目三：综合应用题【考点分析】本题考点有：Sub( )函数，Int( )函数，文件操作，App.Path相对路径，数组的定义和应用，窗体的Print方法和For循环语句。【 解 题 思 路 】 在 读 入 数 据 命 令 按 钮 中 ， 通 过 调 用Sub过 程 来 实 现 对 datain1.txt 和datain2.txt文件的读数据操作。单击计算按钮，利用For循环实现将把一个数组的元素的第n个元素除以10截尾取整，再把第二个数组的第n个元素除以10截尾取整，两者相乘后的结果做为第三个数组的第n个元素，数字取整用Int( )函数

10、来实现；并用窗体的Print方法将结果显示在窗体上。单击存盘按钮，将结果存在Dataout.txt文件中。【操作步骤】步骤1：打开本题工程文件，添加控件并设置控件的属性。程序中用到的控件及属性见表3.218。步骤2：分析并编写程序代码。程序提供代码Option Base 1Dim Arr1(20) As IntegerDim Arr2(20) As IntegerDim Sum As IntegerSub ReadData1() Open App.Path & & datain1.txt For Input As #1 For i = 1 To 20 Input #1, Arr1(i) Nex

11、t i Close #1 End SubSub ReadData2() Open App.Path & & datain2.txt For Input As #1 For i = 1 To 20 Input #1, Arr2(i) Next i Close #1 End SubSub WriteData(Filename As String, Num As Integer) Open App.Path & & Filename For Output As #1 Print #1, Num Close #1 End SubPrivate Sub C1_Click()要求考生编写的内容End Su

12、bPrivate Sub C2_Click()要求考生编写的内容End SubPrivate Sub C3_Click()要求考生编写的内容End Sub程序结束参考答案Private Sub C1_Click() ReadData1 ReadData2 End SubPrivate Sub C2_Click() Dim Arr3(20) As Integer Sum = 0 For i = 1 To 20 Arr3(i) = Int(Arr1(i) / 10) * Int(Arr2(i) / 10) Sum = Sum + Arr3(i) Next i Print Sum = ; SumEn

13、d SubPrivate Sub C3_Click() WriteData DataOut.txt, SumEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。第69套题解析题目一：基本操作题（1）【考点分析】本题考点有：菜单编辑器的使用（名称，标题，内缩符号）和窗体的Print、Cls方法。【解题思路】用菜单编辑器来设置菜单的名称，标题，内缩符号。在窗体上显示等级考试用窗体的Print方法，清除内容则窗体的用Cls方法。【操作步骤】步骤1：建立界面，然后用菜单编辑器建立如下表3.219所示的菜单。表3.219标题名称内缩符号步骤2：编写程序代码。参考答案Private Sub D

14、is_Click() Print 等级考试End SubPrivate Sub Clea_Click() Cls End Sub操作Op0显示Dis1清除Clea1步骤3：调试并运行程序，关闭程序后按题目要求存盘。（2）【考点分析】本题考点有：标签的Name、Caption属性，列表框的的Name、List、ListCount属性和DblClick事件。【解题思路】在列表框的DblClick事件中，通过列表框的ListCount属性得出列表框的项目数，并通过标签的Caption属性显示项目数。【操作步骤】步骤1：建立界面，添加控件并设置控件的属性。程序中用到的控件及属性见表3.220。 表3.

15、220控件属性列表框Name List标签NameCaption设置值 L1abcd、hijk、gfed、smnl Lab1步骤2：编写程序代码。参考答案Private Sub L1_DblClick() Lab1.Caption = L1.ListCount End Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。题目二：简单应用题（1）【考点分析】本题考点有：文本框的Name、属性，框架的Name、Caption属性，单选按钮的Name、Caption、Value属性以及If判断语句。【解题思路】在窗体上添加相应的控件并通过属性窗口设置其属性。通过If语句判断单选按钮的Value属

16、性是否为True，即某个单选按钮是否被选中来显示标签的内容。一般地，我们认为Value属性是单选按钮的默认属性。另外，单击文本框将触发文本框的Click事件。【操作步骤】步骤1：打开本题工程文件，添加控件并设置控件的属性。程序中用到的控件及属性见表3.221和3.222。步骤2：分析并编写程序代码。程序提供代码Private Sub Form_Unload(Cancel As Integer) Open App.Path & out3.txt For Output As #1 Print #1, Op1.Value, Op2.Value, Op3.Value, Op4.Value, Text1

17、.Text Close #1 End SubPrivate Sub Text1_Click()需要考生编写的内容End Sub程序结束参考答案 If Op1 And Op3 Then Text1.Text = 坐汽车去青岛 ElseIf Op1 And Op4 Then Text1.Text = 坐汽车去大连 ElseIf Op2 And Op3 Then Text1.Text = 坐轮船去青岛 ElseIf Op2 And Op4 Then Text1.Text = 坐轮船去大连 End If 步骤3：调试并运行程序，关闭程序后按题目要求存盘。（2）【考点分析】本题考点有：文本框的Name、

18、Text属性，单选按钮的Name、Caption、Visible属性，标签的Name、Heiht、Width属性，&连接符、窗体的Click事件和If判断语句。【解题思路】在窗体上添加相应的控件并通过属性窗口设置其属性。选择交换单选按钮并单击窗体时，通过一个标签的Caption属性作为变量将文本框1和文本框2的内容交换，然后将标签的Caption属性设为交换成功；选择连接单选按钮并单击窗体时，用&连接符将文本框1和文本框2中的内容顺序连接起来。【操作步骤】步骤1：打开本题工程文件，添加控件并设置控件的属性。程序中用到的控件及属性见表3.223和表3.224。步骤2：分析并编写程序代码。程序提供

19、代码Private Sub C1_Click()需要考生编写的内容End SubPrivate Sub Form_Unload(Cancel As Integer) Open out4.txt For Output As #1 Print #1, Op1.Value, Op2.Value, Text1.Text, Text2.Text, Lab1.Caption Close #1 End Sub程序结束参考答案 If Op1 Then Lab1.Caption = Text1.Text Text1.Text = Text2.Text Text2.Text = Lab1.Caption Lab1

20、.Caption = 交换成功 ElseIf Op2 Then Lab1.Caption = Text1.Text & Text2.Text End If 步骤3：调试并运行程序，关闭程序后按题目要求存盘。题目三：综合应用题【考点分析】本题考点有：Sub( )函数，Int( )函数，文件操作，App.Path相对路径，数组的定义和应用，窗体的Print方法和For循环语句。【 解 题 思 路 】 在 读 入 数 据 命 令 按 钮 中 ， 通 过 调 用Sub过 程 来 实 现 对 datain1.txt 和datain2.txt文件的读数据操作。单击计算按钮，利用For循环实现将把一个数组的

21、元素的第n个元素除以第二个数组的第n个元素，结果截尾取整后作为第三个数组的第n个元素，数字的截尾取整用Int( )函数来实现；并用窗体的Print方法将结果显示在窗体上。单击存盘按钮，将结果存在Dataout.txt文件中。【操作步骤】步骤1：新建界面，添加控件并设置控件的属性。程序中用到的控件及属性见表3.225。步骤2：分析并编写程序代码。程序提供代码Option Base 1Dim Arr1(20) As IntegerDim Arr2(20) As IntegerDim Sum As IntegerSub ReadData1() Open App.Path & & datain1.tx

22、t For Input As #1 For i = 1 To 20 Input #1, Arr1(i) Next i Close #1 End SubSub ReadData2() Open App.Path & & datain2.txt For Input As #1 For i = 1 To 20 Input #1, Arr2(i) Next i Close #1 End SubSub WriteData(Filename As String, Num As Integer) Open App.Path & & Filename For Output As #1 Print #1, Nu

23、m Close #1 End SubPrivate Sub C1_Click()要求考生编写的内容End SubPrivate Sub C2_Click()要求考生编写的内容End SubPrivate Sub C3_Click()要求考生编写的内容End Sub程序结束参考答案Private Sub C1_Click() ReadData1 ReadData2 End SubPrivate Sub C2_Click() Dim Arr3(20) As Integer Sum = 0 For i = 1 To 20 Arr3(i) = Int(Arr1(i) / Arr2(i) Sum = S

24、um + Arr3(i) Next i Print Sum = ; SumEnd SubPrivate Sub C3_Click() WriteData DataOut.txt, SumEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。第70套题解析题目一：基本操作题（1）【考点分析】本题考点有：菜单编辑器的使用（名称，标题，内缩符号）和图片框的Name属性和Print、Cls方法。【解题思路】用菜单编辑器来设置菜单的名称，标题，内缩符号。另外，在图片框中显示“等级考试”的信息通过图片框的Print方法实现，清除图片框信息通过图片框的Cls属性实现。【操作步骤】步骤1：建立界面，

25、添加一个名称为P1的图片框，然后用菜单编辑器建立如下表3.226所示的菜单。标题名称内缩符号操作Op0表3.226显示Dis1清除Clea1步骤2：编写程序代码。参考答案Private Sub Clea_Click() P1.Cls End SubPrivate Sub Dis_Click() P1.Print 等级考试End Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。（2）【考点分析】本题考点有：列表框的的Name、List、Text属性，AddItem方法和DblClick事件。【解题思路】在列表框的DblClick事件中，通过AddItem方法将列表框中选中的文本添加到列表

26、框中。【操作步骤】步骤1：建立界面，添加控件并设置控件的属性。程序中用到的控件及属性见表3.227。步骤2：编写程序代码。参考答案Private Sub L1_DblClick() L1.AddItem L1.TextEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。题目二：简单应用题（1）【考点分析】本题考点有：文本框的Name属性，框架的Name、Caption属性，单选按钮的Name、Caption、Value属性，窗体的Click事件以及If判断语句。【解题思路】在窗体上添加相应的控件并通过属性窗口设置其属性。通过If语句判断单选按钮的Value属性是否为True，即某个

27、单选按钮是否被选中来显示标签的内容。一般地，我们认为Value属性是单选按钮的默认属性。【操作步骤】步骤1：打开本题工程文件，添加控件并设置控件的属性。程序中用到的控件及属性见表3.228和3.229。 表3.228控件框架1框架2文本框属性Name CaptionName CaptionName设置值F1交通工具 F2到达目标Text1 表3.229控件单选按钮1单选按钮2单选按钮3单选按钮4属性Name CaptionName CaptionNameCaptionName Caption设置值Op1飞机Op2火车Op3广州Op4昆明步骤2：分析并编写程序代码。程序提供代码Private S

28、ub Form_Click()需要考生编写的内容End SubPrivate Sub Form_Unload(Cancel As Integer) Open App.Path & out3.txt For Output As #1 Print #1, Op1.Value, Op2.Value, Op3.Value, Op4.Value, Text1.Text Close #1 End Sub程序结束参考答案 If Op1 And Op3 Then Text1.Text = 坐飞机去广州 ElseIf Op1 And Op4 Then Text1.Text = 坐飞机去昆明 ElseIf Op2

29、 And Op3 Then Text1.Text = 坐火车去广州 ElseIf Op2 And Op4 Then Text1.Text = 坐火车去昆明 End If 步骤3：调试并运行程序，关闭程序后按题目要求存盘。（2）【考点分析】本题考点有：文本框的Name、Text属性，单选按钮的Name、Caption、Value属性，&连接符以及If判断语句。【解题思路】在窗体上添加相应的控件并通过属性窗口设置其属性。选择交换单选按钮并单击窗体时，通过一个文本框的Caption属性作为中间变量将文本框1和文本框2的内容交换，并将文本框的Caption属性设为交换成功；选择连接单选按钮并单击窗体时

30、，用&连接符将文本框1和文本框2中的内容顺序连接起来。【操作步骤】步骤1：打开本题工程文件，添加控件并设置控件的属性。程序中用到的控件及属性见表3.230。步骤2：分析并编写程序代码。程序提供代码Private Sub Text3_Click()需要考生编写的内容End SubPrivate Sub Form_Unload(Cancel As Integer) Open out4.txt For Output As #1 Print #1, Op1.Value, Op2.Value, Text1.Text, Text2.Text, Lab1.Caption Close #1 End Sub程序

31、结束参考答案 If Op1 Then Text3.Text = Text1.Text Text1.Text = Text2.Text Text2.Text = Text3.Text Text3.Text = 交换成功 ElseIf Op2 Then Text3.Text = Text1.Text & Text2.Text End If 步骤3：调试并运行程序，关闭程序后按题目要求存盘。题目三：综合应用题【考点分析】本题考点有：Sub( )函数，Int( )函数，文件操作，App.Path相对路径，数组的定义和应用，窗体的Print方法和For循环语句。【 解 题 思 路 】 在“ 读 入 数

32、据 ” 命 令 按 钮 中 ， 通 过 调 用Sub 过 程 来 实 现 对 “datain1.txt” 和“datain2.txt”文件的读数据操作。单击“计算”按钮，利用For循环实现将把一个数组的元素的第n个元素除以第二个数组的第n个元素，结果截尾取整后作为第三个数组的第n个元素，数字的截尾取整用Int( )函数来实现；并用窗体的Print方法将结果显示在窗体上。单击“存盘”按钮，将结果存在“Dataout.txt”文件中。【操作步骤】步骤1：打开本题工程文件，添加控件并设置控件的属性。程序中用到的控件及属性见表3.231。步骤2：分析并编写程序代码。程序提供代码Option Base

33、1Dim Arr1(20) As IntegerDim Arr2(20) As IntegerDim Sum As IntegerSub ReadData1() Open App.Path & & datain1.txt For Input As #1 For i = 1 To 20 Input #1, Arr1(i) Next i Close #1 End SubSub ReadData2() Open App.Path & & datain2.txt For Input As #1 For i = 1 To 20 Input #1, Arr2(i) Next i Close #1 End

34、SubSub WriteData(Filename As String, Num As Integer) Open App.Path & & Filename For Output As #1 Print #1, Num Close #1 End SubPrivate Sub C1_Click()要求考生编写的内容End SubPrivate Sub C2_Click()要求考生编写的内容End SubPrivate Sub C3_Click()要求考生编写的内容End Sub程序结束参考答案Private Sub C1_Click() ReadData1 ReadData2 End SubP

35、rivate Sub C2_Click() Dim Arr3(20) As Integer Sum = 0 For i = 1 To 20 Arr3(i) = Int(Arr1(i) / Arr2(i) Sum = Sum + Arr3(i) Next i Print Sum = ; SumEnd SubPrivate Sub C3_Click() WriteData DataOut.txt, SumEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。第71套题解析题目一：基本操作题（1）【考点分析】本题考点有：命令按钮的Name、Caption属性，通用对话框的Name、Filt

36、er、FilterIndex属性和ShowOpen方法。【解题思路】当通用对话框显示为“打开”或“另存为”类型时，其FileName属性用于返回或设置所选的文件的路径和文件名。Filter（过滤器）属性用于指定在对话框的文件列表中显示文件的类型。语法为“对象名.Filter =描述|文件扩展名”。【操作步骤】步骤1：建立界面，添加控件并设置控件的属性。程序中用到的控件及属性见表3.232。步骤2：编写程序代码。参考答案Private Sub Command1_Click() CD1.ShowOpen End Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。（2）【考点分析】本题考点有：

37、命令按钮的的Name、Caption属性，文本框的Name、Text属性，计时器的Name、Interval属性。【解题思路】根据题意添加控件并通过属性窗口设置相应的属性，将计时器的Interval属性设为1000，并将初始的Enabled属性设为False。单击“开始计数”按钮时，将计时器的Enabled属性设为True，计时器开始工作，文本框中的数每秒自动增加1。【操作步骤】步骤1：建立界面，添加控件并设置控件的属性。程序中用到的控件及属性见表3.233。步骤2：编写程序代码。参考答案Private Sub C1_Click() T1.Enabled = TrueEnd SubPrivat

38、e Sub T1_Timer() Text1.Text = Text1.Text + 1 End Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。题目二：简单应用题（1）【考点分析】本题考点有：命令按钮的Name、Caption属性，窗体的Visible方法。【解题思路】要把Form2设为启动窗体，只需选择“工程”菜单下的“工程1属性”，在通用选项卡中将启动对象选为Form2即可。【操作步骤】步骤1：打开本题工程文件，选择“工程”菜单下的“工程1属性”，在通用选项卡中将启动对象选为Form2。程序中用到的控件及属性见表3.234。步骤2：分析并编写程序代码。程序提供代码窗体1的代码Pr

39、ivate Sub C1_Click() End End Sub窗体2的代码Private Sub C2_Click()Load Form1Form1.Visible = TrueEnd Sub程序结束步骤3：调试并运行程序，关闭程序后按题目要求存盘。（2）【考点分析】本题考点有：单选按钮的Name、Value、Caption属性，命令按钮的Name属性，Call语句，Sub( )函数的调用，If判断语句，For循环语句，图片框的Print方法和“&”连接符的使用。【解题思路】通过For循环，用If语句判断选择了哪个单选按钮，并用图片框的Print方法将所做的选择显示在图片框内。【操作步骤】步

40、骤1：打开本题工程文件，为控件添加相应的属性，如下表3.235所示。步骤2：分析并编写程序代码。程序提供代码Private Sub C1_Click() Dim k As Integer For k = 0 To 2 If Op1(k).Value = True Then Call draw(k) End If Next k End SubSub draw(a As Integer) P1.Print 选择了 & Op1(a).Caption End Sub程序结束步骤3：调试并运行程序，关闭程序后按题目要求存盘。题目三：综合应用题【考点分析】本题考点有：文本框的Text属性，Function

41、( )函数，数组的定义和应用，Val( )函数，If判断语句和For循环语句。【解题思路】单击“查找”按钮，先用Val( )函数将文本框中的字符串转化为数值，然后通过For循环，通过调用Function( )函数用If语句找出满足条件的三个素数，最后通过For循环语句将找到的素数放在标签控件数组中。【操作步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。程序提供代码Private Function IsPrime(ByVal x As Integer) As Boolean Dim i As Integer For i = 2 To Sqr(x) If x Mod i = 0 The

42、n IsPrime = False Exit Function End If Next IsPrime = TrueEnd FunctionPrivate Sub Command1_Click()考生编写程序开始=考生编写程序结束 Open App.Path & out5.dat For Output As #1 Print #1, Text1.Text, Label1(0).Caption, Label1(1).Caption, Label1(2).Caption Close #1 End Sub程序结束参考答案 Dim i As Integer Dim n As Integer Dim c

43、ounter As Integer Dim arr(3) As Integer n = Val(Text1.Text) counter = 0 For i = n - 2 To 3 Step -2 If IsPrime(i) Then arr(counter) = i counter = counter + 1 If counter = 3 Then Exit For End If End If Next For i = 0 To 2 Label1(i).Caption = arr(i) Next 步骤3：调试并运行程序，关闭程序后按题目要求存盘。第72套题解析题目一：基本操作题（1）【考点分

44、析】本题考点有：计时器的Name、Interval属性和窗体的。【解题思路】将计时器的Interval属性设置为1000就能使程序在运行时每隔一秒种调用计时器的Timer事件一次。【操作步骤】步骤1：建立界面，添加控件并设置控件的属性。程序中用到的控件及属性见表3.236。步骤2：调试并运行程序，关闭程序后按题目要求存盘。（2）【考点分析】本题考点有：文本框的Name、Text属性，图片框的Name属性和Print方法。【解题思路】根据题意建立相应控件并通过属性窗口设置属性。在文本框的Change事件中，将文本框的Text内容通过图片框的Print方法显示在图片框内。【操作步骤】步骤1：建立界

45、面，添加控件并设置控件的属性。程序中用到的控件及属性见表3.237。表3.237控件文本框图片框属性NameTextName设置值Text1步骤2：编写程序代码。参考答案P1Private Sub Text1_Change() P1.Print Text1.Text End Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。题目二：简单应用题（1）【考点分析】本题考点有：控件数组，单选按钮的Caption、Value属性，命令按钮的Caption属性，窗体的Print方法，If判断语句和For循环语句。【解题思路】根据题意通过属性窗口的Caption属性分别设置三个单选按钮和命令按钮的标

46、题，并把广州的Value属性设为True。通过窗体的Print方法将选择的结果显示在窗体上。【操作步骤】步骤1：打开本题工程文件，并设置控件的属性。程序中用到的控件及属性见表3.238。步骤2：分析并编写程序代码。程序提供代码Private Sub C1_Click() For i = 0 To 2 If Op1(i).Value = True Then Print 我的出生地是 + Op1(i).Caption End If Next End Sub程序结束步骤3：调试并运行程序，关闭程序后按题目要求存盘。（2）【考点分析】本题考点有：标签的Name、Caption、Font、Font.Si

47、ze属性，组合框的Name、List、Text属性。【解题思路】根据题意建立相应控件并通过属性窗口设置属性，并通过List属性分别向组合框1和组合框2中添加项目。标签1即L1中的字体大小由组合框1中选项决定，L1中的字体由组合框2中的选项决定。【操作步骤】步骤1：打开本题工程文件，添加控件并设置控件的属性。程序中用到的控件及属性见表3.239和3.240。步骤2：分析并编写程序代码。程序提供代码Private Sub Cb1_Click()要求考生编写的内容End SubPrivate Sub Cb2_Click()要求考生编写的内容End SubPrivate Sub Form_Unload

48、(Cancel As Integer) Open App.Path & out4.txt For Output As #1 Print #1, Cb1.Text, Cb2.Text, CInt(L1.Font.Size), L1.Font Close #1 End Sub程序结束参考答案Private Sub Cb1_Click() L1.Font.Size = Cb1.Text End SubPrivate Sub Cb2_Click() L1.Font = Cb2.Text End Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。题目三：综合应用题【考点分析】本题考点有：文本框的T

49、ext属性，文件操作，App.Path相对路径，Int( )函数，If判断语句和DoLoop循环语句。【解题思路】根据题意建立相应控件并通过属性窗口设置属性。单击计算按钮，利用DoLoop循环语句，调用isprime( )函数找出大于参数a的素数，并将得到满足条件的数在文本框中显示出来。单击存盘按钮，将文本框中的计算结果存入ot5.txt中。【操作步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。程序提供代码Private Sub C1_Click()要求考生编写的内容End SubPrivate Sub C2_Click()要求考生编写的内容End SubPrivate Function isprime(a As Integer) As Boolean Dim flag As Boolean flag = True b% = 2 Do While b% = Int(a / 2) And flag If Int(a / b%) = a / b% Then flag = False Else b% = b% + 1