88问答网
所有问题
当前搜索:
vb产生n个随机数
VB编程
随机产生
50个10~200的整数,统计能被5整除的数的
个数
答:
Private Sub Command1_Click()Dim a(50), i,
n
Randomize For i = 1 To 50 a(i) = Int(Rnd * 191) + 10 Print a(i);If i Mod 10 = 0 Then Print If a(i) Mod 5 = 0 Then n = n + 1 Next Print "能被5整除的数的个数="; n End Sub ...
vb编程
:
随机产生
10个两位随机奇数,求其中的最大值、最小值和平均值...
答:
Private Sub Form_Load()Dim a(10) As Single Dim i, j As Single For i = 0 To 9 '
产生
10
个随机数
j = 0 Do Until j < 100 And j Mod 2 = 1 Randomize j = Int(Rnd * 100) + 10 Loop a(i) = j Next i Label1.Caption = "这10个数为:"For i = 0 To 9 Labe...
VB
题目:
随机产生
1-33之间的6
个随机数
(保证6个数字不重复)按照从大到小...
答:
Private Sub Command1_Click()Dim num(6) As Integer Dim i As Integer, j As Integer Dim tmp As Integer Randomize '防止每次生出随机数一样 For i = 0 To 5 num(i) = Int(Rnd * 53) + 1 Next PrintNum "新
生成
的6
个随机数
为:", num()For i = 0 To 5 For j = 0 To 5...
求
VB 生成
50个[-10,10]之间
随机数
的代码
答:
控件2个,一个按钮,一个文本框(打开多行支持,竖直滚动条)Private Sub Command1_Click()For i = 1 To 50 a = 20 * Rnd()Text1.Text = Text1.Text + vbCrLf + Str(a - 10)Next End Sub 如图:
VB
~单击
产生随机数
命令按钮,产生10个两位正整数,并显示到窗体上_百度...
答:
Private Sub Command1_Click()Dim i As Integer For i = 1 To 10 Print Int(Rnd() * 90) + 10;Next i Print End Sub Private Sub Form_Load()Command1.Caption = "
产生随机数
"End Sub
vb产生
30个100以内的
随机
整数并统计出优、良、中等、及格、不及格的个...
答:
Randomize ' 对
随机数生成
器做初始化的动作。 For i = 1 To 30 a(i) = Int(101 * Rnd) Next i '初始化这五个数为0.它们代表五种成绩分别的数量 j = 0 k = 0 l = 0 m = 0
n
= 0 '下边这一行代码的作用是分类。将五种成绩的学生分别放进...
在
VB中
,利用
随机
函数
产生
10个 1---100 之间的随机整数,找出其中能被...
答:
Next IFor I = 1 To 19 For J = 1 To 20 - I If AA(J) > AA(J + 1) Then SDA = AA(J) AA(J) = AA(J + 1) AA(J + 1) = SDA End If Next JNext IText1.Text = Text1.Text & "
生成
的20
个随机数
:" & vbCrLfFor I = 1 To 20If AA(I)...
vb 如何
使
产生
的十
个随机数
全部显示出来
答:
把这10个数每个数之间插入一个分隔符(比如空格、逗号、回车换行等等)再放入label不就行了吗?比如 label1.caption=n1 & " " & n2 & " " & n3 ... & " " & n10 如果你的10
个随机数
是放在数组里面的就更简单了,比如数组a():label1.caption=join(a," ")...
利用
VB如何
设计下面问题:利用
随机数产生
10个1~100之间的随机数,显示...
答:
ReDim Preserve
n
(q)n(q) = a(i)End If Next i max = a(0) '最大值最小值 min = a(0)For i = 1 To 9 If a(i) > max Then max = a(i)If a(i) < min Then min = a(i)Next i Print "10个数中的最大值为" & max Print "10个数中的最小值为" & min For...
VB
,如何
随机产生
三个整数
答:
没要求范围更好呀:Private Sub Form_Click()Dim A As Integer, B As Integer, C As Integer Form1.AutoRedraw = True Randomize A = Int(Rnd * 100 + 1)B = Int(Rnd * 100 + 1)C = Int(Rnd * 100 + 1)Print "
随机产生
的三个整数是:"; A; B; C End Sub 已经运行过。
棣栭〉
<涓婁竴椤
6
7
8
9
11
12
13
14
10
15
涓嬩竴椤
灏鹃〉
其他人还搜