66问答网
所有问题
当前搜索:
vb随机生成100内的10个整数
随机生成100内的10个整数
运行?
答:
Dim a(100) As Integer, i As Integer, m As Integer, n As Integer, k As Integer Cls'先清屏 Print "
生成100
个两位
随机整数
"For i = 1 To 100 a(i) = Int(Rnd * 90) + 10 Print a(i);If i Mod 10 = 0 Then Print '一行只输出
10个
m = 0: n = 0: k = 0 For i ...
...随机函数
产生
并显示
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的整数
,求出最大值...
答:
min As Integer 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 ...
用
VB编程
:
随机产生10个
0~
100
之间的
随机整数
,存放在一个数组中,然后求个...
答:
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个100
到200之间的数,求出最大值与最小值_百 ...
答:
1、首先需要启动VB6.0,新建一个标准exe工程。2、打开VB6.0之后,在窗体上绘制一个命令按钮。3、接下来需要双击命令按钮进入代码窗口。4、接下来开始编辑按钮的单击事件。5、最后就可以按F5运行测试。求出最大值与最小值。
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
代码表示
随机产生10个整数
,并求出最大值
答:
这是我之前写的代码,是随机产生8个1000
内的
整数,然后从大到小排列,你要
随机产生10个整数
,然后求出最大值应该是差不多的,可以参考 Dim a(10) '‘定义a数组为窗体变量,且最大下标为10 Private Sub Command1_Click()Randomize '‘随机播种语句 For i = 1 To 8 '‘随机产生8个100...
利用
VB
制作一个“
随机生成十个
数字(1-
100
之间
的整数
)求极值(最大最小...
答:
tempEnd IfNext jNext imax = num(1)min = num(
10
)avg = sum * 1# / 10End SubPrivate Sub Command2_Click()If Text1.Text = "" ThenMsgBox "没有数组,无法计算!"ElseLabel4.Caption = maxLabel5.Caption = minLabel6.Caption = avgEnd IfEnd Sub设计好的窗体:程序运行的窗体:...
Vb
编写程序,
随机生成
10 个
[1,
100
]
的整数
,输出其平均值及大于平均值的...
答:
Private Sub Command1_Click() '
生成10
-
100
间10个数字求平均值及大于平均值的数字 Me.Cls Dim a() As Integer, i As Integer, he As Integer Dim pj As Single ProduceShu 10, 100, 10, a()Print "
生成的10个
数字分别为:" & Space(2);For i = 0 To 9 Print a(i);he = he...
vb随机产生
范围从1到
100的10个整数
放在数组a(1to10)中,用冒泡法将数组...
答:
Private Sub Form_Click()Form1.ClsDim i As Integer, j As Integer, temp As IntegerDim a(1 To 10) As IntegerFor i = 1 To 10a(i) = Int(Rnd *
100
+ 1)Next iFor i = 1 To 9For j = i + 1 To 10If a(i) > a(j) Then temp = a(i): a(i) = a(j): a(j...
1
2
3
4
5
6
7
8
9
10
涓嬩竴椤
灏鹃〉
其他人还搜
vb随机生成1到100随机整数
vb随机生成10个不同的随机数
vb随机生成100个两位整数
vb随机生成一个四位整数
vb生成随机整数的代码
vb生成指定范围的随机整数
vb中产生随机10个整数
vba随机生成一个整数
vb随机产生10个正整数