22问答网
所有问题
当前搜索:
vb随机生成n个数
VB
。在0~100
随机产生n个数
,用inputbox输入n。统计这些数中的素数的...
答:
n
= Val(InputBox("n="))For i = 1 To n a = Int(Rnd * 101)For j = 2 To a - 1 If a Mod j = 0 Then Exit For Next If j = a Then Print a k = k + 1 End If Next Print "共" & k & "个素数"End Sub ...
VB编程
急求
随机产生n个
1~100之间的数(包含1和100),求最大值,最小值...
答:
Print "
生成
的
数字
:"For I = 1 To 5 '数组里面有5个不同数值a1,a2,a3,a4,a5,此处I的最大值
n
对应Dim中的a(n)(可以改变最大值来改变需要的输出的数据数量)' I = 0 to n 表示I的取值有n-0+1个 a(I) = Int(Rnd * 99) + 1 '数组内
产生
1~100的
随机数
Print a(I);z = z ...
vb编程
:
随机生成n个
两位正整数,在窗体上输出排成2行输出,找出大于其平 ...
答:
n
= 10 ReDim a(10) As Integer For i = 1 To n a(i) = 10 + 90 * Rnd Print a(i);If i = n \ 2 Then Print Next m = 0 For i = 1 To n m = m + a(i)Next v = m / n Print For i = 1 To n If a(i) > v Then Print a(i);Next End Sub ...
用
VB
来写代码,用循环if或do来写:
随机产生n个
(1~100)之间的数,求它们的...
答:
Text1 = Text1 & vbCrLf & "最大:" & da & vbCrLf & "最小:" & xiao & vbCrLf & "平均:" & s /
n
End Sub Private Sub Form_Load()Label1 = "输入
随机数个数
:"Text2 = 0 Text1 = ""Command1.Caption = "
生成随机
数"End Sub 不用数组的话直接在第一个for里让text1= ...
VB
文本框中输入N的值,
随机产生N个
1-100之间的整数,并求他们的平均值...
答:
Private Sub Command1_Click()Dim i%,
n
%, S%, t n = Val(Text1.Text)For i = 1 To CInt(Text1.Text)Randomize t = Int(Rnd * 100) + 1 S = S + t Print t Next Print "Average=" & S / n End Sub
如何用
vb
解答
随机产生N个
二位正整数存放在一维数组中,求数组的最大值...
答:
Redim A(1 to
n
) as Integer Randomize Max=0 Min=100 For i=1 to
N
A(i)=Int(Rnd*90)+10 if A(i)>Max Then Max=a(i)If A(i)<Min Then Min=A(i)Avg=Avg+A(i)Next Print "最大值为:" & Max Print "最小值为:" & Min Print "平均值为:" & Avg/N End Sub ...
VB 随机产生N个
两位正整数,用选择法或冒泡法将这些数按升序排列后输出...
答:
For i = 1 To
N
If i Mod 10 = 1 Then Print '每行打印10
个数
据 Print a(i);Next End Sub '冒泡排序函数 Sub MaoPaoSort(a() As Integer)Dim i As Integer Dim j As Integer Dim temp As Integer For i = LBound(a()) To UBound(a()) - 1 For j = LBound(a()) To ...
VB
求大神解答
随机产生n个
两位整数,找出其中奇数、偶数和素数并将技术...
答:
===窗体代码===Private Sub CommandButton1_Click()Dim
n
%, i%, sr$n = InputBox("请输入
随机数个数
(不能大于90)")If n < 91 ThenCall 两位随机正整数(n)Call 冒泡排序(arr)Call 数组转字符串(arr, sr)TextBox1.Text = srElseMsgBox "该数值不能大于90"End IfEnd SubPrivate Sub...
怎么用
VB
实现从1到
n
的
随机数
答:
L as integer
N
=val(inputbox("请输入
n
的值:"))redim A(1 to n)redim B(1 to n)for I=1 to N A(I)=I next I do while L<n randomize K=int(rnd()*N)+1 if a(k)<>0 then a(k)=0 L=L+1 B(L)=K end if loop 运行完成后,B()中保存的就是你要的。
求
vb
高手解救:
随机产生n个
两位正整数(n由输入对话框输入且n>0),求其...
答:
‘试一下 Private Sub Command1_Click()Dim i As Long, s,
n
, sum s = InputBox("输入一个正整数:", , 10)For i = 1 To s Randomize n = Int(Rnd * 100) + 1 Print n;If n Mod 2 = 0 Then sum = sum + n Next label1.Caption = "偶数之和:" & sum End Sub ...
1
2
3
4
5
6
7
8
9
10
涓嬩竴椤
灏鹃〉
其他人还搜
vb随机生成10个不同的随机数
vb随机生成1到100随机数
vb随机生成一个数
vb随机生成十个数
vb随机生成10个1~100数字
vb随机生成一个四位整数
如何生成随机数vb
生成随机数vb
vb随机生成两位数