66问答网
所有问题
当前搜索:
vb随机生成两位数
vb随机
10个
两位
整数,找出其中最大,最小值
答:
Private Sub Command1_Click()Randomize Max = 0 Min = 100 Print "10个
随机
整数为:"For i = 1 To 10 x = Int(Rnd * 90) + 10 Print x;If x > Max Then Max = x If x < Min Then Min = x Next i Print Print "最大值:"; Max Print "最小值:"; Min End Sub ...
vb
题
随机生成
10个
两位
整数,求出他们的总和及平均数
答:
Next i For i = 1 To 10 1 s(i) = tt(Int(Rnd() * 99 + 10)) '循环10次得到数组s,存放10个
随机数
If s(i) <> "" Then '如果得到的s数组值不为空 temp3 = temp3 + s(i) '把10个数相加 tt(s(i)) = "" '把tt数组已取出的值赋予空值 Else GoTo 1 '如果取出的值为...
计算机
VB
题
随机产生
30个不重复的
两位
正整数,聪大到小排列,窗体直接显 ...
答:
If i = t Then Text1.Text = Text1.Text & a(i) & " " '在文本框1中显示排列前的
随机数
Next i For i = 1 To 29 '由大到小排列无重复的随机数 For j = i + 1 To 30 If a(i) < a(j) Then t = a(i)a(i) = a(j)a(j) = t End If Next Next For i =...
1.
VB随机产生
10个
两位数
正整数的素数 2.随机产生10个两位数正整数,并输...
答:
第一个题,10个正整数都是素数,第二题,10个数里面不知道有几个素数,输出来的只是10个里面的素数,所以,也不知道会输出来几个数值。代码如下:Dim s(1 To 10) As IntegerDim i, j As IntegerPrivate Sub Command1_Click()Print "题1
产生
的10个
数字
为:"For i = 1 To 10 Do ...
怎样在
vb中
使计算机
随机
给出
两位数
加减法算术题,并随时给出真确率...
答:
定义三个变量,比如:int a[],w,jieguo;//数组a的值是0-100的整数,w的值是加法还是减法,jieguo是最后的运算结果。a[0]=(int)(Math.random()*100);a[1]=(int)(Math.random()*100);w=(string)(random("+","-"));if w="+"{jieguo=a[0]+a[1];label1.text=(string)(a[0]...
VB中随机产生
100个
两位随机
整数,按十个数为一行输入,并找出这组数中的...
答:
min As IntegerRandomizeFor i = 1 To 100 n = Int(Rnd * 90) + 10 Print n; If i Mod 10 = 0 Then Print If i = 1 Or max < n Then max = n If i = 1 Or min > n Then min =nNext iPrint "最大数:"; maxPrint "最小数:"; min ...
VB
窗体设计
随机产生
10个
两位
整数,存放在数组中,将10个数显示在一个文 ...
答:
Private Sub Command1_Click()Dim a(10) As Integer For i = 1 To 10 a(i) = Int(Rnd * 90) + 10 Next Open "d:\123.txt" For Output As #1 For i = 1 To 10 Print #1, a(i)Next Close For i = 1 To 9 For j = i + 1 To 10 If a(i) >= a(j) Then t =...
vb
改错!
随机生成
十个互不相同的
两位数
作为某次体育比赛得分,输出他...
答:
Option Base 1 Dim a(10) As Integer Private Sub Command1_Click()Dim n As Integer n = 1 List1.Clear Randomize Do t = Int(Rnd * 90) + 10 For i = 1 To n If t = a(i) Then Exit For If i = n Then a(n) = t 'n = n + 1 '这两句位置调换 List1.AddItem t ...
vb
程序设计:
随机生成
15个
两位
正整数,保存到数组中并输出,然后将第一个...
答:
Private Sub Command1_Click()Dim a(15)Randomize For i = 1 To 15 a(i) = Int(Rnd * 90 + 10)Next i For i = 1 To 15 Print a(i);Next i Print For i = 1 To 15 \ 2 tmp = a(i)a(i) = a(15 - i + 1)a(15 - i + 1) = tmp Next i For i = 1 To 15...
vb编程 随机生成
10个
两位
正整数存放在数组A中,再将数组中的数据进行逆...
答:
Option Base 1 Private Sub Command1_Click()Dim s(10) As Integer For i = 1 To 10 s(i) = Rnd() * 100 Print s(i)Next i Print "以上是初始的10个
随机
整数"For a = 10 To 1 Step -1 Print s(a)Next a Print "以上逆转顺序后的10个随机整数"End Sub ...
棣栭〉
<涓婁竴椤
4
5
6
7
9
10
8
11
12
13
涓嬩竴椤
灏鹃〉
其他人还搜