试题

试题 试卷

logo

题型:填空题 题类:模拟题 难易度:普通

浙江省杭州市2016年信息技术高考模拟卷二

编写VB程序,在如图1所示1×1的正方形区域内产生一定数量、位置随机的点坐标,统计位于0.5×0.5的黑色区域内(包括边界)点的数量。程序运行时界面如图2所示。

 

    

 自上而下两个文本框的名称分别是Text1和Text2,“开始”按钮的名称是Command1。在Text1

中输入数据,单击“开始”按钮,在Text2中显示统计结果。“开始”按钮单击事件处理过程的流程图如右图所示。请根据流程图将下列程序补充完整

     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

举一反三
返回首页

试题篮