用vb编写*利用随机函式产生20个10~99之间(包括10和99)的随机整数存入一维阵列A，以下文字资料是由(历史新知网www.lishixinzhi.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！
用vb编写*利用随机函式产生20个10~99之间(包括10和99)的随机整数存入一维阵列A，
Option Explicit
Option Base 1
Dim a%(80), i%, k%, t%, b%(80)
Private Sub Command1_Click()
Me.Cls
Dim j As Integer
Randomize
For i = 1 To 80
a(i) = Int(Rnd * 90) + 10
Next i
k = 0
t = 1
For i = 1 To 79
b(i) = Abs(a(i + 1) - a(i))
If b(i) > k Then
k = b(i)
t = i
End If
Next i
Print "全部"
For i = 1 To 80
Print a(i);
If i Mod 10 = 0 Then Print
Next i
Print "最大差值:" & k & ",是" & a(t + 1) & "和" & a(t) & "之差"
End Sub
用C语言编写程式： * 利用随机函式产生100个10～99之间(包括10和99)的随机整数存入一维阵列A， 然后先打
#include "stdio.h"
#include"windows.h"
void main()
{
int i,A[100];
for(i=0;i<100;i++)
{
A[i] = rand()%90 + 10;
printf("%d ", A[i]);
}
}
利用vb随机函式产生20个10到99的随机整数存入一维阵列a,找出其中所有奇数并统
dim a(20) as int
dim i as int
dim j as int
j=0
for i=0 to 19
a(i)=rnd()*79+20
if a(i) mod 2=1 then
j=j+1
end if
next
print j
用随机函式产生10个1～10之间(包括1和10)的随机整数存入一维阵列A，然后将其反序放置在阵列B。
你的是什么语言的程式啊？可以用Int((10 * Rnd) + 1) 生成1到10 之间的数值。然后储存嘛，你可以用一个回圈。
dim i
dim a(10)
dim b(10)
for i=1 to 10
a(i)=Int((10 * Rnd) + 1)
b(10-i+1)=a(i)
next
在vb中，如何编写程式通过随机函式产生10~99之间的随机整数？
Private Sub Form_Click()
Randomize
For i = 10 To 99
n = Int(Rnd * i + 10)
Next
Print nEnd Sub
怎样程式设计利用随机函式产生15个100内的随机整数存入一维阵列，然后分三行输出，每行5个数如题 谢谢了
#include #include #include int main( ) { int a[15], i, j; srand(time(NULL)); for(i = 0; i < 15; i++) a[i] = rand()%100; for(i = 0; i < 3; i++) { for(j = 0; j < 5; j++) printf("%-4d", a[i*5+j]); printf("\n"); } return 0; }
利用随机函式产生10个范围在10到99之间的正整数
'给你取了30个数，这样成功的概率大些，你可以把它修改成10
Private Sub Command1_Click()
Dim arr(1 To 30), i, j
For i = LBound(arr) To UBound(arr)
Randomize
arr(i) = Int(Rnd * 90) + 10
Next
Cls
Print Join(arr)
For i = LBound(arr) To UBound(arr) - 1
For j = i + 1 To UBound(arr)
If Val(arr(i)) + Val(arr(j)) = 50 Then Print "(" & arr(i) & "," & arr(j) & ")" & Space(2);
Next
Next
End Sub
用vb编写程式码：已知一个一维阵列，有10个数组元素，阵列元素的值是通过随机函式随机产生的[-20,-10]范围内
Rnd 函式返回小于 1 但大于或等于 0 的值。
为了生成某个范围内的随机整数，可使用以下公式：
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
vb 随机产生20个三位正整数存入一维阵列A中,找出其中升序数,回文数
Private Sub Command1_Click() Dim a%(0 To 19), b%(0 To 19), hwsN%, sxsN% Dim sxsbz As Boolean, hwsbz As Boolean Print "随机产生20个三位正整数如下："; For i = 0 To 19 Randomize a(i) = Int(Rnd * 900 + 100) If i Mod 5 = 0 Then Print Print a(i); Next i Print Print "其中有升序数："; For i = 0 To 19 Call sxs(a(i), sxsbz) If sxsbz Then Print a(i); sxsN = sxsN + 1 End If Next i Print sxsN & "个。"; Print Print "其中有回文数："; For i = 0 To 19 Call hws(a(i), hwsbz) If hwsbz Then Print a(i); hwsN = hwsN + 1 End If Next i Print hwsN & "个。"End SubPrivate Function sxs(n As Integer, bz As Boolean) '判断所给n是不是升序数,是的话,bz返回true,否返回false Dim a%, b%, c%, tmp% tmp = Trim(Str(n)) a = Mid(tmp, 1, 1) b = Mid(tmp, 2, 1) c = Mid(tmp, 3, 1) If (a < b) And (b < c) Then bz = True Else bz = FalseEnd FunctionPrivate Function hws(n As Integer, bz As Boolean) '判断所给n是不是回文数,是的话,bz返回true,否返回false If Trim(Str(n)) = Trim(StrReverse(Str(n))) Then bz = True Else bz = FalseEnd Function
分页：
1
23