早教吧作业答案频道 -->其他-->
Dima(1To5)AsIntegerPrivateSubCommand1Click()Dimi%,k%,t%,x%Fori=1To5a(i)=Int(Rnd*20)Picture1.Printa(i);Space(2);NextiFork=LBound(a())ToUBound(a())Fort=kTo(UBound(a())-1)Ifa(k)>a(t+1)Thenz=a(t+1)a(t+1)=a(k
题目详情
Dim a(1 To 5) As Integer
Private Sub Command1_Click()
Dim i%,k%,t%,x%
For i = 1 To 5
a(i) = Int(Rnd * 20)
Picture1.Print a(i); Space(2);
Next i
For k = LBound(a()) To UBound(a())
For t = k To (UBound(a()) - 1)
If a(k) > a(t + 1) Then
z = a(t + 1)
a(t + 1) = a(k)
a(k) = z
End If
Next t
Next k
For i = 1 To 5
Picture2.Print a(i); Space(2);
Next i
End Sub
Private Sub Command1_Click()
Dim i%,k%,t%,x%
For i = 1 To 5
a(i) = Int(Rnd * 20)
Picture1.Print a(i); Space(2);
Next i
For k = LBound(a()) To UBound(a())
For t = k To (UBound(a()) - 1)
If a(k) > a(t + 1) Then
z = a(t + 1)
a(t + 1) = a(k)
a(k) = z
End If
Next t
Next k
For i = 1 To 5
Picture2.Print a(i); Space(2);
Next i
End Sub
▼优质解答
答案和解析
Dim a(1 To 5) As Integer //定义名为a的五元素数组,
Private Sub Command1_Click() //鼠标点击动作
Dim i%, k%, t%, x% //定义四个整形变量
For i = 1 To 5 //for循环
a(i) = Int(Rnd * 20) //给数组a的五个元素赋值,为0-20的随机数
Picture1.Print a(i); Space(2); //在Picture1控件上输出数组a的五个值
Next i //同上
For k = LBound(a()) To UBound(a()) //k从a的下界到上限的for循环
For t = k To (UBound(a()) - 1) //for嵌套t从当前k值到a上限减1
If a(k) > a(t + 1) Then
z = a(t + 1)
a(t + 1) = a(k)
a(k) = z
End If //对数组a的元素进行排序
Next t
Next k
For i = 1 To 5
Picture2.Print a(i); Space(2);//将排序后的结果在控件Picture2中输出
Next i
End Sub//结束
总而言之,就是定义一个数组->赋值->第一次输出->排序->第二次输出 这样一个程序
Private Sub Command1_Click() //鼠标点击动作
Dim i%, k%, t%, x% //定义四个整形变量
For i = 1 To 5 //for循环
a(i) = Int(Rnd * 20) //给数组a的五个元素赋值,为0-20的随机数
Picture1.Print a(i); Space(2); //在Picture1控件上输出数组a的五个值
Next i //同上
For k = LBound(a()) To UBound(a()) //k从a的下界到上限的for循环
For t = k To (UBound(a()) - 1) //for嵌套t从当前k值到a上限减1
If a(k) > a(t + 1) Then
z = a(t + 1)
a(t + 1) = a(k)
a(k) = z
End If //对数组a的元素进行排序
Next t
Next k
For i = 1 To 5
Picture2.Print a(i); Space(2);//将排序后的结果在控件Picture2中输出
Next i
End Sub//结束
总而言之,就是定义一个数组->赋值->第一次输出->排序->第二次输出 这样一个程序
看了Dima(1To5)AsInt...的网友还看了以下:
关于x的分式方程x-x分之一=t-t分之一的解为x1=t,x2=﹣t分之一:x+x分之一=t+t分 2020-05-01 …
设{W(t),t>=0}是参数为d的平方的(打不出来那个方差的符号,W(t)-aW(t-h)t>= 2020-05-13 …
线性变换相关问题有线性变换T假设T^nX=T(T(T(...T(X)..)))设X为线性空间内一向 2020-05-17 …
s=vt,v=s/t,t=s/v哪个是基本公式?其实我是想问.比如v=s/t那按数学来推不是vt= 2020-06-12 …
已知f(x-1)=x^2-4x,求函数f(x),f(2x+1)的解析式令t=x-1,则有:x=t+ 2020-06-17 …
设y=f(x,t),且方程F(x,y,t)=0确定了t=t(x,y),求dy/dx457页的答案在 2020-07-22 …
simulink中的s函数我用simulink搭建了一个模块,用到了s函数,用来实现以下功能:对于 2020-07-23 …
求f(x)=[(x^2+4)/√(x^2+3)]+1我的方法做不下去基本不等式法设√(x+3)=t 2020-08-03 …
x=t^2dx=2tdt∫﹙√x﹚^3+1/√x+1dx=2∫{[t³+1]/[t+1]}tdt=2 2020-12-17 …
limt→0(1+1/t)^t=e证明因为limx→∞时(1+1/x)^x=e,令x=1/t,则当x 2020-12-27 …