求教各位VB大神,帮个忙

wocx910715 2011-12-08 09:13:50
大概写一个小程序
帮个忙,这一个程序,从文件中读取10个数,写入数组中,然后找出最大数的位置,然后用选择排序发降序排列写入文件中,大概这样,用VB写,麻烦大神,万分感谢,VB没学过
...全文
67 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
贝隆 2011-12-09
  • 打赏
  • 举报
回复
分为三步:
1、读文件
2、排序
3、写文件
chinaboyzyq 2011-12-09
  • 打赏
  • 举报
回复
编程思路大体相同,象这样的作业用什么语言都不是问题,找本入门的书看看。
miaozk2006 2011-12-08
  • 打赏
  • 举报
回复
'*************************************
Dim Data1 As Long
dataLng = Array(3, 6, 5, 8, 7, 9, 4, 2, 1, 10)
'此处如果有输入文件则换成打开文件,读取取到数组中即可

'*************************************
Dim i As Integer, j As Integer, tmp As Integer
Dim N As Integer '数据个数
N = UBound(dataLng)
Debug.Print Now
For i = 0 To N
For j = i + 1 To N
If dataLng(i) < dataLng(j) Then '条件成立 ,则位置交换
tmp = dataLng(j)
dataLng(j) = dataLng(i)
dataLng(i) = tmp
End If
Next j
Next i

Close #1
Open "c:\out.txt" For Output As #1
For i = 0 To N
Print #1, dataLng(i)
Next i
Close #1
  • 打赏
  • 举报
回复
没学过用什么vb写程序……

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧