
不好意思,老是粘贴错,再改一下,源代码我调试好了以后给你粘贴错了,这段代码我没有调试,不过应该可以的,你试试,不可以的话给我追问,我调试
你在vb的安装路径下新建一个text1txt,用来输入学生成绩和姓名,一个text2txt,用来保存结果。注意text1txt格式是这样的,
张3,10
李四,30
王二,40
private sub cmd_click()
dim scount as integer'用来存储学生的个数
scount=inputbox("请输入学生的个数")
dim a() as integer'用来存储文件里的所有数据
redim a(1 to 2scount)
open apppath&"\"&"text1txt" for input as#1
for i=1 to 2scount
input#1,a(i)
next i
close#1
dim b() as integer'用来存储学生成绩
redim b(1 to scount)
dim c() as integer'用来存储学生姓名
redim c(1 to scount)
for i=1 to scount'读入学生成绩
b(i)=a(2I)
next i
for i=1 to scount'读入学生姓名
c(i)=a(1+2(i-1))
next i
for i=1 to scount-1'给成绩排序
max=b(i)
for j=i+1 to scount
if b(j)>max then
max=b(j)
p=j
temp=b(i)
b(i)=b(p)
b(p)=temp
end if
next j
next i
for i=1 to scount
for j=1 to scount
if b(i)=a(2j) then
c(i)=a(2j)
end if
next j
next i
open apppath&"\"&"text2text" for append as#1
for i=1 to scount
print#1,c(i),b(i)
next i
close#1
end sub
1、首先在桌面上,鼠标左键双击程序,在打开的VB6主界面上。
2、其次点击左边工具菜单栏,单击标签按钮,在Form1窗口上,绘制出一Label1。
3、最后在其属性窗口上改个名字,点击运行即可。
VisualBasic是微软公司推出的可视化编程工具MSDN之一,是目前世界上使用最广泛的程序开发工具。
VB的语法的和QBASIB语言是基本相同的,也就是说它的语法是最容易被初学者所接受的。另外VB提供的是可视化的开发环境,我们可以象搭积木一样构建出程序的界面,而且VB提供了丰富的控件组,省去了我们自己写代码实现这些效果的麻烦,这样我们就能把更多的精力放在程序功能的实现上,所以VB学起来简单,用起来方便。
以上就是关于怎么用vb来制作一个成绩排名小程序啊,急!!!全部的内容,包括:怎么用vb来制作一个成绩排名小程序啊,急!!!、vb抓不到我小程序怎么做、vb是什么 怎么用它来编写小程序啊、等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)