注册

题型：综合题题类：常考题难易度：普通

浙江省高中信息技术——VB基础知识

用蒙特卡洛法求圆周率PI的近似值，其算法如下：使用随机函数Rnd，随机生成两个［0，1）之间的随机数，由此构成一个投点坐标（x，y），然后根据x²+y²≤1判断投点是否在圆内来求PI的近似值。其中总共随机投点n次，统计落点在单位圆（第1象限）内的点数为s，则4s/n即为所求PI的近似值程序界面图所示，在Text1中输入投点的个数，单击“计算”按钮，PI的近似值结果显示在Text2文本框中。

（1）、要使得“计算”按钮的宽度增加，应修改该对象的属性。

（2）、为实现上述功能，请在划线处填入合适的代码。

Private Sub Command1 _Click( ) ‘蒙特卡洛法

Randomize ‘随机数初始化

Dim i As Long, n As Long, s As Long

Dim x As Double, y As Double, z As Double

n =Val(Text1. Text)

i=1

s=0

Do While < = n ‘随机投点n次

x= Rnd : y = Rnd

z = ①

If z < = 1 Then

②

End If

i=1+1

Loop

Text2. Text = ③

End Sub

① ② ③

举一反三

【加试题】有10个数据：83，90，96，46，44，36，45，47，55，72依次存放在数组元素a(1)到a(10)中，部分VB程序段如下所示：

m=1：k=1

For i=2 To 10

If a(i)<a(i-1)Then

k=k+1

If k>m Then m=k

Else

k=1

End If

Next i

Text1．Text=Str(m)

End Sub

执行该程序段，文本框Text1中显示的是（）

下列VB表达式的值等于18的是（）

运动会田径比赛，记分裁判把各赛道运动员的成绩表交给录入员录入到计算机中，录入人员编制了如下程序｡运行程序，按道次顺序依次输入8个成绩，道次号存放在数组a中，相应道次的运动员比赛成绩存放于数组b中，并将原始成绩显示在列表框List1 中｡单击“成绩排序”按钮(Command1)，将原始成绩从好到差排序，排序结果显示在列表框List2 中｡运行效果如图所示｡

实现上述功能的VB程序如下：

有如下 Visual Basic 程序段：

s = 0

For i = 1 To 20 Step 2

If s < 15 Then

s = s + i

End If

Next i

以上程序执行结束后，变量s和i的值分别为（）

生成2位能被3整除的随机整数的VB表达式是（）

下列 Python 表达式的值最大的是（）

返回首页

相关试卷

试题篮

公司介绍

Company Introduction

服务介绍

Service Introduction

帮助中心

Help center

二一教育APP

二一教育APP

400-637-9991

周一至周五 8:30-17:30

在线咨询客服