VB中产生随机数各位大神,真的不会,麻烦说详细点,编程越简单越好,本人第一次学VB,别踩我.题目:使得单击一次按钮可以产生一个[60,90]之间的随机数并显示在标签1上,再求出该数的正弦值,将结果写在标签2上.提示(1)使用Rnd函数产生随机数,注意,为了防止两次运行程序的随机数序列相同,调用Rnd之前先用Randomize语句进行初始化.(2)产生某闭区间内的随机数的公式为:(上限-下限+1)*rnd+下限.(3)求正弦值函数为:sin().图片
问题描述:
VB中产生随机数
各位大神,真的不会,麻烦说详细点,编程越简单越好,本人第一次学VB,别踩我.
题目:使得单击一次按钮可以产生一个[60,90]之间的随机数并显示在标签1上,再求出该数的正弦值,将结果写在标签2上.
提示
(1)使用Rnd函数产生随机数,注意,为了防止两次运行程序的随机数序列相同,调用Rnd之前先用Randomize语句进行初始化.
(2)产生某闭区间内的随机数的公式为:(上限-下限+1)*rnd+下限.
(3)求正弦值函数为:sin().
图片
答
Private Sub cmdRanAngle_Click()Dim dblAngle As doubleDim dblSin As double'RandomizedblAngle = dbl((90*ran)+60)dblSin = sin(dblAngle)lblScream.Caption = dblAnglelblAnswer.caption = dblSinEnd sub 最简单...