VB程序设计,用随机函数产生10个50以内(包括50)的随机整数存入一维数组。求出最大值并和数组中的首个
用随机函数产生10个50以内(包括50)的随机整数存入一维数组。求出最大值并和数组中的首个元素交换位置;输出交换后的所有数组元素。主要是用VB程序设计...
用随机函数产生10个50以内(包括50)的随机整数存入一维数组。求出最大值并和数组中的首个元素交换位置;输出交换后的所有数组元素。
主要是用VB程序设计 展开
主要是用VB程序设计 展开
展开全部
Private Sub Command1_Click()
Randomize
Dim a(9) As Integer, Max As Integer
Dim k As Integer, i As Integer
Dim t As Integer
Max = 0
For i = 0 To 9
a(i) = Int(Rnd * 51)
Print a(i);
If a(i) > Max Then
Max = a(i)
k = i
End If
Next i
Print
If k > 0 Then
t = a(0)
a(0) = a(k)
a(k) = t
End If
For i = 0 To 9
Print a(i);
Next i
Print
Print
End Sub
展开全部
不需要控件,程序如下:
Private Sub Form_Click()
Dim A(10) As Integer
Dim I As Integer
Dim K As Integer
Dim J As Integer
Dim T As Integer
Cls
Randomize
Print "自动生成的原始数组是:"
K=1
For I=1 To 10
A(I) =Int(Rnd()*50+1)
Print A(I) ;
If A(I) >A(K) Then K=I
Next
T=A(0)
A(0) =A(K)
A(K) =T
Print
Print "交换以后的数组是:"
For I=1 To 10
Print A(I) ;
Next
Print
End Sub
有什么问题请留言。
Private Sub Form_Click()
Dim A(10) As Integer
Dim I As Integer
Dim K As Integer
Dim J As Integer
Dim T As Integer
Cls
Randomize
Print "自动生成的原始数组是:"
K=1
For I=1 To 10
A(I) =Int(Rnd()*50+1)
Print A(I) ;
If A(I) >A(K) Then K=I
Next
T=A(0)
A(0) =A(K)
A(K) =T
Print "交换以后的数组是:"
For I=1 To 10
Print A(I) ;
Next
End Sub
有什么问题请留言。
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
根据已有的程序行,缺的内容主要就是一个排序过程。添加一个排序的过程就行了。但是不知道该添在哪里,请说明程序的空白处是在哪里?能不能标出来,比如用括号,星号什么的,标一下需要补充到哪里?
或者,能不能说明一下,各文本框,按钮的功能是什么? d = Val(Text3.Text),这个应该是要插入的数据了,说明text3是用来输入的,Text2.Text = Text2.Text & Str(a(i)),这说明text2是显示排序后的结果的,
那有没有text1?用作什么?两个按钮定义的功能是什么?插入的数据怎么插?是随机插入一个位置,并替换掉原来的数据还是将数组重新定义随机插入后,后面的数向后移?
这些需要说明一下,或者把需要填写的位置标清楚,不然,不好确定该怎么填。
或者,能不能说明一下,各文本框,按钮的功能是什么? d = Val(Text3.Text),这个应该是要插入的数据了,说明text3是用来输入的,Text2.Text = Text2.Text & Str(a(i)),这说明text2是显示排序后的结果的,
那有没有text1?用作什么?两个按钮定义的功能是什么?插入的数据怎么插?是随机插入一个位置,并替换掉原来的数据还是将数组重新定义随机插入后,后面的数向后移?
这些需要说明一下,或者把需要填写的位置标清楚,不然,不好确定该怎么填。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询