88问答网
所有问题
当前搜索:
vb产生n个随机数
vb随机生成
10
个数
并显示在一个文本框中, 并找出最大数,指出它的位置
答:
添加一个text1,输入以下代码,然后运行。单击窗体,十
个随机数
显示在text1中,弹出对话框,提示第
几个
为最大数,并将最大数选中。Private Sub form_Click()Dim a(1 To 10) As Integer, i As Integer Randomize For i = 1 To 10 a(i) = Int(Rnd * 90) + 10 Text1.Text = Text1....
VB编程
:利用随机函数
产生
10-20范围内的5
个随机数
,显示其中的最大值...
答:
考试时把不要的注释去掉 Private Sub Form_Click()Dim i, num(1 To 5) As Integer, smax As Integer, smin As Integer, savg As Single savg = 0 Print "10-20范围内的5
个随机数
如下:"For i = 1 To 5 num(i) = 10 + Int(11 * Rnd) '
产生
[10,20]区间的5个随机数 If i ...
VB中
,
随机产生
10个0~100之间的
随机数
,按从小到大的顺序排列怎么做...
答:
Command1.Caption = "选随机数"Command2.Caption = "小到大排序"Command3.Caption = "大到小排序"'*** 安排控件摆放位置 Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2 1 - 100 之间选 20
个随机数
Trec = 10 End Sub Private Sub Command1_Click() S ...
VB产生
两
个数
之间的
随机数
答:
然后在
n
的基础上加上m-n的差值内的
随机数
就可以了;2、随机数代码是int(rnd*(m-n))+n 3、
产生
两
个
数之间的随机数闭区间示例(以产生一个[10,90]之间的随机数为例):private sub command1_click()dim n as integer randomize n = int(rnd * 90) + 10 print n;end sub ...
怎么让
vb
在文本框上
随机产生
一个1-10的整数?
答:
随机数
的返回格式 用a表示下界,b表示上界,用一下的命令可以返回a~b之间的任意数 int(rnd()*(b-a+1))+a 你是要
产生
一个1~10之间的数,并显示与文本框上。假设这个文本框是Text1就可以这样 Text1.Text = Str(Int(Rnd()*10)+1)...
谁能使用
VB
利用For…Next循环
随机产生
5个100~200之间的
随机数
?谢谢了...
答:
Private Sub Command1_Click()Dim i Dim a(5) As Integer For i = 1 To 5 a(i) = 100 + 100 * Rnd Print a(i);Next End Sub
vb产生
30个0~1000的
随机
整数,放入一个数组中,输出最大值
答:
'实现代码如下Private Sub Form_Click() Me.Cls Dim
n
(1 To 30) As Integer Dim i%,nMax% Dim str As String '
产生
30个0-1000的
随机数
并写入数组 Randomize For i = 1 To 30 n(i) = Int((1000 - 0 + 1) * Rnd + 0) str = str & n(i) & " ...
用
VB
写代码
产生
10个100-200的
随机数
,保存在数组中,从小到大排序,输出...
答:
Private Sub Form_Click() Dim a%(9), i%, j%, t% Randomize For i = 0 To UBound(a) a(i) = Int(Rnd * 101) + 100 Next For i = 0 To UBound(a) - 1 For j = 0 To UBound(a) - i - 1 If a(j) > a(j + 1) Then t = a(j):...
在
VB中
,
随机产生
10个两位数保存在数组中
答:
Dim a(1 To 10)Private Sub Command1_Click()Randomize Picture1.Print "
产生
的
随机数
为:"For i = 1 To 10 a(i) = Int(Rnd * 99 + 1)Picture1.Print a(i);Next i Picture1.Print End Sub Private Sub Command2_Click()Dim max, min, pv, count max = a(1)min = a(1)pv ...
vb
语句 设计一
个随机数
程序,
生成
10个范围是1到100随机整数,并求出这...
答:
'声明变量 dim Min_num as int dim Max_num as int dim Sum_num as int dim Arr_num(9) as int '赋予初始值 Min_num=101 Max_num=-1 Sum_num=0 '循环10次获得10
个随机数
for i=1 to 10 randomize Arr_num(i-1)=int(rnd*100)+1 '判断后赋值最小值 if Arr_num(i-1)<Min_...
棣栭〉
<涓婁竴椤
5
6
7
8
10
11
12
9
13
14
涓嬩竴椤
灏鹃〉
其他人还搜