66问答网
所有问题
当前搜索:
vb中产生随机10个整数
vb
产生10个
两位
随机整数
,用冒泡排序法对10个数按升序排序
答:
这个排出
的
结果是升序的,即从小到大的百度上找到的。看看吧 本回答由提问者推荐 举报| 答案纠错 | 评论 0 0 worksnfkpynn99 采纳率:28% 擅长: 电脑外接设备 地下城与勇士 为您推荐: vb语言 vb编程设计例题100例 vb 整数
vb整数
代码 vb判断整数 vb表示整数
vb随机整数
vb整数型是什么 vb &...
用
vb
代码表示
随机产生10个整数
,并求出最大值
答:
这是我之前写的代码,是随机产生8个1000内
的
整数,然后从大到小排列,你要
随机产生10个整数
,然后求出最大值应该是差不多的,可以参考 Dim a(10) '‘定义a数组为窗体变量,且最大下标为10 Private Sub Command1_Click()Randomize '‘随机播种语句 For i = 1 To 8 '‘随机产生8个100...
vb生成10个随机
数,且在1~50之间
答:
k = Int(Rnd * 50 + 1) '获取1~50
的整数
Loop a(i) = k Next For i = 0 To 9 strText = strText & " " & a(i) Next Label1.AutoSize = True Label1.Caption = strText End Sub Private Function Repeat(a() As Integer, Num As Integer, Index As Integer) As Boolean '参数:a()...
用
vb
“
随机产生10个整数
存入一维数组中,求其最大数及所在的下标”语句及...
答:
Private Sub Form_Click()Dim a(1 To
10
)Randomize '随机种子,保证每次出现随机数不一样 For i = 1 To 10 a(i) = Int(Rnd * 100) '
随机生成
0到99
的整数
Print a(i);Next i Print maxnum = a(1) '初始最大值为随机数的第一个数 For i = 1 To 10 If maxnum < a...
用
vb
怎样
生成10个
不重复
的
(1到10)
随机
数?
答:
vb生成10个
不重复
的随机
数代码:Private Sub Command1_Click()Dim a(9) As Integer For i = 0 To 9 GoTo way1 End If Next p End If Print a(i)Next i End Sub
...随机函数
产生
并显示
10 个
1~100 之间
的随机整数
并找出这个数中的最...
答:
Private Sub Command1_Click() Dim a(
10
) As Integer Randomize Max = 1 For i = 1 To 10 a(i) = 1 + Int(Rnd * 100) Print a(i); If a(i) > a(Max) Then Max = i Next i Print Print "a("; Max; ")="; a(Max)End Sub ...
VB
编程:使用一维数组编写程序,
随机产生10个
0~100
的整数
,求出最大值...
答:
max = 0 min = 100 For i = 1 To
10
If max < a(i) Then max = a(i) If min > a(i) Then min = a(i) Next i Print "max"; max; "min"; minEnd SubPrivate Sub Command3_Click() Dim ave As Double For i = 1 To 10 ave = ave + a...
帮我解一下这道
VB
编程题:“
随机产生10个
两位
整数
,找出其中的最大值...
答:
single randomize for i=0 to 9 a(i)=int(rnd*90+
10
)next max=a(0)min=a(0)for i=0 to 9 if a(i)>max then max=a(i)if a(i)<min then min=a(i)avg=avg+a(i)next avg = avg /10 print "最大值为" & max & ",最小值为" & min & ", 平均值为" & avg ...
用
VB
编程:
随机产生10个
0~100之间
的随机整数
,存放在一个数组中,然后求个...
答:
x + a(i)Next i Print "元素和=" & x Print "平均值=" & x /
10
For i = 0 To 9 If a(i) > (x / 10) Then j = j + 1: y = y & CStr(a(i)) & " "Next i Print "大于平均值
的
元素个数=" & j Print "大于平均值的元素:" & y Me.Refresh End Sub ...
VB
编程
随机产生10个
30~100(包括30和100)的正
整数
,选择一个数,将其...
答:
Private Sub Form_click() Dim a(1 To
10
) As Integer, n As Integer Randomize Cls For i = 1 To 10 a(i) = Int(Rnd * 71 + 30) Print a(i); Next i Print n = Val(InputBox("请输入要删除
的
数的下标!")) Select Case n Case 1 To 10...
1
2
3
4
5
6
7
8
9
10
涓嬩竴椤
灏鹃〉
其他人还搜
vb随机生成1到100随机整数
vb随机生成100内的10个整数
vb中随机生成100个两位整数
vb中产生多个随机整数
vb随机产生10个正整数
vb随机产生20个整数
vb随机产生一个整数
vb随机产生10个两位数
vb随机产生10个数