编写VB程序,在如第18题-1图所示11的正方形区域内产生.doc

18. （2008年10月浙江省高考）编写VB程序，在如第18题-1图所示1×1的正方形区域内产生一定数量、位置随机的点坐标，统计位于0.5×0.5的黑色区域内（包括边界）点的数量。程序运行时界面如第18题-2图所示。 第18题-1图 第18题-2图 （1）设计应用程序界面时，为添加“开始”按钮，应使用第18题-3图所示的“控件工具箱”中的______（填写相应编号），并在第18题-4图所示的“属性窗口”中，将______属性值设置为“开始”。 第18题-3图 第18题-4图 （2）自上而下两个文本框的名称分别是Text1和Text2，“开始”按钮的名称是Command1。在Text1中输入数据，单击“开始”按钮，在Text2中显示统计结果。“开始”按钮单击事件处理过程的流程图如第18题-5图所示。请根据流程图将下列程序补充完整。Private Sub Command1_Click( ) Dim n As Integer, m As Integer, i As Integer Dim x As Single, y As Single n = ① m=0 Randomize ′初始化Rnd函数 For i = 1 To n x = Rnd ′随机产生x坐标，0≤x＜1 y = Rnd ′随机产生y坐标，0≤y＜1 ② Next i Text2.Text = Str(m) End Sub 第18题-5图   17．（2009年9月浙江省高考）某电视台的直播节目结束后，主持人从参与短信投票的观众中抽取若干名幸运观众。假设共有500名观众参与短信投票，抽奖程序的部分VB代码如下，程序运行时界面如第17题图所示。主持人在文本框Text1中输入幸运观众数量后，单击“开始”按钮Command1，在列表框List1中显示幸运观众的手机号码。请在划线处填入合适的代码。 第17题图 Dim a(1 To 500) As String 参与短信投票观众的手机号码 Form_load过程用于将参与短信投票观众的手机号码存放到数组a中 Private Sub Form_Load () 该过程代码略 End Sub Private Sub Command1_Click() Dim n As Integer 幸运观众的数量 Dim t As Integer 幸运观众的序号 Dim i As Integer Randomize (1) List1.Clear For i=1 To n t = Int(Rnd*500)+1 DO While (2) =True t = Int(Rnd*500)+1 Loop List1.Addltem Mid(a(t),1,3)+“****+Mid(a(t),8,4) Next i End Sub check函数用于判断随机产生的幸运观众的序号是否重复 Private Function check(t As Integer)As Boolean 函数值为True表示序号重复 该函数代码略 End Function 17、（2010年9月浙江省高考）小施想编写一个VB程序帮助弟弟练习最大公约数的计算，程序运行界面如下图所示。单击“生成题目”按钮Command1生成两个两位随机正整数，分别显示在左边的文本框Text1和中间的文本框Text2中。在右边的文本框Text3中输入结果并按回车键后，如果结果正确，将在该文本框右边的标签Label3中显示“√”，否则显示“×”。请在画线处填入合适的代码。 Dim r As Integer ‘用于存放最大公约数 Private Sub Command1_Click ( ) Dim i As Integer Dim m As Integer Dim n As Integer Randomize m = Int ( Rnd * 90) + 10 n = Int ( Rnd * 90) + 10 Text1．Text = Str ( m ) ： Text2．Text = Str ( n ) Text3．Text = ： Label3．Caption = If m n Then r = n