VB试题随机产生20个50-108(包括50和108)的整数赋给一个一维数组,求其最大值,
工具／材料：以Microsoft Visual Studio 2010为例。1、首先在桌面上，点击“Microsoft Visual Studio 2010”图标。2、然后在该界面中，输入随机产生20个50-108(包括50和108)的整数赋给一个一维数组的代码“Dim arr(1 To 20) As Integer Dim max As Integer For i = 1 To 20 arr(i) = Int(Rnd() * 58 + 50)”。4、最后在该界面中，输入求其最大值的代码“For i = 1 To 20 If max < arr(i) Then max = arr(i) End If”。
VB编程题：编写一个产生1 至100之间的随机整数的Function 过程
Rnd函数产生的是0和1之间的随机数，范围是[0,1)，包括0，但不包括1。因此要产生1~100之间的随机数，可以使用Rnd*98，产生的是[0,98)的随机数，而int(Rnd*98)产生的是[0,97]之间的随机整数，那么int(Rnd*98)+2产生的就是[2,99]之间的随机整数了，符合目标1到100之间的随机数目的。函数代码如下：Public Function sj() As IntegerRandomizesj = Int(Rnd * 98) + 2End Function扩展资料：语法：Rnd[(number)]如果 number 的值是 Randomize 生成小于 0 ，每次都使用 number 作为随机数种子得到的相同结果。大于 0 ，以上一个随机数为种子产生下一个随机数。等于 0 ，产生与最近生成的随机数相同的随机数。省略， 以上一个随机数为种子产生下一个随机数。说明：Rnd 函数返回小于 1 但大于或等于 0 的值。number 的值决定了 Rnd 生成随机数的方式。对最初给定的种子都会生成相同的数列，因为每一次调用 Rnd 函数都用数列中的前一个数作为下一个数的种子。在调用 Rnd 之前，先使用无参数的 Randomize语句初始化随机数生成器（若带参数，则产生由参数对应的一个特定序列的随机数），该生成器具有根据系统计时器得到的种子。为了生成某个范围内的随机整数，可使用以下公式：Int((upperbound - lowerbound + 1) * Rnd + lowerbound)这里，upperbound 是随机数范围的上限，而 lowerbound 则是随机数范围的下限。注意 若想得到重复的随机数序列，在使用具有数值参数的 Randomize 之前直接调用具有负参数值的 Rnd。使用具有同样 number 值的 Randomize 是不会得到重复的随机数序列的。参考资料：百度百科——rnd（随机函数）
matlab中，在同一图上绘制y1=sin(x)和y=cos(x)在区间[0,8*pi]的曲线，并用五角星标出两条曲线的交点。
1、启动MATLAB，新建脚本（Ctrl+N），输入以下代码：close all; clear all; clc%---the first method for drawing pentagram---%n=[1:2:11];x=sin(0.4*n*pi);y=cos(0.4*n*pi)。2、保存和运行上述脚本，figure(1)绘制的五角星图形如下。3、figure(2)绘制的五角星图形如下。4、figure(3)绘制的五角星图形如下。5、figure(4)绘制的五角星图形如下。
VB画正弦函数图像的算法
Private Const pi = 3.14159
Private a
Private Sub Form_Load()
Me.AutoRedraw = True
'首先清除me内的图形
Me.Cls
'Scale方法设定用户坐标系，坐标原点在me中心
Me.ScaleMode = 0
Me.ScaleMode = 3
Me.Scale (-10, 10)-(10, -10)
'设置绘线宽度
Me.DrawWidth = 1
'绘坐标系的X轴及箭头线
Me.Line (-10, 0)-(10, 0), vbBlue
Me.Line (9, 0.5)-(10, 0), vbBlue
Me.Line -(9, -0.5), vbBlue
Me.ForeColor = vbBlue
Me.Print "X"
'绘坐标系的Y轴及箭头线
Me.Line (0, 10)-(0, -10), vbBlue
Me.Line (0.5, 9)-(0, 10), vbBlue
Me.Line -(-0.5, 9), vbBlue
Me.Print "Y"
'指定位置显示原点O
Me.CurrentX = 0.5
Me.CurrentY = -0.5
Me.Print "O"
'重设绘线宽度
Me.DrawWidth = 2
'用For循环绘点，使其按正弦规律变化。步长值很小，使其形成动画效果
For a = -2 * pi To 2 * pi Step pi / 6000
Me.PSet (a, Sin(a) * 5), vbRed
Next
'指定位置显示描述文字
Me.CurrentX = pi / 2
Me.CurrentY = -7
Me.ForeColor = vbBlack
Me.Print "正弦曲线示意"
End Sub
