1、18. （2008 年 10 月浙江省高考）编写 VB 程序，在如第 18 题-1 图所示 11 的正方形区域内产生一定数量、位置随机的点坐标，统计位于 0.50.5 的黑色区域内（包括边界）点的数量。程序运行时界面如第 18 题-2 图所示。第 18 题-1 图 第 18 题-2 图（1）设计应用程序界面时，为添加“开始”按钮，应使用第 18 题-3 图所示的“控件工具箱”中的_（填写相应编号） ，并在第 18 题-4 图所示的“属性窗口”中，将_属性值设置为“开始” 。第 18 题-3 图 第 18 题-4 图（2）自上而下两个文本框的名称分别是 Text1 和 Text2， “开始”按钮
2、的名称是Command1。在 Text1 中输入数据，单击“开始”按钮，在 Text2 中显示统计结果。“开始”按钮单击事件处理过程的流程图如第 18 题-5 图所示。请根据流程图将下列程序补充完整。Private Sub Command1_Click( )Dim n As Integer, m As Integer, i As IntegerDim x As Single, y As Singlen = m=0Randomize 初始化 Rnd 函数For i = 1 To nx = Rnd 随机产生 x 坐标，0x1y = Rnd 随机产生 y 坐标，0y1 Next iText2.Tex
3、t = Str(m)End Sub第 18 题-5 图17 （2009 年 9 月浙江省高考）某电视台的直播节目结束后，主持人从参与短信投票的观众中抽取若干名幸运观众。假设共有 500 名观众参与短信投票，抽奖程序的部分 VB 代码如下，程序运行时界面如第 17 题图所示。主持人在文本框 Text1 中输入幸运观众数量后，单击“开始”按钮 Command1，在列表框 List1 中显示幸运观众的手机号码。请在划线处填入合适的代码。Dim a(1 To 500) As String 参与短信投票观众的手机号码Form_load 过程用于将参与短信投票观众的手机号码存放到数组 a 中Private
4、 Sub Form_Load ()该过程代码略End SubPrivate Sub Command1_Click()Dim n As Integer 幸运观众的数量Dim t As Integer 幸运观众的序号Dim i As IntegerRandomize(1) List1.ClearFor i=1 To nt = Int(Rnd*500)+1DO While (2) =Truet = Int(Rnd*500)+1LoopList1.Addltem Mid(a(t),1,3)+“*+Mid(a(t),8,4)Next iEnd Subcheck 函数用于判断随机产生的幸运观众的序号是否重
5、复Private Function check(t As Integer)As Boolean函数值为 True 表示序号重复该函数代码略End Function第 17 题图17、 （2010 年 9 月浙江省高考）小施想编写一个 VB 程序帮助弟弟练习最大公约数的计算，程序运行界面如下图所示。单击“生成题目”按钮 Command1 生成两个两位随机正整数，分别显示在左边的文本框 Text1 和中间的文本框Text2 中。在右边的文本框 Text3 中输入结果并按回车键后，如果结果正确，将在该文本框右边的标签 Label3 中显示“” ，否则显示 “”。请在画线处填入合适的代码。Dim r
6、As Integer 用于存放最大公约数Private Sub Command1_Click ( )Dim i As IntegerDim m As IntegerDim n As IntegerRandomizem = Int ( Rnd * 90) + 10n = Int ( Rnd * 90) + 10Text1 Text = Str ( m ) ： Text2Text = Str ( n ) Text3 Text = “ ： Label3Caption = “If m n Then r = n Else r = mFor i = r To 1 Step -1If m Mod i = 0
7、 n Mod i = 0 Thenr = iExit ForEnd IfNext iEnd SubPrivate Sub Text3_KeyPress ( KeyAscii As Integer)If KeyAscii = 13 ThenIf r = Then Label3Caption = “ Else Label3Caption = “End IfEnd Sub18、 （2010 年 9 月浙江省高考）某中学 2009 年下半年和 2010 年上半年各有 300 名和 100 名学生参加信息技术高考，下列 VB 程序用于统计参加过这两次考试的学生信息，其中 Command1_Click 过
8、程的算法流程图如下所示，请回答下列问题：（1）流程图中虚线框部分所采用的查找算法名称是 。（2）程序加框处的代码有错，请改正。Dim a (1 To 300 ) As String 用于存放参加 2009 年下半年考试学生的身份证号码Dim b (1 To 300 ) As String 用于存放参加 2010 年上半年考试学生的身份证号码Form_Load 过程用于进行一些初始化准备工作Private Sub Form_Load（ ）将参加 2009 年下半年考试学生的身份证号码存放在数组 a 中将参加 2010 年上半年考试学生的身份证号码存放在数组 b 中将数组 a 中的数据升序排序将数
9、组 a 和数组 b 中的数据分别显示在列表框 List1 和 List2 中代码略End Sub Command1_Click 过程用于统计参加过这两次考试的学生信息Private Sub Command1_Click ( )Dim i As Integer , bot As Integer , top As Integer , m As IntegerFor i =1 To 300bot = 1top =300Do While bot b ( i ) Thenm = bot 1Elsebot = m + 1End IfLoopNext iEnd Suba(m) b(i)？100?开始i 1i 100?确实初始查找范围（bot，top）bottop？100?计算查找范围的中点位置 ma(m)=b(i)？100?在列表框 List3 中添加 a(m)将 m-1 作为新的查找范围终点将 m+1 作为新的查找范围起点i i+1是结束否否是否是是否
