VB设计题

来源：百度知道 编辑：UC知道 时间：2024/05/19 18:03:39
9. 编制程序实现下列功能：输入三个互不相同的正整数，点击“排序”，将这三个数从小到大输出。执行结果如图6所示。
没学VB，不知道怎么做。

就只有3个数要排序吗？
打开VB 象上图一样拖入控件
然后双击BUTTON1 输入如下代码
dim sz(3) as integer
dim i,j,center as integer
sz(1)=val(text1.text)
sz(2)=val(text2.text)
sz(3)=val(text3.text)
for i=1 to 3
for j=1 to 3
if sz(i)>sz(j) then
center=sz(i)
sz(i)=sz(j)
sz(j)=center
endif
next
next
text4.text=sz(1)
text5.text=sz(2)
text6.text=sz(3)

6个text 的顺序应该是上面1行的 text1,text2,text3 下面1行text4,text5,text6 就行了

用排序法吧