VB（ 一个VB程序）

Private Sub Form_Unload(Cancel As Integer)

Unload Form3 '卸载form3窗体

Unload Form4 '卸载form4窗体！本程序结束前先卸载form3,form4窗体

End Sub

Private Sub muadd_Click() '单击增加按钮

ReDim Preserve xm(W + 1), math(W + 1), eng(W + 1), com(W + 1) '把保存各项学生信息的数组都增加一个元素，用来存储新增加的这一个学生信息

W = W + 1

xm(W) = InputBox("请输入追加的姓名", "输入框1") '信息输入

math(W) = InputBox("请输入数学的成绩", "输入框2")

eng(W) = InputBox("请输入英语的成绩", "输入框3")

com(W) = InputBox("请输入计算机的成绩", "输入框4")

List1.List(W) = xm(W) &" " &math(W) &" " &eng(W) &" " &com(W) &vbNewLine '把新增的信息显示在listbox的最后一项

End Sub

Private Sub mudelete_Click() '删除按钮

If List1.ListIndex >0 Then '如果有选定的list的项

List1.List(List1.ListIndex) = "" '则清空其内容，注意这项还在，只是内容为空

For i = List1.ListIndex To List1.ListCount - 1 '清除空项

List1.List(i) = List1.List(i + 1) '清除空项

Next

List1.RemoveItem (List1.ListCount - 1) '上面的循环结束后，最后一项空了，删除！

W = W - 1

End If

End Sub

Private Sub mudown_Click()

Form4.Show 'form4 显示

End Sub

Private Sub muopen_Click()

CommonDialog1.InitDir = App.Path

CommonDialog1.Filter = "text(.*)|*.txt|all file|*.*"

CommonDialog1.FilterIndex = 1

CommonDialog1.ShowOpen '显示“打开”对话框，来选择文件

a1 = CommonDialog1.FileName

Open a1 For Input As #1 '把选择的文件读入（内存）

W = 0

Do While Not EOF(1)

ReDim Preserve xm(W + 1), math(W + 1), eng(W + 1), com(W + 1) '把保存学生信息的数组增加一个元素

q1 = q1 + 1

W = W + 1

Input #1, xm(W), math(W), eng(W), com(W) '分别读取你打开的那个文件的各个字段（姓名、数学、英语、计算机）的成绩，到数组中

Loop

Close #1

Call print1 '调用print过程

End Sub

Sub print1()

List1.List(0) = "姓名 数学 英语 计算机" &vbNewLine

For i = 1 To W 'print 过程的作用是，保存学生信息的数组的各个元素输出显示到listbox

List1.List(i) = xm(i) &" " &math(i) &" " &eng(i) &" " &com(i) &vbNewLine

Next

End Sub

Private Sub musaveto_Click()

Dim sFile As String

CommonDialog1.CancelError = True

On Error GoTo ErrHandler

CommonDialog1.Filter = "所有文件(*.*)|*.*|文本文件(*.txt)|*.txt" &"|word 文档(*.doc)|*.doc"

CommonDialog1.Flags = &H4&

CommonDialog1.DefaultExt = "txt"

CommonDialog1.ShowSave '显示"保存"对话框，保存文件

sFile = CommonDialog1.FileName

Open sFile For Output As #2

For i = 0 To W

Print #2, List1.List(i) '把listbox中的内容保存为文件

Next

Close #2

Exit Sub

ErrHandler: '保存时的错误处理，一般的错误是没有输入保存文件的名字，或取消保存

Exit Sub

End Sub

Private Sub muup_Click()

Form3.Show 'form3 显示

End Sub

一个

C程序

由一个

主函数

和若干个其他函数组成。若干个的意思就是可以有0个及以上个。c语言的

程序模块

称为函数。

C

语言可以进行多种方式进行程序的设计，它是一种很有特色的

高级语言

通过若干个函数组成，它具备构成程序设计的

3

种基本结构顺序，选择和

循环结构

。C语言编辑简洁明了，运算符丰富且功能强大还有编译预处理功能。此语言的移植性好不同的处理器用不同的

编译器

编译指令达到移植的效果。

扩展资料：

C

语言

普适性

最强的一种

计算机程序

编辑语言，它不仅可以发挥出高级编程语言的功用，还具有

汇编语言

的优点，因此相对于其它编程语言，它具有自己独特的特点。具体体现在以下三个方面：

其一，广泛性。C

语言的运算范围的大小直接决定了其优劣性。C

语言中包含了

34

种运算符，因此运算范围要超出许多其它语言，此外其运算结果的表达形式也十分丰富。此外，C

语言包含了字符型、指针型等多种数据结构形式，因此，更为庞大的数据结构运算它也可以应付。

其二，简洁性。9

类

控制语句

和

32个KEYWORDS是C语言所具有的基础特性，使得其在计算机应用程序编写中具有广泛的适用性，不仅可以使用广大编程人员的 *** 作，提高其工作效率，同

时还能够支持高级编程，避免了语言切换的繁琐。

其三，结构完善。C

语言是一种

结构化语言

，它可以通过组建模块单位的形式实现模块化的应用程序，在系统描述方面具有显著优势，同时这一特性也使得它能够适应多种不同的编程要求，且执行效率高。

---