题目
vb问题利用随机函数产生80个10~99之间的随机整数,
利用随机函数产生80个10~99之间的随机整数,将其中的偶数按由小到大的顺序排列并输出,将奇数按由大到小的顺序排列并输出在两个文本框中每行十个 运用基本语句 dmwk2@163.com
利用随机函数产生80个10~99之间的随机整数,将其中的偶数按由小到大的顺序排列并输出,将奇数按由大到小的顺序排列并输出在两个文本框中每行十个 运用基本语句 dmwk2@163.com
提问时间:2020-10-31
答案
我已经上机验证过了,正确.
思路:
产生80个随机数,把这80个随机数由小到大排序,然后从第1个到第80个的顺序挑选偶数,赋值给字符串s1,够10个换行 .
再从第80个到第1个的顺序挑选奇数,赋值给字符串s2,同上.
有一点很重要:把这两个文本框的mutltiLine属性要改为 True
Private Sub Command1_Click()
Dim s1, s2 As String
Randomize
Dim a(80) As Integer
For i = 1 To 80
a(i) = 10 + Int(Rnd * 90)
Next i
For i = 1 To 79
For j = i + 1 To 80
If a(i) > a(j) Then t = a(i): a(i) = a(j): a(j) = t
Next j
Next i
n = 0
For i = 1 To 80
If a(i) Mod 2 = 0 Then
s1 = s1 + Str(a(i))
n = n + 1
If n Mod 10 = 0 Then s1 = s1 + Chr$(13) + Chr$(10)
End If
Next i
Text1.Text = s1
n = 0
For i = 80 To 1 Step -1
If a(i) Mod 2 0 Then
s2 = s2 + Str(a(i))
n = n + 1
If n Mod 10 = 0 Then s2 = s2 + Chr$(13) + Chr$(10)
End If
Next i
Text2.Text = s2
End Sub
思路:
产生80个随机数,把这80个随机数由小到大排序,然后从第1个到第80个的顺序挑选偶数,赋值给字符串s1,够10个换行 .
再从第80个到第1个的顺序挑选奇数,赋值给字符串s2,同上.
有一点很重要:把这两个文本框的mutltiLine属性要改为 True
Private Sub Command1_Click()
Dim s1, s2 As String
Randomize
Dim a(80) As Integer
For i = 1 To 80
a(i) = 10 + Int(Rnd * 90)
Next i
For i = 1 To 79
For j = i + 1 To 80
If a(i) > a(j) Then t = a(i): a(i) = a(j): a(j) = t
Next j
Next i
n = 0
For i = 1 To 80
If a(i) Mod 2 = 0 Then
s1 = s1 + Str(a(i))
n = n + 1
If n Mod 10 = 0 Then s1 = s1 + Chr$(13) + Chr$(10)
End If
Next i
Text1.Text = s1
n = 0
For i = 80 To 1 Step -1
If a(i) Mod 2 0 Then
s2 = s2 + Str(a(i))
n = n + 1
If n Mod 10 = 0 Then s2 = s2 + Chr$(13) + Chr$(10)
End If
Next i
Text2.Text = s2
End Sub
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
最新试题
热门考点
- 1Φ25 A7/h61.确定轴和孔的极限偏差2.计算最大最小极限尺寸(孔和轴)3.计算极限过盈和极限间隙...
- 2已知函数f(x)=x2-(k-2)x+k2+3k+5有两个零点
- 3将一个底面直径是20厘米的金属圆锥体,全部浸没在直径是40厘米的圆柱形玻璃水槽中,
- 4当X________时分式3X分之2有意义 说说 并举个例子
- 5感叹句中what 和 how有啥区别?
- 6the doctor asked me to take the medicine three t_____ a day
- 7解方程组x²-y²-2x-2y=0;x²+xy+y²-28=0
- 8英语小作文:关于十一去哪里玩(50字)
- 9篮子里有五个苹果,要分给五个人,为什么分好了篮子里还剩一个苹果?
- 10初2一道物理题(有关浮力)