11问答网
所有问题
当前搜索:
int(rnd)函数vb
VB
数组、自定义
函数
和过程的问题。求解答~!谢谢!
答:
XS(I).成绩 =
Int(
(100 *
Rnd)
) '生成0到100之间的随机数 Select Case XS(I).成绩 '成绩分段 Case 0 To 59 X(0) = X(0) + 1 '累计分数在60分以下的人数 Case 60 To 69 X(1) = X(1) + 1 Case 70 To 79 X(2) = X(2) + 1 Case 80 To 89 X(3) = X(3)...
VB
随机数怎么做
答:
1、方法 使用randomsize
函数
2、代码如下 Randomize '随机种子初始化Dim Int_A As IntegerInt_A=
Int(Rnd()
*10) '生成0-9之间的随机整数Int_A=Int(Rnd()*100) ‘生成0-99之间的随机整数
VB
高手进来帮下忙 好的追加分
答:
13.函数Len(Str(Val("111.1")))的值为(B 6)14.
Rnd函数
不可能产生(B 1)值 15.VB中应用程序的开发主要是在
(VB)
设计器上完成的 16.由VB预先设置好的,能够被对象识别的动作称为(事件)17.命令按钮最常见的事件是(click)18.在用Public Private Dim 三种关键字声明的变量中,(Public)...
vb
编写程序利用随机
函数rnd
生成十个10-99之间的整数并分别求出偶数与...
答:
Sub t()Dim i奇数 As Integer i奇数 = 0 Dim i偶数 As Integer i偶数 = 0 Dim allNumber As String Dim iTemp As Integer For i = 1 To 10 iTemp =
Rnd
* 90 + 10 If i > 1 Then allNumber = allNumber & ","End If allNumber = allNumber & iTemp If iTemp Mod 2 = 0 ...
如何用
vb
中的随机
函数
产生奇数?(只要奇数)
答:
要只用
Rnd函数
就产生奇数的话,是不行的啊,得多用一个循环结构!比如下面代码! dim a (20) '定义一个数组 for i = 1 to 20 a(i)=
int(Rnd
*100) ' 为数组中每一个数覆值!if a(i) mod 2=0 then i=i-1 '判断该数是不是奇数,不是的话,重新给个值!next i ...
用
VB
编写一个
函数
过程FuncMin,求一维数组a中的最小值
答:
Function FuncMin(arr() As Integer) As Integer FuncMin = arr(LBound(arr))For i = LBound(arr) + 1 To UBound(arr)If arr(i) < FuncMin Then FuncMin = arr(i)End If Next End Function test调用:Private Sub Command1_Click()Dim arr(1 To 3) As Integer arr(1) = 2 arr(...
VB
题目啊求高人
答:
= 1 To 10 a(i) =
Int(Rnd()
* 100)If i = 1 Then If Text1 <> "" Then Text1.Text = Text1.Text & vbCrLf & Now & " " & a(i) Else Text1.Text = Now & " " & a(i)Else Text1.Text = Text1.Text & "," & a(i)End If Next i End If End Sub ...
Vb
随机生成长度为[20个大写英文字母、数字]的组合,每五个加一个连字符...
答:
不过还是花点时间给你写一个。vb6.0xp系统测试通过,希望能选择为最佳。另外本人强烈鄙视提问了却不珍惜别人劳动成果,不选任何答案的!Private Sub Form_Click()'使用chr(
)函数
'其中48~57为0到9十个阿拉伯数字 '65~90为26个大写英文字母 '97~122号为26个小写英文字母 'a =
Int(Rnd
* (da...
怎样使以下随机
函数
不重复出现
(VB)
?
答:
给一个小程序,希望有帮到您。Dim n As Integer, a(20) As Integer Private Sub Command1_Click() '初始化 n = 20 For i = 1 To n a(i) = i Next i Print Command2.Enabled = True End Sub Private Sub Command2_Click() '随机抽取不重复数字 Randomize k =
Int(Rnd
* n)...
如何用
vb
中的随机
函数
产生奇数?(只要奇数)
答:
Public Function SJJS(iMin,iMax)'随机奇数 'iMin:下限 'iMax:上限 SJJS =
Int(Rnd
(iMax / 2 - iMin + 1)+ iMin)2 - 1 End Function --- 调用:a=sjjs(1,10)'随机一个奇数,范围1~10之间,即1、3、5、7、9
棣栭〉
<涓婁竴椤
67
68
69
70
71
72
73
74
75
76
其他人还搜